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

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

jinqin11 发表于 2016-2-18 18:45/ ^* |. r% K7 j" c1 D# Q$ R. o0 R0 g
打开属性栏，设置属性，如图. v( ?" _6 d2 s
进入方程式界面，设置全局变量，如图

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

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

杨成武发表于 2016-4-27 20:48
* [7 F- T: p- Z. F; f$ P0 I老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02 ...

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

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

jinqin11 发表于 2016-4-27 21:38
; G3 B ^% Y7 w2 E装配图好像不管用。: K2 w3 N+ i# C) t0 x- {/ W
你的是什么版本的

sw2015，你有qq吗？

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

杨成武发表于 2016-4-28 19:16
- {' Z( D: y+ x- v* zsw2015，你有qq吗？

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

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

gt.adan 发表于 2016-4-29 07:01$ X2 J" V- E4 X9 R
#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。# k! c: B; F3 \! G9 Y4 X& K l
把你要的編碼方式寫出來，具體 ...

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

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

杨成武发表于 2016-4-29 07:54
/ B& `* b; z0 t* k谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

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

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

gt.adan 发表于 2016-4-29 09:42
- I4 N7 J* |5 K% ]# H看不明白…
0 B0 B8 s! ?: R5 ?這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？& |7 W5 F- i& j% F0 c9 b- u
能否明白舉個例子？一個完整的零 ...

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

麻烦丹大看看谢谢。

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

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

杨成武发表于 2016-4-29 15:29
% H+ l& H+ {- q: G X' h丹大这个是一个示意图；
) `, g# x' q5 X5 p% S. Y. [做的不好希望能看的明白

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

Sub main()+ L+ ^$ B+ G8 e5 ~& u U8 \
, `: K( g1 u0 Y" D( c
Set swApp = Application.SldWorks1 o6 v9 C* W1 o0 R3 S8 E
Set model = swApp.ActiveDoc
9 a! B( L) X3 t. X: P3 J
* Z1 w" z) V/ I. _& j& f; `
ModelName = model.GetTitle
7 c8 Y0 E; w+ i$ ~$ U" o
ModelName = Left(ModelName, InStr(ModelName, ".") - 1)! d4 ?. C7 ^- S* F* I1 H' y
1 _/ |$ M2 c" o7 o4 }/ n
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")8 s7 l/ w* V9 J" [" P% ]
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))
+ o7 ]5 a( y* F4 G. W4 n# l
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")! v2 V3 w# M2 I2 P4 C
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10))
5 e: \5 a; K1 m$ ?: y- Z, ^
/ l! u! v1 L# p1 X0 b1 u
End Sub
; q* H l: |& E% _: n/ X

复制代码

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

杨成武发表于 2016-4-29 15:29( ~ f, w" j$ J) @8 e; P
丹大这个是一个示意图；
' k; e0 k1 T |4 H+ O3 _做的不好希望能看的明白

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

Dim swApp As SldWorks.SldWorks7 I, z6 I( W& Y! D
Dim swModel As SldWorks.ModelDoc
$ f& Y* S; a3 v1 f) F5 r
Dim sFileName As String3 j; `8 S; F+ q$ M) w% V9 h
Dim path As String. K' Z* N$ r9 W m
Dim nErrors As Long- r8 {: L; L5 o2 T" `
Dim nWarnings As Long
% z/ w; Y7 j9 I' T! M/ n
Sub main()
: L3 V9 W; F( l6 I9 k( C3 |/ ^
Set swApp = Application.SldWorks+ A1 O: ~ W" p e
path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑 O) C, h6 A3 f/ b2 b" X. G
If Right(path, 1) <> "" Then path = path & "", x, S/ x0 i) B3 t+ P3 |% h
sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw0 t: q8 }5 q% g) q2 Y1 ^ B( j
Do Until sFileName = ""
: R! h- x# @% N! v' ~
4 u" D" @! r' z0 {' P
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING
6 e$ N: r' e' H) W% D
Set swModel = swApp.ActiveDoc' i$ m8 a; a {2 v: `8 v) C
) c7 a% r- c9 ~4 T
retva6 = swModel.DeleteCustomInfo("Number")
1 z! L/ X8 p* I' P5 V, X
retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))* E" }$ n: o# N. F
retva6 = swModel.DeleteCustomInfo("Name")* W2 u* M9 s- I
retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10))6 c2 a# B4 |. K& @8 N: `. i
- j7 t5 l& t( E7 B* X# H
swModel.Save9 \( m2 l( }& g7 m# P( k
swApp.CloseDoc (sFileName)
9 L a1 k4 c$ i3 Y' V. x
sFileName = Dir
+ n! Q H" q6 h
Loop
7 t. U6 q) c& J; P" E* D/ X* |
MsgBox "DONE!"
4 p& O$ H8 V! O. I5 ~ x3 N- B# Q
End Sub7 b: P6 f/ R/ V8 H( |2 e6 D' X# v/ j

复制代码

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

gt.adan 发表于 2016-4-29 16:393 [ r P3 B2 I# H- I/ r) s$ f1 w
要達到批量新增的話，如下代碼：

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

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

杨成武发表于 2016-4-29 18:36
) _, `& {# M& }- `0 b丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

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

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

gt.adan 发表于 2016-4-29 23:54
6 @" l* c& J6 c' x4 m6 k1. 工具--宏--新增4 j4 v! Z- c! \) b& n3 [+ i
2. 命名後確認，進入編輯視窗，不要關閉。! W# U p0 n7 z7 a* M2 ?+ ?% r
3. 將#18的代碼複製下來(該樓層下方有一 ...

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

打开来报警

出现这个

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

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

杨成武发表于 2016-4-30 19:34
: ^! f' t' E- E+ m. W" _# j/ D8 Y不好意思麻烦丹大看看问题出在哪里

最上方加入下兩行代碼

Dim swApp As SldWorks.SldWorks
& n7 s) r) Q! k9 i
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:27
" v# E( L) k/ `; Q2 x能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

现在要不要了，我有

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

安顺发表于 2016-7-13 13:49
; N& A+ b' a7 @( F4 A, L/ ^现在要不要了，我有

能用于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

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

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

全站		goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加	2022-07-04
全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11

通知

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