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

機械興邦

誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？需要直接輸出到桌面。網(wǎng)上都是下面的程序，但是試了一下不行啊!
% R* R# P) d6 Q! f% L3 t  S/ W' Q
Dim swApp As Object

+ Z5 b/ E( S) S9 f! K$ u+ uDim Part As Object

8 R' W. A/ C6 U& w+ U( X+ KDim Filename As String

) p' t) u6 L7 d% u9 X  rDim No As Integer

1 j. I1 K& S; m6 y' Q' M. aDim Title As String
5 f  A( A9 ]5 _  A: n7 u1 s; p% L
9 I" X& y+ {* A, {  zSub main()
( U1 k) O. c) v/ z4 z5 U
Set swApp = Application.SldWorks
8 h7 E: x% ^( @$ n2 t
3 w* `) {" y7 m% n) zSet Part = swApp.ActiveDoc

1 Q& H1 J" s, `9 S. u' V4 p" M* e# [Filename = Part.GetPathName()

No = Len(Filename)

Filename = Left(Filename, No)
1 `1 n& c4 T0 n7 l) N
Part.SaveAs2 Filename & ".DWG", 0, True, False
6 \6 ^, `* }0 y/ m7 \
8 l& P+ d7 c: zEnd Sub
$ R3 H( Y$ Q! J

爆裂explosion

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

爆裂explosion

# z, k/ d& E6 x- K; @* K$ L

爆裂explosion 發(fā)表于 2024-1-20 10:45
: P: x# T: `+ |0 V) w9 \把文件擴展名.pdf改成.swp

在D盤如圖創(chuàng)建一個文件夾，會自動保存到此文件夾
1 ]6 E$ }0 d* ^3 m2 f

探根究底

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

zhengyi320320

大工程師  不是有這個功能嗎  工程圖轉(zhuǎn)CAD  PDF都行