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

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

保留折弯线:

Option Explicit# r# V) N5 d- t8 f5 B4 `
Dim swApp As SldWorks.SldWorks% K& K, G0 A- _
Dim swModel As SldWorks.ModelDoc2
; B% H. U6 x: Z) G2 ?. D }/ N
Dim swModelDocExt As SldWorks.ModelDocExtension8 r; A$ N% Q( i5 y' `, l
Dim FileName As String
6 k" H6 I3 b8 H% I V! q0 w7 @3 R
Dim NewName As String
9 M) @; B" E0 I: N5 c& g
Dim boolstatus As Boolean! p/ N; z8 j4 I. j: |2 a$ M' c
Dim longstatus As Long, longwarnings As Long
% U4 v8 h( L0 ^5 e
Sub main()/ V; p) P6 C# |/ V7 @2 f
Set swApp = Application.SldWorks7 U& a) m1 q; C1 V
Set swModel = swApp.ActiveDoc. ^- _! L9 F$ i' b5 o1 `# I) j
Set swModelDocExt = swModel.Extension9 n. H, Z8 y6 T/ i5 ~; n5 J( q" {
FileName = swModel.GetPathName()8 l' p# W& x0 K* X
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"% I& ^1 _5 N; P5 v0 x+ |/ B6 S
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)! t6 l2 |, ^* I; _3 d# c* d
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings% i9 \0 ~2 E9 |9 f- \% D! s! ?2 M
End Sub; y8 N" z+ `4 Y2 v

复制代码

移除折弯线:

Option Explicit
/ z9 O" d% X6 T7 B* X
Dim swApp As SldWorks.SldWorks
1 G. j. X3 j* i1 o' W7 b' E) ?0 `
Dim swModel As SldWorks.ModelDoc26 i& S4 R- A; Z3 j; _. [% {2 u
Dim swModelDocExt As SldWorks.ModelDocExtension5 ~5 B% u# x) [
Dim FileName As String+ r+ d9 T% [: Q8 {9 N
Dim NewName As String+ Z0 ~, b7 t' f
Dim boolstatus As Boolean
& K$ A7 h2 [1 Q
Dim longstatus As Long, longwarnings As Long8 k, |9 p, L9 m) S' n
Sub main()
$ i! m2 I! r& q, B! f
Set swApp = Application.SldWorks
9 R2 y: n& k* g" @. K- g
Set swModel = swApp.ActiveDoc( \( [" ^4 G6 t
Set swModelDocExt = swModel.Extension7 `" N8 Z/ c- M. s# E2 a, }
FileName = swModel.GetPathName()# E) [( q* y5 R2 B8 g
NewName = Left(FileName, Len(FileName) - 7) & ".dwg") T* ]( C9 g! ^. s) Y8 l0 k
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)& o5 F: d3 A T& {
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings! z( u8 x* i K
End Sub
$ U# }- K a& ^* t6 }

复制代码

响在江湖 · 发表于 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
' d( f* P$ P* Jsw工程图里面的平板形式不就是展开图吗？这都要写代码呀？

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

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

hc2003 发表于 2016-10-23 19:49 l) D" k& q/ R+ t# |
楼主好人做到底，说明一下怎么使用啊

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

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