|
本帖最后由 lyglxh 于 2017-7-8 19:45 编辑
下面程序有报警,但是我不知道哪里有问题,哪位高手有空指点一下,谢谢啦entity/face1,box,csy1,csy2,csy3,csy4
number/bbb(3)
number/mat(12)
C1:
CHOOSE/'请选择视图 以便进行颜色分析',$
'上视图',$
'底视图',$
',deflt,1,resp
jump/end:,end:,,,A10:,A20:,pr:,resp
A10:
XX=1
jump/START2:
A20:
XX=2
jump/START1:
START1:
draw/off
csy1=&WCS
mat(1..12)=matrix/yzrot,180
csy2=transf/mat,csy1
&WCS=csy24
jump/START2:
START2:
draw/on
ident/'请选择一个实体',box,resp
jump/START2:,end:,,resp
&color(box)=6
L5:
mask/71
inexte
L10:
face1=nexte/ifend,L20:
bbb=SNORF(face1,0.3,0.3)
if/bbb(3)==0,&color(face1)=7
if/bbb(3)==1,&color(face1)=1
if/bbb(3)<0,&color(face1)=211
jump/L10:
L20:
if/XX==1,jump/end:
if/XX==2,jump/L30:
L30:
csy1=&WCS
mat(1..12)=matrix/yzrot,180
csy2=transf/mat,csy1
&WCS=csy2
end:
halt
pr:
jump/C1:
|
|