solidworks文件屬性自定義

赤之夢_ZX7zG

公司要求零件命名為：零件號+零件名稱
. m: b1 p) n5 m% K" C* @下圖如何設置才能自動識別的？求大神指點！
" n; t9 f7 p: F+ I. F2 X
1 e7 T6 B  t) C- v, D' W9 K

謝遠宗00

就是在零件名稱 后面定義名字跟代號就可以了 ，出工程圖自動在工程圖顯示
: Q! ^6 P9 q) V. o+ K# r

wx_vdZmJi97

百度一下“solidworks圖號和名稱分離命令”有驚喜。

遠祥

零件名稱很難定義準確，所以不建議把零件名稱給增加上。

未來第一站

可以直接在開始菜單——SolidWorks工具——屬性編制程序里做

ryouss

宏處理
9 l. u, c4 K/ \

1. Dim swApp As Object
   % B3 Y3 H6 F( v+ v7 J0 {
2. Dim Part As Object
   5 M( q7 f7 g5 ~  H# W: O7 I
3. Dim SymbolPlace As Integer
   ) A( N+ d7 V/ g+ U3 N) x
4. Dim Number_Name As String
   2 B) i2 b9 @' A- @$ @6 K+ h
5. Dim Number_ As String
   
6. Dim Name_ As String
   
7. 
   , I( ^# P1 e. x  E( W) {# N' q  V
8. Sub main()
   1 I2 l2 |% ]( X  `7 O# t
9. Set swApp = Application.SldWorks
   
10. Set Part = swApp.ActiveDoc
    
11. Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的 編號-名稱(本例編號名稱是用 " - " 符號分離)
    
12. SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數
    
13. Number_ = Left(Number_Name, SymbolPlace - 1) '取得 零件編號
    
14. Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得 零件名稱
    - t) i/ g, u1 ^
15. blnretval = Part.DeleteCustomInfo2("", "PartNumber")
    9 m3 {+ J: V( M! a6 S4 R3 a+ k
16. blnretval = Part.DeleteCustomInfo2("", "PartName")
    
17. blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)
    
18. blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)
    
19. End Sub

復制代碼

6 u) Q. r% ~6 v, A  B0 b4 k4 @7 }



! Z2 g6 O# B7 z  u  y2 M# s
  g3 x% L! w$ f" p0 }& _

張靈杰

感謝分享