|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:
n4 z) C; O" h9 m3 B0 Hproc capTrue { args } {
' ~' ~2 V+ |3 E return 1- t- v2 T" x D" T0 @! n; e
}
, x3 O/ p; k- R& O4 T% Z
& X. L! W) t c7 dproc CisExplorerPreCreate { args } {8 l, f6 Q3 K) l b; y6 S
set result 1
& Y- G5 }# I6 L$ F% o. O+ Z3 _ SetCISMultiValuedField {Datasheet}$ X0 L- N& f j) r- j$ Z
SetCISMultiValuedField {Value}
' u, V( ^9 n; L6 x* d. H4 d AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]# O- b8 k5 h# f, A
AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]
% N' N2 Y5 |# b3 S% O5 G AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]
( X& z0 V8 _3 k! E1 m AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255]
7 Y6 \! T: S4 e: ]# I7 D0 ^ c return $result
* r7 S; r' c4 C1 Q9 d( G% i: p; [}
. H4 ~$ P: Y( ^% U7 Z9 u* R2 e1 r
RegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""
/ O6 r, y$ A. ~, e& J 编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。
8 b2 `) g$ K- H' {( [0 [ 程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。
+ g4 f" |$ S B |
评分
-
查看全部评分
|