关于solidworks转换dwg的宏程序

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

DaveChan 发表于 2016-10-4 08:22
9 B+ m( k: _& _8 N% A# p: h给你两个函数参考5 I8 g/ }* D' _
可以自己查找API
; @( M8 }3 u3 |8 r这两个函数都可以实现你要的功能

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

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

响在江湖发表于 2016-10-13 20:096 R2 e9 W L# M: t* A& X
首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。7 H! L8 n- p' f& h5 {1 b4 U# l
还有API ...

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

Option Explicit: v6 @3 J7 D0 S5 M& l; Q
Dim swApp As SldWorks.SldWorks3 m4 n2 g$ W( g' a4 v+ b C/ s9 P
Dim swModel As SldWorks.ModelDoc2
* l9 t8 \$ H; b e2 b
Dim swModelDocExt As SldWorks.ModelDocExtension
# _ \$ ^! q) j
Dim FileName As String0 J' o0 s/ ^9 K! S% j) r
Dim NewName As String8 I7 m' t1 w1 a' B* N
Dim boolstatus As Boolean3 y& i1 F& P5 J
Dim longstatus As Long, longwarnings As Long. g+ o3 b) m; U, I5 ]
Sub main(): t8 w. [' o1 z
Set swApp = Application.SldWorks
6 J& `" {& W7 ?
Set swModel = swApp.ActiveDoc
+ s7 k; M& J( e6 L; Y
Set swModelDocExt = swModel.Extension& I/ q# p2 e1 N
FileName = swModel.GetPathName()8 \5 p* u5 l3 ]: ^8 |
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
5 c, W, o2 ^" [8 l! q
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None), y) }9 }: f- q3 a; J: o* l
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings4 I0 i- W4 E9 Q( J
End Sub6 \. }3 y# `) D, b$ W# w5 g

复制代码

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

DaveChan 发表于 2016-10-13 21:17
6 b6 _" R. F# |5 @稍微修改了帮助文件里面的代码代码如下

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

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

响在江湖发表于 2016-10-20 21:474 F! Z) I3 e7 Y3 ` l/ U
必威体育网址果然有高手存在啊！为必威体育网址有这样为人解惑的人存在感到欣慰！真心感谢为我解决头疼的问题，不过因为是 ...

移除折弯线代码如下：

Option Explicit& I% {* f1 ]. i
Dim swApp As SldWorks.SldWorks Q5 O% g# h) }
Dim swModel As SldWorks.ModelDoc2
, U( a+ Z8 b8 H p9 e
Dim swModelDocExt As SldWorks.ModelDocExtension1 ]' {9 s6 H* c& e" H
Dim FileName As String
9 }4 O/ `* \0 I4 E I1 b
Dim NewName As String
- M- f5 c0 m; {; ~ k2 W/ P
Dim boolstatus As Boolean& T& V1 M2 j. E8 ]
Dim longstatus As Long, longwarnings As Long
1 J7 o) ]0 M* A0 R
Sub main()
7 _) e# f& P2 m8 X$ Z. L5 ^% {
Set swApp = Application.SldWorks
" w- l* G6 d- M H) O6 J
Set swModel = swApp.ActiveDoc
* o+ z- |; E+ Y
Set swModelDocExt = swModel.Extension
4 E3 H4 B% J4 t. P% k- K
FileName = swModel.GetPathName()
) H0 y \; M1 X6 o( Q
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"5 B6 n b: `# u7 F2 k) I( E9 b
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends). a X( Z* j W+ ]
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
6 z* s3 s# ~& l
End Sub* @; ?5 p. E5 m4 W, ?: U) O6 p6 ~- Y

复制代码

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

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

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

tyne1314 发表于 2016-10-22 14:03
* G, D) R$ m( l$ {* c8 X能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

我试试啊

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

DaveChan 发表于 2016-10-21 13:49: z! Q- u' Y8 N5 s8 B+ e _
移除折弯线代码如下：

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

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

tyne1314 发表于 2016-10-22 14:039 i0 a6 Z! k- `: Y& U1 q3 {
能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

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

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

响在江湖发表于 2016-10-23 10:27' m/ U; ]4 t1 v
你是专门学过VB吗？还是也是录制的宏程序？

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

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

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

顶一万个赞

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