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

機(jī)械興邦

誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？需要直接輸出到桌面。網(wǎng)上都是下面的程序，但是試了一下不行啊!
0 ]: w7 j1 j5 Q. \/ q
2 o3 t& F; z; D6 BDim swApp As Object
0 X% y: ^: y+ n
Dim Part As Object
$ Y6 z: G9 h8 ?' U
Dim Filename As String
$ k( E* ?4 x' I& i" e
1 Q7 A' s% h6 i6 |$ NDim No As Integer

2 w' L' T' z% e- t: qDim Title As String
  a; A: Y7 r1 t: v9 ^2 f
Sub main()
& K7 I' Q- g: ]; z. S) a
, c) M6 b& s) r% a4 n+ N0 YSet swApp = Application.SldWorks
, x1 |& r. E# T0 y8 h, W
Set Part = swApp.ActiveDoc

Filename = Part.GetPathName()
8 Y( a& [1 C! w7 p, }' G! c) @
4 w$ @" ?4 c2 a, i& oNo = Len(Filename)
+ `& y; ?  I7 I9 e% d% G
! ]+ G3 \! l! K' rFilename = Left(Filename, No)
! R  f) |9 m) o) v# S5 L  M
0 X# b! S  z5 H) RPart.SaveAs2 Filename & ".DWG", 0, True, False

End Sub

爆裂explosion

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

爆裂explosion

& s7 P3 F6 V3 ^5 H

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

3 D4 |0 F' Z1 C  @: c在D盤如圖創(chuàng)建一個(gè)文件夾，會(huì)自動(dòng)保存到此文件夾

探根究底

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

zhengyi320320

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