标题: 关于SolidWorks 宏 运行 出错 （找不到工程或库 [打印本页] 作者: ghftyf 时间: 2012-4-26 22:40 标题: 关于SolidWorks 宏 运行 出错 （找不到工程或库 Dim swApp As Object
Dim Part As Object
Dim Filename As String
Dim No As Integer
Dim Title As String
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Filename = Part.GetPathName()
No = Len(Filename)
Filename = Left(Filename, No - 7)
Part.SaveAs2 Filename & ".DXF", 0, True, False
Title = Part.GetTitle
Set Part = Nothing
swApp.CloseDoc Title
X = MsgBox(" 已保存为 DXF 文件 ", 0)
End Sub
[attach]1127498[/attach]作者: peienlu 时间: 2012-7-26 23:35
这位大师，相同的贴好像在其他论坛里见过，要常来开思，这里会有人帮你解决。
你出现这情况是你没打开工程图，要先打开工程图再运行这个宏！now do you understand ？