|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:
v9 m( `7 M8 ]* K1 |. K3 T% l9 yproc capTrue { args } {
$ |+ ?7 J' k h! Q return 1+ h% L4 v( O2 s! ^/ J( u0 v
} a# Z& b6 e9 F6 Q
+ ]! o8 x1 Y& y7 g- B
proc CisExplorerPreCreate { args } {
' F+ F8 d' }+ |9 J. Y. e# J4 ^ set result 1, n# K2 i, y& o; \$ c8 B
SetCISMultiValuedField {Datasheet}
3 K6 q# h0 Z" K* h# S SetCISMultiValuedField {Value}
0 b( ?. i( c5 C5 X# }7 K AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]8 C, D* l; b+ s7 r
AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]
4 `' g) Y4 `$ I; x8 @& \ s AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]
+ s# U. B/ _. m' s0 q" T AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255] % R) f) Q% @8 q" j$ H0 `8 `3 Z9 Q4 x
return $result0 ^! c: \ F) i2 l; _' [0 \
}
6 e8 f7 ?1 p$ J/ J" @7 G/ }/ a0 h5 Q5 h3 s5 ?
RegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" "": T0 m2 R- m3 ~" X/ N8 {0 ?8 k
编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。! }9 L/ P6 \5 h* O n
程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。
, A/ r5 X3 o/ T i: p. S |
评分
-
查看全部评分
|