请大家帮帮忙啊！！

wwwklkl

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


$$ 更改对象颜色
: I% x3 N* x: u3 m+ D; Q# ]: cENTITY/obj(1000)
) r# D- y) h3 FNUMBER/col(4)
DATA/col,2,4,6,1
start:
' }7 c/ V! o# l& O' G8 ?: |           choose/'选择定义类型' ,$
: Q, b0 |$ s5 q! O7 Y/ D                '通过面','通过实体',deflt,1,RSP1
               jump/start:,hal:,,,start1:,start1:,hal:,RSP1
/ b. Y; \$ K! u4 m' p+ y        
$ L; x) U8 q: N# Tstart1:  
                 mask/71
5 L/ p9 }- F# w- A4 L5 ]# L           ident/'选择要改色的面',obj,cnt,nm,rsp1
. N( d; U) m6 s$ u  Z           jump/start1:,hal:,,,rsp1
     ifthen/nm>1000
- m1 R0 v/ p# y1 ^+ {. Y$ S   messg/'选择的对象超过1000个...','请重新选择'
         jump/start1:
            else
: F) T, G! Y1 R/ |     endif
0 i6 q$ T3 O6 b2 L. o: c           jump/start3:
start2:
                 mask/70
           ident/'选择要改色的体',mb,cnt,nm,rsp2
           jump/start2:,hal:,,,rsp2
* H! P# k: \/ C0 g' h# x     ifthen/nm>1000
   messg/'选择的对象超过1000个...','请重新选择'
& M' y4 W- f& K+ q9 Q5 R  n         jump/start2:
            else
     endif
/ W& ^  H6 o* w6 A4 w! X. Xstart3:
5 A# Q* z$ e5 t          choose/'选择以下类型以改变以象颜色' ,$
7 x: i% h' \6 X                 '绿色','红色',$
                 '黄色','紫色',$
8 l' z! {# R/ z, I8 M9 d+ ^                 '重新选择对象',$
9 \! l. `1 k& s0 `                     DEFLT,1,rsp3
          jump/start3:,hal:,,,start4:,start4:,start4:,start4:,start:,hal:,rsp3
start4:
- i) _6 y- R4 F& O. n7 m                   k=col(rsp3-4)
                  do/start5:,i,1,nm  
5 y: w7 b/ n. W' N! ?                 &color(obj(i))=k
                        
start5:
# }0 ?9 B* o4 t$ t           jump/start3:
hal:
% Y3 ^5 v- B2 {1 ]) t9 f     halt

wwwklkl

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