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

機械社區

標題: 關于solidworks轉換dwg的宏程序 [打印本頁]
作者: 響在江湖    時間: 2016-9-25 09:24
標題: 關于solidworks轉換dwg的宏程序
如題，最近本人在做鈑金件的下料圖準備傳送給車間水刀下料，可是圖紙太多了，而且每一張都是簡單的重復操作，操作內容如下：打開鈑金件——直接另存為dwg格式其它內容不變最后保存dwg圖紙——關閉當前圖紙。想錄制一個宏程序以便其它零件能更快的轉換，但本人才疏學淺，又沒專業的學習過VB，所以沒有成功。因此，想請教各位萬能的社友，這個宏程序是無法制作還是什么原因？或者誰有相關宏程序的麻煩分享一下，十分感謝解答！# v/ G3 w% g& _  w& `/ ?4 u5 ~$ Y
作者: albert.tang    時間: 2016-9-25 15:50
SW打開后不是要先展開然后再保存平板件到DWG？還有正反面怎么確定？
作者: 未來第一站    時間: 2016-9-25 15:58
默認的選項怎么處理？
作者: 零度freedom    時間: 2016-9-25 16:10
從零件直接轉到CAD就不知道怎么一步到位了，要是多個工程圖轉CAD那可以試下solidworks 工具--soldworks task scheduler
作者: 響在江湖    時間: 2016-9-28 20:57
albert.tang 發表于 2016-9-25 15:50
7 g0 \8 F/ r: u  |5 \. HSW打開后不是要先展開然后再保存平板件到DWG？還有正反面怎么確定？

, a8 G; Z& Z: n9 i* ~不用展開，直接保存成dwg就自動是平板模式了，無需區分正反面，沒折彎之前兩面都一樣。
& u) x: c" m/ B& Y+ J
作者: 響在江湖    時間: 2016-9-28 20:59
未來第一站 發表于 2016-9-25 15:580 }/ I" Q) _/ B& G& `
默認的選項怎么處理？

2 e$ F+ ]6 t! V! S3 ~5 w* r1 |就是默認的就可以啊
" v- p% A& \; b- R7 S1 p, U
作者: 響在江湖    時間: 2016-9-28 21:01
零度freedom 發表于 2016-9-25 16:10
. R8 H+ u' h- W9 a從零件直接轉到CAD就不知道怎么一步到位了，要是多個工程圖轉CAD那可以試下solidworks 工具--soldworks tas ...

3 O9 ]7 u* A2 [1 f嗯，這個我知道，而且還可以做成宏，不過我要的只是展開下料圖，其它的都是多余的還得一一刪除。。, d: @3 s6 U% ]/ U2 o  t$ m
作者: 響在江湖    時間: 2016-9-28 21:01
大神在哪里？
作者: 響在江湖    時間: 2016-10-3 15:07
十一都休息了，還是自己頂上去，希望有高人可以指點
作者: DaveChan    時間: 2016-10-4 08:22
響在江湖 發表于 2016-10-3 15:071 e9 T: f$ d0 `9 \7 A0 Z
十一都休息了，還是自己頂上去，希望有高人可以指點
5 |9 q  R* o' ]3 {
給你兩個函數參考
, G" ]% ~9 _5 Z: O3 Z可以自己查找API* c* C3 j3 }( x0 q
  1. ExportToDWG
復制代碼
  1. ExportFlatPatternView
復制代碼
這兩個函數都可以實現你要的功能
8 }0 D! O+ l" r# k- ?' \并且API都有例子3 a, C5 V0 u& M. J# |* N

2 G( g' R* t# a, I  ?: I: D
作者: 響在江湖    時間: 2016-10-13 20:09
DaveChan 發表于 2016-10-4 08:22. _! k5 E: M  ]6 |' K
給你兩個函數參考, r) W2 Z* I7 R/ E" A
可以自己查找API; G9 \* C( W$ n+ p6 c: ~3 n
這兩個函數都可以實現你要的功能

$ ?7 i+ o7 i: H$ z4 P首先感謝社友回復，不過你發的這個怎么復制到txt中呀？復制代碼后只有“”ExportToDWG“這個。6 m$ S6 M; ~  m: _' v/ s
還有API是什么？請指教。2 Z" G7 n7 m/ f9 u, t" J
作者: DaveChan    時間: 2016-10-13 21:17
響在江湖 發表于 2016-10-13 20:09+ G. [- P! x1 J8 V  S$ L5 p
首先感謝社友回復，不過你發的這個怎么復制到txt中呀？復制代碼后只有“”ExportToDWG“這個。1 x9 x5 ]/ u! K
還有API ...
) ^$ d/ V* h& i, c# J
稍微修改了幫助文件里面的代碼代碼如下
; g! n. ~5 d8 t. l
  1. Option Explicit
      U, c; V, U: @8 [8 J" e1 W
  2. Dim swApp As SldWorks.SldWorks! L) y" Y& K& n& y4 n+ V5 z
  3. Dim swModel As SldWorks.ModelDoc2
    5 e: D( d5 j3 x) c5 r1 ?
  4. Dim swModelDocExt As SldWorks.ModelDocExtension) d4 O' z% b: G# Y3 D1 D; \
  5. Dim FileName As String
    5 w; e& ?' R( [
  6. Dim NewName As String
    0 T5 q! }+ C6 r- i7 {8 l
  7. Dim boolstatus As Boolean
    4 E4 a+ Y& u% T+ r
  8. Dim longstatus As Long, longwarnings As Long2 O1 N+ i5 m# ]9 I/ ^  {
  9. Sub main()
    4 x5 T, G, D. P5 v4 W# Q4 {
  10. Set swApp = Application.SldWorks
    , N8 }5 }! Z. A) t; u/ c
  11. Set swModel = swApp.ActiveDoc
    - |6 \# u8 E5 `6 X5 J5 q  v9 E; A  J- ^
  12. Set swModelDocExt = swModel.Extension, P# M7 _/ Y5 d  |/ o
  13. FileName = swModel.GetPathName()
    2 ?& d2 X3 B* w6 g
  14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    ) _/ Q8 c- M5 g: f
  15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
    ; v0 d+ z' ^" A' J; A! Y$ w4 d8 ~
  16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings- ]. G3 Q! n! b5 H
  17. End Sub
    ! n4 d" g" r$ V7 _! Z2 O
復制代碼
. N7 r. l4 F' n& \8 T
9 R1 P2 k, @4 B, f+ B, N
作者: 響在江湖    時間: 2016-10-20 21:47
DaveChan 發表于 2016-10-13 21:17
" r! `1 n- _% {  E3 H, B6 `- s稍微修改了幫助文件里面的代碼代碼如下

( R6 f+ Q. z/ ~' T5 @社區果然有高手存在啊！為社區有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問題，不過因為是水刀下料，可不可以轉換后不要折彎線？就像默認的那樣。忘高手進一步解答。再次感謝！
; P  T$ H/ D6 I$ P5 T+ l* [
作者: DaveChan    時間: 2016-10-21 13:49
響在江湖 發表于 2016-10-20 21:474 Q' C: Z3 [: x- M" F
社區果然有高手存在啊！為社區有這樣為人解惑的人存在感到欣慰！真心感謝為我解決頭疼的問題，不過因為是 ...

. j. b0 t3 e. D* Q: t' z移除折彎線代碼如下：
( v: M! [) F% t3 ?
  1. Option Explicit+ |  @% L. E  S. h9 M3 H+ r
  2. Dim swApp As SldWorks.SldWorks; V8 N, p/ D. F$ a
  3. Dim swModel As SldWorks.ModelDoc2
    7 _- B: [6 K# m7 M  E! ?- x
  4. Dim swModelDocExt As SldWorks.ModelDocExtension( V- w6 S+ d. M( @) p
  5. Dim FileName As String
    7 Q$ s! ~% l. s$ H' z
  6. Dim NewName As String+ \: x' e/ y; c6 v* n
  7. Dim boolstatus As Boolean5 A4 c. r- F- S% z& M. _
  8. Dim longstatus As Long, longwarnings As Long1 D3 v3 w5 q0 N0 C( Q/ K$ ~8 g" M
  9. Sub main()
    ; d: o7 ^$ w/ A' W
  10. Set swApp = Application.SldWorks
    , |5 |4 n' `: w+ j
  11. Set swModel = swApp.ActiveDoc
    ( k- U$ M! S' \3 b$ j! X
  12. Set swModelDocExt = swModel.Extension
    9 B4 Z" k9 P# k1 I( ]
  13. FileName = swModel.GetPathName()
    : ^' u% V5 h8 t4 P- m$ f
  14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"1 u9 _8 O& K$ i- B- X. Q! R' ~
  15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)! p5 R  t9 E8 R4 T
  16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings" W- E& v* F& r; d
  17. End Sub( m1 [5 k* ?! |/ I: ?
復制代碼
0 v' i. Z- G( m

5 v7 \- i, {+ r7 Y' v
作者: tyne1314    時間: 2016-10-22 14:03
能把這個宏分享一下么？這可以方便做鈑金展開的朋友們呀，謝謝
作者: 響在江湖    時間: 2016-10-23 10:25
tyne1314 發表于 2016-10-22 14:03
/ |* E3 T( e: Q1 n# E5 p3 f- K& x能把這個宏分享一下么？這可以方便做鈑金展開的朋友們呀，謝謝

* a2 Z  m3 M% k# T0 B我試試啊. E* q* _9 E5 {
作者: 響在江湖    時間: 2016-10-23 10:26
DaveChan 發表于 2016-10-21 13:498 R" k5 j! B+ R2 M* _4 ?* E8 E
移除折彎線代碼如下：

) O' ~, x0 C6 Y: n太牛了！真心感謝，應社友要求共享該程序不知這個借花獻佛可以不？呵呵
: V3 s, I. a5 u
作者: 響在江湖    時間: 2016-10-23 10:27
tyne1314 發表于 2016-10-22 14:03
; T" G! e* V' a2 i- y: L- }2 D能把這個宏分享一下么？這可以方便做鈑金展開的朋友們呀，謝謝
0 A, ]& Y# S3 d( g  R8 K) k
你是專門學過VB嗎？還是也是錄制的宏程序？
( P" E" F  \3 k
作者: DaveChan    時間: 2016-10-23 10:34
響在江湖 發表于 2016-10-23 10:27# C3 U8 X2 h) m: `
你是專門學過VB嗎？還是也是錄制的宏程序？

; H, ~  i' x& B# g% }5 L) r可以共享的，這些代碼是API幫助現成的，我只是稍微更改了一下，符合你的要求而已
& l( |; N; U, |5 T) U, A9 b
9 `6 a4 d* A5 i' P; g我編程只是業余愛好而已，不專業
$ x6 w% X4 ~  A6 l( P7 A, c- s( ?; @) l6 B
作者: leilei333    時間: 2017-12-4 23:46
頂一萬個贊
作者: chaomogu    時間: 2018-5-25 22:01
DaveChan 發表于 2016-10-13 21:17& u) @& p" y0 l( a' N2 U" F
稍微修改了幫助文件里面的代碼代碼如下

6 M* n$ i  Y0 R為何我復制代碼就出錯
1 y# s$ w- v' V/ M: U* Q
作者: yanhongbin78    時間: 2019-8-2 15:49
版本不同還不能直接選用的，樓主是哪版的？
作者: dallas99217    時間: 2019-11-17 11:12
學習一下
作者: 響在江湖    時間: 2020-1-6 21:47
chaomogu 發表于 2018-5-25 22:01
+ g. w. ~! Q/ B0 N; F. y為何我復制代碼就出錯
4 T4 C' x3 C- S$ B5 C
我2015的可以用的# v: ~; ~* b% K: N
作者: knight3732449    時間: 2021-7-15 19:55
看看，學習一下，攢攢威望
作者: suiyue443    時間: 2022-9-8 15:53
你好樓主 為何用這個宏導出的鈑金展開圖 有的孔大小不對？請問你有沒有遇到這個問題



歡迎光臨 機械社區 (http://www.ytsybjq.com/) Powered by Discuz! X3.5