關于solidworks轉換dwg的宏程序

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

DaveChan 發表于 2016-10-4 08:221 s, h* i3 K" y+ Q4 S
給你兩個函數參考
7 ]! W8 J, S$ S& I可以自己查找API/ n9 l9 }+ E' c, q
這兩個函數都可以實現你要的功能

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

DaveChan · 發表于 2016-10-13 21:17:18

響在江湖發表于 2016-10-13 20:09
7 l: @) c: z* U6 {* n( C首先感謝社友回復，不過你發的這個怎么復制到txt中呀？復制代碼后只有“”ExportToDWG“這個。; W7 H+ Y$ Q6 |% L V/ b
還有API ...

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

Option Explicit
/ f& m$ K3 |6 Q; f9 N* i2 s
Dim swApp As SldWorks.SldWorks
; X$ V5 ^& C( a
Dim swModel As SldWorks.ModelDoc2
# O1 I9 ?: L# S/ c
Dim swModelDocExt As SldWorks.ModelDocExtension: s9 H) @0 s4 M5 J" s, B3 R/ ?4 _! {7 K
Dim FileName As String
2 R& R+ b4 I7 j, P0 g4 j0 P
Dim NewName As String( H4 h8 ~9 Y2 {
Dim boolstatus As Boolean9 X" v( v: p8 R9 ?9 |1 X% r
Dim longstatus As Long, longwarnings As Long
" w4 |; b. V/ X, S- h0 j! u
Sub main()8 L" n$ X( T" P1 B1 I; \
Set swApp = Application.SldWorks
5 l F- e6 o6 X4 m
Set swModel = swApp.ActiveDoc# O2 h2 T% _! \# m& i/ ?" m1 f
Set swModelDocExt = swModel.Extension
! ], D: w, N1 q R' E+ B
FileName = swModel.GetPathName()
' ?- e) U7 D' C3 `- N5 p6 t; d+ u" [/ a
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
, p. A' ~& ~, C( E$ i: ^8 P9 u
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)1 ^* S3 ^3 `) F& m1 p9 L
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
5 Q8 Z/ e- ^8 \
End Sub
9 W) s* R5 L% _0 `4 ?; ^" Y

復制代碼

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

DaveChan 發表于 2016-10-13 21:17
9 J; p& W! f. y! e/ j; z" P4 }# [稍微修改了幫助文件里面的代碼代碼如下

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

DaveChan · 發表于 2016-10-21 13:49:04

響在江湖發表于 2016-10-20 21:47
2 X$ D' A$ q# _; E3 ~% Y) R- S社區果然有高手存在??！為社區有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問題，不過因為是 ...

移除折彎線代碼如下：

Option Explicit
3 [2 y, Y \- g4 f: q
Dim swApp As SldWorks.SldWorks9 m# U! k( f4 c) V" o
Dim swModel As SldWorks.ModelDoc2' |' Q i3 O; X6 h; p" o
Dim swModelDocExt As SldWorks.ModelDocExtension2 d9 B" `+ J% [3 G
Dim FileName As String
& B7 \# M5 d0 J1 A
Dim NewName As String
& l7 I9 r- O/ Q% w/ `* N0 ^
Dim boolstatus As Boolean% f' @: y* @3 o- i9 P8 d& E
Dim longstatus As Long, longwarnings As Long
7 w- n5 `. r, ?/ ^# T( N9 v
Sub main()
3 d3 A) \' c/ L1 c
Set swApp = Application.SldWorks
9 X3 E9 @* O% a, O
Set swModel = swApp.ActiveDoc
# [; j2 q; T0 D' l M. c
Set swModelDocExt = swModel.Extension
: f, m1 x9 x( [7 S: Y# j
FileName = swModel.GetPathName()" K' b& R% D* \1 w2 F# z0 H1 I
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"6 U: g' ?( K; o7 U! U
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
" H* _/ Y( J- k$ f! ~4 x( _
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
: V9 [: [3 [' L! Y
End Sub
1 n1 |1 X8 R8 A, k) C

復制代碼

tyne1314 · 發表于 2016-10-22 14:03:02

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

響在江湖 · 發表于 2016-10-23 10:25:00

tyne1314 發表于 2016-10-22 14:03
' E( M2 G0 p5 v& S' D能把這個宏分享一下么？這可以方便做鈑金展開的朋友們呀，謝謝

我試試啊

響在江湖 · 發表于 2016-10-23 10:26:54

DaveChan 發表于 2016-10-21 13:49
+ C6 I4 d- G0 h- X移除折彎線代碼如下：

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

響在江湖 · 發表于 2016-10-23 10:27:37

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

你是專門學過VB嗎？還是也是錄制的宏程序？

DaveChan · 發表于 2016-10-23 10:34:12

響在江湖發表于 2016-10-23 10:277 n5 \9 b" u5 L) t; w5 W
你是專門學過VB嗎？還是也是錄制的宏程序？

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

我編程只是業余愛好而已，不專業

leilei333 · 發表于 2017-12-4 23:46:03

頂一萬個贊

		自動登錄	找回密碼
密碼			注冊會員

久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱