关于solidworks转换dwg的宏程序

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

DaveChan 发表于 2016-10-4 08:22
2 c' F* T5 H" u给你两个函数参考
: {8 F' i) Y, G; s+ z% k- f) o可以自己查找API
/ [2 f' b. w' [6 B3 G2 e这两个函数都可以实现你要的功能

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

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

响在江湖发表于 2016-10-13 20:091 D) q! M& A: R+ X% k
首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。
$ }- p4 E4 N: Y! M# E% ^7 E还有API ...

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

Option Explicit
' {) i& f, ]: V
Dim swApp As SldWorks.SldWorks
5 P/ N+ G3 U4 ]
Dim swModel As SldWorks.ModelDoc2
3 @: V) B3 \ W
Dim swModelDocExt As SldWorks.ModelDocExtension
0 P% I* d! v5 R3 c
Dim FileName As String. F% I2 p$ W" J5 F" M3 m, u
Dim NewName As String
4 `8 y) V) u# \9 ]; I: o" }! m
Dim boolstatus As Boolean* D, r0 _: q/ C
Dim longstatus As Long, longwarnings As Long
- T" j; A# g4 y6 k m1 e
Sub main(). F" F1 f+ z2 [3 C- i e
Set swApp = Application.SldWorks
L& U0 y7 P# u' z' `& T( Y1 Q
Set swModel = swApp.ActiveDoc
$ @: |4 c% W; U; r$ `
Set swModelDocExt = swModel.Extension
& L, O! @2 A9 D! U) v4 H" H0 l
FileName = swModel.GetPathName()
! U7 Q# t$ L/ k4 H- j9 d
NewName = Left(FileName, Len(FileName) - 7) & ".dwg", @! w. y$ k2 J1 y! S
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
9 ]5 J. d1 A* W. a
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings5 m M$ w+ p" _# _# w" }
End Sub
! _ V1 ~7 E5 J; _

复制代码

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

DaveChan 发表于 2016-10-13 21:170 i; L7 E8 R$ r& a, d
稍微修改了帮助文件里面的代码代码如下

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

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

响在江湖发表于 2016-10-20 21:478 m$ N1 `/ ~6 ?! ?) T+ U0 R* N) J( }
社区果然有高手存在啊！为社区有这样为人解惑的人存在感到欣慰！真心感谢为我解决头疼的问题，不过因为是 ...

移除折弯线代码如下：

Option Explicit9 Q4 q. C; b2 g4 ^; [) a
Dim swApp As SldWorks.SldWorks2 ^) u6 c2 x3 G6 Q3 ^" e" E
Dim swModel As SldWorks.ModelDoc2
2 h, Z% F$ u$ \- r
Dim swModelDocExt As SldWorks.ModelDocExtension
& j( x& [/ T- F3 J2 b
Dim FileName As String/ j% R8 j3 a. L# M
Dim NewName As String
/ }: y7 R; A) ~+ q
Dim boolstatus As Boolean
?# |' ^& Q# ?0 F: A* i+ s
Dim longstatus As Long, longwarnings As Long% [" V9 f4 p" } @* I# E9 o
Sub main()
0 t5 ^1 {$ n/ r3 P! A! P
Set swApp = Application.SldWorks
2 H- F7 W- C( M' z* S
Set swModel = swApp.ActiveDoc" E4 G* F# v% j* w
Set swModelDocExt = swModel.Extension
) T; @# Z, M4 ?9 K
FileName = swModel.GetPathName()- U9 W6 l% ^$ f9 h( @" j8 y9 A
NewName = Left(FileName, Len(FileName) - 7) & ".dwg": b, Q8 P4 T: s4 W6 u3 u: g
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
$ \1 t4 K6 }! f b0 Z7 N* L5 M) `
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings0 T4 F; X g5 g& ], g/ K
End Sub
3 B8 p# u) p& c$ c

复制代码

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

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

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

tyne1314 发表于 2016-10-22 14:03: H4 p! f. ^% \2 D6 `2 f/ ?
能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

我试试啊

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

DaveChan 发表于 2016-10-21 13:49
8 R: [5 C+ S) Z) ]+ Z' j移除折弯线代码如下：

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

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

tyne1314 发表于 2016-10-22 14:03
8 W9 a9 J- w: T) `0 }能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

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

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

响在江湖发表于 2016-10-23 10:279 V6 T; X0 ]& B3 t5 Q- o
你是专门学过VB吗？还是也是录制的宏程序？

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

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

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

顶一万个赞

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