|
|
发表于 2012-2-17 17:00:16
|
显示全部楼层
来自: 中国江苏苏州
6# 802210
8 c' f9 }% D8 R$ _$ |$ M) V) F$ j- _- t2 P& f, E
7 G8 d( t# f- K6 V9 `2 Z( ]Do While FileName <> ""3 x8 G# W' [& d4 `
Set swModel = swApp.OpenDoc6((FileDir + FileName), nDocType, swOpenDocOptions_Silent, "", nErrors, nWarnings)1 Q9 b( N/ `6 D! J j! F
Set Part = swApp.ActiveDoc
' f% N* Y, i; l$ Z* V* K* y Set CusPropMgr = Part.Extension.CustomPropertyManager("")
0 r. U7 D9 _2 @- x* r # I g) l. j: n0 D! ]2 P0 R: y
CusPropMgr.Add2 板厚, swCustomInfoText, 你的板厚值' L7 [& a4 @7 ?
4 ?& E' p+ E) U5 _/ E, u, Y4 z errors = swModel.Save2(True)
9 i2 P5 {) r% l" G5 q, j0 e/ J swApp.QuitDoc (FileDir + FileName): U8 V3 `3 r5 c( P1 L/ k9 L; Z/ h1 O
FileName = Dir |
|