谁那有SolidWorks一键输出工程图到DWG宏程序？需要直接输出到桌面。网上都是下面的程序，但是试了一下不行啊!
( z" ?1 M {* [' h1 i) B' V+ L$ R4 V9 e2 B/ r$ t) s: M* n4 |
Dim swApp As Object# k& i: A2 H- f
/ L) x7 a" J9 `, bDim Part As Object
% I V$ ~' v# `& u& y0 @, f
. ?2 y; M5 h7 b% O4 U& aDim Filename As String! s* k) ~. y& S) X$ n0 K0 N% J
3 a5 H8 C7 k& T1 |" i( v
Dim No As Integer" b7 F: v4 ?" M. E) l0 m
9 u; Z6 f& A! d. D
Dim Title As String6 A1 X$ Y1 C* N% z3 a9 I4 k4 |
/ s$ G, M0 B% sSub main()
6 A( r! l7 R. X' M4 \: A& B
! Z6 o& O+ V9 r) ~- BSet swApp = Application.SldWorks
+ h* I0 }+ _4 o' l+ W1 D( C% A% q+ A
Set Part = swApp.ActiveDoc6 Z1 x$ U' i3 ?8 s
# C( P' W. ]' d* w# }
Filename = Part.GetPathName()5 t0 F6 | T3 {! H4 e% y1 ]
8 T: f( J h& \3 @; |# _; D
No = Len(Filename)
4 ?* k* x' y" K+ Q+ x" ]2 L4 B
Filename = Left(Filename, No)7 J$ K0 y' n( L4 o: N4 }- B- W
$ y" j0 r0 y7 n( Z- ?Part.SaveAs2 Filename & ".DWG", 0, True, False
. W' J9 U- B0 C; x; E* A9 C" s1 _: ^9 m( v+ s9 Q
End Sub# D) }/ H- a/ Q. k: Q ]1 f
$ [( t0 \. ?, N& s, ] |
发表于 2024-1-19 20:46:25
