请大家帮帮忙啊！！

wwwklkl

恳请大家帮帮忙，我第一次接触ug二次开发，很多东西都搞不明白，所以我自己做了一个，但是不能实现，不知道是哪里出了问题，以下是源代码，有两个地方不行1、通过实体选择对象的时候还是只能选面而不能选实体？2、颜色改变不了？？请大家帮忙帮忙。。。
5 m# ~  K% j6 P- n0 S
: T- R: r8 _5 F# g: Q5 I
$$ 更改对象颜色
3 @* c4 D( e9 g) H+ a4 w" Q" WENTITY/obj(1000)
; X, }$ w7 ]0 ~! S$ g' f' S4 oNUMBER/col(4)
DATA/col,2,4,6,1
; E3 L2 d- {2 y1 i( Sstart:
           choose/'选择定义类型' ,$
6 \3 A/ K4 G  u                '通过面','通过实体',deflt,1,RSP1
               jump/start:,hal:,,,start1:,start1:,hal:,RSP1
# j: y. C6 N, Y( H2 R        
2 I7 r( w" u. m3 E- W" n" ~& Wstart1:  
                 mask/71
           ident/'选择要改色的面',obj,cnt,nm,rsp1
6 L8 v2 @6 q5 }8 a           jump/start1:,hal:,,,rsp1
     ifthen/nm>1000
5 o: I1 d5 B/ ]* T0 c7 C2 x" k   messg/'选择的对象超过1000个...','请重新选择'
; @8 R7 ~' [- N& K5 |6 ^" b- j         jump/start1:
, o0 d* P- z0 x) p            else
8 q- \* k- q- r, {     endif
           jump/start3:
start2:
( E3 m. R8 X+ C1 e* g4 A8 t                 mask/70
0 a& O3 ~6 v4 f7 g2 v$ p           ident/'选择要改色的体',mb,cnt,nm,rsp2
4 z- i- S; U6 _2 k2 P% a           jump/start2:,hal:,,,rsp2
0 L2 Q/ v6 J1 {     ifthen/nm>1000
# C( B7 Y% V9 u$ F8 n; `' h( d   messg/'选择的对象超过1000个...','请重新选择'
         jump/start2:
            else
     endif
' T! x: }3 a0 k9 C( F# f3 u- wstart3:
          choose/'选择以下类型以改变以象颜色' ,$
                 '绿色','红色',$
/ o  }2 d7 T5 A/ a5 E                 '黄色','紫色',$
                 '重新选择对象',$
                     DEFLT,1,rsp3
7 R3 @5 Z3 n# x" [0 y          jump/start3:,hal:,,,start4:,start4:,start4:,start4:,start:,hal:,rsp3
start4:
9 F6 M8 x3 t: u8 s2 L                   k=col(rsp3-4)
                  do/start5:,i,1,nm  
  \7 ?% b/ Q0 {8 B8 H                 &color(obj(i))=k
0 e, A2 K0 }5 o, E9 L* _; q( A/ n                        
start5:
           jump/start3:
hal:
7 B" N) O. `% Y# [+ e     halt

wwwklkl

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