誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？需要直接輸出到桌面。網上都是下面的程序，但是試了一下不行啊!+ Z% V' a: J8 t' @. f
) |; [* E7 n% ?7 e; a
Dim swApp As Object
: \: _7 ?; u5 Q/ r' }5 k
* c. l/ |8 v* f8 H' d& ?Dim Part As Object; K* Q3 {, ~' Y& K7 ~, @7 \" y
- c! f8 O0 X8 j; N% ^
Dim Filename As String
; C+ W3 S* P; h
' }- u1 o7 i5 A1 R' P# T" GDim No As Integer0 u5 b% m7 m( c, e: Z
0 g& g. z/ P- O* ^* o
Dim Title As String
" m b( x' x4 m. {8 o. d
9 G& g5 H! W( v* j) e9 g2 uSub main()
( A; W) D$ A" d9 q' i' ~1 A8 b7 L. `" G$ |: @7 e$ Q' _3 A
Set swApp = Application.SldWorks
5 J$ F6 ^$ P1 e$ g" X- c
- s# S) I/ t+ X; ]6 P, rSet Part = swApp.ActiveDoc( |: \( ]4 }! j) p! e6 @
3 h- Y0 e' z) {" b9 D) d
Filename = Part.GetPathName()
( i1 |4 k( c, M9 z* H: b
! r% {& a4 F& E; c3 Q* f7 y# vNo = Len(Filename)( K- e. X& V; i$ _
8 S8 w& E0 m0 J8 }' b
Filename = Left(Filename, No)
% X) y; W& X7 K3 o6 P2 Y/ v! I/ y7 b/ y& L# p4 Z2 k# q
Part.SaveAs2 Filename & ".DWG", 0, True, False
( y! y" X0 b0 q
- A( s+ n" }% Z0 S* b v. F, BEnd Sub
* o+ h, D; t* l1 y( A: R
# q ]" {6 x% y1 h ]3 l; V |
發表于 2024-1-19 20:46:25
QQ好友和群
QQ空間
