誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？

機械興邦

誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？需要直接輸出到桌面。網上都是下面的程序，但是試了一下不行啊!

, ^# z4 Z9 z/ a$ Q$ J3 _) k3 t. NDim swApp As Object
, _! o$ }1 i! ^1 f1 i8 T
! O; j% Q- M2 D  O6 v; HDim Part As Object

4 F+ D! G' T( nDim Filename As String

Dim No As Integer
! S2 V9 z' m. g1 l" I1 W0 v
) _& A4 V& o6 X$ s* o+ `" iDim Title As String
3 L; L/ l5 f8 e; A
* ~4 z* k; T( }: `* jSub main()
9 Y: r6 z5 B, t6 G
, Z, s" \. r3 b' z& ^4 K% xSet swApp = Application.SldWorks
/ i3 Y# G! d+ _! i4 B/ l$ f, H
Set Part = swApp.ActiveDoc
3 u  h+ |8 [" P  _+ Q/ G
Filename = Part.GetPathName()
$ s' H+ M8 j' A
No = Len(Filename)

Filename = Left(Filename, No)

9 P! p( J2 a7 g3 i" c6 |% G) YPart.SaveAs2 Filename & ".DWG", 0, True, False

End Sub
& c" E! \9 F. j
2 D1 M7 E  b4 _4 S" M( W

爆裂explosion

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

爆裂explosion

爆裂explosion 發表于 2024-1-20 10:45
+ |6 Y+ d# P: n* K0 K4 o5 g把文件擴展名.pdf改成.swp

在D盤如圖創建一個文件夾，會自動保存到此文件夾

探根究底

SW有自帶的批量轉圖的呀。后來公司讓合并到一個DWG，宏還沒學過怎么用，買了插件，方便很多。

zhengyi320320

大工程師  不是有這個功能嗎  工程圖轉CAD  PDF都行