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

杨成武

jinqin11 发表于 2016-2-18 18:45
0 }, g0 B$ ?) J: n  @打开属性栏，设置属性，如图
% b; p; B  V' t, ?5 h进入方程式界面，设置全局变量，如图

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

jinqin11

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

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

杨成武

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

* l, w0 E! r3 u* f, E, _; Xsw2015，你有qq吗？

gt.adan

杨成武 发表于 2016-4-28 19:16
" V' R; p5 w3 }3 v8 H" a9 gsw2015，你有qq吗？

* P. |& c% G2 R#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。
7 F% g, k% L9 @& [# u' h( `把你要的編碼方式寫出來，具體要求到哪邊寫入圖號？哪邊寫入名稱？這樣才好幫上忙。
每一公司的命名原則都是不同的，怎麼能期望一個宏就打遍天下呢？

杨成武

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

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

gt.adan

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

4 `0 A& X% ~0 [% z& J+ g; `看不明白…
' P& r+ [; C0 @% }- P7 f( V+ U0 }這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
2 l" i8 k" O( x: L8 n. Q+ e能否明白舉個例子？一個完整的零件命名，然後哪一部份要寫入「圖號」？哪一部份要寫入「名稱」？

杨成武

gt.adan 发表于 2016-4-29 09:42
看不明白…
) x5 x1 Z" ^' j; s$ w% d& J5 E. J這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
能否明白舉個例子？一個完整的零 ...

3 T2 }$ {& |6 ^/ w丹大这个是一个示意图；
做的不好希望能看的明白
2 i8 o) ^1 Q: }% s; H  k8 B

$ O% b' v) J( r& J. V: }2 {
- c& t+ J- u0 \) ~4 [+ @" ~麻烦丹大看看谢谢。
8 s+ u( c1 M, R' q7 P' E

gt.adan

9 U+ ?( V  q5 I

杨成武 发表于 2016-4-29 15:29
- V- H& }  _5 _& K, O丹大这个是一个示意图；
' R  S: l% H5 V5 f: s$ N, Q0 C8 ]做的不好希望能看的明白

# u( Q. i, I' A/ }3 W8 h' v如果貴司的命名原則統一是如此：前10碼為圖號，其餘的為名稱。
. X  i- H, F  b) A+ U那麼以下代碼就可以使用了。

1. Sub main()
   1 g% P; C* P; g- t' }( N
2. 
   
3. Set swApp = Application.SldWorks
   * f; G6 a) `' E3 M) q, s
4. Set model = swApp.ActiveDoc
   . O' [6 o+ `5 f; S9 ]
5. 
     J. S4 R9 s% s+ W! z
6. ModelName = model.GetTitle
   
7. ModelName = Left(ModelName, InStr(ModelName, ".") - 1)
   
8. 
   
9.   retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")
   
10.   retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))
    # [2 n  G' ~$ t) m5 E( G5 I
11.   retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")
    ; U  n4 @( W! K2 B+ ~$ h/ ]
12.   retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10))
    
13. 
    
14. End Sub
    0 W7 {: X! w, _. Y- h3 S

复制代码

+ w0 W+ T* Y4 J8 S9 W) P+ ]
) Y, c. h; R! G) c

gt.adan

杨成武 发表于 2016-4-29 15:29
1 g! s$ d$ F- L) y/ H丹大这个是一个示意图；
" D9 R$ k2 ]2 T9 ]3 Y. b0 F7 B做的不好希望能看的明白

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

1. Dim swApp        As SldWorks.SldWorks
   + c8 |, O; v# B
2. Dim swModel      As SldWorks.ModelDoc
   
3. Dim sFileName    As String
   
4. Dim path         As String
   
5. Dim nErrors      As Long
     K6 i2 n3 B' x# y4 n# X
6. Dim nWarnings    As Long
   
7. Sub main()
   + r/ ?5 A% [+ c$ f
8.     Set swApp = Application.SldWorks
   
9.     path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑
   6 e- I% H7 y# s2 S0 ^' @
10.     If Right(path, 1) <> "" Then path = path & ""
    - r3 w) N# d. y
11.     sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw
    % }+ Y4 S1 v0 G% Y
12. Do Until sFileName = ""
    7 f3 N& R8 N- Z' z) r1 q! C
13.   
    6 ]2 u- w& E& g
14.     Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING
    
15.     Set swModel = swApp.ActiveDoc
    
16.    
    
17.     retva6 = swModel.DeleteCustomInfo("Number")
    
18.     retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))
    ! e+ w9 |( w) |# q' ~5 o: a* W
19.     retva6 = swModel.DeleteCustomInfo("Name")
    
20.     retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10))
    3 i' ^5 q( v; A4 R( a9 ?
21.    
    
22.     swModel.Save
    - e+ Z8 H& f4 X# y/ `
23.     swApp.CloseDoc (sFileName)
    
24.     sFileName = Dir
    
25. Loop
    5 l" d0 s% b+ a7 w
26. MsgBox "DONE!"
    
27. End Sub
    + u: q! Q" k) F

复制代码

; o6 ^) e) x3 a# Z
; m: ?0 W" \& w& x2 q! i

杨成武

gt.adan 发表于 2016-4-29 16:39
要達到批量新增的話，如下代碼：

' D# @: e7 ?1 L8 z  }5 A2 ]9 i丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

gt.adan

杨成武 发表于 2016-4-29 18:36
( _- C& Z9 f' }$ a' |/ `6 @丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

1. 工具--宏--新增
+ I1 g) Z- m2 `* h: B# L+ j2. 命名後確認，進入編輯視窗，不要關閉。
3. 將#18的代碼複製下來(該樓層下方有一個複製的連結)
4. 回到編輯視窗，將方才的代碼貼上，儲存後關閉。
5. 打開要加入屬性的零件，工具--宏--執行，目的選擇剛才新建立的宏。
6. 完成。
% O1 m/ r. S1 M

杨成武

gt.adan 发表于 2016-4-29 23:54
1. 工具--宏--新增
2 d- i( J  c# P" x! L) [- r5 B2 Y9 @2. 命名後確認，進入編輯視窗，不要關閉。
0 @9 Z+ Y5 G: t4 r& @  z1 L, _3. 將#18的代碼複製下來(該樓層下方有一 ...

- o, t" b1 ^% X0 X. P; }不好意思麻烦丹大看看问题出在哪里
  }. V* h* H3 f/ p

打开来报警

" Q: w$ Y- k* G4 L

出现这个

gt.adan

- [0 c( z1 y- o( S" q4 |

杨成武 发表于 2016-4-30 19:34
7 \3 S3 g' h8 a5 y8 T' N不好意思麻烦丹大看看问题出在哪里

最上方加入下兩行代碼
* L% Q# I8 c, B

1. Dim swApp        As SldWorks.SldWorks
   
2. Dim model      As SldWorks.ModelDoc

复制代码

, |6 n! k- P. u
# v: X7 E6 L, A  t6 W9 n  I4 P

leien0

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

yockay

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

yockay

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

安顺

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

现在要不要了，我有

leo77

安顺 发表于 2016-7-13 13:49
$ r+ J0 L2 U3 t# P( i' {+ E现在要不要了，我有

; o" X" C4 F8 ?( I! _5 e能用于2016吗？能否共享 谢谢！

hheyafu

可用于2016的呀

bjgtlzh

论坛怎么赚流量啊

hchch909

学习了，好好试用下！

liuyun0113

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