|
發表於 2017/10/21 14:56:26
|
顯示全部樓層
試下以下代碼:
- 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
- Set myMate = Part.AddMate5(24, 1, False, 0, 0, 0, 0, 0, 0, 0, 0, False, False, 0, longstatus)
- myMate.Select2 False, 0
- swApp.RunCommand swCommands_EditFeature, ""
- End Sub
複製代碼 |
|