4.74.grs

UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊

entity/pt(100),obj
number/list(20)

l10:
ident/'pick points',pt,cnt,num,resp
jump/l10:,trm:,,resp

l20:
rownum=num/5
do/l30:,indx,1,rownum
list(indx)=5

l30:
obj=bsurf/pt(1..num),list(1..rownum)

trm:
halt