iCAx开思网

标题: 按教程作的UG/GRIP程式,为何与教程结果不同呀? [打印本页]

作者: tal.zhai 时间: 2006-10-23 09:01
标题: 按教程作的UG/GRIP程式,为何与教程结果不同呀?
$$功能:查询实体类型
$$演示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
以上请前辈指点.

作者: tal.zhai 时间: 2006-10-24 09:07
期待前辈指点.

作者: llgqxj 时间: 2006-10-24 14:55
试下这个
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

作者: tal.zhai 时间: 2006-10-26 16:31
謝謝llgqxj!
原來要多經過一次轉換呀!

欢迎光临 iCAx开思网 (https://www.icax.org/)