|
|
$$功能:查询实体类型
$$演示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
以上请前辈指点. |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有帐号？注册
x
|
发表于 2006-10-23 09:01:37
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
赞一下！
楼主
发表于 2006-10-24 14:55:42
