誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？需要直接輸出到桌面。網上都是下面的程序，但是試了一下不行啊!8 M( U& i5 _% p" O, T+ |
( m3 d: F1 J1 i8 s, x% ^+ zDim swApp As Object
4 J; J( E2 ?! K- s# j9 k, Z" \' C% w( a
Dim Part As Object! _3 ?8 o6 D! h0 E. Y4 Y
3 k' V4 z7 L2 U5 d/ P' }9 {
Dim Filename As String
% _0 v0 W, u" f' r/ @* J/ i
. n) j5 J# G' g0 Y: X A) vDim No As Integer
; ]1 V& [: P% y7 h+ U& u2 c& n& D7 j
Dim Title As String8 F+ V4 k+ k- D% G4 C* c0 H
; i c% n9 \7 I& a- {2 z& v
Sub main()1 g6 X2 H# L4 P
E3 r ^ a" ]5 U) b+ c
Set swApp = Application.SldWorks& d3 e8 k7 W) _2 `
) Q$ _3 V- \. ]* q }9 m% e
Set Part = swApp.ActiveDoc0 s; V7 D8 y$ t1 h# v
9 B9 z/ A- K7 ]& w( h2 K
Filename = Part.GetPathName()( W( y& Y7 ~1 u. Y
4 w9 a2 G9 P3 D9 U. M/ hNo = Len(Filename)
& v' u- M, ^: s2 M* C$ P' L7 h+ H: L( u4 F9 _
Filename = Left(Filename, No)4 U( {1 J+ V( |9 O: V8 R
0 @$ ^3 ?6 h% p3 x4 A- s5 c
Part.SaveAs2 Filename & ".DWG", 0, True, False
* F$ E( r) E5 n* L+ e4 Y, c) j3 G' Y
End Sub
* t w- m# t% X# V& A" O' V! s$ e; T( P* k
|
發表于 2024-1-19 20:46:25
QQ好友和群
QQ空間
