grip 历遍当前图纸页里所有视图

历遍当前图纸页里所有视图

string/vnam(2000,30)

drawv/vnam,,numvw,iferr,endd:
q=0
lks:
q=q+1
if/vnam(q)=='',jump/endd:
jump/lks:
endd:
if/q<1,jump/ennd:
print/'梅雷提示！你当前共有 '+istr(q-1)+' 张视图.如下参考:'
do/lo1:,p,1,q-1
print/vnam(p)
lo1:
ennd:
halt


$$viewe/视图名称,hidden,vsbl $$消隐线可见



_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/