solidworks文件屬性自定義

赤之夢(mèng)_ZX7zG

公司要求零件命名為：零件號(hào)+零件名稱(chēng)
+ n9 r# h6 ^' S, d下圖如何設(shè)置才能自動(dòng)識(shí)別的,？求大神指點(diǎn),！


7 s" b* f$ [/ _0 ~, f

謝遠(yuǎn)宗00

就是在零件名稱(chēng) 后面定義名字跟代號(hào)就可以了 ,，出工程圖自動(dòng)在工程圖顯示

wx_vdZmJi97

百度一下“solidworks圖號(hào)和名稱(chēng)分離命令”有驚喜,。

遠(yuǎn)祥

零件名稱(chēng)很難定義準(zhǔn)確，所以不建議把零件名稱(chēng)給增加上,。

未來(lái)第一站

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

ryouss

宏處理
6 K+ Y4 O  p3 p! e+ l& w) g: `

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim SymbolPlace As Integer
   $ F+ y  {4 u2 Q' a
4. Dim Number_Name As String
   2 P- Q, f, p9 r6 g) N4 ~
5. Dim Number_ As String
   
6. Dim Name_ As String
   
7. 
   
8. Sub main()
   
9. Set swApp = Application.SldWorks
   2 W: u" o- @+ e% C0 U
10. Set Part = swApp.ActiveDoc
    
11. Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的 編號(hào)-名稱(chēng)(本例編號(hào)名稱(chēng)是用 " - " 符號(hào)分離)
    4 F* N/ n+ J3 D; t/ F2 L$ N
12. SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號(hào)的位置數(shù)
    
13. Number_ = Left(Number_Name, SymbolPlace - 1) '取得 零件編號(hào)
    
14. Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得 零件名稱(chēng)
    
15. blnretval = Part.DeleteCustomInfo2("", "PartNumber")
    
16. blnretval = Part.DeleteCustomInfo2("", "PartName")
    
17. blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)
    ! D% F& g" Z- m& V9 ?
18. blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)
    $ w- q$ W- s4 J
19. End Sub

復(fù)制代碼

2 r7 ?( l* V! E1 B- }



5 a7 P: u- J* v& p; ^" f

張靈杰

感謝分享