关于solidworks转换dwg的宏程序

响在江湖 · 发表于 2016-10-13 20:09:03

DaveChan 发表于 2016-10-4 08:22
. Z( H I* z7 f给你两个函数参考
' U6 }2 y I& C Z可以自己查找API
, ^; r- d# Q/ d6 N* d; F这两个函数都可以实现你要的功能

首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。
还有API是什么？请指教。

DaveChan · 发表于 2016-10-13 21:17:18

响在江湖发表于 2016-10-13 20:09% ^3 E# `1 X e
首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。
w, U( d* ]- W' D还有API ...

稍微修改了帮助文件里面的代码代码如下

Option Explicit
: z- q" C6 ^# _4 H
Dim swApp As SldWorks.SldWorks
. G. t0 j, Z; s7 x
Dim swModel As SldWorks.ModelDoc2# I% @3 z' Z9 b( t/ }2 F& ~2 x
Dim swModelDocExt As SldWorks.ModelDocExtension0 q1 Z" x1 Y' T1 B0 } f1 ~
Dim FileName As String3 K# o4 l- E' p, G$ q5 `, [% Z3 ? B
Dim NewName As String( R/ C2 y6 S" v1 H f
Dim boolstatus As Boolean" U- ?* ~, W3 F& D _' P
Dim longstatus As Long, longwarnings As Long- X/ O& ~$ o( b% Y, w: z
Sub main()
' F- P; r! Z3 @! H! b0 ]# c
Set swApp = Application.SldWorks5 K k: S9 |; y& {0 y
Set swModel = swApp.ActiveDoc2 ]; a# M6 ?8 `
Set swModelDocExt = swModel.Extension; L0 B; Q2 \/ l5 P6 t' T
FileName = swModel.GetPathName()
1 { f% n& v- p6 d- ?
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
% x7 l0 p) F8 ?+ o$ M7 I: e4 g
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)7 D, s2 `# k6 k. y$ {' I
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings( n' ^* H) ~8 h
End Sub$ @) _4 V$ W" O& y$ ]4 C* w

复制代码

响在江湖 · 发表于 2016-10-20 21:47:39

DaveChan 发表于 2016-10-13 21:17
. \ ?, d3 A2 l6 N$ I* ~0 L稍微修改了帮助文件里面的代码代码如下

社区果然有高手存在啊！为社区有这样为人解惑的人存在感到欣慰！真心感谢为我解决头疼的问题，不过因为是水刀下料，可不可以转换后不要折弯线？就像默认的那样。忘高手进一步解答。再次感谢！

DaveChan · 发表于 2016-10-21 13:49:04

响在江湖发表于 2016-10-20 21:47( i* W4 K) ~( T! Y
社区果然有高手存在啊！为社区有这样为人解惑的人存在感到欣慰！真心感谢为我解决头疼的问题，不过因为是 ...

移除折弯线代码如下：

Option Explicit
4 r, _+ S: M2 _% v
Dim swApp As SldWorks.SldWorks/ [1 |/ V0 X4 D, g3 X" S
Dim swModel As SldWorks.ModelDoc2
7 u) `- d& O! C- u. T y' k
Dim swModelDocExt As SldWorks.ModelDocExtension
) }4 X$ W+ Y, i$ h4 \* f" ?+ w
Dim FileName As String i" T; g/ T1 k, n8 B
Dim NewName As String
. j1 r; I. `; n7 k# L! j, r
Dim boolstatus As Boolean: Z. _1 M. X, E- o" ~3 t
Dim longstatus As Long, longwarnings As Long! r; m0 m/ z0 I4 t/ h
Sub main()5 C- z* g1 _0 b5 k* X! q
Set swApp = Application.SldWorks$ A- i8 e n+ u; }
Set swModel = swApp.ActiveDoc
Y) `; }. u6 h3 Q
Set swModelDocExt = swModel.Extension& @* L! `. ?. h7 y( a5 ]
FileName = swModel.GetPathName()
4 ]9 F& D, R( d5 b
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
6 x4 g4 X7 L, N$ n9 U4 L
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)2 e# p, d; p# l, @& G4 c1 i8 ?
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
8 _ m. T$ C" X$ Z/ B( q
End Sub* f2 W' Q& Z- a( f0 ^

复制代码

tyne1314 · 发表于 2016-10-22 14:03:02

能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

响在江湖 · 发表于 2016-10-23 10:25:00

tyne1314 发表于 2016-10-22 14:03# Z0 `# e2 [, L2 l9 [5 x1 b
能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

我试试啊

响在江湖 · 发表于 2016-10-23 10:26:54

DaveChan 发表于 2016-10-21 13:49
" T5 b. T. B" a" f) h移除折弯线代码如下：

太牛了！真心感谢，应社友要求共享该程序不知这个借花献佛可以不？呵呵

响在江湖 · 发表于 2016-10-23 10:27:37

tyne1314 发表于 2016-10-22 14:03
8 B: e8 g; x9 W- w能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

你是专门学过VB吗？还是也是录制的宏程序？

DaveChan · 发表于 2016-10-23 10:34:12

响在江湖发表于 2016-10-23 10:27
; J* _% z. s, _( o你是专门学过VB吗？还是也是录制的宏程序？

可以共享的，这些代码是API帮助现成的，我只是稍微更改了一下，符合你的要求而已

我编程只是业余爱好而已，不专业

leilei333 · 发表于 2017-12-4 23:46:03

顶一万个赞

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