solidworks文件属性自定义

赤之梦_ZX7zG · 发表于 2018-9-7 14:40:22

公司要求零件命名为：零件号+零件名称
下图如何设置才能自动识别的？求大神指点！

谢远宗00 · 发表于 2018-9-7 14:51:22

就是在零件名称后面定义名字跟代号就可以了，出工程图自动在工程图显示

wx_vdZmJi97 · 发表于 2018-9-7 15:39:16

百度一下“solidworks图号和名称分离命令”有惊喜。

远祥 · 发表于 2018-9-7 19:21:57

零件名称很难定义准确，所以不建议把零件名称给增加上。

未来第一站 · 发表于 2018-9-7 22:09:21

可以直接在开始菜单——SolidWorks工具——属性编制程序里做

ryouss · 发表于 2018-9-8 14:50:33

宏處理

Dim swApp As Object
( j, R; Z; y2 r4 v, F; b
Dim Part As Object
, y m& W* e, Q, V2 c2 W8 d
Dim SymbolPlace As Integer
" A9 ?+ T) p- ~- h* u' v
Dim Number_Name As String: y5 Q/ t. y8 j4 `5 W4 t7 P5 T
Dim Number_ As String5 m3 |+ L4 y9 T5 s: h
Dim Name_ As String
6 j1 C5 _& V3 X( M- b4 a: O2 E
1 Y3 [+ ^$ k) I" h8 ~) u9 n
Sub main()* U/ L7 `& j" R9 ?/ j: i
Set swApp = Application.SldWorks
$ h3 I1 r2 n i, B6 v4 |, M2 P
Set Part = swApp.ActiveDoc
+ c; j2 d. y% B* i0 E3 I2 c$ J
Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的編號-名稱(本例編號名稱是用 " - " 符號分離)
2 ^1 b% }! y+ k( C! f) A+ \% _- y
SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數
+ Y- `; d- g4 K9 |# ~
Number_ = Left(Number_Name, SymbolPlace - 1) '取得零件編號, i/ J$ U* Q$ l, V* P6 a3 V
Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得零件名稱! S, f, r% V- ?4 ^9 l
blnretval = Part.DeleteCustomInfo2("", "PartNumber")+ M( h5 x* j: T- d
blnretval = Part.DeleteCustomInfo2("", "PartName")- w" z; J; E+ z3 y
blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)
_- ?9 d- t+ B6 r8 y6 }# _8 S
blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)( h& n p( e6 C7 @: J) Q7 j
End Sub

复制代码

张灵杰 · 发表于 2020-1-8 20:49:45

感谢分享

		自动登录	找回密码
密码			注册会员