新手想编个ＧＲＩＰ程序，麻烦各位大侠位给个思路

程序实现的功能：　　手动选择一个实体然后程序自动的识别该实体上颜色为红色的曲面赋值给一个变量．
　　　本人学ＧＲＩＰ不久，主要是学ＣＡＭ模块的，ＣＡＤ方面的不是很懂，希望各位大哥指教．小弟不胜感激！！！　本人ＱＱ４０５６６４８１９，想结识对ＵＧ　二次开发感兴趣的朋友，共同进步

遍历实体上的所有面！！！
$$yhh.EM.solid.FACE.QTY
$$遍历实体面的程序，变换实体面颜色
$$作者：杨海华.2007-12-12
GRIPSW/DECLRV   $$一定要定义变量才可以用
entity/obj,SolIN
number/seqno    $$曲面的序号
number/resp     $$ 菜单变量
number/col1     $$颜色
data/col1,1
L10:
    mask/70
    $$在状态栏显示数量
    ident/'选择要分析的面，分析的数量为：'+istr(seqno),SolIN,resp
    jump/trm:,trm:,,resp
    $$遍历实体面的程序
    seqno=0
    L30:
        seqno=seqno+1         
        obj = SOLENT/SolIN,FACE,seqno,IFERR,Done1:
        $$可以在此加入面处理程序-------下面是一个变颜色的例子---------  
trm:
halt