Macros 用于将Solidworks零件另存为dxf文件的宏

我必须从solidworks中保存大量dxf文件以用于数控机床

我正在寻找有关创建宏的帮助，以便在保存solidworks文件的同一位置将零件的俯视图保存为.dxf

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

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

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

试试这个

它将零件的俯视图导出为dxf

（改编自）

试试这个

它将零件的俯视图导出为dxf

（改编自）

---

这似乎很有效。非常感谢！！这对我来说是一个巨大的省时器。这似乎工作得很好。非常感谢！！对我来说，这是一个巨大的省时器。

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