5.10.grs

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

entity/cur(1000)

l10:
ident/'pick lines or curves',cur,cnt,num,resp
jump/l10:,trm:,,resp

l20:
anlsis/arclen,cur(1..num),mmeter,length
print/'The length of total curves is '+fstrl(length)

trm:
halt