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

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

jinqin11 发表于 2016-2-18 18:45
, X% o! w8 f1 C8 Y: [: e$ e a) o打开属性栏，设置属性，如图7 A# @+ }) s3 t( z' r5 U
进入方程式界面，设置全局变量，如图

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

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

杨成武发表于 2016-4-27 20:48
; W7 n9 `! [0 b' k% S. J老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02 ...

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

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

jinqin11 发表于 2016-4-27 21:38
4 [, [, k) v" ]% C! x ]& T装配图好像不管用。
8 S9 J5 F+ I+ S1 b) U/ c+ \( N你的是什么版本的

sw2015，你有qq吗？

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

杨成武发表于 2016-4-28 19:16* h5 e, E2 s: K" g% S" u. B1 _
sw2015，你有qq吗？

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

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

gt.adan 发表于 2016-4-29 07:01
: A, Z$ f* K- B' ?#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。0 [) q8 X' |+ h2 T; a
把你要的編碼方式寫出來，具體 ...

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

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

杨成武发表于 2016-4-29 07:54. i1 ?$ P0 Y: _" M4 [: ?! d1 O
谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

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

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

gt.adan 发表于 2016-4-29 09:42
* ?# B$ [) h5 e7 P2 W看不明白…
% ^- e. L0 t* \4 S這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
! l e9 W# d: U9 b$ {能否明白舉個例子？一個完整的零 ...

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

麻烦丹大看看谢谢。

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

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

杨成武发表于 2016-4-29 15:29& K( m. n) H) a# J: @ s
丹大这个是一个示意图；
F( ^. Y( x; A+ f* O做的不好希望能看的明白

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

Sub main()
( X' P1 U. W }, h( H& l
' [8 R, X% i7 a4 }( h
Set swApp = Application.SldWorks' d7 `* O1 W& V8 z* I5 F, ] K1 x
Set model = swApp.ActiveDoc
# G, Z) r# G. e" r0 A9 M |
" K9 V9 y; m4 w
ModelName = model.GetTitle1 Q1 U6 S1 U+ s( b
ModelName = Left(ModelName, InStr(ModelName, ".") - 1)
. a, [- O X! k0 q
$ P! s1 l# c9 X5 K' \* r9 c m y/ M
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number"): Q5 a: q6 f( Q7 S) M
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))
2 Z8 J* \% z% \4 V/ h$ m6 d5 |; v
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")
9 S0 _8 X" S3 t/ m4 _
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10))% H# I f+ |% A8 W, O( w) ?
% W/ g" c6 n* ?1 |
End Sub
( E) Y8 A, G' j, K& Q/ b* _5 H, J% y

复制代码

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

杨成武发表于 2016-4-29 15:29) s' }2 k& T; K2 u; q; t; Q
丹大这个是一个示意图；% G) s0 l2 L4 E6 M/ J
做的不好希望能看的明白

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

Dim swApp As SldWorks.SldWorks
2 F' f! X* O F r# ]
Dim swModel As SldWorks.ModelDoc
# r. D; m- I+ S e2 p! U, X
Dim sFileName As String% D: F& E _" h( ]) d5 X9 X
Dim path As String
4 Y; q! \! }; i" |
Dim nErrors As Long1 f* k4 m; o, S& Y$ k3 {
Dim nWarnings As Long" V! S9 G0 v+ `# B! o
Sub main()( O8 g0 k" Q+ h5 d1 @9 a
Set swApp = Application.SldWorks4 Z; Z- L3 s. \- N, Z- T' @
path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑
% A- U2 I, Z: K: M, x+ h" T7 C1 M$ V
If Right(path, 1) <> "" Then path = path & ""
6 ~5 j7 }% p5 |& C/ f- v" y
sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw
- z/ e! f& D4 r x; A n
Do Until sFileName = ""+ J3 j2 Z% ]3 Z
5 ?5 l) Z- Q7 \, q
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING
$ U7 Q9 {, s) X) T
Set swModel = swApp.ActiveDoc
; D6 k# t+ E5 }0 e
! m- t- O3 o" ~7 X* x* M
retva6 = swModel.DeleteCustomInfo("Number")2 } G+ Q* u0 p( z0 x- B
retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))" v: I% L/ t/ e
retva6 = swModel.DeleteCustomInfo("Name")
2 e& r& g `* I- L E
retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10))& \& z* c# \9 u& e$ E
! Y Z0 |' F6 e D0 R
swModel.Save6 E! ^, V1 X. `7 [; E2 |: h$ Y4 K5 |) B
swApp.CloseDoc (sFileName)* y. }5 \8 R. `, {
sFileName = Dir
; q# i+ m) [4 d z9 s! N- g
Loop" e1 A( w1 ~1 }* y1 S# h
MsgBox "DONE!"
+ Z# W; ~7 j2 x- S0 C- a' F& J
End Sub
3 E" ]( S: v% Z8 S

复制代码

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

gt.adan 发表于 2016-4-29 16:39
, r9 a( @$ f7 q要達到批量新增的話，如下代碼：

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

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

杨成武发表于 2016-4-29 18:36* i- n* ~+ Y% X& F' z
丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

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

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

gt.adan 发表于 2016-4-29 23:54$ G- F; t- a" g3 c" \
1. 工具--宏--新增0 v, Z) V; f: Q, S9 T" X+ [: D
2. 命名後確認，進入編輯視窗，不要關閉。8 L$ U( O; R& v
3. 將#18的代碼複製下來(該樓層下方有一 ...

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

打开来报警

出现这个

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

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

杨成武发表于 2016-4-30 19:34+ H& W$ a# J9 w* h* Y4 k8 I
不好意思麻烦丹大看看问题出在哪里

最上方加入下兩行代碼

Dim swApp As SldWorks.SldWorks4 W/ @) P% x! `
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' n }; n( }& E! X8 n2 q5 y
能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

现在要不要了，我有

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

安顺发表于 2016-7-13 13:49. }( j s" j l, m2 Z
现在要不要了，我有

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

浏览过的版块