谁那有SolidWorks一键输出工程图到DWG宏程序？需要直接输出到桌面。网上都是下面的程序，但是试了一下不行啊!
- H; B: | x+ l/ X6 e* S- ] Y& h1 ^1 y
! i9 y6 M% G& l3 a- [# X. wDim swApp As Object0 ^' N" ]) ~ g7 ^4 T/ E$ B7 W- B
( _) e" Q6 E2 \6 m$ g
Dim Part As Object
3 M% }% q6 c5 P" r5 D4 }
' x. e+ k+ A- p- xDim Filename As String
+ O* Q3 Q3 }" S6 |3 }; ?) g3 f, |; S8 d2 P+ [3 Z1 l" |
Dim No As Integer
5 ^% P' }9 g, |+ M6 @
+ x6 W* O/ Q. X4 V/ h2 CDim Title As String
1 ^' G3 ^# E0 u' G
; j F* t% P& mSub main()
- t7 q# ^; ]$ f8 L2 O& }5 M0 a: c! O
Set swApp = Application.SldWorks
, H( [. p& O5 O; Z0 }8 q) f, P5 e
9 w( I+ I Z) v. [6 \' [Set Part = swApp.ActiveDoc
' c4 ^) S6 P& \! } O [% r: r
* l& M- V* \/ e% ?% C- qFilename = Part.GetPathName(): }/ I. ]4 q; t5 Y) x% E3 ~
! y, I- J( B4 U
No = Len(Filename)9 Q0 b& r e* H* {& ^
, B: }/ `, M" i( x
Filename = Left(Filename, No)
# K+ `, B+ J* m: G+ q) a- j6 k/ A& R& A. `; o$ ]
Part.SaveAs2 Filename & ".DWG", 0, True, False% u3 m) k; t& ]9 S
3 s7 W+ V1 v( ^( v8 ]- C0 OEnd Sub
$ `4 d9 H! B; S4 b$ w7 l
: R; s: _/ w0 ]" {: k' Z- _ |
发表于 2024-1-19 20:46:25
