zhjan518 发表于 2018-12-6 09:21:47

有没有批量执行SW零件冻结栏的宏

本帖最后由 zhjan518 于 2018-12-6 09:29 编辑

大型装配电脑不给力。设计树的冻结栏每次都要手动来冻结,一两千个零件手动操作可想而知,哪位大大帮忙做个宏批量下。自己录制了个宏,想每次单点,但不起作用,不知道啥原因
' ******************************************************************************
' C:\Users\Administrator\AppData\Local\Temp\swx4044\Macro1.swb - macro recorded on 12/06/18 by Administrator
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("M3 Tapped Hole1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.FeatureManager.EditFreeze(swMoveFreezeBarTo_e.swMoveFreezeBarToAfterFeature, "M3 Tapped Hole1", True)
End Sub
先谢谢啦,等候佳音:lol


super 发表于 2018-12-29 23:05:37

再仔细描述一下需求,最好截图说明一下。

〆飏 发表于 2019-1-24 18:45:19

零件冻结对装配性能的效果改善其实不理想,更改装配层级,装配模式会更好一些。
页: [1]
查看完整版本: 有没有批量执行SW零件冻结栏的宏