快捷导航 上传作品

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

[复制链接]
梅雷工具箱发表于 2015-6-25 10:46:02 | 显示全部楼层 |阅读模式
历遍当前图纸页里所有视图

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/

就上UG网淘宝直营店
回复

使用道具 评分 举报

您需要登录后才可以回帖 登录 | 注册UG网

本版积分规则