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

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

保留折弯线:

Option Explicit
* d- t! ?% W. Y, G: l: O
Dim swApp As SldWorks.SldWorks
e* @( I8 y) q2 r) z
Dim swModel As SldWorks.ModelDoc2
6 K' @- E3 a( b' @* S6 q
Dim swModelDocExt As SldWorks.ModelDocExtension
. f8 ]& ^: a; Y K7 x
Dim FileName As String0 h# e$ J, ]- |) G2 p* U6 ~6 k
Dim NewName As String8 m( S! N& @. {: R% e q9 n
Dim boolstatus As Boolean. O( s" e2 Y- w7 C' E0 D9 \# J
Dim longstatus As Long, longwarnings As Long
% Z. l) [/ }' o7 r
Sub main()" G4 D: A/ j( Y
Set swApp = Application.SldWorks
" I" q( z# E! R+ v
Set swModel = swApp.ActiveDoc2 O$ u& Z2 Y; w' i3 N
Set swModelDocExt = swModel.Extension" c6 d* x& [& A3 {2 s9 }
FileName = swModel.GetPathName()5 t' s& W0 g1 a9 o# E1 H$ d, D: e
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"; f# U, L) ^8 B& q, u
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)* p, D$ ?! p$ {) c0 p5 g
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
) J* v# C9 ?5 g$ Q; k5 g
End Sub
( v) k. A: x$ X$ {5 a- F. @0 k' T

复制代码

移除折弯线:

Option Explicit
# M" Z9 u0 Z2 _
Dim swApp As SldWorks.SldWorks5 T% v, U# [2 ^; ]% D2 g2 H
Dim swModel As SldWorks.ModelDoc2
4 n3 O7 {: s: X6 \$ l9 k" d/ P
Dim swModelDocExt As SldWorks.ModelDocExtension
2 r. {( Y- ?( j' C" x6 p
Dim FileName As String
9 M: u* K r* [/ `9 q
Dim NewName As String
+ i9 l8 L( c) A: L+ m+ S( D
Dim boolstatus As Boolean
2 f! A) d& X5 s& N* o2 ] q
Dim longstatus As Long, longwarnings As Long5 h4 Q( q6 y' b# P7 Z$ U
Sub main()
; O2 K- r. ^2 g/ |5 c
Set swApp = Application.SldWorks
5 I4 b7 V1 f. X# T' O& M& k9 L! |
Set swModel = swApp.ActiveDoc
. o3 k* O+ K8 k! Z8 i; }+ M
Set swModelDocExt = swModel.Extension
* }0 M- W1 x7 f* l$ Q+ L5 y
FileName = swModel.GetPathName()8 V$ j& a5 q+ S' X7 C! [
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
y% N8 t: J2 _9 g+ o
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends): P+ E. {+ U, y% ~' K3 K- e
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings0 n! I [0 e& v- T, @3 Z
End Sub! D0 G0 E& b8 V# ^9 k8 M

复制代码

响在江湖 · 发表于 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/ l% d# X* ^5 b
sw工程图里面的平板形式不就是展开图吗？这都要写代码呀？

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

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

hc2003 发表于 2016-10-23 19:49
% P# e) P$ L& }# Y9 T楼主好人做到底，说明一下怎么使用啊

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

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