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

標(biāo)題: 求助，如何批量替換工程圖圖紙模板 [打印本頁]
作者: 余存    時間: 2015-9-30 11:37
標(biāo)題: 求助，如何批量替換工程圖圖紙模板
本來是在自家加工的，很多公差啊，材料啊，因?yàn)楹图庸さ膸煾狄呀?jīng)很熟悉了，機(jī)器也做了不少了，不需要標(biāo)注，但是最近人手不夠了，所以零件要外發(fā)，外發(fā)的話工程圖圖紙格式要重新?lián)Q過，幾十百把張圖重新畫的話會死人了。求大神幫忙，怎么批量替換工程圖圖紙模板？" {7 U. U1 i# g! x% R7 C3 Z1 a% \
作者: 寂靜天花板    時間: 2015-9-30 12:02
你想公差這種東西，怎么可能批量。軟件知道哪個位置需要用什么樣的公差，你的不規(guī)范作圖是你挖坑造成的，只能由你自己來填坑。
作者: 余存    時間: 2015-10-8 16:23
我的意思是批量更換圖紙模板是為了方便寫編號。零件的編號都是已經(jīng)在SW里弄好了的，但是很多舊圖紙里面沒有，零件編號這一欄，公差的話我會自己補(bǔ)上去的。
作者: 問天問地問自己    時間: 2015-12-28 21:04
余存 發(fā)表于 2015-10-8 16:23
$ H. M7 I  g' T1 }9 V: J; R, t我的意思是批量更換圖紙模板是為了方便寫編號。零件的編號都是已經(jīng)在SW里弄好了的，但是很多舊圖紙里面沒有 ...
, `$ n; P$ q# u; A
lz最后是怎么處理的？& R1 B) W! a+ j- N" E9 A0 ?7 J& \

% ]5 K4 @1 a4 w' V/ t9 r
作者: 余存    時間: 2015-12-29 09:43
問天問地問自己 發(fā)表于 2015-12-28 21:04 ; m2 [) i5 ?: g0 n, k2 |
lz最后是怎么處理的？

! t( s" B3 A9 q$ ~更改原來的模板，讓它有零件編號這一欄，然后進(jìn)入圖紙格式編輯，進(jìn)去，再退出來，零件編號自然就顯示了（前提是你已經(jīng)在零件屬性里設(shè)置好了編號）。不過還是比較麻煩，要一張圖一張圖的來。但是時間花不了很多，比一張一張的畫圖快多了。
5 n8 c' |1 S( E" @$ Q2 `
作者: 問天問地問自己    時間: 2015-12-29 11:23
余存 發(fā)表于 2015-12-29 09:43 # N$ a/ ?% q) q9 j
更改原來的模板，讓它有零件編號這一欄，然后進(jìn)入圖紙格式編輯，進(jìn)去，再退出來，零件編號自然就顯示了（ ...
4 r3 `' Z; m/ e; K  a
在模板中設(shè)置零件編號這一欄，在畫零件出工程圖的時候指定零件編號對應(yīng)字符串的值；這樣就能夠自動顯示了吧。# e" D# _# e& U: g6 N& Z# P2 ~4 h

7 b) e. W7 d9 r4 \" b: D. p我是猜的，沒干過，可行么？
8 Z5 r# g. n$ M% F. v
作者: 余存    時間: 2015-12-29 11:36
我的順序是先畫零件，畫好零件以后修改好零件的屬性，包括材質(zhì)，數(shù)量，編號，名稱等，再設(shè)置工程圖模板，最后出圖。
作者: steve_suich    時間: 2015-12-31 16:00
[attach]375272[/attach]( Z0 x" D% O6 P! }, ~1 E
9 a1 U% ~" q1 j5 K0 o( f

! ^; N: k9 \5 I8 T9 D9 x
作者: steve_suich    時間: 2015-12-31 16:02
[attach]375273[/attach]
8 E) {4 M5 J) |& s8 Y1 Y" F0 J& F& S  j6 N( I6 F

, {5 r4 m$ q& y; O
作者: 余存    時間: 2015-12-31 16:30
steve_suich 發(fā)表于 2015-12-31 16:02
' v* I4 O0 n7 l* G1 t* c
額。。�？床欢。髠b，這是啥？
1 z; \8 i: Y% O& X0 F: p% s
作者: steve_suich    時間: 2015-12-31 16:40
本帖最后由 steve_suich 于 2015-12-31 16:41 編輯
8 j. y1 O: I8 O
余存 發(fā)表于 2015-12-31 16:30 0 O9 d8 U" N% u! f$ R
額。。�？床欢�，大俠，這是啥？
/ O: G( z1 Q! D1 z  N
新建一個宏。
$ _! f+ ^5 z+ \7 l
  G, r/ f  `( K4 ~# ^& q; l運(yùn)行" f% I/ {+ X# z  n; @) F/ W
[attach]375280[/attach]) D$ o" y5 [- B" d# _) @

- q) \5 Y2 L+ @+ N" C2 t
作者: 哈哈大校    時間: 2016-8-14 22:05
steve_suich 發(fā)表于 2015-12-31 16:00
. I( S8 J5 V8 [5 v  i
您好！
0 r8 ~" f; K$ y2 M# F# O  H
& Q) S- ~% b" ?* j; m% `) a  `0 k+ g8 {, u# B7 ?% k$ t" Z
這個我試著輸入過但是不行，您能否發(fā)個SWP格式的來呢？
; x/ l+ W$ {: |: x7 f
4 t0 \& `( V7 b* N萬分感謝��！
& n) j3 R. c+ V
作者: 楊楊_cpmUG    時間: 2016-8-16 08:28
steve_suich 發(fā)表于 2015-12-31 16:02

) z: R' ]+ ^$ o看著這回復(fù)，總覺得自己要學(xué)的很多
" P- w( \3 x. c/ `- V; \; r
作者: ziliangmo    時間: 2016-8-17 17:05
l樓主可以把修改好的標(biāo)題欄（可以做鏈接）的圖紙保存好圖紙格式，A4-A1分別做一個，然后打開你要修改的圖紙，右鍵屬性，選擇相應(yīng)大小的圖紙格式替換掉就ok了
作者: ziliangmo    時間: 2016-8-17 17:11
至于模板是改不了的，你可以在選項(xiàng)里設(shè)置好你的樣式，然后保存好繪圖標(biāo)準(zhǔn)，打開每張圖紙加載該樣式就可以了，反正每張圖紙你都要檢查修改公差等，順便更改一下圖紙格式和加載繪圖標(biāo)準(zhǔn)，就相當(dāng)于換了模板和格式了
作者: kytool.cn    時間: 2016-8-18 17:49
我們之前有一款插件可以實(shí)現(xiàn)批量替換圖紙模板，肯定有這方面的工具，你可以問一下度娘：SolidWorks批量替換工程圖圖框，保證有收獲。
; N, u8 s# S# c
作者: 眸上有傷痕    時間: 2023-5-13 17:19
  到這里了下步怎么弄
作者: 眸上有傷痕    時間: 2023-5-13 17:20
Dim swApp As Object
2 ]' g+ ~' {& C3 q/ |: W; L& |% Z4 ^% P: a5 K5 ]3 W. O" R
Dim Part As Object
1 O' m9 r% m, @0 j! P+ L8 J4 W2 GDim boolstatus As Boolean- p* t0 B# l2 O# Q' ]! ]' V# J
Dim longstatus As Long, longwarnings As Long
' J/ S* T9 \2 |9 n% g3 x* h2 KDim path As String
' I$ A& m  O* f5 [& t- j6 o2 }/ cDim fname As String: E* H$ ~$ Y1 ?1 R
Dim m As Integer
* s3 P! c; q- I* {Dim shname() As String
% J* K$ T3 C2 j2 o& J3 e! `, Q9 r# B. }4 i( ]
% M3 Y$ }% K4 ~9 r
Sub Main()
/ I/ q$ Z& K: Z" o- C& {3 }4 Z  _! e8 F: i/ E" n
Set swApp = _
0 r2 J' a/ r- \/ j! PApplication.SldWorks
$ T2 s9 Y5 T; Ppath = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替換圖框")- R6 I: ?& \* g; O
fname = Dir(path & "*.slddew")
2 C  z8 O: W: b. ZDo Until fname = ""5 A+ X# b* r2 V* l- h
Set Part = swApp.OpenDoc(path + fname, 3)5 e* e$ J" J9 C# y( e
Set Part = swApp.ActiveDoc- I0 m& M" ?/ D7 R0 x6 B6 W$ {
shname = Part.GetSheeetNameS()
6 |7 n3 \4 D2 N6 bFor m = 0 To Part.GetSheeetCount - 1
8 |/ W( V$ C8 v, Z# H; Y; f% ^     If Part.ActivateSheet(shname(m)) Then
8 P/ a5 Y. W$ R: L- F8 D0 r3 Y     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
- w, |1 `7 g$ O: m7 L% X8 A     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _0 ^9 T! F. n5 g! W
     0.42, 0.297, "默認(rèn)", True)
- L! _! `8 n1 j4 n; P# C    End If8 [2 d1 v. F+ a2 R+ K% ^$ p! d
    Next
/ c/ ?4 f+ V1 }) h7 f5 R. c$ P$ RPart.Save5 t- E& I. q4 r9 o9 \! C
swApp.CloseDoc (Part.GetTitle)7 |! O* N- N7 J! r' H: t& l
Set Part = Nothing# g# Z( Y5 W9 y% v+ S
fname = Dir. @/ v$ [: [  T5 v- s- ~! a
Loop
/ G: c0 u7 P6 X( A% O. Y2 Q' s3 o* B0 m& Z
End Sub



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