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

杨成武

jinqin11 发表于 2016-2-18 18:45
打开属性栏，设置属性，如图
- C4 j. _5 S5 M* r5 c! k' n进入方程式界面，设置全局变量，如图

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

jinqin11

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

装配图好像不管用。
! C9 L( Q2 y. f0 M% }1 t9 |5 v你的是什么版本的

杨成武

jinqin11 发表于 2016-4-27 21:38
: o: Q: U, ~8 ?3 b: O" l$ t装配图好像不管用。
你的是什么版本的

sw2015，你有qq吗？

gt.adan

杨成武 发表于 2016-4-28 19:16
% |; y0 V2 N4 d  ~4 ysw2015，你有qq吗？

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

杨成武

gt.adan 发表于 2016-4-29 07:01
#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。
把你要的編碼方式寫出來，具體 ...

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

gt.adan

杨成武 发表于 2016-4-29 07:54
  f3 F7 z. G" O/ N/ \谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

看不明白…
# j% [) I& W4 \9 G- O! O( T這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
& j9 u/ _5 D/ O2 t能否明白舉個例子？一個完整的零件命名，然後哪一部份要寫入「圖號」？哪一部份要寫入「名稱」？

杨成武

gt.adan 发表于 2016-4-29 09:42
( n4 f1 ~* j% M7 Z4 a2 c看不明白…
這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
  R# U' ~  M7 P! @能否明白舉個例子？一個完整的零 ...

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

3 J& v( C3 ^& ~0 R
- \, b" G. z& M5 n8 d
0 ~- t8 Y" S4 _  T' N2 W麻烦丹大看看谢谢。

gt.adan

杨成武 发表于 2016-4-29 15:29
丹大这个是一个示意图；
做的不好希望能看的明白

如果貴司的命名原則統一是如此：前10碼為圖號，其餘的為名稱。
" g5 T2 ~$ M& J6 @; G3 c那麼以下代碼就可以使用了。

1. Sub main()
   5 a3 O9 B2 r! O. _7 _
2. 
   
3. Set swApp = Application.SldWorks
   
4. Set model = swApp.ActiveDoc
   % T( |  |+ i9 E2 T
5. 
   
6. ModelName = model.GetTitle
   & f" k0 R, j- E& E' O
7. ModelName = Left(ModelName, InStr(ModelName, ".") - 1)
   3 F$ o* M9 `! X
8. 
   9 T2 J9 x$ W5 H6 Z  G0 Q0 q
9.   retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")
   8 Y6 [3 a+ `2 s
10.   retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))
    
11.   retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")
    ; [3 D6 n8 y* Z4 _& A4 J
12.   retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10))
    
13. 
    , J& z# a# U' ~
14. End Sub
    

复制代码

7 R6 m) a, n# t4 _+ K" F4 m+ m9 L2 C' u
. p- D2 Q/ x# \  n

gt.adan

杨成武 发表于 2016-4-29 15:29
丹大这个是一个示意图；
做的不好希望能看的明白

0 F& O! N# V; l+ O要達到批量新增的話，如下代碼：

: [& R9 r6 e+ n0 V6 }6 c2 N

1. Dim swApp        As SldWorks.SldWorks
   , M' \% d6 e5 C! M+ D
2. Dim swModel      As SldWorks.ModelDoc
   
3. Dim sFileName    As String
   $ z/ w: d- {+ B$ B/ i; P  U' V
4. Dim path         As String
   5 O7 n/ u3 t& H
5. Dim nErrors      As Long
   
6. Dim nWarnings    As Long
   4 D2 h# W3 v1 R
7. Sub main()
   9 r# z: K" P* a: }( ^- s
8.     Set swApp = Application.SldWorks
   ) s2 _5 N9 L5 g& z/ g9 {
9.     path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑
   
10.     If Right(path, 1) <> "" Then path = path & ""
    4 `* n0 t) z3 D% M( v
11.     sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw
    
12. Do Until sFileName = ""
    2 w7 E0 u1 i9 W- H
13.   
    
14.     Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING
    
15.     Set swModel = swApp.ActiveDoc
    
16.    
    # p1 ?0 ^  x" Y# c
17.     retva6 = swModel.DeleteCustomInfo("Number")
    : ]7 I3 w; M+ F' {  V
18.     retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))
    
19.     retva6 = swModel.DeleteCustomInfo("Name")
    
20.     retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10))
    
21.    
    
22.     swModel.Save
    + @7 j% \' _9 O, U( X
23.     swApp.CloseDoc (sFileName)
    1 @( C' L& J  h* |& y5 W, i
24.     sFileName = Dir
    
25. Loop
    
26. MsgBox "DONE!"
    
27. End Sub
    

复制代码

; }9 o1 ^: y' U3 G& O9 n% [/ z3 P

杨成武

gt.adan 发表于 2016-4-29 16:39
# I, y( F2 Z3 @, Q要達到批量新增的話，如下代碼：

# |5 P% L/ d. e. i4 S丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

gt.adan

杨成武 发表于 2016-4-29 18:36
4 F2 D6 G+ l6 V# l! [. ~丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

1. 工具--宏--新增
2. 命名後確認，進入編輯視窗，不要關閉。
$ ~2 E6 s+ M) }* i* g( c! c3. 將#18的代碼複製下來(該樓層下方有一個複製的連結)
4. 回到編輯視窗，將方才的代碼貼上，儲存後關閉。
5. 打開要加入屬性的零件，工具--宏--執行，目的選擇剛才新建立的宏。
6. 完成。
9 j7 p- E. P5 m8 n% [

杨成武

gt.adan 发表于 2016-4-29 23:54
1. 工具--宏--新增
2. 命名後確認，進入編輯視窗，不要關閉。
9 J) C+ O3 t/ Y( z) ]3. 將#18的代碼複製下來(該樓層下方有一 ...

不好意思麻烦丹大看看问题出在哪里
5 o2 ^. d0 R: Y' s7 b' s$ w9 m9 l

打开来报警

! A) N3 g6 W; x$ E  m+ u) ~2 _
/ g" E+ B2 t6 v2 t9 {  M

出现这个

3 k/ k4 g+ t, V4 |
, z8 Z8 J: h% ?  B- b& y" }

gt.adan

7 k. C8 i- B- x3 v' a5 @

杨成武 发表于 2016-4-30 19:34
7 s6 ]6 c8 s/ j. Q不好意思麻烦丹大看看问题出在哪里

/ D% }  J( V* f2 _9 G% J! X6 ^  h最上方加入下兩行代碼
$ w1 X5 p8 g( x9 D, b

1. Dim swApp        As SldWorks.SldWorks
   3 v9 m. D$ w( d
2. Dim model      As SldWorks.ModelDoc

复制代码

% f/ H7 ]8 z  O: k9 q" L+ r
$ q3 N5 _6 f% t3 m
! r, u+ P/ R+ x9 P& {; O* o! ^$ C

leien0

用了这个功能，版本就不要轻易换了，哈哈！

yockay

这个功能要弄好看起来还很复杂

yockay

要是图号和名称都不是固定长度，有解决办法吗

安顺

squi111 发表于 2016-1-30 23:27
6 `8 n$ F- f8 c+ L' ^能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

现在要不要了，我有

leo77

安顺 发表于 2016-7-13 13:49
现在要不要了，我有

: Y# v; C! [9 z# J能用于2016吗？能否共享 谢谢！

hheyafu

可用于2016的呀

bjgtlzh

论坛怎么赚流量啊

hchch909

学习了，好好试用下！

liuyun0113

把我的贡献出来吧。文件名编号规则“图号+空格+零件名称”，图号长度不限制。零件和装配体都适用。宏中的图号和零件名的属性链接根据自己情况修改。