誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？需要直接輸出到桌面。網(wǎng)上都是下面的程序，但是試了一下不行啊!% N! q" j) H# p j# P, w) t5 @
/ e: A8 ?4 W. b6 [& h4 }
Dim swApp As Object: v( s l+ m' b5 u
$ E* C5 K+ S% R% v5 \( h9 Z
Dim Part As Object
+ G8 D+ n" J4 d$ p5 M- h- a
( v) j; u8 M; m" v0 D3 t5 fDim Filename As String: u r8 k0 a- D. L
+ i1 h" A0 Y' Q
Dim No As Integer
8 B$ F* d/ ?. B2 m; @+ s( [! A3 i2 c' f6 e# ]* V
Dim Title As String0 `) z; Y+ ?7 t- e4 l+ \1 j, _
4 g# Z' M9 x2 z; O0 J0 b
Sub main()0 J; d ^( U4 O* c2 |& j# c* Y) [5 e
3 b# u+ H j0 @6 v. a( v
Set swApp = Application.SldWorks
2 g8 F5 \1 R, p7 K+ q
% i+ j6 Q9 z) c9 W: i5 M6 G3 q& TSet Part = swApp.ActiveDoc j5 V# k5 o( L0 T1 f( i! ]
2 z) ]) b& J! V% X, Z
Filename = Part.GetPathName()
% q2 r1 N9 E/ j+ y* T, U7 j, f6 ~1 M& u8 w0 ]1 K
No = Len(Filename)3 v3 X9 l: K/ ]+ r/ Y; m0 q
, \% F' j9 y+ h3 V' ?! p8 sFilename = Left(Filename, No)
- a/ O/ N3 z7 P) h2 O" Y8 u
8 [. t: Z2 z( T& @Part.SaveAs2 Filename & ".DWG", 0, True, False- }/ j8 I8 J& r1 F5 s7 Y
. ?4 u: o$ { J$ O
End Sub
5 N0 w. Q5 ?$ R* }8 G
4 P) v3 m6 m' P5 X |
發(fā)表于 2024-1-19 20:46:25
QQ好友和群
收藏
淘帖
問題專業(yè)，描述清楚
伸手黨/灌水/看不懂
