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
5 A# V) B3 s) H7 Y* W
Dim Part As Object
' W$ H2 T. n/ B: Z3 y
Dim SymbolPlace As Integer
3 F/ g8 V4 Q0 r
Dim Number_Name As String' q' J# _6 g1 v' b
Dim Number_ As String9 Z: H/ k: J" \8 p1 M0 d5 z0 B
Dim Name_ As String
! X- ?! s: u) c9 b, P
. v- @0 ~4 K. ?! T3 m6 P/ K+ o: T3 y: L
Sub main()1 B @4 h, }! I: {9 m3 p t
Set swApp = Application.SldWorks
3 ~) M* `: e! a, j k) f% ^
Set Part = swApp.ActiveDoc
, ~. \" K: K4 {
Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的編號-名稱(本例編號名稱是用 " - " 符號分離). l. s6 }1 b: C. a# y" v( G' [5 e
SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數
0 g2 Q5 e2 f: D" X+ J9 m# S
Number_ = Left(Number_Name, SymbolPlace - 1) '取得零件編號
0 y! [/ ]) I/ W
Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得零件名稱8 k! H" J% T8 k$ R
blnretval = Part.DeleteCustomInfo2("", "PartNumber") h J& ~4 f* r: F r- A+ W
blnretval = Part.DeleteCustomInfo2("", "PartName")
4 g3 E* C; j' S9 N( h- w* D
blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_): a1 c2 ^1 s( ^3 A0 I6 g
blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)
7 q7 Q, v1 ?, `( z- Z# ]# }3 x
End Sub

复制代码

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

感谢分享

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