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

機械興邦

誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？需要直接輸出到桌面。網上都是下面的程序，但是試了一下不行啊!
! V9 o9 Y; N) o6 L6 ~( B6 {
Dim swApp As Object
1 e  @+ a  D3 o, h
5 c& C; `" ~# n& M( `# x2 kDim Part As Object
3 z( o. o1 K0 B; e: ]
Dim Filename As String

Dim No As Integer
- u5 _6 I' l% \# F  D
# C5 W2 `' w6 X  g  B, cDim Title As String

1 @4 Z5 ~  {0 f: aSub main()
" }% z  f, J- T6 y. p% l
Set swApp = Application.SldWorks
9 |: [# q, o( h- i( y; a+ I
Set Part = swApp.ActiveDoc
; S' O+ q5 g, {. }! d. C" d
, B& }* }0 i; [1 i3 _Filename = Part.GetPathName()
+ U2 e  N5 w/ H3 v
9 E6 I6 `; t, J* ~$ _No = Len(Filename)

% q6 v( t4 b& C9 t, LFilename = Left(Filename, No)

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

0 P: o1 @+ s; ^5 T( U. L$ ?, I7 kEnd Sub

) X2 Z. E, N) ^% ~7 h/ g. i

爆裂explosion

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

爆裂explosion

. j$ j1 T, Z! f& _

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

% {$ F" e6 z. n6 U2 k在D盤如圖創建一個文件夾，會自動保存到此文件夾

探根究底

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

zhengyi320320

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