solidworks文件屬性自定義

赤之夢_ZX7zG

公司要求零件命名為：零件號+零件名稱
下圖如何設置才能自動識別的？求大神指點！
7 ?, }4 V4 m  w
1 Y' O& U  v7 ?& r1 t1 g
+ N9 [3 Y+ W8 |$ n/ v8 b! B& P

謝遠宗00

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

wx_vdZmJi97

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

遠祥

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

未來第一站

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

ryouss

宏處理
' Z5 z4 p0 c* S, W8 u. v

1. Dim swApp As Object
   7 s0 o/ j, j0 Z
2. Dim Part As Object
   - \4 I- H- Y5 D7 _7 r8 y/ r
3. Dim SymbolPlace As Integer
   - }* ]5 _; y/ n
4. Dim Number_Name As String
   ' H; P0 v1 c) o) c2 m' u
5. Dim Number_ As String
   
6. Dim Name_ As String
   ) T/ W8 w3 x0 @* A, a% ]1 Q. t$ e0 X
7. 
   ! b3 R6 C/ l% F+ Y
8. Sub main()
   : b1 m" A' l+ N7 i
9. Set swApp = Application.SldWorks
   
10. Set Part = swApp.ActiveDoc
    4 O- }: T8 z  a! k
11. Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的 編號-名稱(本例編號名稱是用 " - " 符號分離)
    ) T4 x& Z- @: N
12. SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數
    
13. Number_ = Left(Number_Name, SymbolPlace - 1) '取得 零件編號
    
14. Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得 零件名稱
    
15. blnretval = Part.DeleteCustomInfo2("", "PartNumber")
    * q- N! W7 x4 s; w- c
16. blnretval = Part.DeleteCustomInfo2("", "PartName")
    $ G- w! y, ~! i7 E. C! J& R, a0 |
17. blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)
    
18. blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)
    
19. End Sub

復制代碼

0 M& R+ p6 P( h" z
0 R7 ?2 j3 r, n7 X. l1 E


, P( j9 V. a& {5 J# d' {, r

8 Y6 T" g4 a6 r3 v0 }

張靈杰

感謝分享