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 Object1 `0 C. h# m+ _( K) S: B" L
Dim Part As Object
8 [0 M& Q* P# f
Dim SymbolPlace As Integer3 y) |+ H) d' N0 v; {8 O: E
Dim Number_Name As String8 \; Q; g2 O1 q$ \
Dim Number_ As String
4 B% Y) o, L# Z V' f( j3 [ K
Dim Name_ As String
# `1 f& b- y- t% l1 b. k. F
/ c+ T" `# `+ E l* ~8 W0 P! B
Sub main()
2 C. m/ m o* Q% M
Set swApp = Application.SldWorks3 M9 n; x3 @6 A& G
Set Part = swApp.ActiveDoc% \* B7 c, @7 Q' x& I
Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的編號-名稱(本例編號名稱是用 " - " 符號分離)
5 f, Q9 R) W, `. { p3 q6 A
SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數
0 d' t) ^4 y2 s" q8 d
Number_ = Left(Number_Name, SymbolPlace - 1) '取得零件編號
6 g9 b% _" W: L" O" i
Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得零件名稱1 t, h$ F- c" Y' x2 N
blnretval = Part.DeleteCustomInfo2("", "PartNumber")/ b" W. ?1 m; l
blnretval = Part.DeleteCustomInfo2("", "PartName")
, L% h' e$ L8 T
blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)* {: t; p* Y- B0 E% D$ b
blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)
; |+ l' V4 ~: }& O) k+ R% t1 a
End Sub

复制代码

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

感谢分享

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