SolidWorks隐藏所有零件原点的VBA
时间: 2024-01-08 19:04:08 浏览: 53
以下是隐藏所有零件原点的VBA代码:
```
Dim swApp As Object
Dim swModel As Object
Dim swFeature As Object
Dim swFeatMgr As Object
Dim swCustPropMgr As Object
Dim swCustProp As Object
Dim boolstatus As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swFeatMgr = swModel.FeatureManager
boolstatus = swModel.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
Do While boolstatus
Set swFeature = swFeatMgr.SelectionManager.GetSelectedObject6(1, -1)
swFeature.Select2 False, -1
Set swCustPropMgr = swModel.Extension.CustomPropertyManager(swFeature)
Set swCustProp = swCustPropMgr.Get4("Hide", True, "")
swCustProp.Value = "Yes"
boolstatus = swModel.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
Loop
swModel.ClearSelection2 True
MsgBox "All origin points hidden."
Set swModel = Nothing
Set swApp = Nothing
```
这段代码使用了 SolidWorks API 中的功能来选择并隐藏零件原点。请注意,在使用此代码之前,请先备份您的 SolidWorks 文件,并确保您已经了解代码的执行情况。