標題: 誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？ [打印本頁] 作者: 機械興邦 時間: 2024-1-19 20:46 標題: 誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？ 誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？需要直接輸出到桌面。網上都是下面的程序，但是試了一下不行啊!$ ?8 @1 C" Y3 q# k# d5 C
z8 y, N/ e$ h9 X- `3 c5 f2 m
Dim swApp As Object / l, d+ n. x- V, ]+ e: P) l1 [# F
Dim Part As Object0 F1 ]5 i4 T& q" h# B( J+ w
' i. `! f- I& i; X
Dim Filename As String+ W$ b4 s( I0 y9 P
+ I7 b# M0 q1 S8 M; M8 b- d, {: H6 k
Dim No As Integer. C( C8 D# {; M- @# C
. B! \! f A' a% X: GDim Title As String9 w7 b, w# T( O5 p7 [6 e# C1 G
6 L! G4 o5 Y8 O
Sub main() 7 l/ C( a" F2 q, p0 ^ + I# e7 ~% N- U" r! ISet swApp = Application.SldWorks 8 {3 M$ j- x' j2 [, f& k* [3 e0 a+ ]/ u" G Q3 I8 ?
Set Part = swApp.ActiveDoc / N# u( ]5 e) x0 ?* E! N8 X7 f 7 ?: \ u3 l1 f8 W$ TFilename = Part.GetPathName()5 Y: E6 i! ~* S: I6 j& d
( T$ E! h7 H2 t( B8 fNo = Len(Filename) ( }3 E" f o( n0 |+ p & I2 T5 w8 Y" O( {' [! |' BFilename = Left(Filename, No)/ p4 ]' M8 `5 L2 U. }3 z) Y