谁那有SolidWorks一键输出工程图到DWG宏程序？需要直接输出到桌面。网上都是下面的程序，但是试了一下不行啊!2 w) G8 M' h9 c: G$ h9 W
3 {" R5 E5 a$ \+ {' rDim swApp As Object/ x v. Z% K( M$ d, I
, K( I) g1 D: |Dim Part As Object! u2 o, X Y$ ?6 Y1 _5 r
; X. L. y6 {9 H4 \. T1 J2 \
Dim Filename As String
) |( Z3 V& I; y' [: O( g' J4 Q' ~4 I+ c& U. P
Dim No As Integer% B% s3 g& Z6 W. K, s$ f! ?
: x, L2 u1 Z/ {* PDim Title As String7 R7 h6 b" \9 x& \1 w" H6 j5 K
1 \2 O/ ]* u& }
Sub main()
) ?. _9 |8 \" u# y- t1 d
: D; V% b5 N8 O7 O# G+ DSet swApp = Application.SldWorks# L8 t/ }7 i7 w0 _# C, R: q
6 D4 C `8 K9 S3 b! m6 PSet Part = swApp.ActiveDoc
- P- O( ]$ e% h F/ r6 k+ j; v* ]2 W% s) i& Q! F; W# V- S3 ]
Filename = Part.GetPathName()4 p8 E0 j. _6 {$ r
/ ^, P' K, U4 G- ~No = Len(Filename)
! N1 d6 E5 @. O9 t. a1 [ U! d# p$ X
Filename = Left(Filename, No)
: J5 C% m0 W$ o" V
- A/ ^; B' ^/ y3 y7 A1 DPart.SaveAs2 Filename & ".DWG", 0, True, False
2 Z/ J0 B% K5 w% d: f! S: w' L
( J' y- S! ?# x! [End Sub
\" G% J8 E( v& b! H1 n/ ?/ x1 E2 X; s
|
发表于 2024-1-19 20:46:25
