谁那有SolidWorks一键输出工程图到DWG宏程序？

机械兴邦 发表于 2024-1-19 20:46:25

谁那有SolidWorks一键输出工程图到DWG宏程序？需要直接输出到桌面。网上都是下面的程序，但是试了一下不行啊!

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()

No = Len(Filename)

Filename = Left(Filename, No)

Part.SaveAs2 Filename & ".DWG", 0, True, False

End Sub

爆裂explosion 发表于 2024-1-20 10:45:16

把文件扩展名.pdf改成.swp

爆裂explosion 发表于 2024-1-20 10:50:02

本帖最后由爆裂explosion 于 2024-1-20 10:51 编辑

爆裂explosion 发表于 2024-1-20 10:45
把文件扩展名.pdf改成.swp
在D盘如图创建一个文件夹，会自动保存到此文件夹

探根究底 发表于 2024-1-20 11:19:39

SW有自带的批量转图的呀。后来公司让合并到一个DWG，宏还没学过怎么用，买了插件，方便很多。

zhengyi320320 发表于 2024-1-20 13:11:53

大工程师不是有这个功能吗工程图转CADPDF都行

页: [1]

机械社区's Archiver

谁那有SolidWorks一键输出工程图到DWG宏程序？