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

Question

我必须保存许多来自solidworks的dxf文件才能用于数控机床。

我正在寻找帮助创建一个宏来保存一个零件的俯视图作为.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