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

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

保留折弯线:

Option Explicit
2 J0 z+ K6 d% b0 A5 \
Dim swApp As SldWorks.SldWorks% k7 U" i" P2 s: F
Dim swModel As SldWorks.ModelDoc2" P: T y0 |! [+ R4 ~* h- D# o
Dim swModelDocExt As SldWorks.ModelDocExtension
, q) @8 F5 Y9 I
Dim FileName As String
' X; F; T% ?+ q9 z
Dim NewName As String
, \3 x) Q O1 d5 Q; T( D$ S
Dim boolstatus As Boolean
, T- @# H/ @5 b
Dim longstatus As Long, longwarnings As Long
$ h: i1 ~" F8 f& I* W
Sub main()# u6 }4 C4 y* ?
Set swApp = Application.SldWorks
4 t9 `; ]9 i+ q3 N
Set swModel = swApp.ActiveDoc( i6 \% p$ ^! r$ b) l+ w
Set swModelDocExt = swModel.Extension
! H; g; I8 n* v/ c8 d+ V" p
FileName = swModel.GetPathName()
& H1 ~& c+ [7 S' R% q
NewName = Left(FileName, Len(FileName) - 7) & ".dwg", H4 H$ m" C% g, W) ^- z. {
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
" L' N' V* M5 g; G3 x
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
8 A! S4 T2 M y6 N1 K
End Sub
4 y) @. f; N g' I: q

复制代码

移除折弯线:

Option Explicit
, p! V1 [& ^3 v* ^0 a" I4 [. F! u
Dim swApp As SldWorks.SldWorks
$ W* X( B' n! \+ s6 H
Dim swModel As SldWorks.ModelDoc2
6 ]" ^" N3 \/ V7 t1 J+ [# s
Dim swModelDocExt As SldWorks.ModelDocExtension
% C3 ~' z' u2 Z( n% H [3 W% ]
Dim FileName As String
9 i8 s5 V0 O+ }
Dim NewName As String) U4 e4 x" P- W2 B* _" Q0 q# Z8 R
Dim boolstatus As Boolean6 g6 u. i$ G: i0 d3 h3 l# |( G
Dim longstatus As Long, longwarnings As Long/ e/ j3 m* p* Z' q. w4 X" Q
Sub main()
0 {! `" W" r3 b+ ]7 g9 A# W% Z
Set swApp = Application.SldWorks# `$ \6 w( @6 g* O
Set swModel = swApp.ActiveDoc
9 O! }! T: E3 i& ]& T7 b
Set swModelDocExt = swModel.Extension( V `8 r0 O2 O( e+ ?
FileName = swModel.GetPathName()" P9 w+ a! v2 N
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
/ E' q9 n. U' @! m; S
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
- W- Q6 }. }" Q6 o0 H8 B9 E
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
1 v+ O, {: U3 S* I4 G' [/ y
End Sub" _$ U$ M- f' q9 ^7 j

复制代码

响在江湖 · 发表于 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
& H0 A2 Q* P! Y+ O1 N7 ^2 X/ [- Dsw工程图里面的平板形式不就是展开图吗？这都要写代码呀？

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

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

hc2003 发表于 2016-10-23 19:49
0 c! a C8 @2 \, f( U" V楼主好人做到底，说明一下怎么使用啊

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

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