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
- j v! W: N# [' L) \& ?* h
Dim Part As Object( c1 [; F1 G5 Q' |& t9 W
Dim SymbolPlace As Integer) Y% v. d/ `6 C3 f/ p R
Dim Number_Name As String( h8 m' ]8 h& _) |& O1 W Y+ r
Dim Number_ As String
5 l; K* b* `: x: U( N: M0 y
Dim Name_ As String& r& z3 K2 r7 o" O
8 a! a. x/ e- a& b1 e. H" ~$ Q
Sub main()7 ], I$ b& L \/ G& q5 V5 S% V
Set swApp = Application.SldWorks2 ]3 Q1 @( t% [' h
Set Part = swApp.ActiveDoc
' ?$ ~4 U# I w& j8 }. G. @" N' |
Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的編號-名稱(本例編號名稱是用 " - " 符號分離)
% y* Z$ Q, y) x# b4 a, B
SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數1 k, u- i* p5 O# U& s
Number_ = Left(Number_Name, SymbolPlace - 1) '取得零件編號
/ g: x/ }' a% @, ]& ~
Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得零件名稱
+ p `0 C7 G& L) @1 Q+ ~7 w) m
blnretval = Part.DeleteCustomInfo2("", "PartNumber")( b! x, P3 ]- ?* D1 C; ]
blnretval = Part.DeleteCustomInfo2("", "PartName"); ^7 N& W3 x* @1 f4 N. b9 {& _7 [" S
blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_)
( s+ y3 x2 ]6 I$ a( e
blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)
' M+ h7 ]# D) n0 R
End Sub

复制代码

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

感谢分享

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