solidworks文件屬性自定義

赤之夢_ZX7zG

公司要求零件命名為：零件號+零件名稱
! N" z# L: L& N下圖如何設(shè)置才能自動識別的？求大神指點！
0 b/ S4 F& k$ G* j

# g5 z* g8 x1 B8 X

謝遠宗00

就是在零件名稱 后面定義名字跟代號就可以了 ，出工程圖自動在工程圖顯示
# v. ~" E. P% u/ h

wx_vdZmJi97

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

遠祥

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

未來第一站

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

ryouss

宏處理

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim SymbolPlace As Integer
   9 J- s  ^- c, D6 J
4. Dim Number_Name As String
   % d8 R$ E. V/ X$ O2 _
5. Dim Number_ As String
   , ~9 Z# M* N% `" g
6. Dim Name_ As String
   
7. 
   1 T' o* `4 I, @- n
8. Sub main()
   ' W- b, {# j; J9 Q  H2 W/ a
9. Set swApp = Application.SldWorks
   ' G* ~1 a, s& n" g
10. Set Part = swApp.ActiveDoc
    
11. Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的 編號-名稱(本例編號名稱是用 " - " 符號分離)
    
12. SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數(shù)
    . k! |3 ^) n) M4 U3 i, p) r) q: l
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")
    7 g! L, n5 x/ |6 [
17. blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)
    * `- m" J6 D' s. `: M! a
18. blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)
    # w; l; I, t& R- |
19. End Sub

復(fù)制代碼

" Q' \5 O7 u* _' n

張靈杰

感謝分享