SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 有大神可以帮忙修改宏吗，自己录制的宏，没有修改过，运行总是出问题 [打印本页]

作者: abcqzuser 时间: 2022-7-21 09:24
标题: 有大神可以帮忙修改宏吗，自己录制的宏，没有修改过，运行总是出问题
将一个装配图另存为零件的宏

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

作者: wwwerzhou 时间: 2022-7-21 16:26
SolidWorks机械工程师网，顶一下。

作者: qikunshan 时间: 2022-7-22 15:01
1.宏肯定不会针对某一个零件名，所以要把零件名改成.gettitle
2.路径用getpath
3.需要用到窗体

作者: chenzhg 时间: 2022-7-22 19:50
很不错，找到组织了！

作者: abcqzuser 时间: 2022-8-1 09:53

qikunshan 发表于 2022-7-22 15:01
1.宏肯定不会针对某一个零件名，所以要把零件名改成.gettitle
2.路径用getpath
3.需要用到窗体

谢谢您的回复，哎还是我太菜了，不会这个程序语言

作者: hifeed112 时间: 2022-12-4 14:12

qikunshan 发表于 2022-7-22 15:01
1.宏肯定不会针对某一个零件名，所以要把零件名改成.gettitle
2.路径用getpath
3.需要用到窗体

没看懂，求图片教程，膜拜你，膜拜你

作者: chunhui175 时间: 2023-3-9 14:06
好好学习，天天向上！

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)