solidworks出工程图时每个零件都要都要重复保存DXF...

发布网友 发布时间：2022-04-21 23:30

我来回答

共2个回答

热心网友 时间：2024-08-20 04:21

可以的，通过录制宏-再编辑--OK后--自定义添加宏按钮到工具栏

热心网友 时间：2024-08-20 04:22

以下个人估用宏代码

Dim swApp As Object
Dim Part As Object
Dim Filename As String
Dim No As Integer
Dim Title As String '以上设定变量
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc '以上交换数据
Filename = Part.GetPathName() 'Filename为文件名
No = Len(Filename) 'no为工程图文件名字符串总数
If No > 0 Then '当NO大于0时（转换格式名称是工程图名称，故要先保存工程图才可转换，工程图未保存无名称，无字符串，不可进行一下步)
Filename = Left(Filename, No - 7) + "." + Right(Filename, 1) '字串符操作，no-7为去掉工程图后缀名，"."+ right（filename,1）为增加后缀名最后一个字母作为识别，用于区别客户来图，可不要
Part.SaveAs2 Filename & ".dwg", 0, True, False '输出需要转换的格式文件，已有文件则自动替换，不提示，（有些格式文件在打开状态中不可替换，替换不成功也不提示)
Part.SaveAs2 Filename & ".PDF", 0, True, False
End If
End Sub