solidworks文件屬性自定義

赤之夢_ZX7zG

公司要求零件命名為：零件號+零件名稱
! S+ T8 s/ x: t3 S8 ^3 u- B# b下圖如何設置才能自動識別的？求大神指點！
; e$ R3 C5 f# R! q' I% t; l, j

7 H4 K5 e# a  X9 h

謝遠宗00

就是在零件名稱 后面定義名字跟代號就可以了 ，出工程圖自動在工程圖顯示

wx_vdZmJi97

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

遠祥

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

未來第一站

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

ryouss

宏處理
4 T7 e( N  n/ N2 Q/ B5 H$ N: W9 B) X

1. Dim swApp As Object
   8 f2 E( _7 S5 X$ ?4 s8 K1 [# ^4 P% {
2. Dim Part As Object
   
3. Dim SymbolPlace As Integer
   
4. Dim Number_Name As String
   % T; T( N3 q4 `) x
5. Dim Number_ As String
   ( u( [* C3 S6 m& T7 B
6. Dim Name_ As String
   
7. 
   0 B3 d9 L8 \% Y! @9 E
8. Sub main()
   ( H6 d6 D1 x# T# M% u$ l
9. Set swApp = Application.SldWorks
   % ?0 \& E2 u1 ^3 \' @1 j: E6 D# D
10. Set Part = swApp.ActiveDoc
    4 @1 j2 A9 b4 s* X* n5 q
11. Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的 編號-名稱(本例編號名稱是用 " - " 符號分離)
    
12. SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數
    * y+ T2 T+ v# A/ J
13. Number_ = Left(Number_Name, SymbolPlace - 1) '取得 零件編號
    
14. Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得 零件名稱
    
15. blnretval = Part.DeleteCustomInfo2("", "PartNumber")
    , I4 z4 ~1 Y  ]7 d! f
16. blnretval = Part.DeleteCustomInfo2("", "PartName")
    
17. blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)
    
18. blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)
    
19. End Sub

復制代碼

; I0 c- x: O2 i3 p8 @4 E6 a6 Z  `. R




: [) V0 I5 d0 y8 T6 m
/ ~1 S2 W- Z6 s8 W4 z7 e$ J

張靈杰

感謝分享