關于solidworks轉換dwg的宏程序

響在江湖

DaveChan 發表于 2016-10-4 08:22
給你兩個函數參考
可以自己查找API
/ V5 L( D) @+ f3 p, _7 G這兩個函數都可以實現你要的功能

/ l! z4 i2 c/ W# y9 k# i首先感謝社友回復，不過你發的這個怎么復制到txt中呀？復制代碼后只有“”ExportToDWG“這個。
; t/ ^/ }- |9 l還有API是什么？請指教。

DaveChan

響在江湖 發表于 2016-10-13 20:09
首先感謝社友回復，不過你發的這個怎么復制到txt中呀？復制代碼后只有“”ExportToDWG“這個。
& c! l$ L7 n4 q3 ^9 L7 L( S- E還有API ...

  I: }5 M& z3 G7 ]3 z稍微修改了幫助文件里面的代碼代碼如下
' {: G% T. \2 g5 w, y' f

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   
3. Dim swModel As SldWorks.ModelDoc2
   - a- d. w$ O& V3 x
4. Dim swModelDocExt As SldWorks.ModelDocExtension
   
5. Dim FileName As String
   
6. Dim NewName As String
   
7. Dim boolstatus As Boolean
   0 r2 U8 C* z. O: ]  l
8. Dim longstatus As Long, longwarnings As Long
   
9. Sub main()
   
10. Set swApp = Application.SldWorks
    
11. Set swModel = swApp.ActiveDoc
    " Z7 L  N3 j5 ?( q$ X, c. M
12. Set swModelDocExt = swModel.Extension
    
13. FileName = swModel.GetPathName()
    # G& |8 j6 N! f! F+ |
14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    
15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
    : E/ S1 C" _$ U4 h5 V+ ?+ f' H
16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    ' N8 @; r5 j2 J* i
17. End Sub
    

復制代碼

響在江湖

DaveChan 發表于 2016-10-13 21:17
3 e  q" T; U' r9 `稍微修改了幫助文件里面的代碼代碼如下

社區果然有高手存在��！為社區有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問題，不過因為是水刀下料，可不可以轉換后不要折彎線？就像默認的那樣。忘高手進一步解答。再次感謝！

DaveChan

響在江湖 發表于 2016-10-20 21:47
3 U9 u& A- R- d& T" l3 s& _社區果然有高手存在�。�為社區有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問題，不過因為是 ...

# @3 C0 \4 D3 R& g移除折彎線代碼如下：
) f- ^. G# q8 [1 l# g: y2 l

1. Option Explicit
   $ A8 {' c9 W! q+ @
2. Dim swApp As SldWorks.SldWorks
   : A. n# D9 B' `8 `1 x
3. Dim swModel As SldWorks.ModelDoc2
   
4. Dim swModelDocExt As SldWorks.ModelDocExtension
   
5. Dim FileName As String
   
6. Dim NewName As String
   
7. Dim boolstatus As Boolean
   ' ?! n& z( @' L$ Z
8. Dim longstatus As Long, longwarnings As Long
   ; F& G# b2 D! U4 E5 I+ {' U
9. Sub main()
   
10. Set swApp = Application.SldWorks
    % R( V; C4 s' Y4 g
11. Set swModel = swApp.ActiveDoc
    
12. Set swModelDocExt = swModel.Extension
    
13. FileName = swModel.GetPathName()
    
14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    
15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
    , F3 j* P' V& g$ B/ g, R6 P4 w
16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    
17. End Sub
    

復制代碼

6 S( [6 [# Y1 [! `+ i

tyne1314

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

響在江湖

tyne1314 發表于 2016-10-22 14:03
4 p5 a5 u& W9 a! M. f, i5 }4 X0 K能把這個宏分享一下么？這可以方便做鈑金展開的朋友們呀，謝謝

, G) a6 h& ^% k9 U  V# J6 T我試試啊
8 V* w8 G& z" A6 ]* {4 J7 X/ _2 L

響在江湖

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

太牛了！真心感謝，應社友要求共享該程序不知這個借花獻佛可以不？呵呵

響在江湖

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

3 F# C! |( T- s: E你是專門學過VB嗎？還是也是錄制的宏程序？

DaveChan

響在江湖 發表于 2016-10-23 10:27
+ m$ k$ ]+ p% w& k你是專門學過VB嗎？還是也是錄制的宏程序？

可以共享的，這些代碼是API幫助現成的，我只是稍微更改了一下，符合你的要求而已
5 [  Q1 E( V, {
我編程只是業余愛好而已，不專業

leilei333

頂一萬個贊