|
经典图书 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("抽屉3-1@装配体1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.CompConfigProperties4(2, 0, True, True, "GCS_08E", False, True)
boolstatus = Part.EditRebuild3()
End Sub
这是录制产生后的代码,
总是
boolstatus = Part.CompConfigProperties4(2, 0, True, True, "GCS_08E", False, True)
报错,希望有大神指导一下
补充内容 (2018-10-25 21:13):
录制宏该配置也会报错,求高手指点 |
|