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

---

$$ WCS坐标设置
gripsw / declrv $$ 表示变量必须定义不然无法编译
entity / face,pt(3),CSYS1,CSYS2
number / num(3,6),resp,nn,ff

CSYS2=&WCS
l00:
choose/'UGapi提示!请选择操作方式。',$
'WCS 方向',$
'绝对坐标',$
'平面正交',$
'使用说明',deflt,1,resp
jump/l00:,end:,,,a1:,a2:,a3:,a4:,resp
a1:
ff=0
jump/l10:

a2:
&WCS = &ABS $$绝对坐标
halt
a3:
ff=1
jump/l10:

a4:
print/'【WCS 方向】'
print/' 设置WCS坐标方向为面矢量方向并移动到该面中心。'
print/''
print/'【绝对坐标】'
print/' 设置WCS坐标为绝对坐标即还原真实的坐标位置。'
print/''
print/'【平面正交】'
print/' 设置该平面为正交显示。'
print/''
print/'UGapi制作'

jump/l00:

l10:
mask/22
ident/'UGapi提示！请选择平面...',face,resp
jump/l00:,end:,,,resp
l20:

$$ 改变坐标
pt(1)=point/num(3,1..3)
pt(2)=point/num(1,1..3)
pt(3)=point/num(2,1..3)
CSYS1=CSYS/pt(1..3),ORIGIN,pt(1)
&WCS = CSYS1
delete/pt
nn=DVIEW/CSYS1 $$ 定义视图
view/nn $$ 设置工作视图 为 【top顶】

IF/ff==1,&WCS = CSYS2

end:
halt