標題: 誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？ [打印本頁] 作者: 機械興邦 時間: 2024-1-19 20:46 標題: 誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？ 誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？需要直接輸出到桌面。網上都是下面的程序，但是試了一下不行啊! 3 d1 |) C K" v9 n `$ H' u! f9 b1 ]9 ~0 y, e# i
Dim swApp As Object + o0 F0 g# M, @1 ^" Q 7 e7 Z8 c; s. B! _Dim Part As Object - s$ d! M9 _3 Z4 c6 E7 t# b6 Q9 ^' a! a: W b0 k9 r" N
Dim Filename As String0 J: u0 A* e/ a, X# r
1 f% d$ @9 u6 _+ u+ c ODim No As Integer! R# D8 v. Z' a$ r8 D8 z
; O8 ^6 j/ F& k V
Dim Title As String. j' v9 k2 ?/ b9 E
\0 v1 _8 W/ `& S% Q) H: fSub main() 6 D: Y" Y, \3 a5 j 1 I& L8 K9 C3 q# q( h/ pSet swApp = Application.SldWorks ( A* J/ G& |" W0 S9 L- R2 ^- ]5 v& s$ p/ }+ A/ I
Set Part = swApp.ActiveDoc 2 m; I V P! i- S5 L6 X1 D + w1 u, x* D E" p7 s' hFilename = Part.GetPathName() 5 i. k4 ]6 M; }( Y; d; Y4 k8 g, L x% B1 O/ [
No = Len(Filename) 0 p% |9 ^ y, h: Z- t. f# z L; ^* R! W* O l* x& m
Filename = Left(Filename, No) 2 V" E7 R# T0 x, K . g8 d' L" f' j8 rPart.SaveAs2 Filename & ".DWG", 0, True, False 3 A3 L+ J8 G. X3 O f' i9 N! o ( v* N$ N; j* cEnd Sub# T, B! ~# z# S1 m- ?) v! k h) P/ k