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

问题描述 投票:0回答:1

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

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

我希望它首先保存solidworks零件,如果在该位置已经保存了相同名称的dxf,请替换任何现有dxf。

我可以找到工程图文件和钣金零件的宏,但无法对其进行编辑以用于普通零件。

如果有人能指出正确的方向,我将非常感激。

macros solidworks
1个回答
0
投票

尝试一下。

它将零件的顶视图导出到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
© www.soinside.com 2019 - 2024. All rights reserved.