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

響在江湖 · 發(fā)表于 2016-10-13 20:09:03

DaveChan 發(fā)表于 2016-10-4 08:22
+ [! Y" x) X1 w& f. N( I7 R給你兩個(gè)函數(shù)參考" q |& I& O( }+ ] A' n2 [
可以自己查找API
' P- V# a' y0 Z0 d, p這兩個(gè)函數(shù)都可以實(shí)現(xiàn)你要的功能

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

DaveChan · 發(fā)表于 2016-10-13 21:17:18

響在江湖發(fā)表于 2016-10-13 20:093 G: N: I+ ~, r: O
首先感謝社友回復(fù),，不過(guò)你發(fā)的這個(gè)怎么復(fù)制到txt中呀,？復(fù)制代碼后只有“”ExportToDWG“這個(gè)。" h3 \( T3 O4 O7 j
還有API ...

稍微修改了幫助文件里面的代碼代碼如下

Option Explicit
" {: R; }0 ^6 q$ {& p
Dim swApp As SldWorks.SldWorks) m) e8 Q: H4 ?( o: I
Dim swModel As SldWorks.ModelDoc20 v5 i P/ v$ u' N$ b3 R o
Dim swModelDocExt As SldWorks.ModelDocExtension, x3 Q; W2 c$ z
Dim FileName As String. H% C) I* O4 J2 h
Dim NewName As String
/ }) m1 U H' y; d
Dim boolstatus As Boolean
' D7 ^' G9 u, M/ |
Dim longstatus As Long, longwarnings As Long, Y& l# A6 j7 a- G
Sub main()# S2 C. a# H) w' [& {' P3 B- T
Set swApp = Application.SldWorks0 [" h3 o: p) n! V/ Q1 |
Set swModel = swApp.ActiveDoc I' |4 K% U" w) L' F- l1 m
Set swModelDocExt = swModel.Extension6 H/ H# x! S, }) I4 b( D5 K" ^# w
FileName = swModel.GetPathName()6 H3 N$ N* S1 J5 Q
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
0 J/ c3 a5 z6 O- ~
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
+ S' U8 L2 ~% ?' u* f
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
3 U, V: m1 P7 g: `" w( U! r
End Sub
3 l: U2 o- z& E

復(fù)制代碼

響在江湖 · 發(fā)表于 2016-10-20 21:47:39

DaveChan 發(fā)表于 2016-10-13 21:17
9 b2 t! a8 C5 l8 t8 G' Z稍微修改了幫助文件里面的代碼代碼如下

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

DaveChan · 發(fā)表于 2016-10-21 13:49:04

響在江湖發(fā)表于 2016-10-20 21:478 O8 n3 V z7 ?+ N$ E$ o' P
社區(qū)果然有高手存在啊,！為社區(qū)有這樣為人解惑的人存在感到欣慰,！真心感謝為我解決頭疼的問(wèn)題，不過(guò)因?yàn)槭?...

移除折彎線(xiàn)代碼如下：

Option Explicit0 ^2 G6 ^. j5 h& m) \
Dim swApp As SldWorks.SldWorks/ j1 t5 H, Q# ~% P" k, q3 P; D
Dim swModel As SldWorks.ModelDoc2
3 Q7 Z# f5 I7 O6 n
Dim swModelDocExt As SldWorks.ModelDocExtension
/ a7 F& |; b4 x# [ O
Dim FileName As String
# W" w) A" q# x% x
Dim NewName As String* M- W& a2 {0 D
Dim boolstatus As Boolean- U/ Y! H0 Y& n8 f. h, _4 G
Dim longstatus As Long, longwarnings As Long; q+ O6 g5 j0 H
Sub main()
& {; ]+ n5 S x( d
Set swApp = Application.SldWorks& G8 _, U; a. }" B0 ^" W' g
Set swModel = swApp.ActiveDoc
! m7 H" A n/ `6 o) |' ?4 q
Set swModelDocExt = swModel.Extension% b+ j. j; c% t8 O6 Q& b' y7 M
FileName = swModel.GetPathName()
' q9 l) l4 T! z* i/ M4 E
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
7 q) s4 O& B$ v1 P
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
) @; T5 P1 }; P1 ?' u
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings7 [$ |( K' n# z1 A0 B
End Sub
$ g" {' a4 P9 O* O

復(fù)制代碼

tyne1314 · 發(fā)表于 2016-10-22 14:03:02

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

響在江湖 · 發(fā)表于 2016-10-23 10:25:00

tyne1314 發(fā)表于 2016-10-22 14:03+ y# h) U/ k7 o, ^. G
能把這個(gè)宏分享一下么？這可以方便做鈑金展開(kāi)的朋友們呀,，謝謝

我試試啊

響在江湖 · 發(fā)表于 2016-10-23 10:26:54

DaveChan 發(fā)表于 2016-10-21 13:49/ q; `: U% H% M7 G, `4 W; x
移除折彎線(xiàn)代碼如下：

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

響在江湖 · 發(fā)表于 2016-10-23 10:27:37

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

你是專(zhuān)門(mén)學(xué)過(guò)VB嗎,？還是也是錄制的宏程序,？

DaveChan · 發(fā)表于 2016-10-23 10:34:12

響在江湖發(fā)表于 2016-10-23 10:277 \1 q; N0 t( I9 F2 u6 n
你是專(zhuān)門(mén)學(xué)過(guò)VB嗎？還是也是錄制的宏程序,？

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

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

leilei333 · 發(fā)表于 2017-12-4 23:46:03

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

		自動(dòng)登錄	找回密碼
密碼			注冊(cè)會(huì)員