關(guān)于solidworks轉(zhuǎn)換dwg的宏程序

響在江湖

DaveChan 發(fā)表于 2016-10-4 08:22
給你兩個(gè)函數(shù)參考
可以自己查找API
這兩個(gè)函數(shù)都可以實(shí)現(xiàn)你要的功能

$ Q, r6 ]4 A4 k0 ~  G+ K首先感謝社友回復(fù),，不過你發(fā)的這個(gè)怎么復(fù)制到txt中呀,？復(fù)制代碼后只有“”ExportToDWG“這個(gè),。
5 q' c' a, Y3 f' M- r還有API是什么,？請(qǐng)指教,。
: S0 ]8 [2 Q- [# {) i: G9 P

DaveChan

響在江湖 發(fā)表于 2016-10-13 20:09
3 _6 d. X* P- M0 o* X首先感謝社友回復(fù),，不過你發(fā)的這個(gè)怎么復(fù)制到txt中呀,？復(fù)制代碼后只有“”ExportToDWG“這個(gè)。
還有API ...

$ H& G: }1 Q) C, |稍微修改了幫助文件里面的代碼代碼如下

1. Option Explicit
   $ u) @% z7 @. F7 K" D# V
2. Dim swApp As SldWorks.SldWorks
   
3. Dim swModel As SldWorks.ModelDoc2
   $ b) G$ b1 ^! y8 D
4. Dim swModelDocExt As SldWorks.ModelDocExtension
   $ Z# t' y; F4 D4 R9 ?
5. Dim FileName As String
   ; V5 k. k$ c- K7 y: e7 Y: z
6. Dim NewName As String
   ) Q- m4 J* v6 U- B0 c
7. Dim boolstatus As Boolean
   
8. Dim longstatus As Long, longwarnings As Long
   1 G  D6 {. g' h4 c; N$ w! D
9. Sub main()
   # T! K! e/ v/ {" V% n' i. U: W
10. Set swApp = Application.SldWorks
    
11. Set swModel = swApp.ActiveDoc
    9 c2 r% a& W4 k% ^  Y; b
12. Set swModelDocExt = swModel.Extension
    
13. FileName = swModel.GetPathName()
      A+ u; o( {% ?
14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    & A3 }6 I3 L$ b
15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
    
16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    
17. End Sub
    3 z& v7 a. h9 g) P/ M( p

復(fù)制代碼

4 Y6 l4 L3 P1 g) Q4 ^; `' P
) [$ F" @5 D6 c/ Y) s

響在江湖

DaveChan 發(fā)表于 2016-10-13 21:17
稍微修改了幫助文件里面的代碼代碼如下

) v7 f! o" V+ F- E9 }社區(qū)果然有高手存在�,�,！為社區(qū)有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問題,，不過因?yàn)槭撬�刀下��,，可不可以轉(zhuǎn)換后不要折彎線？就像默認(rèn)的那樣,。忘高手進(jìn)一步解答,。再次感謝！
  |/ y  u' Y, l5 Z8 S

DaveChan

響在江湖 發(fā)表于 2016-10-20 21:47
社區(qū)果然有高手存在�,�,！為社區(qū)有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問題,，不過因?yàn)槭?...

4 O) N8 ?5 p1 d, F9 A1 j! j移除折彎線代碼如下：
0 @2 Z& t8 q4 X) k

1. Option Explicit
   # Y, D& ]  x7 M% K4 [; H, T
2. Dim swApp As SldWorks.SldWorks
   
3. Dim swModel As SldWorks.ModelDoc2
   
4. Dim swModelDocExt As SldWorks.ModelDocExtension
   
5. Dim FileName As String
   * ?9 z# L9 N1 ]/ b& x
6. Dim NewName As String
   
7. Dim boolstatus As Boolean
   
8. Dim longstatus As Long, longwarnings As Long
   3 F- b3 m  ?; n9 D9 t% O$ N# i
9. Sub main()
   9 g% V/ k( n4 Y, L1 o
10. Set swApp = Application.SldWorks
    ( w. p/ ~9 E, ?) ]: ?% K. i% }
11. Set swModel = swApp.ActiveDoc
    
12. Set swModelDocExt = swModel.Extension
    
13. FileName = swModel.GetPathName()
    ' {  i* ^9 D5 Y
14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    6 r* e4 w$ t; H3 q8 X* b; B4 c! g' G
15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
    . p- B/ t  ~, w" [6 d, B# p
16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    
17. End Sub
    

復(fù)制代碼

7 r- H% L' o3 Y; {# e

tyne1314

能把這個(gè)宏分享一下么,？這可以方便做鈑金展開的朋友們呀，謝謝

響在江湖

tyne1314 發(fā)表于 2016-10-22 14:03
6 o( ~& O. _! P( i$ {8 p能把這個(gè)宏分享一下么,？這可以方便做鈑金展開的朋友們呀,，謝謝

. M5 S# ~; S( ?8 n  C5 D0 h6 P我試試啊
" H' }( B; P4 T. {- ^  Z* W

響在江湖

DaveChan 發(fā)表于 2016-10-21 13:49
移除折彎線代碼如下：

$ R  P- z5 K$ ]3 N7 c, d/ H太牛了！真心感謝,，應(yīng)社友要求共享該程序不知這個(gè)借花獻(xiàn)佛可以不,？呵呵
" d7 I5 U, X  [. l

響在江湖

tyne1314 發(fā)表于 2016-10-22 14:03
: o1 e9 X4 o- E5 e能把這個(gè)宏分享一下么？這可以方便做鈑金展開的朋友們呀,，謝謝

; W& K2 H; Z7 d; T2 t你是專門學(xué)過VB嗎,？還是也是錄制的宏程序？
$ C0 k+ b9 v3 P2 R& ?

DaveChan

響在江湖 發(fā)表于 2016-10-23 10:27
2 G' `9 B5 a. G. T$ Q6 S+ s! o你是專門學(xué)過VB嗎,？還是也是錄制的宏程序,？

可以共享的，這些代碼是API幫助現(xiàn)成的,，我只是稍微更改了一下,，符合你的要求而已
( e! @1 d5 S/ }: y$ O1 N1 K
- O- P; \1 v/ A我編程只是業(yè)余愛好而已,，不專業(yè)

; f! n% l) Y0 E: N. ^

leilei333

頂一萬個(gè)贊