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

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

保留折弯线:

Option Explicit
: d& v; z/ A: w) {- B$ [' L6 ~
Dim swApp As SldWorks.SldWorks
9 C; @& L y1 x7 x2 n* ]2 v# y
Dim swModel As SldWorks.ModelDoc2
8 z a" j1 m# T/ t( Y. g# c
Dim swModelDocExt As SldWorks.ModelDocExtension2 C) O1 b1 Q, k3 G+ @" ]
Dim FileName As String
! t2 w7 p& u R9 q; ^ ?
Dim NewName As String3 h! E# E0 A( g0 d% V8 A0 B8 r
Dim boolstatus As Boolean
* b$ v w* e0 v
Dim longstatus As Long, longwarnings As Long& s& Z) Z K9 C" p) @
Sub main()# J/ Y4 D) c" ? u8 m
Set swApp = Application.SldWorks- _$ A8 d5 x" x+ l3 J3 k. y( {1 a4 s
Set swModel = swApp.ActiveDoc
6 H9 J) F4 j2 V/ I1 G. I
Set swModelDocExt = swModel.Extension
' E" h: C. t3 z
FileName = swModel.GetPathName()2 k) t5 i; L5 v
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"' n2 {/ m" D% H. p7 n; n4 f
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
4 I& O3 k* O& Z3 @% b
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
$ o0 j# X7 t; z% C. d$ n' Z
End Sub. p2 A+ x* B/ _! k( V8 m) h- T6 N5 ?

复制代码

移除折弯线:

Option Explicit. Y+ ?: \; D) ?0 L D; t. M
Dim swApp As SldWorks.SldWorks
0 Q, ]0 a E" I5 M! H9 W
Dim swModel As SldWorks.ModelDoc2
6 I, E& P# s# |
Dim swModelDocExt As SldWorks.ModelDocExtension; X4 l. r+ k2 ^. a9 x4 G& I
Dim FileName As String3 V: E2 l7 H, J" Y% _8 ?8 b; H
Dim NewName As String1 J6 s) Z+ U) _
Dim boolstatus As Boolean. Z0 h |/ a) H8 X4 I8 i7 J
Dim longstatus As Long, longwarnings As Long
8 b, U8 ]0 f. m$ {! n% Y2 R
Sub main(). h* Y9 f1 f" h
Set swApp = Application.SldWorks! E2 O2 R6 `& b/ H
Set swModel = swApp.ActiveDoc. A2 v! m' C. {) ^' r' u# U
Set swModelDocExt = swModel.Extension
* ^, u1 ?& b+ k- e* E
FileName = swModel.GetPathName()% e* y% [# X7 D' X! ^
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
& @, I; N4 R: U- k' M5 U$ `
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
) D6 K4 ? C6 u' D* g8 [& x# Q
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
' e4 Q! o4 E- ? N5 K% @: }
End Sub) d" P$ [/ ^$ d5 n: n* q

复制代码

响在江湖 · 发表于 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:560 D$ t5 R- G( M
sw工程图里面的平板形式不就是展开图吗？这都要写代码呀？

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

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

hc2003 发表于 2016-10-23 19:49
; H, a7 a" c e楼主好人做到底，说明一下怎么使用啊

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

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