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

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

保留折弯线:

Option Explicit* |4 J" `3 \1 T9 c+ B0 O6 A
Dim swApp As SldWorks.SldWorks1 s' [8 C4 Y- o* u
Dim swModel As SldWorks.ModelDoc2
3 R& u/ N8 M& P: q F% Y
Dim swModelDocExt As SldWorks.ModelDocExtension9 {" M2 c* W) s0 b7 B
Dim FileName As String
4 v2 y( y# d$ g0 d6 n7 u$ [
Dim NewName As String+ L; Q0 j: q8 H- [+ V
Dim boolstatus As Boolean
3 A/ [/ L9 z& g! x6 F5 _
Dim longstatus As Long, longwarnings As Long1 j, W, E4 _3 I" L% ?
Sub main(). ?* i- E3 u/ J$ z
Set swApp = Application.SldWorks" ?) p+ U8 L( g( Q# A
Set swModel = swApp.ActiveDoc
- J( ? }+ M( N0 r) |
Set swModelDocExt = swModel.Extension- W i! P: W( o
FileName = swModel.GetPathName()1 K: l4 q' ]$ W" k, N. I# s
NewName = Left(FileName, Len(FileName) - 7) & ".dwg" _8 b5 z, u3 o4 m3 Z
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
: B2 _7 G- `) b$ b' t8 R
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings5 Q3 F# k" H, i$ Z6 z+ c% P
End Sub( c ^. U) ?, Y' Y- G4 Y

复制代码

移除折弯线:

Option Explicit
& ^& ^9 S6 }+ }% T# S! @
Dim swApp As SldWorks.SldWorks% f+ O3 W! h" e$ v0 I# m; Q0 i
Dim swModel As SldWorks.ModelDoc2
7 e$ q) {1 I6 B% J
Dim swModelDocExt As SldWorks.ModelDocExtension
. J4 j5 d+ e) {6 S7 G9 y \: U, Q
Dim FileName As String d9 n8 s" m- D h7 S
Dim NewName As String
0 ? R6 m, K2 e0 X9 H
Dim boolstatus As Boolean
3 D: @$ ~& D+ c* h
Dim longstatus As Long, longwarnings As Long
( B4 R1 K0 b! I" G5 V* w, j* L9 ~: F
Sub main()/ c1 o y9 o3 Q. v3 d/ u1 ^
Set swApp = Application.SldWorks
1 j& \& [" t0 j' [# D) \+ q% ]
Set swModel = swApp.ActiveDoc
4 y$ T: r, I+ D( f
Set swModelDocExt = swModel.Extension0 L; \6 |- L$ p$ y) j+ ^8 K
FileName = swModel.GetPathName()
% ^4 h# L* F0 Y9 [8 `0 K% E- Q. a) b
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
- A& {' i8 I* M- O4 u
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
; u0 Q! W8 h0 Y. p
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
9 l; D( x0 h, ] N
End Sub
r/ @3 m, q, v: y0 X" _% X

复制代码

响在江湖 · 发表于 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$ }! `9 U' s6 V2 H- {- x
sw工程图里面的平板形式不就是展开图吗？这都要写代码呀？

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

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

hc2003 发表于 2016-10-23 19:49
' o4 I i; m3 B- G楼主好人做到底，说明一下怎么使用啊

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

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