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

来源:学生作业帮助网 编辑:作业帮 时间:2024/06/01 12:48:44

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)