亚洲欧美日韩国产一区二区精品_亚洲国产精品一区二区动图_级婬片A片手机免费播放_亚洲国产成人Av毛片大全,男女爱爱好爽好疼视频免费,中文日韩AV在线,无码视频免费,欧美在线观看成人高清视频,在线播放免费人成毛片,成 人 网 站 在 线 视 频A片 ,亚洲AV成人精品一区二区三区

機(jī)械社區(qū)

標(biāo)題: 關(guān)于solidworks轉(zhuǎn)換dwg的宏程序 [打印本頁]
作者: 響在江湖    時(shí)間: 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)前圖紙,。想錄制一個(gè)宏程序以便其它零件能更快的轉(zhuǎn)換,，但本人才疏學(xué)淺，又沒專業(yè)的學(xué)習(xí)過VB,，所以沒有成功,。因此，想請教各位萬能的社友，這個(gè)宏程序是無法制作還是什么原因,？或者誰有相關(guān)宏程序的麻煩分享一下,，十分感謝解答！
# ^- ~" W4 d5 ?' [6 I/ ~
作者: albert.tang    時(shí)間: 2016-9-25 15:50
SW打開后不是要先展開然后再保存平板件到DWG,？還有正反面怎么確定,？
作者: 未來第一站    時(shí)間: 2016-9-25 15:58
默認(rèn)的選項(xiàng)怎么處理？
作者: 零度freedom    時(shí)間: 2016-9-25 16:10
從零件直接轉(zhuǎn)到CAD就不知道怎么一步到位了,，要是多個(gè)工程圖轉(zhuǎn)CAD那可以試下solidworks 工具--soldworks task scheduler
作者: 響在江湖    時(shí)間: 2016-9-28 20:57
albert.tang 發(fā)表于 2016-9-25 15:50
+ r- g! o: P* W) w3 {SW打開后不是要先展開然后再保存平板件到DWG,？還有正反面怎么確定？
3 F1 n: f# ]& U8 G7 i- n  a4 L& l; ?
不用展開,，直接保存成dwg就自動(dòng)是平板模式了,，無需區(qū)分正反面，沒折彎之前兩面都一樣,。
9 y9 A: ]8 B4 ~1 T
作者: 響在江湖    時(shí)間: 2016-9-28 20:59
未來第一站 發(fā)表于 2016-9-25 15:58
1 C: B" Y9 W( C1 b# b# W  \默認(rèn)的選項(xiàng)怎么處理,？
; Q2 \, c! e7 J+ `) p
就是默認(rèn)的就可以啊
5 `2 x6 e! D. d; b) n
作者: 響在江湖    時(shí)間: 2016-9-28 21:01
零度freedom 發(fā)表于 2016-9-25 16:10
9 n) J, E' c; Q4 E8 i6 e6 A從零件直接轉(zhuǎn)到CAD就不知道怎么一步到位了，要是多個(gè)工程圖轉(zhuǎn)CAD那可以試下solidworks 工具--soldworks tas ...
: ~. E3 Z6 O0 m3 C  _* J3 E
嗯,，這個(gè)我知道,，而且還可以做成宏,，不過我要的只是展開下料圖,，其它的都是多余的還得一一刪除。,。! X/ H. ~  G: B! O
作者: 響在江湖    時(shí)間: 2016-9-28 21:01
大神在哪里,？
作者: 響在江湖    時(shí)間: 2016-10-3 15:07
十一都休息了，還是自己頂上去,，希望有高人可以指點(diǎn)
作者: DaveChan    時(shí)間: 2016-10-4 08:22
響在江湖 發(fā)表于 2016-10-3 15:07
/ h$ p1 r4 ?: j; Q4 X# ]# d% X十一都休息了,，還是自己頂上去，希望有高人可以指點(diǎn)

% K% j6 F4 W5 |  D/ z& A! k給你兩個(gè)函數(shù)參考
! V" D7 j' L. @2 M2 K: |可以自己查找API8 L6 P- t! v$ g, k
  1. ExportToDWG
復(fù)制代碼
  1. ExportFlatPatternView
復(fù)制代碼
這兩個(gè)函數(shù)都可以實(shí)現(xiàn)你要的功能5 S# p' B" t) P( _7 q% O7 Y
并且API都有例子' O0 R. x( J$ U) s6 R: Z
+ ^! m: k& W- E" a" k. }( B# g
作者: 響在江湖    時(shí)間: 2016-10-13 20:09
DaveChan 發(fā)表于 2016-10-4 08:22
+ P! v; w% K& s' c! ^) _8 u/ I4 r給你兩個(gè)函數(shù)參考
- H; N( O; P8 J: J4 w5 @* {可以自己查找API
& n3 M4 h  u% o5 ^5 a這兩個(gè)函數(shù)都可以實(shí)現(xiàn)你要的功能
, p; h1 C- s1 [' v2 O& G
首先感謝社友回復(fù),，不過你發(fā)的這個(gè)怎么復(fù)制到txt中呀,？復(fù)制代碼后只有“”ExportToDWG“這個(gè)。! }8 [5 f, G$ n+ S3 C2 D% v
還有API是什么,？請指教,。( z% m. F2 f9 c$ p+ n. @0 R* ]
作者: DaveChan    時(shí)間: 2016-10-13 21:17
響在江湖 發(fā)表于 2016-10-13 20:09
* N4 t. M4 A8 R2 r0 R* [! u- z首先感謝社友回復(fù)，不過你發(fā)的這個(gè)怎么復(fù)制到txt中呀,？復(fù)制代碼后只有“”ExportToDWG“這個(gè),。
; b6 Z0 B4 F/ z. o, w0 U, ^還有API ...
; t8 `7 G) k' \# p7 g' j" W
稍微修改了幫助文件里面的代碼代碼如下
& d. R1 s! W1 O; q1 W. A0 c
  1. Option Explicit
    ; n' E7 P, z. T) q0 q; s0 ~  X4 |
  2. Dim swApp As SldWorks.SldWorks
    , p9 G4 V/ F2 @
  3. Dim swModel As SldWorks.ModelDoc24 Q- y2 W4 K! w& Y9 V
  4. Dim swModelDocExt As SldWorks.ModelDocExtension
    3 C! I( g, u9 x* j1 b% `% M/ Q' M
  5. Dim FileName As String
    4 r9 A. C; A" ]4 g9 C
  6. Dim NewName As String4 K9 @+ Y+ l- J( Z& H7 |
  7. Dim boolstatus As Boolean
    & Y+ @, O2 M* q. k: I& Q
  8. Dim longstatus As Long, longwarnings As Long9 {7 R: g1 h) i0 E+ B0 ?
  9. Sub main()
    0 N# H5 s  g4 L9 ~' N& p/ m3 i
  10. Set swApp = Application.SldWorks1 h  V' M9 O2 D1 y( l9 B7 |
  11. Set swModel = swApp.ActiveDoc+ H% e* R' F. J6 \
  12. Set swModelDocExt = swModel.Extension
    - J& K! [  j( D/ o, F. H
  13. FileName = swModel.GetPathName()
    ; p1 F) q) P7 z3 U3 }& F! s
  14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    $ ]2 u$ |% c  S/ H; F
  15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
    - X# i9 Q; M: f
  16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    + b$ {4 I# N8 |0 n. ~; m$ R
  17. End Sub
    ( M: V4 ]0 H3 K) z1 S
復(fù)制代碼
" S& j! ?4 K6 B& R! V

0 z+ [# N" V) z3 q- E7 X" T
作者: 響在江湖    時(shí)間: 2016-10-20 21:47
DaveChan 發(fā)表于 2016-10-13 21:17) E0 H7 e' h* i8 E9 u6 k% V
稍微修改了幫助文件里面的代碼代碼如下

- u0 A' R7 ^! y* D- \! u- x' [% U社區(qū)果然有高手存在啊,！為社區(qū)有這樣為人解惑的人存在感到欣慰,！真心感謝為我解決頭疼的問題，不過因?yàn)槭撬断铝希刹豢梢赞D(zhuǎn)換后不要折彎線,？就像默認(rèn)的那樣,。忘高手進(jìn)一步解答。再次感謝,！
) e/ ]. r: Z" ]
作者: DaveChan    時(shí)間: 2016-10-21 13:49
響在江湖 發(fā)表于 2016-10-20 21:47' ^9 |& Z7 R& |. C
社區(qū)果然有高手存在�,。樯鐓^(qū)有這樣為人解惑的人存在感到欣慰,！真心感謝為我解決頭疼的問題,，不過因?yàn)槭?...
6 o, i8 P# V3 ]; i
移除折彎線代碼如下：
. i5 ^8 i6 C+ A# Z6 ]5 h
  1. Option Explicit
    , N( b* k$ u3 q8 P, [/ `
  2. Dim swApp As SldWorks.SldWorks
    * |2 q  S. s- B+ I$ E, I8 ~7 p
  3. Dim swModel As SldWorks.ModelDoc28 J8 B. L" V5 v* e- z( t8 n
  4. Dim swModelDocExt As SldWorks.ModelDocExtension9 \/ C) h  a7 ?2 h' P
  5. Dim FileName As String
    . m& i! t# A% x% ]; k# x6 j3 M& e
  6. Dim NewName As String
    0 j  k) X  O  a
  7. Dim boolstatus As Boolean
    + E0 c2 r, f- r. j+ d1 ^' p
  8. Dim longstatus As Long, longwarnings As Long. a  [* a7 O6 e. q
  9. Sub main()% h; g( W( X' M3 N5 [* n0 q: Z9 W* F
  10. Set swApp = Application.SldWorks: |" @' u" `% e
  11. Set swModel = swApp.ActiveDoc/ x7 M' K1 |4 _! N* ]! {: U
  12. Set swModelDocExt = swModel.Extension' b: E$ f" U% R6 Z; |6 H9 N
  13. FileName = swModel.GetPathName()
    2 f, l/ y5 `& j% Z  [$ C0 L. v
  14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    0 K1 _3 N8 {( Y+ _. H1 t. c% C
  15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)( t( V( D. q# ~
  16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    & t2 h- o; W/ T  C) e
  17. End Sub
    ! H. Z& N+ J! p# x
復(fù)制代碼

+ ]( K$ P) o. I; ?
4 r' i4 E" d9 P; I
作者: tyne1314    時(shí)間: 2016-10-22 14:03
能把這個(gè)宏分享一下么？這可以方便做鈑金展開的朋友們呀,，謝謝
作者: 響在江湖    時(shí)間: 2016-10-23 10:25
tyne1314 發(fā)表于 2016-10-22 14:035 M% X' K- g6 I, j4 n4 k  m
能把這個(gè)宏分享一下么,？這可以方便做鈑金展開的朋友們呀，謝謝

5 e6 Q; T) P. ]- ?4 R我試試啊9 ?4 E. V) [2 X& ^2 ], }: o, t
作者: 響在江湖    時(shí)間: 2016-10-23 10:26
DaveChan 發(fā)表于 2016-10-21 13:492 N- h/ y6 J$ E: Q) d! S' M0 C  f
移除折彎線代碼如下：

7 D% c5 P: M, k7 p. A; Y- {太牛了,！真心感謝,，應(yīng)社友要求共享該程序不知這個(gè)借花獻(xiàn)佛可以不？呵呵
8 M3 N+ P; |- @) M( ~- I
作者: 響在江湖    時(shí)間: 2016-10-23 10:27
tyne1314 發(fā)表于 2016-10-22 14:034 M3 P3 t3 o: Q7 w7 {
能把這個(gè)宏分享一下么,？這可以方便做鈑金展開的朋友們呀,，謝謝

# o' C3 O9 q/ h3 f& u4 h你是專門學(xué)過VB嗎？還是也是錄制的宏程序,？
  F& k- Y5 t5 Y! z7 |, e
作者: DaveChan    時(shí)間: 2016-10-23 10:34
響在江湖 發(fā)表于 2016-10-23 10:27: r) i" K3 C& g/ F1 h3 y% G: I' p
你是專門學(xué)過VB嗎,？還是也是錄制的宏程序？

% @* ?& K4 [& D; t, \可以共享的,，這些代碼是API幫助現(xiàn)成的,，我只是稍微更改了一下，符合你的要求而已
) s! |+ j2 q) n
5 |  Q  d( t; a- b我編程只是業(yè)余愛好而已,，不專業(yè)
: T6 E9 O9 e" B- G
% w; y( t7 \, w; V
作者: leilei333    時(shí)間: 2017-12-4 23:46
頂一萬個(gè)贊
作者: chaomogu    時(shí)間: 2018-5-25 22:01
DaveChan 發(fā)表于 2016-10-13 21:17
0 ?: g6 d7 h: O: {稍微修改了幫助文件里面的代碼代碼如下

! J! e$ u* p2 P為何我復(fù)制代碼就出錯(cuò)/ h' q4 v' O7 i4 m: [! x/ J
作者: yanhongbin78    時(shí)間: 2019-8-2 15:49
版本不同還不能直接選用的,，樓主是哪版的？
作者: dallas99217    時(shí)間: 2019-11-17 11:12
學(xué)習(xí)一下
作者: 響在江湖    時(shí)間: 2020-1-6 21:47
chaomogu 發(fā)表于 2018-5-25 22:01! J+ L  {5 W: Z) s
為何我復(fù)制代碼就出錯(cuò)

% n! y4 k0 }; M4 m; ~我2015的可以用的3 _# c6 y+ S7 {+ y
作者: knight3732449    時(shí)間: 2021-7-15 19:55
看看,，學(xué)習(xí)一下,，攢攢威望
作者: suiyue443    時(shí)間: 2022-9-8 15:53
你好樓主 為何用這個(gè)宏導(dǎo)出的鈑金展開圖 有的孔大小不對？請問你有沒有遇到這個(gè)問題



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