|
|
誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？需要直接輸出到桌面。網(wǎng)上都是下面的程序，但是試了一下不行啊!
0 ]: w7 j1 j5 Q. \/ q
2 o3 t& F; z; D6 BDim swApp As Object
0 X% y: ^: y+ n% t( \% `& C2 y/ P) j3 _) Y, r
Dim Part As Object
$ Y6 z: G9 h8 ?' U" F, l1 J* c1 J
Dim Filename As String
$ k( E* ?4 x' I& i" e
1 Q7 A' s% h6 i6 |$ NDim No As Integer) N3 b! ]. O5 B- U
2 w' L' T' z% e- t: qDim Title As String
a; A: Y7 r1 t: v9 ^2 f# ]) [9 n! U6 |: _; T/ i3 s2 x. [
Sub main()
& K7 I' Q- g: ]; z. S) a
, c) M6 b& s) r% a4 n+ N0 YSet swApp = Application.SldWorks
, x1 |& r. E# T0 y8 h, W6 G2 \, X9 ?" b7 W
Set Part = swApp.ActiveDoc; V2 @+ |3 K6 M2 l
3 l! J; S* x% {/ V {
Filename = Part.GetPathName()
8 Y( a& [1 C! w7 p, }' G! c) @
4 w$ @" ?4 c2 a, i& oNo = Len(Filename)
+ `& y; ? I7 I9 e% d% G
! ]+ G3 \! l! K' rFilename = Left(Filename, No)
! R f) |9 m) o) v# S5 L M
0 X# b! S z5 H) RPart.SaveAs2 Filename & ".DWG", 0, True, False I- o1 C8 l% X
" S; K# n& W) ]6 C
End Sub& M' P8 i- X) W7 g
5 b# ^9 N3 X( S3 B8 _& O$ m; C: A
|
評(píng)分
-
查看全部評(píng)分
|
發(fā)表于 2024-1-19 20:46:25
QQ好友和群
QQ空間
