solidworks文件屬性自定義

赤之夢_ZX7zG · 發(fā)表于 2018-9-7 14:40:22

公司要求零件命名為：零件號+零件名稱
下圖如何設(shè)置才能自動識別的,？求大神指點,！

謝遠宗00 · 發(fā)表于 2018-9-7 14:51:22

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

wx_vdZmJi97 · 發(fā)表于 2018-9-7 15:39:16

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

遠祥 · 發(fā)表于 2018-9-7 19:21:57

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

未來第一站 · 發(fā)表于 2018-9-7 22:09:21

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

ryouss · 發(fā)表于 2018-9-8 14:50:33

宏處理

Dim swApp As Object
7 R) T: f A6 R) v4 G
Dim Part As Object3 u+ R+ `& W& h S4 R9 Y
Dim SymbolPlace As Integer/ o7 |0 A$ I W% d% N v- `! u6 J
Dim Number_Name As String3 z d+ A4 u9 F& S: |( c6 K! o# H. T4 U( F& r
Dim Number_ As String. h: c! @5 @1 H% H7 U6 y! [" {" w
Dim Name_ As String0 i0 o* }0 \8 M
. ]3 W& _ X, U" p
Sub main(): l, [1 E4 B" O9 c2 e3 h0 G
Set swApp = Application.SldWorks R, t4 c K! e7 z- }- n+ ?
Set Part = swApp.ActiveDoc
+ o8 O: p0 W' X# x$ [( p+ g( q- }
Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的編號-名稱(本例編號名稱是用 " - " 符號分離)
( M) W7 `% c L3 K: }* n7 q! i
SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數(shù); n/ [) t, x A0 D; w
Number_ = Left(Number_Name, SymbolPlace - 1) '取得零件編號9 T/ R( E; Y6 \( |5 Q, F% x$ _: w
Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得零件名稱# n: x; G- e$ d* ?# V% e+ i
blnretval = Part.DeleteCustomInfo2("", "PartNumber")
' e+ ^5 {: _: }9 b
blnretval = Part.DeleteCustomInfo2("", "PartName")
/ K: f# u" ~4 z
blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_), q8 ~8 B1 D+ |$ E9 E' p
blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_); n/ X4 b; G* v" L: s
End Sub

復制代碼

張靈杰 · 發(fā)表于 2020-1-8 20:49:45

感謝分享

		自動登錄	找回密碼
密碼			注冊會員