LISP语言中求点到直线的距离

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/15 03:04:26
LISP语言中求点到直线的距离LISP语言中求点到直线的距离LISP语言中求点到直线的距离(vl-load-com)(setqp(getpoint"选择点位"))(while(/=(setqs(car

LISP语言中求点到直线的距离
LISP语言中求点到直线的距离

LISP语言中求点到直线的距离
(vl-load-com)
(setq p(getpoint"选择点位"))
(while(/=(setq s(car(entsel"选取直线"))e(cdr(assoc 0(entget s))))"LINE"))
(distance(vlax-curve-getClosestPointTo(vlax-ename->vla-object s)p t)p)