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

響在江湖

DaveChan 發(fā)表于 2016-10-4 08:22
: s" Q3 `. ]2 ]* t! K9 X給你兩個(gè)函數(shù)參考
可以自己查找API
這兩個(gè)函數(shù)都可以實(shí)現(xiàn)你要的功能

首先感謝社友回復(fù)，不過(guò)你發(fā)的這個(gè)怎么復(fù)制到txt中呀？復(fù)制代碼后只有“”ExportToDWG“這個(gè)。
9 D7 `1 x8 n  s還有API是什么？請(qǐng)指教。
/ H8 [- e0 x: p8 y7 z) g

DaveChan

響在江湖 發(fā)表于 2016-10-13 20:09
1 |7 v2 x  t' ]- d首先感謝社友回復(fù)，不過(guò)你發(fā)的這個(gè)怎么復(fù)制到txt中呀？復(fù)制代碼后只有“”ExportToDWG“這個(gè)。
" @) N- X" O$ u; @: S4 T還有API ...

4 K( _8 u2 W! p+ ]! x) C$ s: [稍微修改了幫助文件里面的代碼代碼如下
) v" w3 _3 D- O7 a& d, R

1. Option Explicit
   2 C5 c% _1 D- q7 }& _  T
2. Dim swApp As SldWorks.SldWorks
   ) @8 B, S6 v0 q, h4 \
3. Dim swModel As SldWorks.ModelDoc2
   , l9 M+ ~0 a8 E1 i6 X) W
4. Dim swModelDocExt As SldWorks.ModelDocExtension
   ! T/ G3 v% H1 \. x$ k$ l
5. Dim FileName As String
   " i" k7 \7 A' a: I0 q
6. Dim NewName As String
   9 \- l" u9 }" {: O. F
7. Dim boolstatus As Boolean
   
8. Dim longstatus As Long, longwarnings As Long
   1 C/ t  Y: C; ?: a( @# Y
9. Sub main()
     e; {1 Y4 P8 o8 |3 G7 l
10. Set swApp = Application.SldWorks
    
11. Set swModel = swApp.ActiveDoc
    1 E2 e8 E1 ^) I% T
12. Set swModelDocExt = swModel.Extension
    
13. FileName = swModel.GetPathName()
    
14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    & w& |! L9 g$ w  ?
15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
    ' e+ l. w3 R$ B: @
16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    # D5 U, q1 o7 p+ z( S, X
17. End Sub
    

復(fù)制代碼

$ z  N/ J) p) N

響在江湖

DaveChan 發(fā)表于 2016-10-13 21:17
3 u8 n; i  k/ _4 M. {$ R8 R稍微修改了幫助文件里面的代碼代碼如下

社區(qū)果然有高手存在啊！為社區(qū)有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問(wèn)題，不過(guò)因?yàn)槭撬断铝希刹豢梢赞D(zhuǎn)換后不要折彎線(xiàn)？就像默認(rèn)的那樣。忘高手進(jìn)一步解答。再次感謝！

DaveChan

響在江湖 發(fā)表于 2016-10-20 21:47
; p% d& m/ P. [& {/ W社區(qū)果然有高手存在啊！為社區(qū)有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問(wèn)題，不過(guò)因?yàn)槭?...

移除折彎線(xiàn)代碼如下：
) c' D& N: _+ ]: S8 _% S1 _

1. Option Explicit
   2 I* Q5 ]+ p4 s) A2 T
2. Dim swApp As SldWorks.SldWorks
   
3. Dim swModel As SldWorks.ModelDoc2
   7 Z' }- ~0 H7 F' b- [  c# s
4. Dim swModelDocExt As SldWorks.ModelDocExtension
   0 \: C, Y+ c* N
5. Dim FileName As String
   
6. Dim NewName As String
   
7. Dim boolstatus As Boolean
   : ~4 c- H8 U" ?% h; f0 s. l% ^
8. Dim longstatus As Long, longwarnings As Long
   
9. Sub main()
   
10. Set swApp = Application.SldWorks
    6 S9 Z4 c7 o8 E( X
11. Set swModel = swApp.ActiveDoc
    
12. Set swModelDocExt = swModel.Extension
    
13. FileName = swModel.GetPathName()
    
14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    - B+ W3 E4 Q  U7 B' e
15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
    
16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    ) i1 f6 ^2 H( a" G3 y8 Z  R* m
17. End Sub
    + b9 F* v/ |& h! o  F! U

復(fù)制代碼

- F: w& w! A. s" q

tyne1314

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

響在江湖

tyne1314 發(fā)表于 2016-10-22 14:03
% D; r: H* @0 L: x) `9 `( D能把這個(gè)宏分享一下么？這可以方便做鈑金展開(kāi)的朋友們呀，謝謝

6 R: V3 ?* s8 @. Y8 r我試試啊

響在江湖

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

; J4 S: K5 S5 r  M太牛了！真心感謝，應(yīng)社友要求共享該程序不知這個(gè)借花獻(xiàn)佛可以不？呵呵

響在江湖

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

, W2 R8 [) R( s* M7 K你是專(zhuān)門(mén)學(xué)過(guò)VB嗎？還是也是錄制的宏程序？

DaveChan

響在江湖 發(fā)表于 2016-10-23 10:27
. `4 [; }0 q( y+ Z5 I( S你是專(zhuān)門(mén)學(xué)過(guò)VB嗎？還是也是錄制的宏程序？

可以共享的，這些代碼是API幫助現(xiàn)成的，我只是稍微更改了一下，符合你的要求而已

我編程只是業(yè)余愛(ài)好而已，不專(zhuān)業(yè)

leilei333

頂一萬(wàn)個(gè)贊