机械必威体育网址

标题: 求助，如何批量替换工程图图纸模板 [打印本页]
作者: 余存    时间: 2015-9-30 11:37
标题: 求助，如何批量替换工程图图纸模板
本来是在自家加工的，很多公差啊，材料啊，因为和加工的师傅已经很熟悉了，机器也做了不少了，不需要标注，但是最近人手不够了，所以零件要外发，外发的话工程图图纸格式要重新换过，几十百把张图重新画的话会死人了。求大神帮忙，怎么批量替换工程图图纸模板？- v2 I1 Q' ~0 r; D
作者: 寂静天花板    时间: 2015-9-30 12:02
你想公差这种东西，怎么可能批量。软件知道哪个位置需要用什么样的公差，你的不规范作图是你挖坑造成的，只能由你自己来填坑。
作者: 余存    时间: 2015-10-8 16:23
我的意思是批量更换图纸模板是为了方便写编号。零件的编号都是已经在SW里弄好了的，但是很多旧图纸里面没有，零件编号这一栏，公差的话我会自己补上去的。
作者: 问天问地问自己    时间: 2015-12-28 21:04
余存 发表于 2015-10-8 16:23 ( r  k/ S1 v2 P( D+ N. E* W- e
我的意思是批量更换图纸模板是为了方便写编号。零件的编号都是已经在SW里弄好了的，但是很多旧图纸里面没有 ...

6 v0 K# @7 n* e; \lz最后是怎么处理的？
  u- J+ ?! F0 y
8 a8 @8 _+ W( W2 v, I7 u  H' @* X7 z
作者: 余存    时间: 2015-12-29 09:43
问天问地问自己 发表于 2015-12-28 21:04
! b  G6 q- ]1 o- Z; hlz最后是怎么处理的？
' l4 m& v( t5 ~& c) j7 N
更改原来的模板，让它有零件编号这一栏，然后进入图纸格式编辑，进去，再退出来，零件编号自然就显示了（前提是你已经在零件属性里设置好了编号）。不过还是比较麻烦，要一张图一张图的来。但是时间花不了很多，比一张一张的画图快多了。
0 x' S, k' ]" k4 ^. x) J  c
作者: 问天问地问自己    时间: 2015-12-29 11:23
余存 发表于 2015-12-29 09:43
6 p" [- G/ f4 U, s2 q更改原来的模板，让它有零件编号这一栏，然后进入图纸格式编辑，进去，再退出来，零件编号自然就显示了（ ...

" N& P+ q4 M9 I8 s7 R  T. b- E5 M- r在模板中设置零件编号这一栏，在画零件出工程图的时候指定零件编号对应字符串的值；这样就能够自动显示了吧。
9 [: ?" ?, Z/ p8 q3 [+ o$ E! y3 `/ q
% Y6 d9 [5 N" M. j我是猜的，没干过，可行么？1 n6 K. Q' D8 I* j8 ^
作者: 余存    时间: 2015-12-29 11:36
我的顺序是先画零件，画好零件以后修改好零件的属性，包括材质，数量，编号，名称等，再设置工程图模板，最后出图。
作者: steve_suich    时间: 2015-12-31 16:00
[attach]375272[/attach]& e1 v) S: b2 I4 Q

: m/ t1 n5 P9 K7 O5 o8 N, N# L1 E
作者: steve_suich    时间: 2015-12-31 16:02
[attach]375273[/attach]
3 ?4 c- U9 A0 A" w" X' t) B% i1 _& d$ R) L/ z9 J9 a

& Z+ o7 B9 Q& I0 y1 R1 h$ R
作者: 余存    时间: 2015-12-31 16:30
steve_suich 发表于 2015-12-31 16:02
9 [0 @- @: Q* ^+ @, V' `+ I
额。。。看不懂啊，大侠，这是啥？
5 D) r$ S5 w4 K4 h
作者: steve_suich    时间: 2015-12-31 16:40
本帖最后由 steve_suich 于 2015-12-31 16:41 编辑 ) ^# s1 E' W7 E. G0 Y( Y4 u( U
余存 发表于 2015-12-31 16:30 0 @& h/ F( e( u8 e# d- f5 Z
额。。。看不懂啊，大侠，这是啥？

! S. x7 Q' U$ U0 X7 e2 V新建一个宏。 : |! R- j# w- j
8 _4 f, W- ~) c$ w1 y
运行' U: S7 p& f( E0 I% Q- C! Y' L! ?1 h
[attach]375280[/attach]
; H$ @9 W. [0 h) |1 \. ~7 a
4 P( z  P; c' k6 E
作者: 哈哈大校    时间: 2016-8-14 22:05
steve_suich 发表于 2015-12-31 16:00
( x) W4 |* o: Y
您好！
1 s% D  O; h% F1 W
( p% m2 Y, B+ [& M2 t; R, W+ E  O0 r# w& ~1 y: [1 ?
这个我试着输入过但是不行，您能否发个SWP格式的来呢？. _4 G# Z, B$ [0 P- @% z
& J3 \  B9 O" G1 c) z7 l0 e( _* X
万分感谢！！
3 d. h% m( ?' m( h$ c: ]. C
作者: 杨杨_cpmUG    时间: 2016-8-16 08:28
steve_suich 发表于 2015-12-31 16:02
5 E6 I6 |; j: i- v  u
看着这回复，总觉得自己要学的很多2 V2 H3 C5 w8 u: W
作者: ziliangmo    时间: 2016-8-17 17:05
l楼主可以把修改好的标题栏（可以做链接）的图纸保存好图纸格式，A4-A1分别做一个，然后打开你要修改的图纸，右键属性，选择相应大小的图纸格式替换掉就ok了
作者: ziliangmo    时间: 2016-8-17 17:11
至于模板是改不了的，你可以在选项里设置好你的样式，然后保存好绘图标准，打开每张图纸加载该样式就可以了，反正每张图纸你都要检查修改公差等，顺便更改一下图纸格式和加载绘图标准，就相当于换了模板和格式了
作者: kytool.cn    时间: 2016-8-18 17:49
我们之前有一款插件可以实现批量替换图纸模板，肯定有这方面的工具，你可以问一下度娘：SolidWorks批量替换工程图图框，保证有收获。
6 J- g4 t' W: R
作者: 眸上有伤痕    时间: 2023-5-13 17:19
  到这里了下步怎么弄
作者: 眸上有伤痕    时间: 2023-5-13 17:20
Dim swApp As Object2 F" {6 B5 @% ]

3 T$ |6 [" I5 Q: GDim Part As Object
: R( r- n$ ]4 q( M- lDim boolstatus As Boolean
  g3 H0 c( X, i4 c- K& C' K* X. ~Dim longstatus As Long, longwarnings As Long# G7 q- p. j) h% D$ V2 k
Dim path As String+ X" V3 O2 b' E) b- D- y) K
Dim fname As String" y6 D* o1 y+ O4 e! X
Dim m As Integer9 i" B  B+ F9 W/ ]# ]5 O0 ~
Dim shname() As String. E# w0 b* `& x2 O
+ ^& v7 H" {% c# w  M
( r+ X" [2 J1 m  u0 Q
Sub Main()
8 J8 d4 g: o' ~1 c* ]* |
. k; b3 v8 V' k; \, |+ i6 ySet swApp = _: c- l; _5 ?) S5 F( _2 i
Application.SldWorks. F1 C) {3 E! L2 a# O: X6 B2 w
path = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替换图框")
5 x. r4 O! S9 m$ @fname = Dir(path & "*.slddew"). Y& Z7 b  o0 ~5 b; ^; |$ J3 g
Do Until fname = ""
! }1 T8 D6 U# ?" L; |- j5 H, MSet Part = swApp.OpenDoc(path + fname, 3)8 d: ~' L# V' l2 d
Set Part = swApp.ActiveDoc
5 r) N, K& X8 ~6 n9 I: Z* pshname = Part.GetSheeetNameS()! @8 c% n7 G0 a
For m = 0 To Part.GetSheeetCount - 1
8 X6 C; q/ `4 B     If Part.ActivateSheet(shname(m)) Then8 E; ]/ z  ~! G- V* k
     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
0 l( [! H. \* q2 e& Z' g7 S5 @     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
1 f; m7 E4 v) e  g     0.42, 0.297, "默认", True)
# ]1 G  A! [+ I; p8 N/ g0 |7 h    End If; g/ U8 C2 Y) a0 @
    Next
0 L. U8 f8 b9 CPart.Save5 [) K5 J3 i' P9 E0 P* {! h% @
swApp.CloseDoc (Part.GetTitle)9 Z  m. M( A6 A/ \5 @6 G/ k. t
Set Part = Nothing
% x; a* f8 s1 D3 ]" Z5 lfname = Dir! M( D# f; W3 Y. K
Loop. \9 J; k( _& K1 K1 `9 _+ z6 u

  m4 j! y1 q! Z) j+ q7 J$ BEnd Sub



欢迎光临 机械必威体育网址 (//www.szfco.com/) Powered by Discuz! X3.4