有大神可以帮忙修改宏吗，自己录制的宏，没有修改过，运行总是出问题

abcqzuser · 发表于 2022-7-21 09:24:37

将一个装配图另存为零件的宏

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 = swApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swSaveAssemblyAsPartOptions, swSaveAsmAsPartOptions_e.swSaveAsmAsPart_AllComponents)
' New Document
Dim swSheetWidth As Double
swSheetWidth = 0
Dim swSheetHeight As Double
swSheetHeight = 0
Set Part = swApp.NewDocument("D:\D\SW2014\工程图模板\3D模型.prtdot", 0, swSheetWidth, swSheetHeight)
Dim swPart As PartDoc
Set swPart = Part
swApp.ActivateDoc2 "零件8", False, longstatus
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "52904008 总装图.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc
' Save As
longstatus = Part.SaveAs3("C:\Users\123\Desktop\52904008\52904008 总装图.SLDPRT", 0, 2)
' Close Document
Set swAssembly = Nothing
Set Part = Nothing
swApp.CloseDoc "52904008 总装图.SLDASM"
End Sub