機械社區(qū)

標(biāo)題: 關(guān)于solidworks轉(zhuǎn)換dwg的宏程序 [打印本頁]
作者: 響在江湖    時間: 2016-9-25 09:24
標(biāo)題: 關(guān)于solidworks轉(zhuǎn)換dwg的宏程序
如題，最近本人在做鈑金件的下料圖準(zhǔn)備傳送給車間水刀下料，可是圖紙?zhí)嗔�，而且每一張都是簡單的重�?fù)操作，操作內(nèi)容如下：打開鈑金件——直接另存為dwg格式其它內(nèi)容不變最后保存dwg圖紙——關(guān)閉當(dāng)前圖紙。想錄制一個宏程序以便其它零件能更快的轉(zhuǎn)換，但本人才疏學(xué)淺，又沒專業(yè)的學(xué)習(xí)過VB，所以沒有成功。因此，想請教各位萬能的社友，這個宏程序是無法制作還是什么原因？或者誰有相關(guān)宏程序的麻煩分享一下，十分感謝解答！, f% X8 w9 }+ a, q$ N$ x# i
作者: albert.tang    時間: 2016-9-25 15:50
SW打開后不是要先展開然后再保存平板件到DWG？還有正反面怎么確定？
作者: 未來第一站    時間: 2016-9-25 15:58
默認的選項怎么處理？
作者: 零度freedom    時間: 2016-9-25 16:10
從零件直接轉(zhuǎn)到CAD就不知道怎么一步到位了，要是多個工程圖轉(zhuǎn)CAD那可以試下solidworks 工具--soldworks task scheduler
作者: 響在江湖    時間: 2016-9-28 20:57
albert.tang 發(fā)表于 2016-9-25 15:501 M/ C& _9 v/ W; d! f% g  [
SW打開后不是要先展開然后再保存平板件到DWG？還有正反面怎么確定？
2 Q" i- c) n, i3 w( \6 P9 O
不用展開，直接保存成dwg就自動是平板模式了，無需區(qū)分正反面，沒折彎之前兩面都一樣。
1 X0 ?$ I3 [) `( E
作者: 響在江湖    時間: 2016-9-28 20:59
未來第一站 發(fā)表于 2016-9-25 15:58. }8 J5 p5 ]$ Q, ]& I% z
默認的選項怎么處理？
  X& S: v- G+ _9 N* e* z
就是默認的就可以啊
4 M6 z7 Q) ]" R  V
作者: 響在江湖    時間: 2016-9-28 21:01
零度freedom 發(fā)表于 2016-9-25 16:10# v/ R9 p7 T; f; M8 b& W
從零件直接轉(zhuǎn)到CAD就不知道怎么一步到位了，要是多個工程圖轉(zhuǎn)CAD那可以試下solidworks 工具--soldworks tas ...

: l0 O% {" u& m! F# H0 S* l嗯，這個我知道，而且還可以做成宏，不過我要的只是展開下料圖，其它的都是多余的還得一一刪除。。
  T6 m- a6 F* i, J: c" t! a0 B
作者: 響在江湖    時間: 2016-9-28 21:01
大神在哪里？
作者: 響在江湖    時間: 2016-10-3 15:07
十一都休息了，還是自己頂上去，希望有高人可以指點
作者: DaveChan    時間: 2016-10-4 08:22
響在江湖 發(fā)表于 2016-10-3 15:073 J- P. X  a9 d! S8 o' Q  r6 g7 z
十一都休息了，還是自己頂上去，希望有高人可以指點
! z# U: K+ s: t" L
給你兩個函數(shù)參考
& \3 Z6 ]; [; \: ~可以自己查找API
9 t- c4 _$ I9 l* x) Y
  1. ExportToDWG
復(fù)制代碼
  1. ExportFlatPatternView
復(fù)制代碼
這兩個函數(shù)都可以實現(xiàn)你要的功能7 L" V( |' g, E8 ^- J* z" h; h4 y
并且API都有例子, g) U6 @3 d0 t* I- ?

" B: e2 J, ?4 o$ f& }6 n6 o' {) s
作者: 響在江湖    時間: 2016-10-13 20:09
DaveChan 發(fā)表于 2016-10-4 08:22
8 D9 B/ i; F  R6 u9 `給你兩個函數(shù)參考
2 o0 i6 h. E( S0 r$ C" G可以自己查找API
/ c4 c+ s0 D% T0 W這兩個函數(shù)都可以實現(xiàn)你要的功能
  {" _& ^7 @$ `1 n
首先感謝社友回復(fù)，不過你發(fā)的這個怎么復(fù)制到txt中呀？復(fù)制代碼后只有“”ExportToDWG“這個。2 e! ?7 M3 ~  |2 L! ?7 t
還有API是什么？請指教。( e  C/ |/ R; I. u! t* V8 k8 i  x
作者: DaveChan    時間: 2016-10-13 21:17
響在江湖 發(fā)表于 2016-10-13 20:09
& J  W. o) ]3 C% q: F, N首先感謝社友回復(fù)，不過你發(fā)的這個怎么復(fù)制到txt中呀？復(fù)制代碼后只有“”ExportToDWG“這個。
& G" T9 y- E& E4 {$ k$ r/ }還有API ...

/ I$ h: ]$ |3 |7 V3 I稍微修改了幫助文件里面的代碼代碼如下* N" C; p/ i" J9 y* g. P
  1. Option Explicit; n1 M2 D3 a* y& @
  2. Dim swApp As SldWorks.SldWorks
    8 l' u. ~0 Y& X. y7 C: ^
  3. Dim swModel As SldWorks.ModelDoc2$ ?! Z: i- P* H
  4. Dim swModelDocExt As SldWorks.ModelDocExtension
    $ o; [4 d) l$ P
  5. Dim FileName As String5 k3 a$ K, L( L: c& g1 e! [3 U+ d
  6. Dim NewName As String
    0 D" u4 p, ?4 v% w; x4 l6 R+ W2 ]
  7. Dim boolstatus As Boolean& ]$ Z/ y& j0 o$ ?, j# ~8 y1 p7 ?
  8. Dim longstatus As Long, longwarnings As Long" S6 z- s9 e! k1 n% j6 C
  9. Sub main()
    2 W* |' o0 t; y1 _
  10. Set swApp = Application.SldWorks
    9 M$ {# {9 J4 o( U1 y
  11. Set swModel = swApp.ActiveDoc, A4 w8 u4 b6 J4 l2 z
  12. Set swModelDocExt = swModel.Extension3 L* [0 D! [1 a6 P
  13. FileName = swModel.GetPathName()
    : [/ ]& j- z5 I0 |5 {0 J% ?0 j
  14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    ! J% J! J# v; E. A; e- h$ r
  15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
    ( \3 D' `. B( P6 X, A% K
  16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings% K$ W* y8 o* c& C' {
  17. End Sub
    5 N' b9 {8 W6 i# F8 H
復(fù)制代碼
3 M& Y1 z2 J. M1 V, `0 ^. s' G
' l( R) Y( r3 Z, p: i8 v: \- z
作者: 響在江湖    時間: 2016-10-20 21:47
DaveChan 發(fā)表于 2016-10-13 21:17
! o+ x) v9 v3 j; t& `2 f9 t稍微修改了幫助文件里面的代碼代碼如下

4 F, g6 s/ Z+ U2 a1 T社區(qū)果然有高手存在��！為社區(qū)有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問題，不過因為是水刀下料，可不可以轉(zhuǎn)換后不要折彎線？就像默認的那樣。忘高手進一步解答。再次感謝！) ?4 Z! s, P& z
作者: DaveChan    時間: 2016-10-21 13:49
響在江湖 發(fā)表于 2016-10-20 21:47
1 u, X; P* X; k9 b8 x% z3 E# L社區(qū)果然有高手存在啊！為社區(qū)有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問題，不過因為是 ...

5 X' D% k8 L  {$ _7 S- s  _: p# ]% ^2 j移除折彎線代碼如下：# `! L* p( W( Z% O3 V  K5 V
  1. Option Explicit( L" t4 G. I; I" `3 A
  2. Dim swApp As SldWorks.SldWorks
    & R- `) k6 O7 k8 T4 _2 h
  3. Dim swModel As SldWorks.ModelDoc2
    $ \1 K5 h1 ~$ |/ Q; d, a, m
  4. Dim swModelDocExt As SldWorks.ModelDocExtension
    & o& l( Q3 G# \3 j0 D, y
  5. Dim FileName As String
      S$ I5 t0 q1 w& A( ~# R
  6. Dim NewName As String
    3 a0 f6 q# c/ p6 X/ P1 X- [" O
  7. Dim boolstatus As Boolean
    # Y! b) N0 `9 v. m
  8. Dim longstatus As Long, longwarnings As Long# e( b0 `) A  g2 o; f% E. b
  9. Sub main()5 i& [/ G( G# r: T
  10. Set swApp = Application.SldWorks
    5 U0 k. b6 h1 b1 a9 A4 e
  11. Set swModel = swApp.ActiveDoc1 j1 x) o8 h$ |) S" }3 _" K- H1 ~
  12. Set swModelDocExt = swModel.Extension+ C2 |+ M( q8 E7 L2 W
  13. FileName = swModel.GetPathName()# h, }9 l0 @! w
  14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"* P5 T9 |5 A% t3 M- H
  15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
    ' i* A- ^) c- a: X* l/ x4 U
  16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings3 `' E& k3 \/ Y
  17. End Sub5 l* O& s0 V' ]; s7 I1 f
復(fù)制代碼
; i" c7 j- e; I
. z* U5 z" O$ g$ l) w
作者: tyne1314    時間: 2016-10-22 14:03
能把這個宏分享一下么？這可以方便做鈑金展開的朋友們呀，謝謝
作者: 響在江湖    時間: 2016-10-23 10:25
tyne1314 發(fā)表于 2016-10-22 14:03
/ A$ @0 u7 k! e8 |: R- @& l% Z能把這個宏分享一下么？這可以方便做鈑金展開的朋友們呀，謝謝
/ K4 R% s9 [* H
我試試啊
; K4 O; B4 k4 R& N+ x' P  h; b
作者: 響在江湖    時間: 2016-10-23 10:26
DaveChan 發(fā)表于 2016-10-21 13:49
! _, I( O. q/ K1 M- m  {! S/ O移除折彎線代碼如下：
; \+ _4 x% B/ [! N
太牛了！真心感謝，應(yīng)社友要求共享該程序不知這個借花獻佛可以不？呵呵
; {) s) t* S6 T4 Z6 ^- j
作者: 響在江湖    時間: 2016-10-23 10:27
tyne1314 發(fā)表于 2016-10-22 14:03
8 B+ ]2 q3 Q# [& D/ o7 r; r) p能把這個宏分享一下么？這可以方便做鈑金展開的朋友們呀，謝謝

2 T9 p: t- \* E- |你是專門學(xué)過VB嗎？還是也是錄制的宏程序？* `. {/ ~- E5 X6 A
作者: DaveChan    時間: 2016-10-23 10:34
響在江湖 發(fā)表于 2016-10-23 10:27
! g) V) v8 N5 Z. E* C, _0 Y你是專門學(xué)過VB嗎？還是也是錄制的宏程序？

8 ~0 o3 _! S2 H* ^+ F6 t4 {可以共享的，這些代碼是API幫助現(xiàn)成的，我只是稍微更改了一下，符合你的要求而已) q! {4 x3 g, ~
/ l4 g0 e, H( }' M4 U8 Y
我編程只是業(yè)余愛好而已，不專業(yè)7 c6 k% B/ R, B
8 P: z( O" B! B
作者: leilei333    時間: 2017-12-4 23:46
頂一萬個贊
作者: chaomogu    時間: 2018-5-25 22:01
DaveChan 發(fā)表于 2016-10-13 21:17, r" \. \* c9 z% P* w- \
稍微修改了幫助文件里面的代碼代碼如下

2 T$ E2 z  k" w+ I0 ^; z' C! n為何我復(fù)制代碼就出錯. z. G7 B$ @; n5 ]/ }8 Q
作者: yanhongbin78    時間: 2019-8-2 15:49
版本不同還不能直接選用的，樓主是哪版的？
作者: dallas99217    時間: 2019-11-17 11:12
學(xué)習(xí)一下
作者: 響在江湖    時間: 2020-1-6 21:47
chaomogu 發(fā)表于 2018-5-25 22:01
; h  _7 P8 g0 }3 N& V0 I9 S$ g為何我復(fù)制代碼就出錯

' E- d. y: f: p7 T我2015的可以用的: i# a2 [- f- i. A! Q' F& I2 {
作者: knight3732449    時間: 2021-7-15 19:55
看看，學(xué)習(xí)一下，攢攢威望
作者: suiyue443    時間: 2022-9-8 15:53
你好樓主 為何用這個宏導(dǎo)出的鈑金展開圖 有的孔大小不對？請問你有沒有遇到這個問題



歡迎光臨 機械社區(qū) (http://mg7058.com/) Powered by Discuz! X3.4