|
|
发表于 2012-2-17 17:00:16
|
显示全部楼层
来自： 中国江苏苏州
6# 802210 5 v4 ~3 V5 C6 V7 P* _
2 G8 W0 W1 t( R" p! o, J* Q( d
* _ A- X+ P7 h1 I; pDo While FileName <> ""
5 c: V6 s# L- y5 A8 J Set swModel = swApp.OpenDoc6((FileDir + FileName), nDocType, swOpenDocOptions_Silent, "", nErrors, nWarnings)4 q; a! y" C, ~- K" C' x
Set Part = swApp.ActiveDoc- ~5 e0 R+ H0 _/ S. N
Set CusPropMgr = Part.Extension.CustomPropertyManager("")
" y- b9 k+ C. n/ i/ J* _ S% G/ R, b# e9 l) e: r, _
CusPropMgr.Add2 板厚, swCustomInfoText, 你的板厚值* o$ s" v: _9 W6 g
1 L' m! {8 p3 z/ R c errors = swModel.Save2(True)
! M7 H! S# @( q0 f. d- n8 S; [! I swApp.QuitDoc (FileDir + FileName)
7 v7 R' x4 G9 X4 `* l9 V FileName = Dir |
|
楼主