自动输出DXF

djh123 · 发表于 2020-4-9 19:59:33

刚录制了个宏，运行后无法导出DXF文件代码如下:
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
longstatus = Part.SaveAs3("d:\Users\ddd\Desktop\123.DXF", 0, 0)
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 22
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Set Part = swApp.NewDocument("D:\sw模板\工程图.drwdot", 0, 0, 0)
swApp.ActivateDoc2 "工程图7 - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 22
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "3d-二次开发.SLDPRT", False, longstatus
Set Part = swApp.ActiveDoc
End Sub
我又试了一下, 奇怪的是:
longstatus = Part.SaveAs3("d:\Users\ddd\Desktop\1111.SLDPRT", 0, 2) 导出零件是可以看到文件.
请大家帮忙看下DXF为什么输出不来?