购买与咨询 NX 二次开发视频教程，请联系微信号：13890821008  QQ号：85585969  

---

$$遍历实体面的程序，变换实体面颜色

GRIPSW/DECLRV $$定义变量
entity/obj,SolIN
number/seqno $$曲面的序号
number/resp $$ 菜单变量
number/col1 $$颜色
data/col1,1
L10:
mask/70
$$在状态栏显示数量
ident/'选择要分析的面，分析的数量为：'+istr(seqno),SolIN,resp
jump/trm:,trm:,,resp
$$遍历实体面开始
seqno=0
L30:

$$下面是一个对面变颜色的例子，当然你也可以在此加入其他功能
col1=col1+11
if/col1>256,col1=col1-256
&color(obj)=col1
$$--------------------------------------
jump/L30:
Done1:
seqno=seqno-1
$$print/'包含实体面为:',istr(seqno)
jump/L10:
trm:
halt