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

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

jinqin11 发表于 2016-2-18 18:45
7 B" H6 T5 ]. o打开属性栏，设置属性，如图
* ?- S6 U0 q, C, N进入方程式界面，设置全局变量，如图

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

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

杨成武发表于 2016-4-27 20:482 w" @; Z. J+ l9 T, u
老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02 ...

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

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

jinqin11 发表于 2016-4-27 21:38
' p4 f9 k0 L0 R2 U! k4 x装配图好像不管用。
/ z, s) c' ~* Q! U6 U8 Q你的是什么版本的

sw2015，你有qq吗？

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

杨成武发表于 2016-4-28 19:16! D. ?8 p, j1 \
sw2015，你有qq吗？

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

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

gt.adan 发表于 2016-4-29 07:01
- h/ b9 W5 t% R3 X! ?" S#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。, E* {0 y# i B
把你要的編碼方式寫出來，具體 ...

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

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

杨成武发表于 2016-4-29 07:54
! q% |$ _0 H) O/ G谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

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

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

gt.adan 发表于 2016-4-29 09:42
8 ~% ?6 D5 v+ d# I看不明白…
. R5 F6 { U: x1 Y, P這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？% F, X7 i: j+ z" U' W) m5 y( w
能否明白舉個例子？一個完整的零 ...

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

麻烦丹大看看谢谢。

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

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

杨成武发表于 2016-4-29 15:29
" G1 N9 p' H3 C# H, V7 H0 [. H丹大这个是一个示意图；) _! o9 D' q1 N9 T$ ]3 v* M
做的不好希望能看的明白

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

Sub main()
Q: E) `: w9 M# Q; T: }
# s" {" W* Y8 h* b. z9 W
Set swApp = Application.SldWorks
8 h% m4 [& a& w% \! ~8 m( n
Set model = swApp.ActiveDoc' v. p0 s2 F. S8 H# t
- ~7 m: _# \$ p% a% H ~ x0 o! u
ModelName = model.GetTitle$ c# Y8 }; ?( Y" j; a
ModelName = Left(ModelName, InStr(ModelName, ".") - 1)
% X+ G) g# Z! F
) k! o3 K: w5 F6 v @+ c
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")/ C# J, D1 {+ z4 ^3 d# g( Q/ S
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))
$ C* f* b$ I# \6 F0 ?
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")# C! \) c; s& g8 e
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10))3 k. T5 V; T& D6 C- ]
( A# o1 A& c! F5 E2 {8 B, h
End Sub( G( p# Z6 e! n+ o& L

复制代码

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

杨成武发表于 2016-4-29 15:297 g+ D9 c* M6 w- _, c- y5 W
丹大这个是一个示意图；" T* U& j% ]3 g) m1 ^; i
做的不好希望能看的明白

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

Dim swApp As SldWorks.SldWorks T1 x5 O8 _" K& ~
Dim swModel As SldWorks.ModelDoc% e- S7 Q: O: y$ P0 d# m
Dim sFileName As String
+ _) a7 A) Z' R# ^7 ^
Dim path As String
1 j6 N. v k# _ f# j3 t
Dim nErrors As Long
2 o: v& S7 |+ Q% k. s' c
Dim nWarnings As Long
/ _/ R. ?: }3 C2 p; P
Sub main()3 k, R/ q% r7 |8 i4 f; T9 B# ?
Set swApp = Application.SldWorks' h9 V' P6 g8 W: G3 v; ]. V
path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑
$ K6 T. O1 v# g; N) s& p/ E# W
If Right(path, 1) <> "" Then path = path & ""
9 Y0 O q: N* z# I
sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw
* J, H* B2 @3 ?2 ?) u A. x
Do Until sFileName = ""1 ]) x J g H- i
" ?# ~2 m* T( R& Z
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING& o: R* v* v3 ^* _+ g. l7 j, }; F7 u* q
Set swModel = swApp.ActiveDoc( Q% k5 s% |& `0 I* H K
# o" @8 H# `) h8 ]2 }
retva6 = swModel.DeleteCustomInfo("Number")5 p0 Z" S: ^- c7 j7 W2 M2 }
retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))
( }; A2 E0 a- J
retva6 = swModel.DeleteCustomInfo("Name")
9 U" w: K" V6 F. ?
retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10))
( n9 ~* [: g: x7 j7 D0 ]
% y2 m% d. c5 e8 Q D
swModel.Save
+ C' @% W# D6 [ L% o4 H
swApp.CloseDoc (sFileName)4 F" _' @* l! T$ {* L2 r; `
sFileName = Dir
2 J, D# n+ ?* j8 e/ [: G( ~% O
Loop
- z! D3 A# K6 p
MsgBox "DONE!"
& t& y' p) O: q' {# I2 ?. ~
End Sub; G. J, ^& ]$ y9 m2 F& O- F

复制代码

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

gt.adan 发表于 2016-4-29 16:39
: V/ Y: x. C( m: s, G: r) O要達到批量新增的話，如下代碼：

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

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

杨成武发表于 2016-4-29 18:36
- [9 i/ C' i X( o; a1 M丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

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

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

gt.adan 发表于 2016-4-29 23:54
l- w! y8 i. r, A% _/ W1. 工具--宏--新增' ~/ z# u' [' D$ x% ]
2. 命名後確認，進入編輯視窗，不要關閉。
( G: @" f3 q0 o p- }3. 將#18的代碼複製下來(該樓層下方有一 ...

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

打开来报警

出现这个

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

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

杨成武发表于 2016-4-30 19:349 x+ |' ^% Q' J6 k
不好意思麻烦丹大看看问题出在哪里

最上方加入下兩行代碼

Dim swApp As SldWorks.SldWorks5 I6 P- `+ ?' F: X$ H, ?
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) D6 Z+ X& `* j* ^) j
能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

现在要不要了，我有

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

安顺发表于 2016-7-13 13:49$ z8 w! [2 `; N* U( D/ w) k
现在要不要了，我有

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