用grip编了个程序，实现点到面的距离

rilidongfang · 发表于 2005-8-25 10:36:34

马上注册，结交更多同行朋友，交流，分享，学习。

您需要登录才可以下载或查看，没有帐号？注册

x

我用grip编了个程序，实现点到面的距离，可是总有问题，拿来向大家讨论一下：

ENTITY/pt1,pt2,face1,face2

step1:

   IDENT/'选面',face1,resp
   JUMP/step2:,trm:,,resp
step2:
   GPOS/'选择点',xc0,yc0,zc0,resp
   JUMP/step3:,trm:,,resp
step3:
    pt1=POINT/xc0,yc0,zc0
    pt2=PROJ/pt1,ON,FACES,VECT,V(1..3),ASSOC
    
   dit = RELDST/pt1,pt2
   MESSG/'最小距离 = ' + FSTR(dit(7))
   DELETE/pt1,pt2

trm:
     halt
L99:
     halt