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

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

保留折弯线:

Option Explicit
/ L; y) m# b. w! t5 y# [
Dim swApp As SldWorks.SldWorks9 N8 q# y2 o" }8 p: Z% B
Dim swModel As SldWorks.ModelDoc2
1 R9 B/ c% }! ?% s
Dim swModelDocExt As SldWorks.ModelDocExtension
9 H6 u5 l1 N) P# A4 B
Dim FileName As String+ ^ v+ y2 l" A1 D
Dim NewName As String2 r. v0 M: Q4 ^. L
Dim boolstatus As Boolean$ n, z' M2 D; M7 @
Dim longstatus As Long, longwarnings As Long s5 i1 g/ A2 C& {! F3 w
Sub main()
/ G G W q$ j; l6 O# x7 e
Set swApp = Application.SldWorks
( O3 z0 M. m( ~% |5 |; v
Set swModel = swApp.ActiveDoc
: C$ v) l! }) Y1 V `
Set swModelDocExt = swModel.Extension
. a+ r( D8 F E1 E) _/ k& X
FileName = swModel.GetPathName()- E; `4 `* v9 E. G8 d& f, J
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"2 y4 [: M7 N8 V* L
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
) o, X- R4 V. U3 r% Q
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
3 [; J7 d. l+ K
End Sub# h. y* E. E4 Y

复制代码

移除折弯线:

Option Explicit
2 w9 X1 c, J/ N% T% p. Y+ ~
Dim swApp As SldWorks.SldWorks
4 e$ p! d- }% m0 e" J/ U/ l3 v
Dim swModel As SldWorks.ModelDoc2
8 W) V7 Y* z1 i" }2 L; I2 i. a
Dim swModelDocExt As SldWorks.ModelDocExtension
. |0 O1 C% I* q' x% r
Dim FileName As String0 `" M2 F6 j' a
Dim NewName As String
" |2 w# m7 \" }/ p8 u
Dim boolstatus As Boolean
3 D, q( _, J4 }8 u
Dim longstatus As Long, longwarnings As Long
6 n" u* A& `) M$ ?% @
Sub main()
# O( ]0 y8 q- D, `' S
Set swApp = Application.SldWorks6 A A2 j; J2 k% A% t& n
Set swModel = swApp.ActiveDoc( W$ P4 c5 |. @4 h$ C
Set swModelDocExt = swModel.Extension
$ e2 b4 ?+ h3 ~/ o0 \+ `# ^
FileName = swModel.GetPathName()0 j& U) A- A) o
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
4 L, | I: H9 A: a
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)( H' [6 ^6 [2 m) i- W* ]$ h. D
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings: `0 l3 m/ o8 y5 U" L
End Sub! q1 |: \& s9 x' ?9 {

复制代码

响在江湖 · 发表于 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:566 Z ~1 n- A$ f' ~1 g, }
sw工程图里面的平板形式不就是展开图吗？这都要写代码呀？

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

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

hc2003 发表于 2016-10-23 19:492 i4 I1 }" ^) M
楼主好人做到底，说明一下怎么使用啊

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

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