谁那有SolidWorks一键输出工程图到DWG宏程序？需要直接输出到桌面。网上都是下面的程序，但是试了一下不行啊!
$ O0 p3 j) o/ i+ y/ O/ p0 { D4 |* L1 v# h. s( C5 |
Dim swApp As Object
8 _' t) x( P/ p+ u2 Q0 }; f/ m- S9 ]& @, y+ f
Dim Part As Object
3 A1 u' x0 K8 j% L& @2 {& ?- d; L9 p& b. n( F& H& O, E
Dim Filename As String
5 k. u' p* t9 C; w3 C5 o0 o
/ Y, j9 c# v+ W. E+ T% sDim No As Integer
5 A+ Q. S" y, I+ a/ w2 @7 V- L' h% }6 Y' z: @; Z) L2 k5 E
Dim Title As String" R3 F U& O% G+ a* ?$ k2 w4 I
- O) P% K* S) R: m+ X
Sub main()& Z w& b n5 @4 X4 l
2 X# |( v6 H, E) W5 c9 A# W7 C
Set swApp = Application.SldWorks
5 F5 s; d6 g3 j) J2 L9 l
9 x7 U& F: i" V% w9 h% GSet Part = swApp.ActiveDoc1 c; ^% s8 N$ m* ?9 C7 Y, b1 q
# z- s; Z& u7 d/ f& ?4 m, O* F
Filename = Part.GetPathName()+ @! ~3 {1 h m3 M6 k2 N9 B; \0 R
; P9 U4 ^) {0 K B# g2 QNo = Len(Filename)) G" |) H1 f( O2 F0 g4 g% L7 P
0 ]4 F! [% W/ j6 b7 CFilename = Left(Filename, No)
4 \8 V4 \$ J/ g2 u$ l h" q: n# f
) J6 x" Q1 L) g9 Y7 hPart.SaveAs2 Filename & ".DWG", 0, True, False
A1 F" O, q X! ~& k* u1 ^) p2 J( p( f" i0 H3 y
End Sub$ U Y8 z' @3 W" e/ D5 i5 N( l7 K
! `" Q/ C( F. b. o5 W3 n1 j: A
|
发表于 2024-1-19 20:46:25
