solidworks文件属性自定义

赤之梦_ZX7zG

公司要求零件命名为：零件号+零件名称
3 {5 v% s/ K5 r0 m! ~) g2 o下图如何设置才能自动识别的？求大神指点！
- d9 e3 t' }) i- E$ n# N, t2 O
0 p7 I+ H, b! F) X
7 Y( c4 t: S  L0 \+ z5 f

谢远宗00

就是在零件名称 后面定义名字跟代号就可以了 ，出工程图自动在工程图显示
% \7 O" Q. G9 l; `* a

wx_vdZmJi97

百度一下“solidworks图号和名称分离命令”有惊喜。

远祥

零件名称很难定义准确，所以不建议把零件名称给增加上。

未来第一站

可以直接在开始菜单——SolidWorks工具——属性编制程序里做

ryouss

宏處理
. U# I% s5 m- }, a6 w; @
9 z1 R: }4 T) F$ S

1. Dim swApp As Object
   ( @* U9 O4 J$ g1 I1 g; Z& {( l: M2 }
2. Dim Part As Object
   
3. Dim SymbolPlace As Integer
   " K0 G. t% h+ R* }+ a% i
4. Dim Number_Name As String
   
5. Dim Number_ As String
   # U9 w0 u2 c8 U6 ~
6. Dim Name_ As String
   
7. 
   7 G( i: W. N& F3 }* Q: [, y
8. Sub main()
   ! h; |7 `* B4 X7 E) P2 c
9. Set swApp = Application.SldWorks
   ( {; M/ W' T5 ^$ V) }
10. Set Part = swApp.ActiveDoc
    4 S$ A% N' y3 V2 p- H# _- l
11. Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的 編號-名稱(本例編號名稱是用 " - " 符號分離)
    ' z% P9 z$ b8 |# b7 [3 D' e2 p
12. SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數
    
13. Number_ = Left(Number_Name, SymbolPlace - 1) '取得 零件編號
    
14. Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得 零件名稱
    
15. blnretval = Part.DeleteCustomInfo2("", "PartNumber")
    
16. blnretval = Part.DeleteCustomInfo2("", "PartName")
    ' x7 H! i9 X6 Y, H+ t: s/ J0 a
17. blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)
    8 S# p- Y: @; x# H3 o2 U/ c
18. blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)
    4 J. x7 V' m+ r8 w1 ]
19. End Sub

复制代码

" E6 k$ f. g7 b0 Z* L: T

5 N3 X/ ~2 U& X  @' V) P

张灵杰

感谢分享