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
. X f4 R. a m' S3 V* i
Dim Part As Object! r4 U1 @/ d. |) Y7 i0 m
Dim SymbolPlace As Integer& v5 Q3 \. [7 l: p/ y, c/ g3 U
Dim Number_Name As String; s# e( j7 Q& }$ H$ I( Z- y
Dim Number_ As String% j+ p0 D+ i G# L0 e$ C
Dim Name_ As String" E/ w- f5 h4 Q* Z5 }3 p
4 _% W4 d* f8 h- V6 R U6 J
Sub main()) g8 |" H6 C. t+ t( J7 e
Set swApp = Application.SldWorks
; K& I7 M9 u: L: A }4 \! u+ Y
Set Part = swApp.ActiveDoc$ w+ X$ Y' @8 q: I- P
Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的編號-名稱(本例編號名稱是用 " - " 符號分離)( F6 H0 X/ ~5 ^7 r- m6 w
SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數
$ {/ I9 ?8 [! k; ~* k5 Q' [
Number_ = Left(Number_Name, SymbolPlace - 1) '取得零件編號
' f |) S. \9 C
Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得零件名稱
+ [5 x$ E- K1 {8 C
blnretval = Part.DeleteCustomInfo2("", "PartNumber")* X5 f, {5 @. k8 w* Q; O+ X
blnretval = Part.DeleteCustomInfo2("", "PartName")
5 g$ w9 a* H2 M
blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)
0 G3 K# T/ _# x7 j) w
blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)
8 } |' q g! o
End Sub

复制代码

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

感谢分享

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