按教程作的UG/GRIP程式,为何与教程结果不同呀?

只看该作者 · 发表于 2006-10-23 09:01:37

$$功能:查询实体类型
$$演示type,subtype功能.

ENTITY/ent(20)

DELIM/''
MASK/70,71,72
IDENT/'PIC OBJECTS',ent,CNT,num,$
CURSOR,x,y,z,resp
JUMP/HALT:,HALT:,,RESP
DO/L1:,i,1,num
ty=&TYPE(ent(i))
sty=&subtyp(ent(i))

print/'type=',&TYPE(ent(i)) $为何演示时总多个"t"字
print/'subtype=',sty $ 为何演示时总多个"t"字
l1:
halt:
halt
以上请前辈指点.

只看该作者 · 发表于 2006-10-24 09:07:11

期待前辈指点.

只看该作者 · 发表于 2006-10-24 14:55:42

试下这个
entity/ent(100)

l10:
ident/'pick entity',ent,cnt,num,resp
jump/l10:,trm:,,resp

l20:
do/trm:,indx,1,num
num1=&type(ent(indx))
print/'type='+fstrl(num1)

trm:
halt

只看该作者 · 发表于 2006-10-26 16:31:28

謝謝llgqxj!
原來要多經過一次轉換呀!

按教程作的UG/GRIP程式,为何与教程结果不同呀?

本帖子中包含更多资源