将 Solidworks 零件保存为 dxf 文件的宏

Question

我必须从 Solidworks 中保存很多 dxf 文件才能用于 CNC 机床。

我正在寻求帮助以创建宏以将零件的顶视图另存为 a.dxf，与保存solidworks 文件的位置相同。

我希望它首先保存solidworks部分，并替换任何现有的dxf（如果该位置已经保存了同名的dxf）。

我可以找到用于工程图文件和钣金零件的宏，但无法编辑这些宏以适用于普通零件。

如果有人能指出我正确的方向，将不胜感激。

Answer 1

尝试这个。

它将零件的顶视图导出到 dxf

（改编自ExportToDWG2 ）

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim sModelName As String
Dim sPathName As String
Dim varAlignment As Variant
Dim dataAlignment(11) As Double
Dim varViews As Variant
Dim dataViews(0) As String
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swPart = swModel
sModelName = swModel.GetPathName
sPathName = Left(sModelName, Len(sModelName) - 6) & "dxf"
dataAlignment(0) = 0#
dataAlignment(1) = 0#
dataAlignment(2) = 0#
dataAlignment(3) = 1#
dataAlignment(4) = 0#
dataAlignment(5) = 0#
dataAlignment(6) = 0#
dataAlignment(7) = 0#
dataAlignment(8) = -1#
dataAlignment(9) = 0#
dataAlignment(10) = 1#
dataAlignment(11) = 0#
varAlignment = dataAlignment
dataViews(0) = "*Top"
varViews = dataViews
swPart.ExportToDWG2 sPathName, sModelName, swExportToDWG_e.swExportToDWG_ExportAnnotationViews, True, varAlignment, False, False, 0, varViews
End Sub