Option Explicit
' F) t4 f3 a! p% |+ v: j6 Q: GDim swApp As SldWorks.SldWorks' q3 Z h$ |# D2 t) J7 P" {
Dim swModel As ModelDoc2
I0 M1 M6 m/ [$ X6 X7 \$ \Dim cpm As CustomPropertyManager: B) E+ ~$ T9 C3 o K
Sub main()* o8 z5 }( o" C5 m8 ^
Set swApp = Application.SldWorks
1 x: K2 v/ a# e. A& A9 O6 n8 GSet swModel = swApp.ActiveDoc
& E' K+ |5 y( _$ D- WSet cpm = swModel.Extension.CustomPropertyManager("")
0 n$ J5 i7 G+ d9 gDim path As String, filename As String, partno As String, partname As String, beizhu As String
6 d. R0 k' v- _0 L: K8 Xpath = swModel.GetPathName '获得文件路径和文件名称2 S: ^' L V- x' j* l
filename = Mid$(path, InStrRev(path, "\") + 1) ' 获得文件名称及扩展名+ F0 t2 f. U5 ?0 D) x
filename = Left$(filename, InStrRev(filename, ".") - 1) '移除扩展名
+ D) q# F8 i2 Gpartno = Left(filename, 10) ' 定义partno等于文件名的前9位2 H: `& J; E- Y! [+ P7 G
partname = Right(filename, Len(filename) - 10) ' 定义partname等于文件名剩下若干位, q J" @4 r- t0 t
cpm.Delete "编码" ' 删除自定义属性“编码”
: o7 S5 X3 d; X r% ocpm.Delete "名称" ' 删除自定义属性“名称”: h$ s1 {: k" L1 e) @
cpm.Delete "路径" ' 删除自定义属性“路径”: C* F- x1 E7 a) e+ S$ i
cpm.Add2 "编码", swCustomInfoText, partno ' 增加自定义属性“编码”
* j: ^; M+ ^, q5 X w: M& U2 t# Vcpm.Add2 "名称", swCustomInfoText, partname ' 增加自定义属性“名称”
5 U" p; I$ B) T/ d$ B$ E'cpm.Add2 "路径", swCustomInfoText, path '增加自定义属性“路径”7 i4 l' O; r/ ^0 ?8 M% t5 h
swModel.Save ' 保存文件' O# L7 L9 D7 q: Z0 h
'swApp.CloseDoc (filename) ' 关闭当前激活文件
7 i/ \8 Y! N {& y# P, bEnd Sub
4 s5 Q/ Q: y) h/ z+ }以上 是一种宏的利用 你看看吧 |