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

---

$$ 判断两面是否共面
ENTITY/fa(3),p1,p2,p3,p4,ln(2)
NUMBER/p(6),pp(6),poin1(3),poin2(3)

L10:
MASK/71
ident/'君闲提示请选择(目标面)...',fa(1),resp
JUMP/L10:,END:,,,resp

L20:
MASK/71
ident/'君闲提示请选择(工具面)...',fa(2),resp
JUMP/L10:,END:,,,resp

$$ 获得对象的坐标极点

$$ 创建最小点
p1=POINT/xmin,ymin,zmin
p2=POINT/xminp,yminp,zminp

$$ 创建最大点
p3=POINT/xmax,ymax,zmax
p4=POINT/xmaxp,ymaxp,zmaxp

$$ 创建线
ln(1)=LINE/p1,p2
ln(2)=LINE/p3,p4

$$ 直纹 创建面
fa(3) = RLDSRF/ln(1),,ln(2)

$$ 提取面的矢量方向
poin1=snorf(fa(1),.5,.5)
poin2=snorf(fa(3),.5,.5)

IF/ABSF(poin1(1))==ABSF(poin2(1)) AND $
ABSF(poin1(2))==ABSF(poin2(2)) AND $
ABSF(poin1(3))==ABSF(poin2(3)),JUMP/GM:
JUMP/BUGM:

GM:
print/'分析结果：你所选择的两个面共面...'
JUMP/HL:

BUGM:
print/'分析结果：你所选择的两个面不共面...'

HL:
$$ 删除对象
delete/p1,p2,p3,p4,ln(1..2),fa(3)
$$ 刷新界面
RPAINT

$$ 其它代码区
JUMP/L10:

END:
HALT
$$ 代码结束