关于solidworks转换dwg的宏程序

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

DaveChan 发表于 2016-10-4 08:22
g2 s6 F( r- V0 O6 f1 y7 s2 G给你两个函数参考
" p) h5 R: n# Q( V" [8 T可以自己查找API+ U, y7 ]4 }9 E; V, J) R7 p! z5 x
这两个函数都可以实现你要的功能

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

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

响在江湖发表于 2016-10-13 20:09
( W% M, P P' C+ e首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。3 o2 v2 b% c7 J
还有API ...

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

Option Explicit) V( u2 [. x0 \2 |+ p
Dim swApp As SldWorks.SldWorks
+ N& k% j, L+ Q: b5 G j! b
Dim swModel As SldWorks.ModelDoc2
: n5 g$ U; W/ _4 r5 ?
Dim swModelDocExt As SldWorks.ModelDocExtension
! P) F0 \+ X6 \# \: K
Dim FileName As String0 @7 ]+ q; ?/ e4 g
Dim NewName As String
* i1 [8 L8 C1 N9 l% W" }0 K f
Dim boolstatus As Boolean( i0 g# w* ^. o2 v. G! t( K' N! I/ L
Dim longstatus As Long, longwarnings As Long
+ x# w8 [% w; b' H
Sub main() s* x6 I5 v8 i* |
Set swApp = Application.SldWorks# m! k. Z" V# x7 L3 \7 `
Set swModel = swApp.ActiveDoc9 j8 `- a+ W2 m3 F; F
Set swModelDocExt = swModel.Extension6 r) `) } U N& z; {9 Z, w
FileName = swModel.GetPathName()
7 H q8 H* S2 H+ ^& N0 l/ o
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
* ^# e: v( S7 [% z* O. r# p9 |5 \
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
9 g# {; z4 V H; G9 _
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings5 j( y0 T$ P8 }; c0 }8 P1 s3 I5 D
End Sub
j# C( m0 S- D5 Y

复制代码

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

DaveChan 发表于 2016-10-13 21:17
! ?' Q) a+ U6 X$ L5 P; l稍微修改了帮助文件里面的代码代码如下

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

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

响在江湖发表于 2016-10-20 21:47! _ _4 x1 V2 x8 a1 l, a1 Y/ g2 T
社区果然有高手存在啊！为社区有这样为人解惑的人存在感到欣慰！真心感谢为我解决头疼的问题，不过因为是 ...

移除折弯线代码如下：

Option Explicit
/ [4 \% I! \, M! W
Dim swApp As SldWorks.SldWorks- |6 `% g$ Z9 ~, G
Dim swModel As SldWorks.ModelDoc2, F8 E5 J; u4 U& l
Dim swModelDocExt As SldWorks.ModelDocExtension# j+ [! J9 P) I% K- N; m4 b. P5 E4 x% u
Dim FileName As String
+ J& Y1 f7 D) s% c( y
Dim NewName As String
( f9 Q; T$ P% M. @3 q
Dim boolstatus As Boolean F9 o+ ^4 V- O. b9 y p) ]7 D
Dim longstatus As Long, longwarnings As Long9 K. D4 L; L1 Q5 k3 Y
Sub main(), _+ G1 h$ q5 R, Y# T' o9 d' b* U
Set swApp = Application.SldWorks
- F+ M. R6 p! q* ?
Set swModel = swApp.ActiveDoc
. x- L# K7 j0 N
Set swModelDocExt = swModel.Extension
( @3 H* o' E% Q& O! e- i7 D
FileName = swModel.GetPathName()
7 Y' C0 a; Z7 B! t+ @7 j* [
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"+ \) Z' {, w4 N) l& ]1 _ l
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
# c3 T1 O9 i$ U L/ \" E5 u; \
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings! r# i1 @" O$ y! @
End Sub" Z+ }6 q1 B: j7 P/ A

复制代码

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

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

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

tyne1314 发表于 2016-10-22 14:037 p) w" j# A7 {. p
能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

我试试啊

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

DaveChan 发表于 2016-10-21 13:49. }; b8 Y: l. ?( b% ^
移除折弯线代码如下：

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

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

tyne1314 发表于 2016-10-22 14:038 s) }& r% k z
能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

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

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

响在江湖发表于 2016-10-23 10:27
( V0 L6 L' F K你是专门学过VB吗？还是也是录制的宏程序？

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

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

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

顶一万个赞

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