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 N, B/ H/ D3 S# G* _+ S F' @
Dim Part As Object
' t$ b) |8 N, t6 O; c; Y+ K
Dim SymbolPlace As Integer
# B. Q0 L6 P9 m2 H
Dim Number_Name As String! F' z6 ~/ C s9 T
Dim Number_ As String
/ @) F4 E: L: I2 X1 ~; ^( K
Dim Name_ As String
/ i. ]4 h7 ?2 f
, W; a0 B) V Q& b3 T; c) Y
Sub main()1 o! e* d. R' x$ h; a) s
Set swApp = Application.SldWorks/ }6 `. U P; G
Set Part = swApp.ActiveDoc) t% H$ a5 b# Y. N
Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的編號-名稱(本例編號名稱是用 " - " 符號分離)
3 ~8 q7 @9 i6 H- [) m: {" y. E
SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數' G7 g! J: |, ?, P/ s& P1 u5 {
Number_ = Left(Number_Name, SymbolPlace - 1) '取得零件編號
1 ~& r( C9 |/ ]6 w! z' t7 x* \
Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得零件名稱+ h- r" G+ l H1 L7 h) `$ u
blnretval = Part.DeleteCustomInfo2("", "PartNumber")4 r7 w5 ~% ^4 i6 {/ D: R
blnretval = Part.DeleteCustomInfo2("", "PartName")
5 M" E, Y1 K( Q y; M
blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)
- T$ z- r) M* v
blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)
+ X, v* e; `* C# ^+ }
End Sub

复制代码

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

感谢分享

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