谁那有SolidWorks一键输出工程图到DWG宏程序?需要直接输出到桌面。网上都是下面的程序,但是试了一下不行啊!# o8 q9 ]3 m9 w# ] S9 J
* g! U( L3 N6 T+ B4 H; y( [0 t3 `
Dim swApp As Object# \. r. ]" t5 W% J7 i8 U
5 m6 f- d1 |9 ^& A- E7 m) UDim Part As Object. N5 t5 h# w8 Q5 G; l! M
4 T! b. S, C9 p v) `Dim Filename As String' [* M* E: \: z- ], e
( P! K7 g( `0 l" U# N s, MDim No As Integer+ @& f f2 d2 D* N( w8 Y+ [& V5 C
3 A6 b' S5 i" I. a e; n' Z
Dim Title As String
! h% F* Z! S7 j! C4 v+ `( l' Q: h3 W# p q
Sub main()5 r9 W; l$ @0 c5 N
: F v& v4 x8 T3 o4 y/ j$ hSet swApp = Application.SldWorks# W+ S8 G9 C4 L0 w; U
% _2 C7 G4 ?6 b d, q* t
Set Part = swApp.ActiveDoc/ R5 O! n9 O; x% f
$ c5 t7 U1 P* T" u3 o
Filename = Part.GetPathName()
S! e0 O# O: S; Q8 U) d. @7 a2 B3 r! \9 C% {
No = Len(Filename)
8 y0 T! L& O0 ]# X
6 L! i" K7 u5 zFilename = Left(Filename, No)
1 r6 B6 f6 v# B- j
7 u) ^# q0 ~7 w3 `/ n9 D' v: {; VPart.SaveAs2 Filename & ".DWG", 0, True, False3 n# @6 |6 Y5 _8 f% W
# w ?6 E9 ~6 _$ b
End Sub. O' V& u3 U# ~2 w# O7 g# o; k4 } V
% M+ ~ Q0 \3 g5 L7 n6 j6 }5 P |