|
马上注册,结交更多同行朋友,交流,分享,学习。
您需要 登录 才可以下载或查看,没有帐号?注册
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 |
|