solidworks文件屬性自定義

赤之夢_ZX7zG

公司要求零件命名為：零件號+零件名稱
9 ]) B# Y) d& E& v下圖如何設(shè)置才能自動識別的？求大神指點！
5 c+ X9 C  K0 u$ i7 X0 b+ w

8 L# P! U7 w- j* C

謝遠(yuǎn)宗00

就是在零件名稱 后面定義名字跟代號就可以了 ，出工程圖自動在工程圖顯示
: {! k, r/ \3 @, O3 C: S8 G1 o

wx_vdZmJi97

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

遠(yuǎn)祥

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

未來第一站

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

ryouss

宏處理
/ u" \) G7 @: e5 P; z5 O
( @2 F! s0 l- Z1 Z9 f

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim SymbolPlace As Integer
   0 y, P! _$ i0 J$ X: V
4. Dim Number_Name As String
   " E  J/ h4 [5 ?$ h# G& y  J
5. Dim Number_ As String
   
6. Dim Name_ As String
   
7. 
   1 h9 @- I  H* F3 I
8. Sub main()
   3 c2 y5 e0 C1 Q, L& g% W, A
9. Set swApp = Application.SldWorks
   
10. Set Part = swApp.ActiveDoc
    4 ]  Y' i: m% u0 {- z+ E8 B6 Z
11. Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的 編號-名稱(本例編號名稱是用 " - " 符號分離)
    2 s; ?: d! a+ w7 }% T& x6 }
12. SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數(shù)
    
13. Number_ = Left(Number_Name, SymbolPlace - 1) '取得 零件編號
    , Y. o2 v& K) P7 B9 f1 q7 I
14. Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得 零件名稱
    7 R! h. N4 j3 t/ b6 H" a
15. blnretval = Part.DeleteCustomInfo2("", "PartNumber")
    & T8 Y: w: W# P# s2 ~
16. blnretval = Part.DeleteCustomInfo2("", "PartName")
    
17. blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)
    
18. blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)
    $ d1 \( G) b; f/ V5 P% f; A
19. End Sub

復(fù)制代碼

) {+ F7 C: K) r# G& }: A9 f
  i4 q6 G7 ~6 Q/ \+ Q6 r; O% D

+ h# T3 c6 y6 \+ m$ }
3 W# D, x* r: ?4 |0 Y0 o% `

張靈杰

感謝分享