问题标题：
已知一点坐标,如何用lisp求这一点到一条不平衡直线的最短距离?
问题描述：
已知一点坐标,如何用lisp求这一点到一条不平衡直线的最短距离?
盛秋戬回答：
(defunc:tes(/ptslpdds)(if(nullvlax-dump-object)(vl-load-com));;加载vlax扩展函数(setqpt(getpoint"n选择点:")sl(entsel"n选择直线:"));;选择点和线(setqsl(vlax-ename->vla-object(car...
点击显示
数学推荐
热门数学推荐