国产精品乱码一区-性开放网站-少妇又紧又爽视频-西西大胆午夜人体视频-国产极品一区-欧美成人tv-四虎av在线-国产无遮挡无码视频免费软件-中文字幕亚洲乱码熟女一区二区-日产精品一区二区三区在线观看-亚洲国产亚综合在线区-五月婷婷综合色-亚洲日本视频在线观看-97精品人人妻人人-久久久久久一区二区三区四区别墅-www.免费av-波多野结衣绝顶大高潮-日本在线a一区视频高清视频-强美女免费网站在线视频-亚洲永久免费

機械社區

標題: 求助,如何批量替換工程圖圖紙模板 [打印本頁]

作者: 余存    時間: 2015-9-30 11:37
標題: 求助,如何批量替換工程圖圖紙模板
本來是在自家加工的,很多公差啊,材料啊,因為和加工的師傅已經很熟悉了,機器也做了不少了,不需要標注,但是最近人手不夠了,所以零件要外發,外發的話工程圖圖紙格式要重新換過,幾十百把張圖重新畫的話會死人了。求大神幫忙,怎么批量替換工程圖圖紙模板?
  O" l  y. S8 o' N$ U0 ~
作者: 寂靜天花板    時間: 2015-9-30 12:02
你想公差這種東西,怎么可能批量。軟件知道哪個位置需要用什么樣的公差,你的不規范作圖是你挖坑造成的,只能由你自己來填坑。
作者: 余存    時間: 2015-10-8 16:23
我的意思是批量更換圖紙模板是為了方便寫編號。零件的編號都是已經在SW里弄好了的,但是很多舊圖紙里面沒有,零件編號這一欄,公差的話我會自己補上去的。
作者: 問天問地問自己    時間: 2015-12-28 21:04
余存 發表于 2015-10-8 16:23
. u% X. y4 l- g+ h7 a* Q* y3 H# o我的意思是批量更換圖紙模板是為了方便寫編號。零件的編號都是已經在SW里弄好了的,但是很多舊圖紙里面沒有 ...
- S) y+ D! [. {3 j; [0 X- X
lz最后是怎么處理的?
4 ?$ Y* B; n8 T/ U/ ]6 ~; x2 D% _5 G! p% F$ m+ A$ B4 C

作者: 余存    時間: 2015-12-29 09:43
問天問地問自己 發表于 2015-12-28 21:04
. f% |: d/ C; e) \8 K$ K  \lz最后是怎么處理的?

+ g( w4 ^- k: Z, }* |更改原來的模板,讓它有零件編號這一欄,然后進入圖紙格式編輯,進去,再退出來,零件編號自然就顯示了(前提是你已經在零件屬性里設置好了編號)。不過還是比較麻煩,要一張圖一張圖的來。但是時間花不了很多,比一張一張的畫圖快多了。- _! k: r9 f' u8 m+ T1 A3 K( t

作者: 問天問地問自己    時間: 2015-12-29 11:23
余存 發表于 2015-12-29 09:43
* q# L* V# _5 N" w/ c$ r更改原來的模板,讓它有零件編號這一欄,然后進入圖紙格式編輯,進去,再退出來,零件編號自然就顯示了( ...
% P9 T7 @+ b: z7 B3 w* Z; L) C
在模板中設置零件編號這一欄,在畫零件出工程圖的時候指定零件編號對應字符串的值;這樣就能夠自動顯示了吧。
  U' V$ A; M; B9 f( f4 O0 ]5 }9 Q& t" h; j) p
我是猜的,沒干過,可行么?
: y' T1 l. K2 Z0 `$ V6 J4 N# ~' G& m& x
作者: 余存    時間: 2015-12-29 11:36
我的順序是先畫零件,畫好零件以后修改好零件的屬性,包括材質,數量,編號,名稱等,再設置工程圖模板,最后出圖。
作者: steve_suich    時間: 2015-12-31 16:00
[attach]375272[/attach], l4 {3 B  R1 p8 L+ R

& \/ w4 s5 F1 t  L( x' x. h
/ n  W, W* E# G, d4 w
作者: steve_suich    時間: 2015-12-31 16:02
[attach]375273[/attach]
0 R+ t' z2 J/ p) e" e, @
8 l# e+ u; Q: R1 M; P- u0 V" s9 e; q) ]4 N1 f  G( Q+ G' i

作者: 余存    時間: 2015-12-31 16:30
steve_suich 發表于 2015-12-31 16:02

. \* w' f* H+ t# w9 S( N! D" P額。。。看不懂啊,大俠,這是啥?/ X8 b% G/ S4 g, u& H

作者: steve_suich    時間: 2015-12-31 16:40
本帖最后由 steve_suich 于 2015-12-31 16:41 編輯 . H$ ~( H! y3 Z6 ?2 y5 |# I
余存 發表于 2015-12-31 16:30
9 _3 `/ R9 w) \; J額。。。看不懂啊,大俠,這是啥?

" \7 p* p, b& o& H  {: R新建一個宏。 4 q2 C! H+ A6 z, }; D& Z

) U8 m  s0 ^- A0 v; F( E, w運行
" @/ B. ?3 t: g( }[attach]375280[/attach]
& U; m$ v3 H- |1 P. u
$ C9 g& x! h" A0 A
作者: 哈哈大校    時間: 2016-8-14 22:05
steve_suich 發表于 2015-12-31 16:00

+ b" i; @  |% N. ?您好!
, B! y) i, S' M$ Z% X4 d
. \& Z9 V" x1 v. o9 L
8 l- I3 Q- w# F% R這個我試著輸入過但是不行,您能否發個SWP格式的來呢?# \7 K/ @$ W  A# k
9 E( a5 S2 h4 A: b3 t! J$ k
萬分感謝!!0 g: Y' _( K( ^# i0 J+ O" K

作者: 楊楊_cpmUG    時間: 2016-8-16 08:28
steve_suich 發表于 2015-12-31 16:02

, m) {# Z$ D0 I7 ?) k+ K, q看著這回復,總覺得自己要學的很多. w1 q9 {& y7 Q6 w: @' X

作者: ziliangmo    時間: 2016-8-17 17:05
l樓主可以把修改好的標題欄(可以做鏈接)的圖紙保存好圖紙格式,A4-A1分別做一個,然后打開你要修改的圖紙,右鍵屬性,選擇相應大小的圖紙格式替換掉就ok了
作者: ziliangmo    時間: 2016-8-17 17:11
至于模板是改不了的,你可以在選項里設置好你的樣式,然后保存好繪圖標準,打開每張圖紙加載該樣式就可以了,反正每張圖紙你都要檢查修改公差等,順便更改一下圖紙格式和加載繪圖標準,就相當于換了模板和格式了
作者: kytool.cn    時間: 2016-8-18 17:49
我們之前有一款插件可以實現批量替換圖紙模板,肯定有這方面的工具,你可以問一下度娘:SolidWorks批量替換工程圖圖框,保證有收獲。
. n, K8 h* o7 e3 |" g6 r# `6 l
作者: 眸上有傷痕    時間: 2023-5-13 17:19
  到這里了下步怎么弄
作者: 眸上有傷痕    時間: 2023-5-13 17:20
Dim swApp As Object
' t1 z) [+ w; x+ `1 Q; b9 }
; O4 C7 w5 x& n+ }! C6 {3 U, K+ z* tDim Part As Object: M# r/ `9 U8 h8 _
Dim boolstatus As Boolean
# u: i- |0 N- ?- e1 K* wDim longstatus As Long, longwarnings As Long
* Q, F& t* \% Z2 ~( ?# X; zDim path As String
  f1 L  W8 m" t! i" @& JDim fname As String/ N) N+ x: _* _0 B9 f* m
Dim m As Integer! T* I1 [% d# o3 {0 a
Dim shname() As String: p5 o( P* _2 P, C5 b. `8 a5 l
, b2 q% Z( O# _, p
& a# M* X9 r! J  W4 u
Sub Main()
& z0 r7 R! h1 P" R/ s1 W$ Z% Q
/ B! b# H5 Y1 D6 K1 T3 oSet swApp = _
. ^/ [) ?* F$ k+ z! M/ gApplication.SldWorks( g* `; S! N8 Y1 W! c( S, g
path = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替換圖框")
) [; [1 [) J, W1 c# F+ T, Ufname = Dir(path & "*.slddew")' D" L/ a5 V% O9 _0 z. N, D
Do Until fname = ""
- I. O& D. o: j3 @; SSet Part = swApp.OpenDoc(path + fname, 3)
2 q* R, l! j3 CSet Part = swApp.ActiveDoc2 B" a% ^9 T2 a, i: k1 b0 [: O% z
shname = Part.GetSheeetNameS()2 p; v! ^6 ?# B
For m = 0 To Part.GetSheeetCount - 1+ k0 J) o% ~% N& J
     If Part.ActivateSheet(shname(m)) Then. V# l) J6 T2 h
     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _3 D/ r# q2 M! @5 @  l
     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
' a+ y* }. x3 f: B1 K8 Y  ~+ X     0.42, 0.297, "默認", True)
3 e+ a0 g* X6 q0 L9 ?% x; V    End If
. G! V5 m2 _8 s/ o- s/ C" F( c    Next
# u; Y( y/ p- wPart.Save1 E, r3 r, u6 C
swApp.CloseDoc (Part.GetTitle)# M6 R0 v+ Z$ w' E% B8 H4 F0 [' l
Set Part = Nothing
4 b: N7 o: n& Nfname = Dir
/ [5 ^, p0 j5 c2 i3 ULoop" L  D6 S& {5 J0 K1 L

* m% D4 \% @9 u3 L! ^End Sub




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