|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:
- h4 X# u/ q' h6 d& l5 m+ d% p4 Z! eproc capTrue { args } {
! o" o% D4 x2 n, T& G: _ ] return 13 ?* e# X- S2 Z5 Y ?+ x+ u
}3 f# z5 }, S& l4 @1 }- a# J
9 T# Y/ H4 W: _! H2 Oproc CisExplorerPreCreate { args } {6 v5 s0 o. [% J8 \4 z% c& Z
set result 1
. G0 x4 i. H! |) _( {9 p9 U+ q: L SetCISMultiValuedField {Datasheet}9 @/ Z+ [) `$ @5 [4 k; w
SetCISMultiValuedField {Value}
$ e7 U3 e4 ?7 _* E4 N AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]/ P) K5 f4 w& W7 d& w
AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]
# k/ `, L, H9 O1 p. A' B ~ AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]( a) M! a- c! r" n! a8 w' C
AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255] * d1 f8 Q4 A& l- y% c: o- |
return $result
! U* V9 S, q+ t9 X}
& f2 w6 e. g0 \8 _% m2 s$ |: X% H; c$ {
4 @: H2 L# { S; J' J: |RegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""
; V, P8 s/ i% q. c% K 编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。
8 _# _3 U o, A% J S, g1 o* @ 程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。
5 A+ o. `! D7 d0 L8 @ |
评分
-
查看全部评分
|