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

機(jī)械興邦

誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？需要直接輸出到桌面。網(wǎng)上都是下面的程序，但是試了一下不行啊!
  q& ]8 ~6 e) x  |3 c3 R) V$ Q6 Q
Dim swApp As Object
% |- U) P; S, E
1 ^- P" y6 |8 x6 g5 H/ K5 e0 ?4 CDim Part As Object
; [, f1 ~$ T. \7 \  H
, H; K; \2 `7 |6 ^4 a, E" dDim Filename As String
1 k4 A. G8 _3 e5 G3 R
  M0 v# \$ W, {$ L7 w$ R$ aDim No As Integer
! s: ]- v; z) Z  A4 U+ Q' u7 ~! o
0 K; ~% n7 f) R2 R8 K0 c) k* v) lDim Title As String
9 `" K( M& _# Q/ F) @" i, T. R
Sub main()

0 h5 Z  o" W% a& P8 Z9 r% aSet swApp = Application.SldWorks
% X+ f1 q" j" H% ~# o
Set Part = swApp.ActiveDoc

Filename = Part.GetPathName()
( [6 B: e1 e. b: m! F( }1 c8 N* U
2 s. s' j+ H$ b" g' m- kNo = Len(Filename)
! N9 N7 K5 O9 L3 d6 ]& D0 A
Filename = Left(Filename, No)

+ z) `6 ?( f& \Part.SaveAs2 Filename & ".DWG", 0, True, False
. K! x+ F) n5 k' h4 B
End Sub

爆裂explosion

把文件擴(kuò)展名.pdf改成.swp

爆裂explosion

$ E( [. B7 @. s2 n

爆裂explosion 發(fā)表于 2024-1-20 10:45
把文件擴(kuò)展名.pdf改成.swp

在D盤如圖創(chuàng)建一個(gè)文件夾，會(huì)自動(dòng)保存到此文件夾

探根究底

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

zhengyi320320

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