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

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

保留折弯线:

Option Explicit
* n8 U7 X3 m$ d/ n$ D
Dim swApp As SldWorks.SldWorks
. r( P Y6 Q7 t6 c. i: I) b3 n
Dim swModel As SldWorks.ModelDoc27 i% ]5 Y- n* O! ~% ]% ?
Dim swModelDocExt As SldWorks.ModelDocExtension
6 t8 F& d" [' R6 u
Dim FileName As String
$ A3 {% v$ v" z
Dim NewName As String- e; _2 J6 L5 G# s9 w5 e7 R' k
Dim boolstatus As Boolean
" G. [# o: k% ^' [2 y
Dim longstatus As Long, longwarnings As Long' H) [0 G, K3 I
Sub main()
0 W4 P( [& b% G
Set swApp = Application.SldWorks8 d1 w8 E1 z, Q" {8 I9 J
Set swModel = swApp.ActiveDoc
/ I/ ]7 @" ~* \
Set swModelDocExt = swModel.Extension
- l/ ?& r. Z ?4 A
FileName = swModel.GetPathName()/ T6 R! G) q! A
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
1 I9 J+ W7 I5 A4 N8 H0 U
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
0 ?% M8 R1 w& k4 P9 Y3 U
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings; z8 N4 v/ p& l
End Sub- U# ~+ K2 A5 h" {

复制代码

移除折弯线:

Option Explicit6 L, f- p4 T5 n9 n( W& s B( e
Dim swApp As SldWorks.SldWorks, z) V2 L( H3 s5 ~; j. ]$ Q k8 {. \
Dim swModel As SldWorks.ModelDoc2
& _$ j7 I8 i2 n) a$ x* ^
Dim swModelDocExt As SldWorks.ModelDocExtension
$ Z h2 Z5 J+ T3 j& @
Dim FileName As String
9 d6 m+ @ Y$ J; Z
Dim NewName As String
* ~, [+ t9 f! e- |9 _ E+ w* C
Dim boolstatus As Boolean
& v4 i: Q, J- @% `9 A
Dim longstatus As Long, longwarnings As Long+ F9 p+ {. m0 T; |- O
Sub main()v7 p1 G) p+ s5 n: b2 R3 T
Set swApp = Application.SldWorks
$ d0 T4 K! [8 k
Set swModel = swApp.ActiveDoc
, V4 ?7 W% h; w& _* F% u
Set swModelDocExt = swModel.Extension7 u. `) m/ n8 M/ u
FileName = swModel.GetPathName()% q3 ~9 w8 x8 D
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
; ~% Q, E( [( I! F* Q# B
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
4 k9 L- G( d+ ~" [( _% i
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
' {. e! i3 Y# y& Z
End Sub
/ G3 m4 R9 q7 E, k; J8 @7 V

复制代码

响在江湖 · 发表于 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 3 c3 T: U2 g* y: c5 {; @0 c
sw工程图里面的平板形式不就是展开图吗？这都要写代码呀？

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

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

hc2003 发表于 2016-10-23 19:49 4 E' G1 v m6 C0 v& {! r2 [
楼主好人做到底，说明一下怎么使用啊

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

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