请大家帮帮忙啊！！

wwwklkl

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

0 W, x2 \# K* i$ H! ]' {6 n
, \  i& C5 l! c4 o$$ 更改对象颜色
ENTITY/obj(1000)
NUMBER/col(4)
4 o' d7 Z/ |6 M; H* ]DATA/col,2,4,6,1
start:
           choose/'选择定义类型' ,$
                '通过面','通过实体',deflt,1,RSP1
5 H# h+ B! v6 I" u- x7 ]               jump/start:,hal:,,,start1:,start1:,hal:,RSP1
        
start1:  
1 J, ?  c# D$ A: L) R. s! c; U                 mask/71
           ident/'选择要改色的面',obj,cnt,nm,rsp1
           jump/start1:,hal:,,,rsp1
     ifthen/nm>1000
   messg/'选择的对象超过1000个...','请重新选择'
* L* U4 k3 X7 D3 {9 E. x4 n: c4 u         jump/start1:
/ \7 `1 E; c; [* p, }            else
     endif
           jump/start3:
start2:
                 mask/70
           ident/'选择要改色的体',mb,cnt,nm,rsp2
           jump/start2:,hal:,,,rsp2
     ifthen/nm>1000
* n/ T* L* @8 E, w8 T3 |, |" w   messg/'选择的对象超过1000个...','请重新选择'
; r8 U0 r3 o  U) g) r2 Q" j  q         jump/start2:
; }& k0 a3 k  X- K( w0 P' f! _, ]0 X. C: t            else
  O6 P/ u4 F# M$ }! O3 T     endif
! f8 h. ]: h: Pstart3:
) y' c! A4 d$ h9 u/ w0 }          choose/'选择以下类型以改变以象颜色' ,$
, P5 Q* K% r. F- @3 C. @7 V                 '绿色','红色',$
                 '黄色','紫色',$
                 '重新选择对象',$
; h  G& R8 g1 _. Z  f. p                     DEFLT,1,rsp3
1 @9 c6 n" g- f; R, n' P          jump/start3:,hal:,,,start4:,start4:,start4:,start4:,start:,hal:,rsp3
! L2 b9 O' C  Q0 u( cstart4:
. U. c5 @1 ~9 k5 L5 E! Q8 a  q+ A                   k=col(rsp3-4)
% U0 v% s: d/ N3 A                  do/start5:,i,1,nm  
                 &color(obj(i))=k
' V9 Y/ c5 N, p6 u& l                        
start5:
/ n6 P. ^: E! N+ I! T           jump/start3:
; Z0 J- v1 j+ T" ]. d( R* ehal:
     halt

wwwklkl

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