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 Object9 o2 j" C8 @- t* W
Dim Part As Object/ g# M2 E* H5 e' O9 V5 M
Dim SymbolPlace As Integer2 E1 o' j' w2 Q
Dim Number_Name As String: Q: B6 W% r( y
Dim Number_ As String
/ K! D# D" h( Q" k: t& @. h
Dim Name_ As String
6 \# M/ O# W( R$ Z, _1 E! v
" H2 f9 Y7 m: ]* q6 {' }6 y8 B" r
Sub main()
" T" B J n- G4 a
Set swApp = Application.SldWorks
; p0 U% K1 R6 c: i( I/ `0 l
Set Part = swApp.ActiveDoc
, {6 p$ G9 \6 e& c3 U( \
Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的編號-名稱(本例編號名稱是用 " - " 符號分離)# q- ^2 U ]( z, c" U' E1 S
SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數- U, ?5 u8 [' x3 Q" s/ r
Number_ = Left(Number_Name, SymbolPlace - 1) '取得零件編號( e3 z( X, i" }
Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得零件名稱: u% }0 r% b1 G% u7 U g8 C0 W
blnretval = Part.DeleteCustomInfo2("", "PartNumber")
* _% ^5 k/ k9 W0 M3 g, F
blnretval = Part.DeleteCustomInfo2("", "PartName")! A( }1 g* a4 v* q& |9 i
blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)* S1 H2 p( _+ R9 v
blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)& K* i [4 Z! P6 H9 X
End Sub

复制代码

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

感谢分享

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