iCAx开思工具箱

标题: 用grip编了个程序，实现点到面的距离 [打印本页]

作者: rilidongfang 时间: 2005-8-25 10:36
标题: 用grip编了个程序，实现点到面的距离
我用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

作者: jifs2000 时间: 2005-8-26 19:15
我觉得不要这么麻烦,可以用一条语句完成,就减少了出错的几率

作者: peter1024 时间: 2005-8-27 22:43
是不是该把你得faces改为face1

作者: shuixing 时间: 2005-8-28 16:07

jifs2000 wrote:
我觉得不要这么麻烦,可以用一条语句完成,就减少了出错的几率

那就写出来让大家看看嘛

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)