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

杨成武

jinqin11 发表于 2016-2-18 18:45
打开属性栏，设置属性，如图
2 [, d; i# [9 a( N进入方程式界面，设置全局变量，如图

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

jinqin11

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

$ x" T9 t6 a/ A. ^4 Z' t# @) R装配图好像不管用。
你的是什么版本的

杨成武

jinqin11 发表于 2016-4-27 21:38
装配图好像不管用。
你的是什么版本的

sw2015，你有qq吗？

gt.adan

杨成武 发表于 2016-4-28 19:16
/ r0 m+ c, a% k5 Z1 v8 W' ?sw2015，你有qq吗？

#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。
. i4 K+ h1 M5 y' d% j4 ^把你要的編碼方式寫出來，具體要求到哪邊寫入圖號？哪邊寫入名稱？這樣才好幫上忙。
8 C, `1 ~& m1 V' U, c' w0 O0 d! J每一公司的命名原則都是不同的，怎麼能期望一個宏就打遍天下呢？

杨成武

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

9 z8 X0 p) x" l  ?" v3 g) U谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－０１－００１轴承支架组件

gt.adan

杨成武 发表于 2016-4-29 07:54
$ W3 X3 Y  q( P# j" j谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

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

杨成武

gt.adan 发表于 2016-4-29 09:42
看不明白…
- u  b- \9 a8 O$ h: |這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
能否明白舉個例子？一個完整的零 ...

丹大这个是一个示意图；
: Q% w* }8 I5 \. J) k做的不好希望能看的明白
/ J& Y' x1 B/ w4 _

1 e# ]. S& j/ l1 A" }& U& ~5 a
麻烦丹大看看谢谢。
3 J) T' Y. l- t. Q' I/ o: o! z

gt.adan

杨成武 发表于 2016-4-29 15:29
丹大这个是一个示意图；
7 |' x5 Q( L+ l做的不好希望能看的明白

/ ?- }3 I. j) x6 @如果貴司的命名原則統一是如此：前10碼為圖號，其餘的為名稱。
那麼以下代碼就可以使用了。

- E( l+ h& m; c3 t

1. Sub main()
   
2. 
   ' W' n/ f. G  K. c
3. Set swApp = Application.SldWorks
   9 B, C5 ^5 A8 D+ I/ c: ]0 \
4. Set model = swApp.ActiveDoc
   
5. 
   / r7 g( v$ P2 v
6. ModelName = model.GetTitle
   & t; ~7 O9 G+ y" ?2 m
7. ModelName = Left(ModelName, InStr(ModelName, ".") - 1)
   + T* G) x1 o) W% n) J
8. 
   
9.   retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")
   
10.   retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))
    # Z7 U5 Z/ f& [( b; ?3 ]1 l+ f
11.   retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")
    4 {9 R( x$ H, W5 b/ w% L
12.   retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10))
    
13. 
    ) Y2 A4 H2 C# Z: }' j
14. End Sub
    

复制代码

# a* F) {1 r0 C, j4 l# @- _6 R6 t5 d

! H3 R, ^7 N8 Y8 |1 k& d

gt.adan

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

- O! K. W& K- L4 u2 \  N要達到批量新增的話，如下代碼：
7 @2 O2 J( ~$ Z
4 T  j3 O* A6 t& L7 v* E6 F; d7 m

1. Dim swApp        As SldWorks.SldWorks
   
2. Dim swModel      As SldWorks.ModelDoc
   7 V2 Y5 w7 L- o* ]6 x
3. Dim sFileName    As String
   
4. Dim path         As String
   
5. Dim nErrors      As Long
   
6. Dim nWarnings    As Long
   
7. Sub main()
   
8.     Set swApp = Application.SldWorks
   0 H# i; ~5 f3 J* T" {" V; e7 b5 T
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 & ""
    + m7 Q% ~& E: w/ t- y$ T( B
11.     sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw
    
12. Do Until sFileName = ""
    $ ], t# q/ M2 Z
13.   
    9 p/ K. x0 `0 I
14.     Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING
    : G: \: }2 Y0 w) B  w  a
15.     Set swModel = swApp.ActiveDoc
    1 {) w# v& }- w! Q" O
16.    
    
17.     retva6 = swModel.DeleteCustomInfo("Number")
    
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.    
    9 U8 e/ O: y, x) q
22.     swModel.Save
    
23.     swApp.CloseDoc (sFileName)
    0 [- R- h5 r0 d7 d9 o5 `! m
24.     sFileName = Dir
    , M9 e. w; @: X+ i  |  C8 d
25. Loop
    
26. MsgBox "DONE!"
    # g& j6 B$ W% E4 R# C5 s: \3 P
27. End Sub
    

复制代码

. o9 C0 g: U% z, i- b% ]: m. O; {
3 T7 I+ o' c' O% {

杨成武

gt.adan 发表于 2016-4-29 16:39
1 M$ F! L! u) Y! }6 S/ h要達到批量新增的話，如下代碼：

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

gt.adan

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

1. 工具--宏--新增
+ J: L0 @# k( A3 h2. 命名後確認，進入編輯視窗，不要關閉。
! ~" W, v7 ?" Z& M  ?% ^3. 將#18的代碼複製下來(該樓層下方有一個複製的連結)
4. 回到編輯視窗，將方才的代碼貼上，儲存後關閉。
6 j' Y0 l- p) N5 x7 j" M5. 打開要加入屬性的零件，工具--宏--執行，目的選擇剛才新建立的宏。
6. 完成。

杨成武

gt.adan 发表于 2016-4-29 23:54
' {$ h% h9 x, u# k1. 工具--宏--新增
2 z( {2 c; I# \( r/ E% N( R' E0 T2. 命名後確認，進入編輯視窗，不要關閉。
3. 將#18的代碼複製下來(該樓層下方有一 ...

, {0 n0 F- Y* L5 [  ^+ l0 Q不好意思麻烦丹大看看问题出在哪里

打开来报警

出现这个

" g  }8 V2 Y, k, s, z3 A

gt.adan

0 C% H& x7 r8 }6 d& j0 q+ U; d

杨成武 发表于 2016-4-30 19:34
0 M! `! V9 Z$ ?0 v5 Z. {& {& Q不好意思麻烦丹大看看问题出在哪里

最上方加入下兩行代碼
' ~0 ]6 R! W; o; R8 D3 T
3 u$ Y. |" V0 Z! s6 u9 w2 R

1. Dim swApp        As SldWorks.SldWorks
   ; [+ i' b3 C5 @' a8 s' Y+ j% J5 ~
2. Dim model      As SldWorks.ModelDoc

复制代码

. v+ j! _; {$ g$ n: B- [! [! G
& \7 L% t7 x/ {, I. j; c! Q# _6 e  G: @
+ c# `. l' O1 s- o9 C

leien0

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

yockay

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

yockay

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

安顺

squi111 发表于 2016-1-30 23:27
能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

& m4 T8 p6 T; m3 T7 c) e现在要不要了，我有

leo77

安顺 发表于 2016-7-13 13:49
7 {3 ?: I; g3 S$ e8 F/ _$ S现在要不要了，我有

能用于2016吗？能否共享 谢谢！

hheyafu

可用于2016的呀

bjgtlzh

论坛怎么赚流量啊

hchch909

学习了，好好试用下！

liuyun0113

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