|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:5 J( v$ q; D2 D$ u! u
proc capTrue { args } {
- ?) v" a3 m# ^3 t u. N0 K) P return 1# r. k: o. A5 B
}
1 M+ }- L+ {( G! @
! Y9 K6 x4 c, a5 ~proc CisExplorerPreCreate { args } {
9 a) a4 k- H) T) c0 h9 {% N set result 1; A8 j: |) d! ]2 Y- j, e
SetCISMultiValuedField {Datasheet}
+ g/ v3 A6 y8 T* {- f1 I* B SetCISMultiValuedField {Value}7 ~& ? U9 d: b* T- F) B
AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]
4 l/ f7 E9 M/ }7 b* n& X: @7 ~0 r AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]
9 r3 e) k6 C& J V; ] AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]
" ^3 X; |8 B& \# a1 J AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255] : l [* w c4 q5 t) V/ ~3 Z
return $result" [7 D/ a/ }; u$ o) W$ a
}' G* K$ t, M k( z' v0 D |
% U$ H. ?1 @' v
RegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""$ Q2 p& K3 N8 X' ]; N0 b7 K* G
编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。
% t) f! v/ n- i3 a- I! d 程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。+ Y3 @7 G. Q- E. b, [
|
评分
-
查看全部评分
|