|
發表於 2019/6/19 08:52:57
|
顯示全部樓層
改用下面代码,试一下。
注意“平板形式”这四个字,要对应设计树上的“平板形式”字,如繁体则繁体。
- Dim swApp As Object
- Dim Part As Object
- Dim boolstatus As Boolean
- Dim i As Integer
- Sub main()
- Set swApp = Application.SldWorks
- Set Part = swApp.ActiveDoc
-
- For i = 1 To 10
- boolstatus = Part.Extension.SelectByID2("平板型式" & CStr(i), "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
- If boolstatus = True Then Exit For
- Next
-
- If Part.EditUnsuppress2 Then
- Part.EditUnsuppress2
- Else
- Part.EditSuppress2
- End If
-
- End Sub
複製代碼
|
|