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

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

jinqin11 发表于 2016-2-18 18:45, w1 U% J. y `. q
打开属性栏，设置属性，如图
& F6 p; X8 D5 f6 t, _8 y进入方程式界面，设置全局变量，如图

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

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

杨成武发表于 2016-4-27 20:48
8 V I# [7 f, Q' x4 ?/ R老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02 ...

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

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

jinqin11 发表于 2016-4-27 21:38
9 i; D( c. _( D, Y" z" z4 {装配图好像不管用。
+ S* ~7 o: X Y0 o' L1 F8 `你的是什么版本的

sw2015，你有qq吗？

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

杨成武发表于 2016-4-28 19:163 g7 C% D, S+ z
sw2015，你有qq吗？

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

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

gt.adan 发表于 2016-4-29 07:012 {1 c+ o. R) y$ k7 F. n
#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。
3 W, U' s7 d. h9 G* n把你要的編碼方式寫出來，具體 ...

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

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

杨成武发表于 2016-4-29 07:54
1 s$ j' e7 e7 w+ z% l1 }9 C; a谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

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

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

gt.adan 发表于 2016-4-29 09:425 @7 q+ G/ @ T2 M
看不明白…* U- B) ^! [0 n" [4 S* @7 [& b h
這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？: t0 j3 b2 G/ v; F1 |4 Z# A; v9 d! K
能否明白舉個例子？一個完整的零 ...

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

麻烦丹大看看谢谢。

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

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

杨成武发表于 2016-4-29 15:298 {) h" [( I! T# J* U& Q
丹大这个是一个示意图；" a: B9 V! W; J; L; y+ \/ a5 V E
做的不好希望能看的明白

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

Sub main()
5 \7 B2 m- m0 x8 T* `! w* J
* Q: Y9 _4 t, T X# a: a( w' Z% R$ n3 K
Set swApp = Application.SldWorks6 g/ q. ~& Q6 c, e
Set model = swApp.ActiveDoc0 b2 J# l9 k6 f2 Z5 D% e. d. {
* p+ H* w6 S3 Z
ModelName = model.GetTitle7 Z! K. h: a" ?' s7 g! U/ y9 ]
ModelName = Left(ModelName, InStr(ModelName, ".") - 1) }$ C& s9 s+ I8 w# y: P: e8 M; E: y
3 i+ U" a+ E9 [8 _$ U O
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")) I4 ?1 j+ a: [7 B( x
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))
5 l, J; ^$ p2 e8 {0 G2 c) V. [
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")$ l. {6 a" `' a5 G! ]
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10)), O/ ^" l. Q7 \) q0 y$ @9 o
, t* m1 A1 j" o; H% }& I9 i, |
End Sub
1 t& o" O2 Z) v0 a

复制代码

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

杨成武发表于 2016-4-29 15:29
. e! | m8 n. D j- N$ s+ G丹大这个是一个示意图；8 [6 l, y0 y" r9 T* p) n
做的不好希望能看的明白

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

Dim swApp As SldWorks.SldWorks4 F ?, E; H- \9 n+ v* X* n
Dim swModel As SldWorks.ModelDoc
5 ]6 x2 O, d% y7 u u
Dim sFileName As String
' b# \9 w- G6 y2 ]
Dim path As String. W- h1 K7 L+ a5 T4 l. ^) \4 ~
Dim nErrors As Long
5 A @/ K, h. |
Dim nWarnings As Long9 b2 Y+ ^. K4 Z; e
Sub main()6 e5 ~" i8 o, ?* d& L
Set swApp = Application.SldWorks0 m L# y$ ~- y$ e: C" W
path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑
: j, [& s& Y2 R" e4 ~! Z8 F
If Right(path, 1) <> "" Then path = path & ""
6 ^' [$ p! T, z+ a& U
sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw f% {3 V9 ~2 g {+ b1 ^3 F
Do Until sFileName = ""3 u7 y. ?5 s- e, v* b/ e: M, D& m
I) E/ N+ A9 }6 @, a. g5 B. W
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING
, U( J, G2 y8 L0 P5 I3 g
Set swModel = swApp.ActiveDoc
% M0 r8 P+ D. w7 A
/ H8 Y0 o. U0 a+ a1 A5 e- S
retva6 = swModel.DeleteCustomInfo("Number")
0 b0 `) D3 d1 s M' Y: ]
retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))' l0 D) V1 ]0 t% _6 j
retva6 = swModel.DeleteCustomInfo("Name")+ F! O& i8 \8 x7 ^1 \
retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10))9 q6 L R( E) b8 _
$ M, b8 p3 z( q5 ]$ ^
swModel.Save
# l# n g6 _% f1 t$ A! D
swApp.CloseDoc (sFileName)
3 G8 J- M$ ~+ g Y+ {
sFileName = Dir
- h* R9 n" @# @8 `
Loop
8 B: D/ z* T; B6 Y' s
MsgBox "DONE!"' g; J, a/ v" ]3 k2 S/ b
End Sub6 P' e4 d+ Z$ U) F, g

复制代码

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

gt.adan 发表于 2016-4-29 16:39
, @- s( O# T' G ^- p要達到批量新增的話，如下代碼：

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

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

杨成武发表于 2016-4-29 18:36* k9 N( T: `9 H2 @8 U
丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

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

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

gt.adan 发表于 2016-4-29 23:545 M6 k2 R/ E" p+ u
1. 工具--宏--新增4 j8 ~9 X0 N9 E9 N0 D6 X T
2. 命名後確認，進入編輯視窗，不要關閉。! D/ H g) r2 ?5 l2 C/ ]: e( ~
3. 將#18的代碼複製下來(該樓層下方有一 ...

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

打开来报警

出现这个

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

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

杨成武发表于 2016-4-30 19:34: {; ^8 h3 A& U% P1 O4 L# L% G
不好意思麻烦丹大看看问题出在哪里

最上方加入下兩行代碼

Dim swApp As SldWorks.SldWorks
* m, q# T9 d4 q5 M3 P$ P% n' ], |
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
% \( _2 Q3 _% L9 X4 p能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

现在要不要了，我有

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

安顺发表于 2016-7-13 13:49
" E+ S* @5 u Z) N4 h% W现在要不要了，我有

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