|
|
发表于 2012-2-17 17:00:16
|
显示全部楼层
来自： 中国江苏苏州
6# 802210 " A2 z- M* J* s1 d
# K, U& w- |' H1 Q4 F( S2 C2 J9 i
9 {$ f, s4 J0 w* y% Z- Z
Do While FileName <> ""3 ?! t/ d) r3 d6 Z5 K* r& t6 {! ]
Set swModel = swApp.OpenDoc6((FileDir + FileName), nDocType, swOpenDocOptions_Silent, "", nErrors, nWarnings)
6 Q+ C# i+ [0 j9 W Set Part = swApp.ActiveDoc1 V( c7 |# M: [
Set CusPropMgr = Part.Extension.CustomPropertyManager("")
+ R+ E4 ]( J0 p5 A( ?# q* h- x- M5 {
- C1 O8 V# P5 H) n( R6 y! S! l9 E CusPropMgr.Add2 板厚, swCustomInfoText, 你的板厚值
6 ] n6 i% x* e: m
# G6 c! m0 P O9 `' j; v errors = swModel.Save2(True)
7 R- n7 v ^) R" A; p, j/ Y swApp.QuitDoc (FileDir + FileName)6 l1 |1 m8 ]% S, ]1 b0 Z" H
FileName = Dir |
|
楼主