|
|
发表于 2012-2-17 17:00:16
|
显示全部楼层
来自： 中国江苏苏州
6# 802210
& G2 R+ ?4 `4 a' e" V$ v; [! ?
% H0 v5 m$ B3 k' X, C; c, g b
8 y% v; g9 m- TDo While FileName <> ""
) Z6 h/ U0 B0 K Set swModel = swApp.OpenDoc6((FileDir + FileName), nDocType, swOpenDocOptions_Silent, "", nErrors, nWarnings)" u H3 a% ?, J/ O1 o6 W4 Z* K) }
Set Part = swApp.ActiveDoc3 X1 E3 T4 E' j4 U
Set CusPropMgr = Part.Extension.CustomPropertyManager("")) ^, ~/ t+ a0 n$ X" d W
0 B/ t2 e% y% ]# [% [2 Y; {' S( H CusPropMgr.Add2 板厚, swCustomInfoText, 你的板厚值
8 m/ {* r; n* z2 c$ ^% W
# c5 |+ P, x c% T. D errors = swModel.Save2(True)
$ ^6 M _. u, A, V# c swApp.QuitDoc (FileDir + FileName)# J4 Z& i2 v0 H; a/ u
FileName = Dir |
|
楼主