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

響在江湖

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

首先感謝社友回復(fù),，不過你發(fā)的這個怎么復(fù)制到txt中呀？復(fù)制代碼后只有“”ExportToDWG“這個,。
還有API是什么,？請指教。

DaveChan

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

7 a. f! u/ n* D0 C. K  t  X稍微修改了幫助文件里面的代碼代碼如下

1. Option Explicit
   - ]( |" b3 _+ \; O$ C
2. Dim swApp As SldWorks.SldWorks
   2 {) j/ I1 p! b* X# j; ]- q$ q
3. Dim swModel As SldWorks.ModelDoc2
   $ t" g) v/ d& `3 C- x3 w
4. Dim swModelDocExt As SldWorks.ModelDocExtension
   
5. Dim FileName As String
   
6. Dim NewName As String
   0 n7 s: I. V. P2 h2 U$ }! @
7. Dim boolstatus As Boolean
   4 T8 A, b3 S3 Y7 E* n# |. R
8. Dim longstatus As Long, longwarnings As Long
   
9. Sub main()
   
10. Set swApp = Application.SldWorks
    
11. Set swModel = swApp.ActiveDoc
    $ e2 B* a" M: |- h8 R, t0 h
12. Set swModelDocExt = swModel.Extension
    & H. R/ j6 P* @- o% f
13. FileName = swModel.GetPathName()
    
14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    9 l2 k# o1 [# q; t
15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
    
16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    
17. End Sub
    

復(fù)制代碼

響在江湖

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

* G7 Z- b  n) H% L6 B社區(qū)果然有高手存在�,�,！為社區(qū)有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問題,，不過因為是水刀下料,，可不可以轉(zhuǎn)換后不要折彎線？就像默認(rèn)的那樣,。忘高手進(jìn)一步解答,。再次感謝！

DaveChan

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

* x6 ]7 G' c' k2 V. y% }; s) Z  E移除折彎線代碼如下：
2 V1 K9 k& a! n

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   % ]1 ~7 S5 d4 P
3. Dim swModel As SldWorks.ModelDoc2
   
4. Dim swModelDocExt As SldWorks.ModelDocExtension
   
5. Dim FileName As String
   % {( e" a) V7 x' ]4 R9 M- F' y; t
6. Dim NewName As String
   
7. Dim boolstatus As Boolean
   7 G6 G& Z. J3 E6 n' _
8. Dim longstatus As Long, longwarnings As Long
   ) h  @& T6 f$ c1 C: v: _  ]
9. Sub main()
   
10. Set swApp = Application.SldWorks
    & x* D. S3 [! V3 ~, t8 m
11. Set swModel = swApp.ActiveDoc
    % S7 t2 @5 z. z4 c/ ]0 O1 G- A; C
12. Set swModelDocExt = swModel.Extension
    
13. FileName = swModel.GetPathName()
    + b0 e$ U2 c; |, Q4 K. D) T+ Y' t
14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    
15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
    , }3 y8 p) a6 l' `# F' z
16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    . A9 T, W& @0 _7 }
17. End Sub
    " L( q) D& H1 D

復(fù)制代碼

9 l* W9 j; y* y

tyne1314

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

響在江湖

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

我試試啊
$ D6 @6 K# H+ e' Z

響在江湖

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

. w; D6 Y/ ?$ n$ V9 P太牛了,！真心感謝,，應(yīng)社友要求共享該程序不知這個借花獻(xiàn)佛可以不？呵呵
7 \; e4 W7 P3 ^/ S

響在江湖

tyne1314 發(fā)表于 2016-10-22 14:03
# ]. g2 D. g* E1 b7 a7 x2 }; s% L能把這個宏分享一下么,？這可以方便做鈑金展開的朋友們呀,，謝謝

你是專門學(xué)過VB嗎？還是也是錄制的宏程序,？

DaveChan

響在江湖 發(fā)表于 2016-10-23 10:27
你是專門學(xué)過VB嗎,？還是也是錄制的宏程序？

$ \6 T0 k; l) m5 ?3 U- ]" w! _# h可以共享的,，這些代碼是API幫助現(xiàn)成的,，我只是稍微更改了一下，符合你的要求而已
9 a, J! y, |( x' m( u4 n& F) [8 l- m
  @/ s8 a7 y' P/ s) E( X3 \( ?- ^! L我編程只是業(yè)余愛好而已,，不專業(yè)

leilei333

頂一萬個贊