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

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

jinqin11 发表于 2016-2-18 18:45 F$ H( H% {, {% T# E. E
打开属性栏，设置属性，如图
- S( i: J/ k2 b# }8 i+ i9 o进入方程式界面，设置全局变量，如图

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

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

杨成武发表于 2016-4-27 20:488 p2 b" h# P0 L Z& ? O) m
老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02 ...

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

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

jinqin11 发表于 2016-4-27 21:38
, V8 ?9 q, c/ U1 J: {装配图好像不管用。6 \" ?. Z Z# f0 h2 L) T
你的是什么版本的

sw2015，你有qq吗？

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

杨成武发表于 2016-4-28 19:166 y4 G1 f; Q3 X' `
sw2015，你有qq吗？

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

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

gt.adan 发表于 2016-4-29 07:01
1 W8 V& `+ }, E- Y( Z7 F#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。7 S d# k3 z$ O D
把你要的編碼方式寫出來，具體 ...

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

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

杨成武发表于 2016-4-29 07:54" D( |7 w7 _0 I$ U* ~ ?3 V/ Y) I
谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

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

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

gt.adan 发表于 2016-4-29 09:42
- Y+ ~) ~1 r& ?3 U! w看不明白…8 k" r6 b7 Z" d+ z: L3 P# ~5 {2 b
這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
* ^, v- k7 f9 }能否明白舉個例子？一個完整的零 ...

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

麻烦丹大看看谢谢。

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

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

杨成武发表于 2016-4-29 15:29
$ C9 U1 y% n# X7 P' S ?1 |丹大这个是一个示意图；
( r; d9 R1 P Y' k: M9 Y做的不好希望能看的明白

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

Sub main()' e. [1 n/ z3 \; [" R- c# K
5 ~; @0 ^! K3 ]" D/ a3 V$ Z
Set swApp = Application.SldWorks1 x9 z' z& N2 ^6 v, m
Set model = swApp.ActiveDoc8 v' V5 k5 Z9 ?9 x; ]
& X6 y& p; \. D% y7 f' a
ModelName = model.GetTitle2 ~3 k$ L. V, y- C* f
ModelName = Left(ModelName, InStr(ModelName, ".") - 1)6 K2 p, [% E/ n
7 S' {2 O6 u' g! \/ i1 {- D
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")
w5 [0 i& G5 f/ w4 V# m; `. Z: {; s
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))/ h% q8 `( j8 d% }% z4 a3 W* _
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")
2 K8 a( \( n$ I) }6 ]: I
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10))4 J" S& I3 D. k# r& j* `/ X: Y
' F/ u; [5 Q1 |6 e
End Sub5 D' C. L5 |2 d, ]5 s$ o

复制代码

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

杨成武发表于 2016-4-29 15:291 g" z% P% t4 a0 ~ K3 I4 q
丹大这个是一个示意图；+ I. C& m; W5 e
做的不好希望能看的明白

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

Dim swApp As SldWorks.SldWorks% L; i/ j, i- m% k
Dim swModel As SldWorks.ModelDoc: ]7 o6 ^6 W' R& R/ w! @6 E0 @
Dim sFileName As String
% J1 V7 i- O3 N+ R
Dim path As String
# `/ G+ c4 c% e! \4 p
Dim nErrors As Long2 X% G8 T& d; b. {
Dim nWarnings As Long: f5 S, T1 |* H4 b: j6 l
Sub main()( U; o9 V" j* t3 A6 s
Set swApp = Application.SldWorks
" K) R, _" R4 R" h! H2 {. W
path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑' V: S& W7 s( b- M+ v4 p! c* Y
If Right(path, 1) <> "" Then path = path & "": s& K: ]- P* a0 H* ^6 |. |, k
sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw( s" D7 ?( V! g4 a) J# y7 G
Do Until sFileName = "", v) W: j/ z4 s; }4 ^
* J& [. n5 T" U7 M" f
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING
6 h7 e) c3 m% {; [4 Z; Q- o
Set swModel = swApp.ActiveDoc
' U f; m) E& q. |8 ~8 n4 w$ E
- r6 Y+ }+ O, J v& ]
retva6 = swModel.DeleteCustomInfo("Number")
8 W! G4 ?3 Z/ p) c2 h
retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))
2 o+ G2 V3 k- A* I) u6 J6 f4 E
retva6 = swModel.DeleteCustomInfo("Name")
- B# I9 ~; N9 N, {, f2 C
retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10))
7 w4 \4 d4 M' z2 L) k
2 c" x/ B/ H7 S
swModel.Save
2 U# r' P* s/ B) Q; B
swApp.CloseDoc (sFileName)
# \& r. `+ A8 w- S+ C, ] u: h
sFileName = Dir
# n) ^- Y/ ]( p# V
Loop! i4 O% B, s4 T$ H, P
MsgBox "DONE!"% B* `' P' l9 t6 n, Z
End Sub
7 n0 n7 K" V/ G! {6 J3 Y# W/ _$ t- J

复制代码

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

gt.adan 发表于 2016-4-29 16:39
! O$ Q; N3 n, D7 B+ a5 S" c要達到批量新增的話，如下代碼：

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

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

杨成武发表于 2016-4-29 18:36) u1 N$ h3 ~& x. m
丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

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

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

gt.adan 发表于 2016-4-29 23:54
; W9 H2 L- X |' a5 V1. 工具--宏--新增3 U1 j8 U! O, a) G
2. 命名後確認，進入編輯視窗，不要關閉。: W0 v9 ?# K. O% e
3. 將#18的代碼複製下來(該樓層下方有一 ...

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

打开来报警

出现这个

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

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

杨成武发表于 2016-4-30 19:34
2 k% y* K `, p" T6 ^1 q不好意思麻烦丹大看看问题出在哪里

最上方加入下兩行代碼

Dim swApp As SldWorks.SldWorks5 `5 y9 e( r& ]* E
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:271 R; {& ^6 Q5 l' D
能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

现在要不要了，我有

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

安顺发表于 2016-7-13 13:49
4 q; `( x9 O- u/ H8 k: C" J! u/ i现在要不要了，我有

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

浏览过的版块