请大家帮帮忙啊！！

wwwklkl

恳请大家帮帮忙，我第一次接触ug二次开发，很多东西都搞不明白，所以我自己做了一个，但是不能实现，不知道是哪里出了问题，以下是源代码，有两个地方不行1、通过实体选择对象的时候还是只能选面而不能选实体？2、颜色改变不了？？请大家帮忙帮忙。。。


& m% B" G! I" Q, s! @2 u$$ 更改对象颜色
9 D4 L3 C) i; |$ T6 j2 d, @ENTITY/obj(1000)
/ D0 f1 u0 h' M: p# u) s) rNUMBER/col(4)
DATA/col,2,4,6,1
start:
# h! l2 L3 O: `+ H6 q5 m1 Q           choose/'选择定义类型' ,$
! X3 }" ?# u/ ]% }$ Y                '通过面','通过实体',deflt,1,RSP1
( K4 J/ F5 @, T" @, H               jump/start:,hal:,,,start1:,start1:,hal:,RSP1
        
start1:  
7 w" _3 _" F5 H9 g9 k3 `; `/ ]                 mask/71
" x& c, q" ?( P( l3 y) L           ident/'选择要改色的面',obj,cnt,nm,rsp1
           jump/start1:,hal:,,,rsp1
6 v! C1 u* L; n6 c, g     ifthen/nm>1000
6 s- N, T" y4 U" @) n   messg/'选择的对象超过1000个...','请重新选择'
         jump/start1:
            else
6 |+ W5 T! a  Y3 B( n( f: l     endif
! I5 n7 \  y! N8 j% Q) d( l           jump/start3:
# ?( s1 p8 N$ O6 f6 z4 d9 D# _' Sstart2:
3 E- ^% T3 `8 [3 h: j+ `* ]/ U                 mask/70
           ident/'选择要改色的体',mb,cnt,nm,rsp2
9 O1 V" _/ j, g8 @- G& y5 k           jump/start2:,hal:,,,rsp2
     ifthen/nm>1000
5 W) Y! V% B" W. G   messg/'选择的对象超过1000个...','请重新选择'
9 F0 r& z, \1 u. @: j. ~. P3 z0 b1 H( ~         jump/start2:
            else
8 @" \2 U( P# J! Z  I) w, K     endif
9 g- I( C0 c  C$ Y1 pstart3:
          choose/'选择以下类型以改变以象颜色' ,$
7 d$ {) E3 G+ O6 Q* _                 '绿色','红色',$
4 l$ }/ Q, m# n( t- O                 '黄色','紫色',$
                 '重新选择对象',$
                     DEFLT,1,rsp3
          jump/start3:,hal:,,,start4:,start4:,start4:,start4:,start:,hal:,rsp3
6 b/ ?3 E8 C- r, R/ p- hstart4:
                   k=col(rsp3-4)
                  do/start5:,i,1,nm  
- H5 n- d$ p1 }, _                 &color(obj(i))=k
: t+ \3 Z8 c) k# }                        
start5:
           jump/start3:
hal:
     halt

wwwklkl

唉！等了那么久，能够为我解难的却没有一个，论坛那么多高手，帮一下我忙的一个都没有