哪们兄台指点一下这段代码

awnusspgy

怎么写才能隐藏它们相同体积的实体，谢谢！！
4 S& s% X' y" [* T# B/ z! A3 J

awnusspgy

   ENTITY /body,obj(1000)
6 ?, K6 O. O$ c+ O' e) c. c, y    NUMBER /n(42),r(42),density,d,dd
" i2 J7 J' z# t: U" n% e
density=1

l10:
+ \) h. K9 R% U* _& `   mask/70
   ident/'选择实体',body,resp
   jump /l10:,end:,,,resp
   &sdens(body)=density
$ U, Q5 T9 ^1 X7 v7 E& Z   anlsis/solid,body,gcm,n
7 l' G( A7 F0 Z/ \! p5 H   d=n(3)*1000
, O0 u5 ^; e4 f# x3 S   $$messg/'该物体的重量为'+fstr(d)+'克'

- ^1 T3 s: S' R5 k! ?' L6 Q  X" _! B   $$--------------
7 c) ?6 R+ F1 q  J$ i- H0 s. Ql20:
   mask/70
   ident/'选择实体',obj,cnt,u,resp
   jump /l10:,end:,,,resp

l30:
   do/l40:,i,1,u
1 [& ~4 D& U3 b4 q/ V   &sdens(obj(i))=density
   anlsis/solid,obj(i),gcm,r
4 b& P9 ~3 z# q( E5 w6 {# }# m6 J  z5 T3 b   dd=r(3)*1000
   print/'该物体的重量为'+fstr(dd)+'克'
6 }, i) O# W" {1 e. }: ^* \7 `l40:
l50:
8 d1 q" R/ f* `( h0 U# O   do/l60:,v,1,u
   ifthen/dd==d
7 G# d/ v/ i" J1 V/ n+ @1 u   blank/obj(v)
     else
, V, ]( Y, H4 m7 T2 ?3 a! [  c   jump /l50:
     endif
l60:
4 ?9 }& k7 f* P* `. z9 l


5 D8 u3 G- [% r6 v* |
" h$ \; Z) u: s2 Jend:  $$ 跳到此处结束
     HALT