谁那有SolidWorks一键输出工程图到DWG宏程序？需要直接输出到桌面。网上都是下面的程序，但是试了一下不行啊!8 b* U. Y5 W/ Q9 `9 g! L
- Z% F) t' g! H3 D/ I
Dim swApp As Object: L/ J( f \' a* {- b/ T% ^' t4 c
. L# h; s% q7 U* Q
Dim Part As Object
$ P* H7 N. e$ {+ |% Q7 ~! {5 i
Dim Filename As String
2 a- _2 G- a+ H$ G. w1 l
|( k7 F) T/ I9 P) d4 A! TDim No As Integer7 x9 P9 h& R+ i3 n
) s3 W( y3 q$ q/ O) S/ {
Dim Title As String
' C% M. L3 n3 m) Q& K! ^6 g+ \) E( l6 n9 B+ V m0 t1 j
Sub main()
8 x6 n% P7 u* J7 `5 D& N# n4 U7 f7 {7 p
Set swApp = Application.SldWorks6 d9 Q8 c/ s. f5 _- s. m
/ Q. E {5 N* e* n! ?% G: Y5 NSet Part = swApp.ActiveDoc
, d3 D3 T0 O4 ?, d8 V0 [7 M2 N
8 X! q# {6 o+ M( CFilename = Part.GetPathName()
3 o- g, g7 ^$ `5 L' c5 y1 m, x, T6 C/ A& F3 k2 k
No = Len(Filename)1 G2 [- v+ h: T% [1 i) ~3 v
" Z' A4 G# z P: Y& W; }
Filename = Left(Filename, No)
& Y9 I. M9 q: q" O. i1 A
7 I6 h( k3 H5 X4 UPart.SaveAs2 Filename & ".DWG", 0, True, False
- X' m) X& B7 }2 ^2 }. a& g% Z/ }; W' O. {% ^. o
End Sub
; K2 n' y: I- W1 d; h# f2 {& W( g/ d, n0 q6 z# P! k- b
|
发表于 2024-1-19 20:46:25
