关于solidworks转换dwg的宏程序

响在江湖

DaveChan 发表于 2016-10-4 08:22
2 h$ v6 q P+ t) _! {4 O' o给你两个函数参考
* p3 H$ ?) x2 S可以自己查找API
2 {# U2 l; {4 N8 S; y. a6 f0 S这两个函数都可以实现你要的功能

! p J2 \! {& i+ P! X& t首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。
还有API是什么？请指教。

DaveChan

响在江湖 发表于 2016-10-13 20:09
首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。
还有API ...

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

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   
3. Dim swModel As SldWorks.ModelDoc2
   $ }/ ~& H1 i' E/ J
4. Dim swModelDocExt As SldWorks.ModelDocExtension
   " P4 I g+ ^5 G* P$ [3 R3 U1 p
5. Dim FileName As String
   3 o' I+ G: L/ k6 V, s: C. [' @
6. Dim NewName As String
   . P: a, F- L. u! }; ^
7. Dim boolstatus As Boolean
   
8. Dim longstatus As Long, longwarnings As Long
   + D( H; b1 C: x( t+ m8 g
9. Sub main()
   3 c* H- L* `1 Z/ L _: X2 {8 H
10. Set swApp = Application.SldWorks
    
11. Set swModel = swApp.ActiveDoc
    4 [/ P3 Z$ L8 y9 B7 Q7 ?
12. Set swModelDocExt = swModel.Extension
    
13. FileName = swModel.GetPathName()
    , K9 i) M/ i9 z6 c: b$ p9 n5 s
14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    
15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
    
16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    # }3 F) n/ w* k" K H
17. End Sub
    + H3 y/ s5 a3 g4 d

复制代码

+ T+ j/ A+ s7 a" u
; `2 h5 I7 J* O7 g4 j

响在江湖

DaveChan 发表于 2016-10-13 21:17
稍微修改了帮助文件里面的代码代码如下

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

DaveChan

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

移除折弯线代码如下：
. N8 j' ?) w; a$ B

1. Option Explicit
   7 P+ v3 N8 z) k% A- t+ t' J7 d
2. Dim swApp As SldWorks.SldWorks
   ) [& Z/ W5 h. o d1 u0 \, a0 ~0 M
3. Dim swModel As SldWorks.ModelDoc2
   
4. Dim swModelDocExt As SldWorks.ModelDocExtension
   " u8 h% p: G: @- a
5. Dim FileName As String
   / b7 @! z) [: F. n ?
6. Dim NewName As String
   # S. T6 `. f6 C$ X1 z8 F+ T! o
7. Dim boolstatus As Boolean
   + E& W, S! I4 ~0 h
8. Dim longstatus As Long, longwarnings As Long
   4 A4 `) e# {6 `
9. Sub main()
   
10. Set swApp = Application.SldWorks
    
11. Set swModel = swApp.ActiveDoc
    - _, k: T2 k. r) n' ?9 S. E
12. Set swModelDocExt = swModel.Extension
    4 N. V" v: ^! \) Q' e6 Z) \/ J" Z! k
13. FileName = swModel.GetPathName()
    ; q% o9 C3 L! |% p" C- ?9 A; g1 h
14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    ! o% `0 r0 s4 Q' Q: [: A8 c6 Y/ q. K- m
15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
    5 ?* [# M8 z$ M) C* v0 n- O
16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    * o. ^6 ^+ F, g; \1 y+ ^5 b! d
17. End Sub
    

复制代码

+ e' C- ]' A2 a. P* s: U
& w: T4 S; L5 i. `, n

tyne1314

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

响在江湖

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

# b4 }, @+ y+ ?' O/ u我试试啊
( d, V- F. H. F3 _$ r, U2 I

响在江湖

DaveChan 发表于 2016-10-21 13:49
. L. d9 r: H( f! m+ b- {' I移除折弯线代码如下：

) g) G6 s6 l; g2 Z; l2 Q6 R9 w* d太牛了！真心感谢，应社友要求共享该程序不知这个借花献佛可以不？呵呵

响在江湖

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

2 K' ^ q6 w8 {8 o! H: I# Z你是专门学过VB吗？还是也是录制的宏程序？

DaveChan

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

可以共享的，这些代码是API帮助现成的，我只是稍微更改了一下，符合你的要求而已
) Z. A* h8 c0 T
我编程只是业余爱好而已，不专业
5 w5 i) o* J' j) ?# [8 T8 L
5 J/ E5 ^& E2 K

leilei333

顶一万个赞