点击查看详细介绍

GRIP判断两面是否共面示例代码

nxopen 7年前 3351 5

UG NX 二次开发 技术交流 qq群:641226372      UG二次开发(C、C#、WPF)


$$ 判断两面是否共面
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
$$ 代码结束



0

最新回复 (5)
  • sisi168168 7年前
    1

    表彰楼主

  • hongtianfang 7年前
    2

  • qdc791004 7年前
    3

    大家共同努力!感谢

  • bydxsg 7年前
    4

    这个是干嘛的
    这个是干嘛的
    这个是干嘛的

  • WJCYLXH 6年前
    5

    这个程式方便政策两个面是不是贴合的,比较有意思

请登录后发表新帖