|
|
誰那有SolidWorks一鍵輸出工程圖到DWG宏程序,？需要直接輸出到桌面。網上都是下面的程序,，但是試了一下不行啊!
! \8 e. ^, ]/ D% I4 e& R* q0 a; e- c
Dim swApp As Object
) C2 f6 r, w3 z7 r+ b* S4 |* R; b* K8 ]0 n5 u7 k) f* ?
Dim Part As Object$ I! q- e7 q# a3 F+ u$ l
* E$ b* i' J# T2 Z0 K
Dim Filename As String# L5 g. Q+ p0 g& X
: T* o, h. x1 h4 s& iDim No As Integer
8 S( l" N2 k. L. @2 T5 b5 n4 x* q8 x% o! V
Dim Title As String
8 x5 z" r9 C. C
/ @8 S, F, E3 k# m2 b$ rSub main()
6 t0 T* d) n5 ?) ^8 Q! l" J+ P8 j; {
Set swApp = Application.SldWorks
! x" g4 H E0 D
* c7 A, }3 j% U2 {Set Part = swApp.ActiveDoc$ p; N6 C2 b) _& M' s3 s" A- ?
! L$ W/ Y' J7 f3 {7 KFilename = Part.GetPathName()9 j7 j" y# M0 e# }( ?/ s
/ c) h6 c+ I* R6 T# s+ S5 H v
No = Len(Filename)1 U4 c2 y8 I2 q6 f, ~- I j1 z: ?
* m% @+ v/ U) ]* {6 L) O7 v
Filename = Left(Filename, No), T% N1 C# h: Z' C# g1 M; R
4 ~1 ^7 Y. |+ d& L7 Z% {- i: f
Part.SaveAs2 Filename & ".DWG", 0, True, False; R' Z; [2 g5 I
( @# N7 q' V4 o2 w
End Sub& _- R( p0 E3 t* ^& S8 x ~
( _4 h/ f+ Z4 v8 a0 M7 d5 P9 q) H* M
|
評分
-
查看全部評分
|
發(fā)表于 2024-1-19 20:46:25
QQ好友和群
收藏
淘帖
問題專業(yè)，描述清楚
伸手黨/灌水/看不懂
