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

機械社區

標題: 求助，如何批量替換工程圖圖紙模板 [打印本頁]
作者: 余存    時間: 2015-9-30 11:37
標題: 求助，如何批量替換工程圖圖紙模板
本來是在自家加工的，很多公差啊，材料啊，因為和加工的師傅已經很熟悉了，機器也做了不少了，不需要標注，但是最近人手不夠了，所以零件要外發，外發的話工程圖圖紙格式要重新換過，幾十百把張圖重新畫的話會死人了。求大神幫忙，怎么批量替換工程圖圖紙模板？* p! d  d% f5 p0 p  W1 k
作者: 寂靜天花板    時間: 2015-9-30 12:02
你想公差這種東西，怎么可能批量。軟件知道哪個位置需要用什么樣的公差，你的不規范作圖是你挖坑造成的，只能由你自己來填坑。
作者: 余存    時間: 2015-10-8 16:23
我的意思是批量更換圖紙模板是為了方便寫編號。零件的編號都是已經在SW里弄好了的，但是很多舊圖紙里面沒有，零件編號這一欄，公差的話我會自己補上去的。
作者: 問天問地問自己    時間: 2015-12-28 21:04
余存 發表于 2015-10-8 16:23
2 F8 Y, o; B4 c0 V' P) c我的意思是批量更換圖紙模板是為了方便寫編號。零件的編號都是已經在SW里弄好了的，但是很多舊圖紙里面沒有 ...

* S( j4 `! D- ^lz最后是怎么處理的？( U4 w8 T$ `( x- V
+ U- }; m- r  ?" F9 v/ E1 _4 ^
作者: 余存    時間: 2015-12-29 09:43
問天問地問自己 發表于 2015-12-28 21:04 1 q0 H9 T1 l$ N; p- U! N
lz最后是怎么處理的？
( ?/ y9 e% ~% [
更改原來的模板，讓它有零件編號這一欄，然后進入圖紙格式編輯，進去，再退出來，零件編號自然就顯示了（前提是你已經在零件屬性里設置好了編號）。不過還是比較麻煩，要一張圖一張圖的來。但是時間花不了很多，比一張一張的畫圖快多了。
( T+ @2 p3 }7 d9 A; N
作者: 問天問地問自己    時間: 2015-12-29 11:23
余存 發表于 2015-12-29 09:43
- R% @2 L1 |3 M, r更改原來的模板，讓它有零件編號這一欄，然后進入圖紙格式編輯，進去，再退出來，零件編號自然就顯示了（ ...

# B9 P* ]8 T6 }* }1 v6 B. v在模板中設置零件編號這一欄，在畫零件出工程圖的時候指定零件編號對應字符串的值；這樣就能夠自動顯示了吧。; q8 x7 W; F2 `
7 K6 W" J. v! M: Y% C! e! U
我是猜的，沒干過，可行么？% A# Z# O( G0 J  Z' f% S8 l% P
作者: 余存    時間: 2015-12-29 11:36
我的順序是先畫零件，畫好零件以后修改好零件的屬性，包括材質，數量，編號，名稱等，再設置工程圖模板，最后出圖。
作者: steve_suich    時間: 2015-12-31 16:00
[attach]375272[/attach]
0 I% q, d9 ^$ G, T, b) `6 K/ N& T5 Q9 d% ~* |
* {: p& P* L& g! }' n
作者: steve_suich    時間: 2015-12-31 16:02
[attach]375273[/attach]+ `( r% C: ?& |1 P8 I0 N' v

3 [2 E; g9 i8 A  _& `" V. C- l" B/ y, b, r# y. B3 K
作者: 余存    時間: 2015-12-31 16:30
steve_suich 發表于 2015-12-31 16:02
$ l. t- q" ?7 Y+ H
額。。。看不懂啊，大俠，這是啥？
. l- z0 [' B* ~( \* g! N8 T* }6 L
作者: steve_suich    時間: 2015-12-31 16:40
本帖最后由 steve_suich 于 2015-12-31 16:41 編輯 7 B1 Z+ _- K: [+ C+ x4 i: ?9 V
余存 發表于 2015-12-31 16:30 $ g. f6 i5 J0 |+ d4 `' m% t! n: e  m
額。。?？床欢?，大俠，這是啥？

/ C8 s* A, x# l; G' @% B新建一個宏。 " l; z$ f+ _. B2 ]7 t0 w  h
8 M* J. ~( }: E- l/ x
運行
3 Z, R: t3 \% H% [$ f  G' P) R[attach]375280[/attach]
; S0 L8 ?3 I9 O# q' [4 W( ~, v$ K
. C  ]1 H3 a3 G& m
作者: 哈哈大校    時間: 2016-8-14 22:05
steve_suich 發表于 2015-12-31 16:00

  p% |8 n$ k# ]# J8 n( m您好！0 ^3 X2 z. ~; H. q! T( Z1 V0 h+ z0 W2 w

; u; Y; g6 n! c6 \& n$ N
' N, W5 g) m5 T這個我試著輸入過但是不行，您能否發個SWP格式的來呢？2 [% j% f+ b6 O
5 H4 h& Q9 A, C1 ~1 H( M- D
萬分感謝！！
8 t; ?" m; L$ j. }  G# \' u
作者: 楊楊_cpmUG    時間: 2016-8-16 08:28
steve_suich 發表于 2015-12-31 16:02
" r& |& y# G, N3 T
看著這回復，總覺得自己要學的很多0 J3 `3 R8 X* X; D
作者: ziliangmo    時間: 2016-8-17 17:05
l樓主可以把修改好的標題欄（可以做鏈接）的圖紙保存好圖紙格式，A4-A1分別做一個，然后打開你要修改的圖紙，右鍵屬性，選擇相應大小的圖紙格式替換掉就ok了
作者: ziliangmo    時間: 2016-8-17 17:11
至于模板是改不了的，你可以在選項里設置好你的樣式，然后保存好繪圖標準，打開每張圖紙加載該樣式就可以了，反正每張圖紙你都要檢查修改公差等，順便更改一下圖紙格式和加載繪圖標準，就相當于換了模板和格式了
作者: kytool.cn    時間: 2016-8-18 17:49
我們之前有一款插件可以實現批量替換圖紙模板，肯定有這方面的工具，你可以問一下度娘：SolidWorks批量替換工程圖圖框，保證有收獲。
; l9 E/ t. e/ D# E4 |4 i
作者: 眸上有傷痕    時間: 2023-5-13 17:19
  到這里了下步怎么弄
作者: 眸上有傷痕    時間: 2023-5-13 17:20
Dim swApp As Object8 ^' ?: F5 N* l

" o7 s2 Q- [# i4 N% f' _) V1 L! EDim Part As Object5 g  s( t- R7 X1 I8 `/ C; g' \( r8 G
Dim boolstatus As Boolean4 c6 w3 T" d  Q! ~5 E& e
Dim longstatus As Long, longwarnings As Long
# d  {  @( Z+ xDim path As String/ T$ K/ r" V' ]( T( U
Dim fname As String# a3 e; |) _) p5 s5 U5 b
Dim m As Integer7 k4 @% H; B! R' S/ F% m3 `
Dim shname() As String
! I+ V8 ]5 c1 h8 I" V# R
; A% _9 D3 n: H. d  z! j/ I: X- `/ N1 T! t
Sub Main(), I& K; O9 I, T5 K1 G

- w1 h7 K+ N5 o: V/ o7 T( D% U$ tSet swApp = _- N6 J+ _- v- P; b. D' G0 h! s
Application.SldWorks# k" b/ Y, o: Y9 Z
path = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替換圖框")' P6 c+ |& H; D2 f4 }9 n' T7 ~( {
fname = Dir(path & "*.slddew")
. X5 {" C6 \1 i5 C/ Q+ CDo Until fname = """ J/ s4 C/ a2 w8 q4 R) N& b
Set Part = swApp.OpenDoc(path + fname, 3). |3 p, _. \2 W
Set Part = swApp.ActiveDoc
; c* \1 T0 }! U& Z' n  cshname = Part.GetSheeetNameS()
" K8 T7 s, V9 s3 TFor m = 0 To Part.GetSheeetCount - 1
! i- O# v6 X  d6 u8 O     If Part.ActivateSheet(shname(m)) Then1 s( K$ A; {8 W4 p+ I6 B5 r$ S
     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _% Z/ q9 }" k. X; |4 m8 Q% X
     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _7 K+ X3 Z+ Z( n' ~
     0.42, 0.297, "默認", True)4 r$ X* H" N! D
    End If
9 D* S/ u& T" d' A    Next
$ K4 v- c$ N& \" M! ^Part.Save& [9 W7 d. P0 t- j  K- M/ B3 B
swApp.CloseDoc (Part.GetTitle)1 u3 Z* L+ D: ~; q
Set Part = Nothing" C7 t' @$ P- c
fname = Dir
8 m9 v1 l0 t6 U- l7 J- n* DLoop+ j, I  U; Z9 {3 _8 ]: U1 N
6 s( G# k+ [% @5 Q. F; J
End Sub



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