關于solidworks轉換dwg的宏程序

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

DaveChan 發表于 2016-10-4 08:22
; X/ ~3 I, o% n給你兩個函數參考4 G. \% ?' U/ f2 M6 m6 @
可以自己查找API4 P9 x. v( _1 k
這兩個函數都可以實現你要的功能

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

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

響在江湖發表于 2016-10-13 20:09
1 Q: q' X( h, v K" E8 K; j5 B首先感謝社友回復，不過你發的這個怎么復制到txt中呀？復制代碼后只有“”ExportToDWG“這個。3 Q: S: R5 c" p, N: C
還有API ...

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

Option Explicit
- y l% }# q; V: {0 [
Dim swApp As SldWorks.SldWorks
6 k w% q2 T7 W/ N
Dim swModel As SldWorks.ModelDoc2' t+ g( f+ a. n: ?
Dim swModelDocExt As SldWorks.ModelDocExtension/ O r" c% `% @9 ^; a
Dim FileName As String& e) |& ?5 Q# j4 D$ Y7 y
Dim NewName As String* K& r( W% I! p3 m# ?: A: w
Dim boolstatus As Boolean7 [* v* t x6 C9 y
Dim longstatus As Long, longwarnings As Long
. L- O3 |) w$ S
Sub main()
" |5 g. L" i3 B- N% I
Set swApp = Application.SldWorks9 ]+ W! ?& E1 r
Set swModel = swApp.ActiveDoc
7 E5 `" }; G4 J: b8 P0 q
Set swModelDocExt = swModel.Extension
o S# s* y+ `0 a. u/ X
FileName = swModel.GetPathName()
C$ O: c( C8 D/ J n4 b. f
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
- X9 z2 N- @2 [
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)* a% A v# X, T% E
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings( t& Z& Z% V" J; o) n& j1 K1 }
End Sub
$ E5 e- c" i) j& m5 D! v7 D

復制代碼

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

DaveChan 發表于 2016-10-13 21:172 N+ M0 Y# Z9 @6 Y# w; |
稍微修改了幫助文件里面的代碼代碼如下

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

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

響在江湖發表于 2016-10-20 21:47
, T7 ]4 j- I' r! [9 t社區果然有高手存在啊！為社區有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問題，不過因為是 ...

移除折彎線代碼如下：

Option Explicit
8 ~3 a! E" i( K4 {' V
Dim swApp As SldWorks.SldWorks
. I1 J# h( a& w2 w% ~- J
Dim swModel As SldWorks.ModelDoc20 r) Z/ h6 u" o I. r g
Dim swModelDocExt As SldWorks.ModelDocExtension
& W) k1 V' \* R
Dim FileName As String4 Q% V: D/ [/ E' h; Y; i. I
Dim NewName As String; T' Y/ B* O& f6 w3 X' Y
Dim boolstatus As Boolean9 o2 Y7 s- }! d2 h
Dim longstatus As Long, longwarnings As Long6 X8 [5 d' B% V* S" M
Sub main()
5 j6 R, g5 _% e6 ^
Set swApp = Application.SldWorks
1 F" _; H: A& G2 z+ ~
Set swModel = swApp.ActiveDoc
9 Z% V; S3 P# Y u6 c; Q
Set swModelDocExt = swModel.Extension; S+ x% e- h$ I, R9 E8 Z
FileName = swModel.GetPathName()
" L7 m8 c& C9 M1 g7 i) x/ F. T( v8 N
NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
$ B4 t" j8 z$ p
boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)3 q0 h$ M5 ~8 r1 x# `
swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings$ _3 [+ q5 L# A* G6 R! s6 d
End Sub, u5 J! ^8 a- N) ~8 t+ ]- v* d" S

復制代碼

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

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

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

tyne1314 發表于 2016-10-22 14:033 ~( [! {2 r4 d/ t7 W' ] w
能把這個宏分享一下么？這可以方便做鈑金展開的朋友們呀，謝謝

我試試啊

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

DaveChan 發表于 2016-10-21 13:49. S$ T2 e6 Q- S/ I8 T3 T
移除折彎線代碼如下：

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

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

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

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

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

響在江湖發表于 2016-10-23 10:27+ Y! `. \4 U8 L8 L4 C. j
你是專門學過VB嗎？還是也是錄制的宏程序？

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

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

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

頂一萬個贊

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

国产日韩欧美久久久精品图片|国产综合有码无码中文字幕|国产一区二区综合视频|国产亚洲精品电影网站在线观看|国产精品一区在线