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

杨成武

jinqin11 发表于 2016-2-18 18:45
打开属性栏，设置属性，如图
进入方程式界面，设置全局变量，如图

+ L6 Y0 E8 k; k! k5 K  X- R! i$ I老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02-03-04支撑架，装配图号例如：GH01-02-03-04-001轴承座组建

jinqin11

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

装配图好像不管用。
7 g' b6 W, _& o& m* i/ k5 J; `你的是什么版本的
; m+ L9 F- z0 @6 C$ c; A4 a% Q

杨成武

jinqin11 发表于 2016-4-27 21:38
8 F2 T, G2 s1 J2 H! r装配图好像不管用。
/ b7 W  w/ f5 i+ f9 n- w9 K* h0 [6 B" R你的是什么版本的

! g  n  k' |+ [9 {0 fsw2015，你有qq吗？

gt.adan

杨成武 发表于 2016-4-28 19:16
sw2015，你有qq吗？

$ p: a; P9 s% X7 w' e% b#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。
# M$ t6 j: s6 [2 O/ J7 j把你要的編碼方式寫出來，具體要求到哪邊寫入圖號？哪邊寫入名稱？這樣才好幫上忙。
每一公司的命名原則都是不同的，怎麼能期望一個宏就打遍天下呢？

杨成武

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

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

gt.adan

杨成武 发表于 2016-4-29 07:54
: |& z; {- a1 d( C; D% K, r% @. z谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

( j7 E% K/ t7 r; c( z' g1 L' V: L看不明白…
這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
能否明白舉個例子？一個完整的零件命名，然後哪一部份要寫入「圖號」？哪一部份要寫入「名稱」？

杨成武

gt.adan 发表于 2016-4-29 09:42
看不明白…
0 r& y+ K' b2 i( C* P這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
能否明白舉個例子？一個完整的零 ...

6 {  ^* ^: Q8 E5 y丹大这个是一个示意图；
做的不好希望能看的明白


2 R% U9 m+ |' U0 }  A& T! B% k; `
: O( W* }3 i' C0 D4 ]) R" ]麻烦丹大看看谢谢。
' ~+ G( X5 ^* f$ A+ _

gt.adan

杨成武 发表于 2016-4-29 15:29
7 N+ _8 n- W2 f" i& a  l% Z丹大这个是一个示意图；
+ k5 ~( p( q. R做的不好希望能看的明白

! Z& A% d; F% r1 J% q* s" F  d如果貴司的命名原則統一是如此：前10碼為圖號，其餘的為名稱。
那麼以下代碼就可以使用了。

8 y. _, S# L% ~) ^  j1 B3 }

1. Sub main()
   
2. 
   " A  L' f- d' H
3. Set swApp = Application.SldWorks
   & I* H5 ~3 O4 T4 l
4. Set model = swApp.ActiveDoc
   ' v$ S3 |: ?1 r- _1 M' \: n# c7 a
5. 
   : P, L1 [7 c  y) r' k% o+ q
6. ModelName = model.GetTitle
   # s  z( _: F  J! h- H( d
7. ModelName = Left(ModelName, InStr(ModelName, ".") - 1)
   
8. 
   - ~- Y( Q- s9 m. [, p# w6 x
9.   retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")
   . z+ O0 }7 }( Z/ m0 x
10.   retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))
    
11.   retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")
    8 `' E1 f/ s9 W9 s
12.   retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10))
    1 l$ L0 d' D' @1 E
13. 
    
14. End Sub
    

复制代码

1 B7 G) ^2 O: Z' d; C, a

gt.adan

杨成武 发表于 2016-4-29 15:29
" W4 S) S1 {! w# {! N0 x丹大这个是一个示意图；
做的不好希望能看的明白

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

1. Dim swApp        As SldWorks.SldWorks
   7 o% J7 a+ V) Y) z3 O
2. Dim swModel      As SldWorks.ModelDoc
   ! t" v$ i$ |+ p9 [
3. Dim sFileName    As String
   
4. Dim path         As String
   
5. Dim nErrors      As Long
   5 ^  D0 t& P; d4 Q7 s4 e2 @6 Z
6. Dim nWarnings    As Long
   ) I/ J9 b! o! o6 z
7. Sub main()
   
8.     Set swApp = Application.SldWorks
   & {2 J3 y5 z1 E/ ^$ w) T
9.     path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑
   1 [3 {- q: T) u
10.     If Right(path, 1) <> "" Then path = path & ""
    
11.     sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw
    $ w) M6 R& L4 o2 I% Z7 _% v; i
12. Do Until sFileName = ""
    3 [+ H$ B5 n# I1 ?% J- F5 P
13.   
    9 @9 F7 s! g& X& f0 A
14.     Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING
    + n& A1 ]% D2 B! k3 T( {9 i
15.     Set swModel = swApp.ActiveDoc
    ) a% G# G& T3 p
16.    
    * f( _9 K  ?4 K4 O& t, u: i
17.     retva6 = swModel.DeleteCustomInfo("Number")
    0 ]3 C8 w4 ~8 S7 f
18.     retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))
    
19.     retva6 = swModel.DeleteCustomInfo("Name")
    : v% c$ u  w, l$ g4 L
20.     retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10))
      j' K! Q) W8 M  C5 F; M& [5 ~+ b
21.    
    
22.     swModel.Save
    . }# T. _$ c- D6 N0 ~. L% S
23.     swApp.CloseDoc (sFileName)
    
24.     sFileName = Dir
    
25. Loop
    & X; o: x; N! X$ p5 m1 |; o) i
26. MsgBox "DONE!"
    9 |8 K% R" C* D9 \+ F1 ]7 D
27. End Sub
    0 b- u4 l  Z$ ~% A% l& Q1 G' }9 D

复制代码

# S' N4 V, ^5 I( V! F

  M  C+ G) _9 L# I& V9 O: c: N+ A

杨成武

gt.adan 发表于 2016-4-29 16:39
. W0 m) Z" k  x, y5 T9 p要達到批量新增的話，如下代碼：

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

gt.adan

杨成武 发表于 2016-4-29 18:36
& h, B, y4 M2 ~; Q! l: c) q& i8 J丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

1. 工具--宏--新增
; }# ^+ ?2 e9 `4 c! C5 r% w2. 命名後確認，進入編輯視窗，不要關閉。
3. 將#18的代碼複製下來(該樓層下方有一個複製的連結)
6 J# {% w- R/ Q4. 回到編輯視窗，將方才的代碼貼上，儲存後關閉。
, e6 S3 B& ?2 s/ c2 o6 V5. 打開要加入屬性的零件，工具--宏--執行，目的選擇剛才新建立的宏。
6. 完成。

杨成武

gt.adan 发表于 2016-4-29 23:54
1. 工具--宏--新增
2 g) l8 k& h' l2 J9 d. S9 @2. 命名後確認，進入編輯視窗，不要關閉。
* ^# x' }- F5 V9 q$ E3. 將#18的代碼複製下來(該樓層下方有一 ...

# n2 U- V& {" ]5 k# k- x; t不好意思麻烦丹大看看问题出在哪里
' j+ K- Z3 z1 r5 }: r9 n

打开来报警

出现这个

gt.adan

杨成武 发表于 2016-4-30 19:34
不好意思麻烦丹大看看问题出在哪里

0 Q1 R, |4 `, j. s" O# j( l最上方加入下兩行代碼

6 R5 Q2 A0 \$ j* F

1. Dim swApp        As SldWorks.SldWorks
   ' K' Q" {1 S8 P  K; _/ k! P4 _: F% v
2. Dim model      As SldWorks.ModelDoc

复制代码

: Q% z4 l; g+ a' W7 y9 p* X
0 L) S6 T( h+ D. V

leien0

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

yockay

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

yockay

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

安顺

squi111 发表于 2016-1-30 23:27
4 K7 }  x; |9 }7 Y0 [$ b8 ?3 ]+ R能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

3 w0 t1 B' p* ?+ ~! [/ n( x9 z现在要不要了，我有

leo77

安顺 发表于 2016-7-13 13:49
# w+ o! |& }+ x6 X$ k现在要不要了，我有

, Y* P2 }( q: U0 e7 N, l1 ~能用于2016吗？能否共享 谢谢！

hheyafu

可用于2016的呀

bjgtlzh

论坛怎么赚流量啊

hchch909

学习了，好好试用下！

liuyun0113

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