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

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

jinqin11 发表于 2016-2-18 18:45
$ o1 l: Q5 q7 U8 k# B1 n打开属性栏，设置属性，如图* f/ G1 ^- H. L! O* E3 |0 m4 Q; F8 |
进入方程式界面，设置全局变量，如图

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

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

杨成武发表于 2016-4-27 20:482 M" v: Y( b l$ I5 q% x: ?
老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02 ...

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

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

jinqin11 发表于 2016-4-27 21:38
7 \# s% c0 }% @: O装配图好像不管用。: W) u/ Q k% A# s! O2 L
你的是什么版本的

sw2015，你有qq吗？

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

杨成武发表于 2016-4-28 19:16) n* j$ e& f2 e7 W0 f3 N
sw2015，你有qq吗？

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

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

gt.adan 发表于 2016-4-29 07:019 s6 e( y( K1 A9 Y7 u3 w
#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。
- k) y' o% m; j0 v( P2 _; L6 M把你要的編碼方式寫出來，具體 ...

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

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

杨成武发表于 2016-4-29 07:54
~2 k6 F) Q. A P! l. C! t谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

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

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

gt.adan 发表于 2016-4-29 09:42) ?1 [* k. z) b
看不明白…* Z5 Q$ p: v( G5 {' `3 u% i |
這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
9 w3 s( m r6 k W+ X能否明白舉個例子？一個完整的零 ...

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

麻烦丹大看看谢谢。

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

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

杨成武发表于 2016-4-29 15:291 }0 J6 k/ ^! X
丹大这个是一个示意图；
- @) _5 I% S) @做的不好希望能看的明白

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

Sub main()4 r. t; ?9 ~' x H, _: V8 z
- j! T! c# S; Y8 R: m
Set swApp = Application.SldWorks
8 I }" @' J- P0 e
Set model = swApp.ActiveDoc
' T6 p3 k& N; c4 p. U' _' N
9 p& ^: |/ m( H. }+ }
ModelName = model.GetTitle6 Q0 Y8 O7 T; g! q
ModelName = Left(ModelName, InStr(ModelName, ".") - 1)# g1 m& c" v/ S+ k7 T
9 J( Q1 z, Z. g, @
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")8 F2 j; }5 Q, e' ~
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))
; W* V0 a6 J( z( i9 j6 `# c
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")3 n% Q( _* `# |4 l( z
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10))
$ r2 ^$ W- ]8 V- c! k
0 W, ?7 x5 ^) |0 R, p4 Q8 ]1 W) h
End Sub! h- l7 r1 C7 S# U

复制代码

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

杨成武发表于 2016-4-29 15:29! `/ N. j2 R2 x7 _+ j$ q1 T
丹大这个是一个示意图；+ c# G, U* {8 F
做的不好希望能看的明白

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

Dim swApp As SldWorks.SldWorks: S+ ?4 ]" N4 ~( l+ l
Dim swModel As SldWorks.ModelDoc% K& t0 k- x6 k/ W5 q5 d5 \
Dim sFileName As String
3 G ^: ]( s9 A' F
Dim path As String
- i! l7 F2 |+ Y6 A+ X! U9 x( K& B
Dim nErrors As Long- o' y) {1 F3 y) E7 j
Dim nWarnings As Long
5 r) t3 @; A. c" W1 r+ X9 `
Sub main()
; g: L; j4 x; m& N2 W, N0 p- J, F
Set swApp = Application.SldWorks3 e3 l+ w1 S/ E) D
path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑
. V% }5 E; A l8 A, v% y2 r
If Right(path, 1) <> "" Then path = path & ""
" [: C+ Q) f: ]- O2 d
sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw* f; w/ O; i6 K$ C! N9 y
Do Until sFileName = ""
4 x+ P# z$ h( W. e
* D! g4 j# H. W; w9 T
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING7 v) B! ]0 X9 R+ ?( P
Set swModel = swApp.ActiveDoc
1 R- N: B6 O# i' {7 C/ g0 E& d
3 c$ U8 ^- [! d0 u8 Q6 ^+ g2 l: p
retva6 = swModel.DeleteCustomInfo("Number")
1 Z& F8 i. P$ B. t
retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))
, ^( W6 R. Q* O1 E
retva6 = swModel.DeleteCustomInfo("Name")
7 y2 x% Q1 y# W
retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10))/ U4 R' T! s8 U$ m9 M# g$ y4 d
7 q7 ]' E( O" v1 @( z) H0 b
swModel.Save) ?( G$ c- x# \" x: G
swApp.CloseDoc (sFileName)/ D, z2 C# w! G$ Y0 M; s
sFileName = Dir8 z9 q! b) E# P1 I1 v7 i& ^- V
Loop
, g6 f; |) e6 e+ Y% m
MsgBox "DONE!"( G# e$ y X9 f1 l z o
End Sub7 z {# i0 v" Q9 r3 A3 G1 f

复制代码

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

gt.adan 发表于 2016-4-29 16:39
- y2 A2 m$ S# V! E# I( H要達到批量新增的話，如下代碼：

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

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

杨成武发表于 2016-4-29 18:36
/ _7 t2 N9 A' D9 l4 G2 @7 S8 A丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

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

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

gt.adan 发表于 2016-4-29 23:54
8 P$ O6 v: y) Y( d3 R3 {1. 工具--宏--新增
& V% N" K4 G. F5 \+ A2. 命名後確認，進入編輯視窗，不要關閉。, }8 V, A* I9 u" T2 y
3. 將#18的代碼複製下來(該樓層下方有一 ...

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

打开来报警

出现这个

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

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

杨成武发表于 2016-4-30 19:34& L8 A3 w' _% a" w3 s3 S
不好意思麻烦丹大看看问题出在哪里

最上方加入下兩行代碼

Dim swApp As SldWorks.SldWorks
4 c. b1 B, p" S. b
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
& B' R; n7 g0 K( x* F j能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

现在要不要了，我有

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

安顺发表于 2016-7-13 13:49) a0 Z( K6 E- W) X
现在要不要了，我有

能用于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怎样将图档名“图号+名称”分离后自动链接到属性中