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

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

保留折弯线:

Option Explicit- e+ r f- `: B t% l4 m- Q
Dim swApp As SldWorks.SldWorks1 b" v4 F( {# p& r& o2 K
Dim swModel As SldWorks.ModelDoc2: c! n. v0 F J: Z; N) o2 s
Dim swModelDocExt As SldWorks.ModelDocExtension
5 D/ K( d, H G1 B/ v+ W& M1 r
Dim FileName As String
# a9 M0 [" ?3 E9 s# K) X
Dim NewName As String
4 b `$ Z$ p e8 |
Dim boolstatus As Boolean
* K5 [9 E" N* Y4 H3 ^: k5 P- ]
Dim longstatus As Long, longwarnings As Long, G* D9 m8 J2 e; H* Z, {6 j
Sub main()
% F. i+ ?- f5 C* F0 ?
Set swApp = Application.SldWorks2 ?- O* O5 B( U) ?0 p Z
Set swModel = swApp.ActiveDoc* m, }3 P* d$ J! f: k& I" Y9 Q
Set swModelDocExt = swModel.Extension
9 u/ _& v- y* p) z J9 P
FileName = swModel.GetPathName()5 M1 I" d- z! L9 ]1 v# T( ^- {2 @
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
- `3 N# r9 \9 X9 G# s, V% H
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)# y* t- }5 }& ^" k2 s. T3 e6 k
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings- M) B i9 q, N r/ `
End Sub% G4 f, t2 w& q0 a2 D

复制代码

移除折弯线:

Option Explicit% g, M3 b) O* z( i1 Q9 `
Dim swApp As SldWorks.SldWorks) f: ]- t1 l# F- d: }* p* N
Dim swModel As SldWorks.ModelDoc2
" j% z. I% B+ F) f) S; r
Dim swModelDocExt As SldWorks.ModelDocExtension& ]. F4 d Q3 _
Dim FileName As String& W' _" @0 U$ n' F+ E% b
Dim NewName As String
1 `0 H$ P/ l8 Z! X
Dim boolstatus As Boolean
7 Z; o( g& i9 L6 k, t
Dim longstatus As Long, longwarnings As Long8 z9 G- n- x8 q4 E% n6 N; D
Sub main()7 l7 m: ?; T) H* |* L# J% y
Set swApp = Application.SldWorks
' @; r# r4 v7 P. }, h! L3 t; r I
Set swModel = swApp.ActiveDoc" e, U/ J# l' j& F# }8 C
Set swModelDocExt = swModel.Extension
/ x" n# b# A( a: `
FileName = swModel.GetPathName()
& i6 S: R% x; }1 r
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
; F; H6 H" t( o
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
. @4 W$ i! t- e; ?6 v# u% F
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings" _4 o$ U$ p1 h
End Sub
3 G$ s5 @% ~3 e6 Z- i

复制代码

响在江湖 · 发表于 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
1 m5 c0 j8 V$ \7 ssw工程图里面的平板形式不就是展开图吗？这都要写代码呀？

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

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

hc2003 发表于 2016-10-23 19:49; ^) o/ x0 D6 j) _0 L2 s+ ~5 W, S' {: L
楼主好人做到底，说明一下怎么使用啊

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

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