SOLIDWORKS怎样将图档名“图号+名称”分离后自动链接到属性中

杨成武 · 发表于 2016-4-27 20:48:25

jinqin11 发表于 2016-2-18 18:45' G4 u1 u6 X! S" D* U: s7 C3 t
打开属性栏，设置属性，如图
; }' ^. E5 u8 z* n9 o进入方程式界面，设置全局变量，如图

老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02-03-04支撑架，装配图号例如：GH01-02-03-04-001轴承座组建

jinqin11 · 发表于 2016-4-27 21:38:24

杨成武发表于 2016-4-27 20:480 C( W7 k: q3 t0 I6 D0 ^
老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02 ...

装配图好像不管用。
你的是什么版本的

杨成武 · 发表于 2016-4-28 19:16:50

jinqin11 发表于 2016-4-27 21:385 k% ]1 _0 i' o$ F% k
装配图好像不管用。
x" r& } P( v! Z; a你的是什么版本的

sw2015，你有qq吗？

gt.adan · 发表于 2016-4-29 07:01:38

杨成武发表于 2016-4-28 19:16
: k( l+ k3 E6 h1 ]. e: F' ysw2015，你有qq吗？

#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。
把你要的編碼方式寫出來，具體要求到哪邊寫入圖號？哪邊寫入名稱？這樣才好幫上忙。
每一公司的命名原則都是不同的，怎麼能期望一個宏就打遍天下呢？

杨成武 · 发表于 2016-4-29 07:54:52

gt.adan 发表于 2016-4-29 07:01- e# j* E3 l8 C t) s1 C
#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。
! Z- G& s; h+ p: s2 }; X3 n把你要的編碼方式寫出來，具體 ...

谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－０１－００１轴承支架组件

gt.adan · 发表于 2016-4-29 09:42:20

杨成武发表于 2016-4-29 07:54
$ h$ y) x. q- Q* x2 t; ]) A谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

看不明白…
這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
能否明白舉個例子？一個完整的零件命名，然後哪一部份要寫入「圖號」？哪一部份要寫入「名稱」？

杨成武 · 发表于 2016-4-29 15:29:43

gt.adan 发表于 2016-4-29 09:42- n' a9 V: f) F% I: A. s0 X+ _# p
看不明白…& p! v0 c$ o, d7 U
這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？/ R5 {; h# c& z5 [
能否明白舉個例子？一個完整的零 ...

丹大这个是一个示意图；
做的不好希望能看的明白
QQ截图20160429152357.jpg

麻烦丹大看看谢谢。

gt.adan · 发表于 2016-4-29 15:38:32

本帖最后由 gt.adan 于 2016-4-29 15:58 编辑

杨成武发表于 2016-4-29 15:29
& Z V* n$ v u. G# m丹大这个是一个示意图；' V( ?5 ^4 J( X; i' K {! i
做的不好希望能看的明白

如果貴司的命名原則統一是如此：前10碼為圖號，其餘的為名稱。
那麼以下代碼就可以使用了。

Sub main()
, [# ]1 Z& R$ ?" i/ m2 J$ l
% k3 _+ K/ `: \1 M* m( m/ a0 W8 A
Set swApp = Application.SldWorks
* m# {/ U5 O) l
Set model = swApp.ActiveDoc+ F* z0 d; U& f d# i0 r- c! s
) o/ b& Y' l+ q0 V9 c- c
ModelName = model.GetTitle5 F, T5 c. w9 R' R
ModelName = Left(ModelName, InStr(ModelName, ".") - 1)4 m3 g3 G) G0 b6 E4 |- \4 H
+ U* G; f/ R! s$ m& B, d) U$ D; }) H
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")
9 i' ^' [" q' u7 k- F4 T6 w i
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))
( J$ w( N/ n! [6 g
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")5 c& U6 y4 k2 {& G. v
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10))
" F5 N) w* S' D& _2 Z N; @# c
4 r! I6 o3 Q( @/ q/ s! M
End Sub
( u2 ]" ?, b) X5 h7 w5 _0 n

复制代码

gt.adan · 发表于 2016-4-29 16:39:54

杨成武发表于 2016-4-29 15:29# {$ E3 V: t2 p# h* d$ k
丹大这个是一个示意图；
/ Z5 {6 w2 q$ [# c) t做的不好希望能看的明白

要達到批量新增的話，如下代碼：

Dim swApp As SldWorks.SldWorks) v" E8 V1 d- d! ]! R# u
Dim swModel As SldWorks.ModelDoc
, Q9 c* l3 P7 O9 [' C
Dim sFileName As String: K: D0 Y4 |1 H" A
Dim path As String4 @. U: Y0 Q4 d% n/ W1 Z
Dim nErrors As Long1 D$ I/ B* _+ H5 e* [) M% L# C) N$ f
Dim nWarnings As Long
3 |3 }5 k, u3 E8 \% Y# v
Sub main()
& p4 n% f# Q! A* Z
Set swApp = Application.SldWorks1 ]! b% v( G3 S. g7 A- d% G8 z
path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑
! c8 N* ]3 P/ l6 U
If Right(path, 1) <> "" Then path = path & ""
$ L. \) i: }& o) e' n, A
sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw
: ?: }2 T$ c4 l1 q6 m
Do Until sFileName = ""
8 O: l) v: |- [8 b/ G- T
+ v9 Q: W% C/ ]/ Q
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING2 ^5 z [0 }9 w# K: \ T7 ?/ N7 Y
Set swModel = swApp.ActiveDoc
@# b! x' c9 j- E; @* u2 c
+ x+ T, f* e# F2 o% h
retva6 = swModel.DeleteCustomInfo("Number")
/ u$ E3 Q% L5 k9 S& ^' _# {
retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))
8 j3 p& u2 ^% D5 \. m) x2 ^ O
retva6 = swModel.DeleteCustomInfo("Name")
; D0 z @# C- C8 j8 @; s
retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10))# }! e* S- f% \6 l! B. F. G
; l+ g, R. {# b5 k% E7 O B
swModel.Save2 ` Y$ ~* b' _$ @3 H* I b
swApp.CloseDoc (sFileName)6 a) p g- U$ c& J0 ~; o; V
sFileName = Dir
9 C, L4 q$ J7 a! L/ M% _
Loop0 V$ [3 R& k& y8 S0 v
MsgBox "DONE!"
5 j+ ]2 ^) Y3 G+ t+ H
End Sub: L5 y+ H+ y; A/ }8 m$ z

复制代码

杨成武 · 发表于 2016-4-29 18:36:36

gt.adan 发表于 2016-4-29 16:39
$ {3 i0 r& j6 Y! g: e3 i' L要達到批量新增的話，如下代碼：

丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

gt.adan · 发表于 2016-4-29 23:54:35

杨成武发表于 2016-4-29 18:36
/ L) W. X: ^( V$ W丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

1. 工具--宏--新增
2. 命名後確認，進入編輯視窗，不要關閉。
3. 將#18的代碼複製下來(該樓層下方有一個複製的連結)
4. 回到編輯視窗，將方才的代碼貼上，儲存後關閉。
5. 打開要加入屬性的零件，工具--宏--執行，目的選擇剛才新建立的宏。
6. 完成。

杨成武 · 发表于 2016-4-30 19:34:08

gt.adan 发表于 2016-4-29 23:54
( _, w$ w$ o2 ^0 v6 @) o2 J" T1. 工具--宏--新增8 w) X- v) x) t" f; a
2. 命名後確認，進入編輯視窗，不要關閉。
& h0 r8 y( {, o9 Y3. 將#18的代碼複製下來(該樓層下方有一 ...

不好意思麻烦丹大看看问题出在哪里

打开来报警

出现这个

gt.adan · 发表于 2016-5-2 08:01:35

本帖最后由 gt.adan 于 2016-5-2 08:03 编辑

杨成武发表于 2016-4-30 19:345 L; P3 J% Y5 s2 O4 b* I* ?
不好意思麻烦丹大看看问题出在哪里

最上方加入下兩行代碼

Dim swApp As SldWorks.SldWorks
1 U+ c/ v; w2 y9 Y9 L" j! x) b+ y6 A
Dim model As SldWorks.ModelDoc

复制代码

leien0 · 发表于 2016-5-4 12:38:12

用了这个功能，版本就不要轻易换了，哈哈！

yockay · 发表于 2016-5-13 13:08:49

这个功能要弄好看起来还很复杂

yockay · 发表于 2016-5-15 23:00:44

要是图号和名称都不是固定长度，有解决办法吗

安顺 · 发表于 2016-7-13 13:49:51

squi111 发表于 2016-1-30 23:278 L1 u% C9 U! ?6 G$ R5 c9 m
能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

现在要不要了，我有

leo77 · 发表于 2016-11-17 22:04:02

安顺发表于 2016-7-13 13:49
6 |1 F* u1 I8 r7 H7 ]现在要不要了，我有

能用于2016吗？能否共享谢谢！

hheyafu · 发表于 2016-11-24 16:51:15

可用于2016的呀

bjgtlzh · 发表于 2017-12-14 16:26:17

论坛怎么赚流量啊

hchch909 · 发表于 2018-1-5 15:21:41

学习了，好好试用下！

liuyun0113 · 发表于 2018-2-2 10:03:59

把我的贡献出来吧。文件名编号规则“图号+空格+零件名称”，图号长度不限制。零件和装配体都适用。宏中的图号和零件名的属性链接根据自己情况修改。

		自动登录	找回密码
密码			注册

通知

[已解决] SOLIDWORKS怎样将图档名“图号+名称”分离后自动链接到属性中

浏览过的版块