谁那有SolidWorks一键输出工程图到DWG宏程序？

机械兴邦

谁那有SolidWorks一键输出工程图到DWG宏程序？需要直接输出到桌面。网上都是下面的程序，但是试了一下不行啊!

1 Y: ~2 ^- k- O$ Q4 kDim swApp As Object
4 v# D( Q1 v2 X- Q, b- K- ]2 A4 v
# `3 e4 y: [+ BDim Part As Object
  U# ]5 _) w! K6 r, d( O
4 Z) `1 d7 J- c# D  c9 y. \Dim Filename As String
- S; y% @8 Q! z# }& V4 {
Dim No As Integer
' B! @4 x) S! O, j- B
Dim Title As String
: M6 D0 z1 o% O$ W2 ~
+ l/ V. Y$ F' K2 @" U# C$ l8 ySub main()
( t" a- q5 x  a& i  |% ^
' A* R, K  r$ k6 CSet swApp = Application.SldWorks
) _( N0 @( B" S" f  N5 ^
; m$ s9 |4 w2 c9 iSet Part = swApp.ActiveDoc

Filename = Part.GetPathName()

# c! Y9 C1 i, p6 n  t8 SNo = Len(Filename)

  g- W5 Y8 D$ ^4 o9 \Filename = Left(Filename, No)
6 B( f$ @5 t; R3 x2 |' g8 \
6 X' U6 ]/ K# j8 ~, c: i% Z, MPart.SaveAs2 Filename & ".DWG", 0, True, False
8 l4 l7 D4 H% X7 H. d- L: J# C% [  g, R
8 y' J5 c8 W, g* Y: ZEnd Sub

; _" Y. n2 d6 D" D5 i

爆裂explosion

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

爆裂explosion

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

, F. `- q7 d/ G$ J. p在D盘如图创建一个文件夹，会自动保存到此文件夹

探根究底

SW有自带的批量转图的呀。后来公司让合并到一个DWG，宏还没学过怎么用，买了插件，方便很多。

zhengyi320320

大工程师  不是有这个功能吗  工程图转CAD  PDF都行