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

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

jinqin11 发表于 2016-2-18 18:45# W/ ~9 E1 F+ c+ \3 V6 o
打开属性栏，设置属性，如图
! E k. ~8 d2 O2 m' }7 H$ j进入方程式界面，设置全局变量，如图

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

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

杨成武发表于 2016-4-27 20:48; G5 p8 }1 p8 Q7 I/ K
老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02 ...

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

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

jinqin11 发表于 2016-4-27 21:38
6 [& x7 a$ d; \) O/ c5 _# l装配图好像不管用。
- l8 L' ]" A( C% J8 Y( f你的是什么版本的

sw2015，你有qq吗？

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

杨成武发表于 2016-4-28 19:16
/ j% c5 w: |" a1 Z1 lsw2015，你有qq吗？

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

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

gt.adan 发表于 2016-4-29 07:01
1 z: c& o' I6 `, ]# F#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。9 U, T; d0 j1 X$ S( t" K
把你要的編碼方式寫出來，具體 ...

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

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

杨成武发表于 2016-4-29 07:54
; b9 y1 V5 v8 ?5 y' g3 R: Y谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

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

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

gt.adan 发表于 2016-4-29 09:42
" m m0 y% f' ^4 N N+ D h看不明白…# z, m H4 D# ?8 p/ ~& Y
這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？+ M& m( L; {& K5 d
能否明白舉個例子？一個完整的零 ...

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

麻烦丹大看看谢谢。

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

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

杨成武发表于 2016-4-29 15:29
9 G: @+ O6 V8 M& k9 g1 U& `+ Y+ B8 t丹大这个是一个示意图；% B5 F+ Z/ s, u
做的不好希望能看的明白

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

Sub main()
% i! i" Y0 C/ @' B" z: O
2 L l8 ~, L2 {7 ?+ \
Set swApp = Application.SldWorks& g& i5 D7 _1 c( `" n6 ^4 U
Set model = swApp.ActiveDoc
: f4 [$ M3 t2 C( I0 h2 I! r
0 U6 `1 g+ h5 D2 g* G
ModelName = model.GetTitle
9 b; N+ I- ?/ x/ q( m9 }7 u
ModelName = Left(ModelName, InStr(ModelName, ".") - 1)4 @1 Z" H, n$ ^$ z* f1 R" t4 q
3 \: ]4 }5 u- R4 d
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")6 o$ h2 w, S4 ~; b" K
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))
$ W3 W3 k$ l6 N% `
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")- U; f( g! Q2 \5 ^3 o b
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10))
1 ], v& f- t1 _2 |2 L$ p) @8 u
$ w" |" y( T/ _/ K
End Sub7 Y6 U2 @) e2 G& |1 i

复制代码

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

杨成武发表于 2016-4-29 15:29+ E( w' p5 N* Y5 a- j* j; |
丹大这个是一个示意图；2 `: H0 S5 w0 b d$ h Z: Q
做的不好希望能看的明白

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

Dim swApp As SldWorks.SldWorks
6 w& X( u4 t6 V k- }, r( o
Dim swModel As SldWorks.ModelDoc
2 E o$ X! n8 \2 C3 r# R
Dim sFileName As String( n, ]% F/ E1 D5 p5 S
Dim path As String6 P n* `- [6 j: k1 x( `: h/ F" @
Dim nErrors As Long
. r X) G. p* X5 ]
Dim nWarnings As Long
( }. d. |% i- n, A- k0 A2 c8 t
Sub main()
5 o. N/ U( h6 d( b( p3 e ~
Set swApp = Application.SldWorks% B2 L3 {% }, ~
path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑- n! l- x1 t7 m# S/ P# Z' U
If Right(path, 1) <> "" Then path = path & ""
8 o' V7 b( k" P4 u2 {
sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw, B* c& ^/ ~- M& U, H
Do Until sFileName = ""! Z4 l: F( ^& L
4 y5 ~# k! ~% H/ V0 i: ~2 L/ ~9 V/ A
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING: G" G) A. x) [3 E
Set swModel = swApp.ActiveDoc
( @& a- y1 b" U- D2 x- e* D
) W& _) m5 f J
retva6 = swModel.DeleteCustomInfo("Number")
% P% J+ _( g6 j" a
retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))/ ~' P8 h3 [+ x3 N% Y0 t
retva6 = swModel.DeleteCustomInfo("Name")& q2 x1 z7 y8 g
retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10)); s: Z& G0 R8 [+ E: _
& X9 V) f# S# f" [& g) F
swModel.Save
% Q. O# L0 z1 u5 m
swApp.CloseDoc (sFileName)
$ ~$ r9 A2 w* V( k" d7 P
sFileName = Dir* [1 D5 F( ~6 V* @1 U
Loop" Y+ X$ ~6 u, x: |8 K$ {
MsgBox "DONE!"3 t+ [5 }0 d5 s" m3 H( o J4 e$ j
End Sub
* {# b% }8 {* C6 B6 a. k/ G0 ?

复制代码

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

gt.adan 发表于 2016-4-29 16:396 p$ s: {4 H' q; h
要達到批量新增的話，如下代碼：

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

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

杨成武发表于 2016-4-29 18:36. e0 q+ s1 B" i/ @- L; p
丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

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

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

gt.adan 发表于 2016-4-29 23:54
( a4 [) J0 P- z+ u8 ~1. 工具--宏--新增
& [# S; x6 a% u* b2. 命名後確認，進入編輯視窗，不要關閉。
, H+ i0 e! `6 U6 R% c2 ]+ x3. 將#18的代碼複製下來(該樓層下方有一 ...

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

打开来报警

出现这个

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

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

杨成武发表于 2016-4-30 19:343 n4 }: W$ a( }4 X! F
不好意思麻烦丹大看看问题出在哪里

最上方加入下兩行代碼

Dim swApp As SldWorks.SldWorks" M% U1 Q, B3 w; ]
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, j# k- y4 ^/ o7 `/ I) X
能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

现在要不要了，我有

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

安顺发表于 2016-7-13 13:49
' s ]4 @2 W0 X2 @( `' l3 B现在要不要了，我有

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