谁那有SolidWorks一键输出工程图到DWG宏程序？需要直接输出到桌面。网上都是下面的程序，但是试了一下不行啊!
$ O6 Q0 R; h. O9 G) K2 ^3 {5 |7 ^8 u; q' u9 M! R5 a3 k
Dim swApp As Object- b: ?' M% ?# r: T% Z0 Y1 n
/ p p4 Z" [9 p' UDim Part As Object7 ^: M4 [4 y& N6 O/ P% v( Z
4 E" {$ O9 q( E3 }
Dim Filename As String e0 Y5 F( o( Q! T4 ~- h8 p; ~7 U& r+ p
4 K. `% ?. B# f* L; f
Dim No As Integer
5 n7 A: R1 m8 @; ~% O3 Y( T) F' L
) ? W2 v9 { K* e vDim Title As String
7 J. `, h8 d7 R# J* q
* P* _/ V+ W. i c2 Z, OSub main()6 \0 F8 z- J" m$ a! J) ^
* l0 ]5 S5 F# {. z; r3 m
Set swApp = Application.SldWorks
+ M' o& M$ M0 y, b' g
6 i+ _7 `( i! L- M6 M5 s: |Set Part = swApp.ActiveDoc
9 r+ d* y0 [" S1 X2 E& o% C7 o! k( _" g6 t) z9 E2 R1 ?
Filename = Part.GetPathName()& T0 t( m& e7 t" c \2 }
& l: f' [' ?0 E
No = Len(Filename)4 A) O& a" H( a( W% I
% Z! [' k4 d- a [) p* Y
Filename = Left(Filename, No)+ Y/ O' S8 M$ {8 X
. ]; l: p9 ?- l. S. s7 c: yPart.SaveAs2 Filename & ".DWG", 0, True, False
9 V+ V# E! G2 b( _; {
& C) X; H2 l: R( I4 w7 UEnd Sub I+ D ]0 Y ~+ `* `! t8 _
( b$ E' _ N! [% a' q9 w
|
发表于 2024-1-19 20:46:25
