应社友要求，共享SW钣金零件输出展开DWG的代码

DaveChan · 发表于 2016-10-23 10:39:59

保留折弯线:

Option Explicit
+ v( P- N2 x7 F5 x8 C% {
Dim swApp As SldWorks.SldWorks
* I0 R _( D. C D' `$ J/ }2 q
Dim swModel As SldWorks.ModelDoc2
$ f/ e! b3 [! l2 U3 ^
Dim swModelDocExt As SldWorks.ModelDocExtension
g% d6 y7 }1 L/ i
Dim FileName As String5 p) Q! ~$ c8 I! c" E( x9 c/ J; s
Dim NewName As String. Q) c g, H$ f+ j. t; Q
Dim boolstatus As Boolean# u! w1 o! c/ | b
Dim longstatus As Long, longwarnings As Long5 E7 K! ]" ^" I! A: O Y
Sub main()& v' v) z! c) @9 _" J! L- J
Set swApp = Application.SldWorks
% y( M1 c/ \2 ]/ e/ |2 c3 s0 n: i
Set swModel = swApp.ActiveDoc# b9 ?4 E0 A7 A7 @
Set swModelDocExt = swModel.Extension0 [0 R, @7 Z. J" Q6 f* O
FileName = swModel.GetPathName()
% D' g/ V. @) M+ [4 ]2 I
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"% j/ m- ~5 l' N
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)9 `& r! y) H/ u. ~1 ^( X
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings" w" |) G$ D+ Q" v
End Sub
- y; K# s( }9 j. j! K6 {+ ]- i! Z( a

复制代码

移除折弯线:

Option Explicit
y6 j8 {" S7 L
Dim swApp As SldWorks.SldWorks! W+ T& @0 f: `, g5 m) m5 ^
Dim swModel As SldWorks.ModelDoc2
6 U" G: Y7 T9 a) F* D- P
Dim swModelDocExt As SldWorks.ModelDocExtension
v5 e1 T: K; M$ G2 v- g; V
Dim FileName As String
8 B- r3 n- v, z) |
Dim NewName As String! O3 F9 K* P- k- d
Dim boolstatus As Boolean" C9 E( m1 ?7 ^" S! a5 S5 Z
Dim longstatus As Long, longwarnings As Long3 S$ o ^& s/ p$ l
Sub main()
& j) @' [. m1 ^: W2 N0 K, P
Set swApp = Application.SldWorks
- k3 g% P$ n: g& s3 v
Set swModel = swApp.ActiveDoc& d. i0 [* t1 d4 i, c' }
Set swModelDocExt = swModel.Extension
, f0 P0 s5 w [; C4 W
FileName = swModel.GetPathName()
; S! ^ d9 `4 u) S& b
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
0 A+ I3 N! A' L
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
, r* I; g2 L0 S. ?
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
* N2 {! ]3 T8 L( T4 Z. S% J
End Sub7 b- z$ P8 T- `; r& v6 o

复制代码

响在江湖 · 发表于 2016-10-23 10:47:29

必须顶上去！超实用！！

小飞熊l · 发表于 2016-10-23 15:39:50

没觉得sw钣金需要改动啊

newmorn · 发表于 2016-10-23 16:56:57

sw工程图里面的平板形式不就是展开图吗？这都要写代码呀？

机械路慢 · 发表于 2016-10-23 17:46:39

楼主，这是？代码要放到哪里？

befuture · 发表于 2016-10-23 19:23:30

怎么用啊新手

hc2003 · 发表于 2016-10-23 19:49:24

楼主好人做到底，说明一下怎么使用啊

DaveChan · 发表于 2016-10-24 08:23:43

本帖最后由 DaveChan 于 2016-10-24 08:54 编辑

newmorn 发表于 2016-10-23 16:56
* c$ e' P) Q$ X% M. |sw工程图里面的平板形式不就是展开图吗？这都要写代码呀？

代码替代了繁琐的点击另存为过程，利用代码做成宏按钮，一键保存平板形式为dwg/dxf下面动画为另存为输出过程和宏代码输出过程

DaveChan · 发表于 2016-10-24 08:58:37

hc2003 发表于 2016-10-23 19:49
3 a$ I; i& P' W4 d h5 a楼主好人做到底，说明一下怎么使用啊

1.新建一个宏，删除里面所有代码
2.复制我贴的代码到这个宏里面
3.保存此宏
4.打开一个钣金零件(可以展开的零件)
5.运行此宏
6.自动输出展开图(DWG)

		自动登录	找回密码
密码			注册会员