應(yīng)社友要求,，共享SW鈑金零件輸出展開DWG的代碼

DaveChan · 發(fā)表于 2016-10-23 10:39:59

保留折彎線:

Option Explicit
/ F. s2 h5 g- U) N
Dim swApp As SldWorks.SldWorks
! ^# m5 G) D. ^9 A; b: ?1 T6 z" t
Dim swModel As SldWorks.ModelDoc2
9 s* s# j8 S; x$ E7 Z4 c- E
Dim swModelDocExt As SldWorks.ModelDocExtension% }( T/ P$ [2 ~; S
Dim FileName As String
, Z3 S* s2 o! X
Dim NewName As String; ?& A. A5 l* V8 m) z8 x
Dim boolstatus As Boolean
, A) u5 V) `5 E# O
Dim longstatus As Long, longwarnings As Long
% z1 x" \! u% l9 u
Sub main()
4 M* M) n/ a+ q' f) |6 Y
Set swApp = Application.SldWorks! _1 _, ^9 u& P: D+ T
Set swModel = swApp.ActiveDoc% c; X4 _; B/ @1 h/ k+ A0 D
Set swModelDocExt = swModel.Extension6 W W- {( Z- x3 `8 N/ v8 Z
FileName = swModel.GetPathName(). y1 F( k$ z+ l3 |9 }. K
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"0 [& x% _2 b6 {5 _
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)3 |2 \* o6 D2 t% |6 j
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
) x! c5 Y9 |* W% I- o; ^
End Sub
0 r5 R5 Z, \- I( ~( O

復(fù)制代碼

移除折彎線:

Option Explicit
3 S: x t; f9 L8 _. u
Dim swApp As SldWorks.SldWorks
' C# t" ? ~6 d- r& W4 f) o+ _
Dim swModel As SldWorks.ModelDoc2$ Q0 d" f% B" G5 {$ R T! @ N
Dim swModelDocExt As SldWorks.ModelDocExtension; g$ `1 N) o# y4 q
Dim FileName As String
9 }: z4 K$ B6 w( Y* t4 b2 y. A
Dim NewName As String. c$ ~1 x9 j4 C% I5 q
Dim boolstatus As Boolean9 R6 f' i7 T0 z! N! u
Dim longstatus As Long, longwarnings As Long- e6 e3 P$ S; S; C/ P8 z- b
Sub main()
3 c5 ?- E# a% F t
Set swApp = Application.SldWorks
6 j) R# w$ s" E1 x
Set swModel = swApp.ActiveDoc$ K/ C' A2 Q4 u2 {
Set swModelDocExt = swModel.Extension
{" u7 V( x r; E
FileName = swModel.GetPathName()2 V& g5 b4 r% u0 D& C" E
NewName = Left(FileName, Len(FileName) - 7) & ".dwg". ~3 i- X) K& H; O1 Q A
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
, |, Z" M/ o4 W9 R) ~- j! [
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings/ n' z) j/ |1 o9 L
End Sub. k0 p" n5 l3 W8 g1 B

復(fù)制代碼

響在江湖 · 發(fā)表于 2016-10-23 10:47:29

必須頂上去,！超實(shí)用�,。�

小飛熊l · 發(fā)表于 2016-10-23 15:39:50

沒覺得sw鈑金需要改動啊

newmorn · 發(fā)表于 2016-10-23 16:56:57

sw工程圖里面的平板形式不就是展開圖嗎,？這都要寫代碼呀,？

機(jī)械路慢 · 發(fā)表于 2016-10-23 17:46:39

樓主，這是,？代碼要放到哪里,？

befuture · 發(fā)表于 2016-10-23 19:23:30

怎么用啊新手

hc2003 · 發(fā)表于 2016-10-23 19:49:24

樓主好人做到底,，說明一下怎么使用啊

DaveChan · 發(fā)表于 2016-10-24 08:23:43

本帖最后由 DaveChan 于 2016-10-24 08:54 編輯

newmorn 發(fā)表于 2016-10-23 16:56! K9 r8 {% } ]7 k
sw工程圖里面的平板形式不就是展開圖嗎？這都要寫代碼呀,？

代碼替代了繁瑣的點(diǎn)擊另存為過程,，利用代碼做成宏按鈕，一鍵保存平板形式為dwg/dxf下面動畫為另存為輸出過程和宏代碼輸出過程

DaveChan · 發(fā)表于 2016-10-24 08:58:37

hc2003 發(fā)表于 2016-10-23 19:49
+ i) u0 q3 H4 b4 f樓主好人做到底，說明一下怎么使用啊

1.新建一個宏,，刪除里面所有代碼
2.復(fù)制我貼的代碼到這個宏里面
3.保存此宏
4.打開一個鈑金零件(可以展開的零件)
5.運(yùn)行此宏
6.自動輸出展開圖(DWG)

		自動登錄	找回密碼
密碼			注冊會員