急求（关于lisp）

lzy9788

我通过两点选取图中若干个（n个）图元,如何将该两点与图元的所有交点


形成列表输出（list）


我是想通过求出点后标注，比如一次标注所有轴线（某一边的一道尺寸）

龙龙仔

qdim不好用嗎??

lzy9788

这种标注太慢了，我是想想编个程

meflying

按这两点画一个直线，然后求出此直线和按这两点选中的对象的交点（求交点的程序置顶帖子中有），然后删除此直线

lzy9788

我要一次标注很多哦，如有7根（或更多）轴线，要一次标注完


通过两点（两点连线垂直轴线）

meflying

你不是要求交点吗，我已经回答了啊。。。想说什么呢？

lee1892

如meflying所说，先创建一个临时的直线 -> lineobj
求交点用 vla-intersectwith
还要在你临时建的这条直线上排序

2. (vl-sort
3.            ints-pt-lst
4.            (function (lambda (e1 e2)
5.         (< (distance (vla-get-startpoint lineobj) e1)
6.              (distance (vla-get-startpoint lineobj) e2)
7.      ))))

复制代码