|
|
马上注册，结交更多同行朋友，交流，分享，学习。
您需要 登录 才可以下载或查看，没有帐号？注册
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 |
|
发表于 2005-8-25 10:36:34
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
赞一下！