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

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

保留折弯线:

Option Explicit
: R3 d' @& W& ~" b% g- S
Dim swApp As SldWorks.SldWorks
6 Z& Q0 M; R/ ^% ~6 o5 K
Dim swModel As SldWorks.ModelDoc23 `% D! g- r: \/ c/ |( d3 h* u
Dim swModelDocExt As SldWorks.ModelDocExtension
( Q: q( Q: c; N& {! k
Dim FileName As String
# R" x l" e% t/ M
Dim NewName As String
* q2 ~6 C& |" T r6 _! y
Dim boolstatus As Boolean
* P% a' x6 D6 Y/ M" k
Dim longstatus As Long, longwarnings As Long6 I6 v) ?1 M" ^: p
Sub main()5 u+ m1 q/ j( m' X( b& z) c
Set swApp = Application.SldWorks- Y3 i3 T0 S4 d8 N4 C
Set swModel = swApp.ActiveDoc
4 g# ? z5 Y# R/ u6 E6 l
Set swModelDocExt = swModel.Extension/ t, r3 f$ e6 G( g
FileName = swModel.GetPathName(): e+ M4 S, @# l/ a# b5 b
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"4 w3 b2 g% @$ T# ^8 H: R4 k
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
2 \& t/ h( c# F
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings* x9 M+ m& H$ {2 N
End Sub
% i6 i" K: O& q/ m+ z( Y

复制代码

移除折弯线:

Option Explicit
* |4 J( S! I- y; u3 y0 X
Dim swApp As SldWorks.SldWorks3 o# N( K W0 b2 ]7 h! Y
Dim swModel As SldWorks.ModelDoc2/ m5 M+ r4 _' q/ k
Dim swModelDocExt As SldWorks.ModelDocExtension% z1 W6 n6 u9 I
Dim FileName As String
6 t9 R, M# s8 U8 v% X1 j3 B! Y& W, G
Dim NewName As String
. s7 I$ l/ g5 G/ A( A/ I4 l8 M- i% p4 Z
Dim boolstatus As Boolean. q9 b, @6 f4 L) q2 `7 w% f: V- a
Dim longstatus As Long, longwarnings As Long
' V; g6 N4 h; u
Sub main()
. r! I0 X; m0 @5 k6 J
Set swApp = Application.SldWorks0 A P1 O( U9 o% V; f w- a* r
Set swModel = swApp.ActiveDoc
( J1 n$ O8 a7 ?! h$ ^
Set swModelDocExt = swModel.Extension
7 z g K8 {3 s6 w
FileName = swModel.GetPathName()/ b* z& {( T2 p7 [& I
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"9 n: c9 N4 |1 p- R! V
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)0 O( {6 V7 L6 J/ W3 B3 e& Z0 V) ~
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings. Q1 ?- E j3 p3 V, C
End Sub$ v0 z2 x( G/ U5 \. \

复制代码

响在江湖 · 发表于 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
% n3 l; |4 b2 q0 M# R; S- n) Ssw工程图里面的平板形式不就是展开图吗？这都要写代码呀？

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

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

hc2003 发表于 2016-10-23 19:49
1 y2 E8 B/ K3 d9 n2 j4 P, c% [楼主好人做到底，说明一下怎么使用啊

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

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