|
發表於 2022/8/24 12:59:53
|
顯示全部樓層
- Dim swApp As Object
- Dim Part As Object
- Dim Filename As String
- Dim No As Integer
- Dim boolstatus As Boolean
- Dim longstatus As Long, longwarnings As Long
- Dim Title As String
- Sub main()
- Set swApp = Application.SldWorks
- Set Part = swApp.ActiveDoc
- '此處獲取“隱藏所有類型”狀態,True 或 False
- boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewDisplayHideAllTypes, True) '隱藏所有類型關
- boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewDispGlobalBBox, False) '邊界框關
- Filename = Part.GetPathName()
- No = Len(Filename)
- Filename = Left(Filename, No - 7)
- Part.SaveAs2 Filename & ".DXF", 0, True, False
- '文件保存後恢復之前獲取之“隱藏所有類型”狀態
- boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewDispGlobalBBox, True)
- boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewDisplayHideAllTypes, False)
- X = MsgBox(" 已保存為 DXF文件 ", 0)
- End Sub
複製代碼
用你的程式碼修改 ,看行不行~ |
|