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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/14 12:23:20

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)