solidworks出工程图时每个零件都要都要重复保存DXF和PDF,能录制宏,自动保存到指定文件里面吗?

2024-12-04 22:44:06
推荐回答(2个)
回答(1):

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

回答(2):

以下个人估用宏代码

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