求一个 两点中心线 小程序

mccad

king、 发表于 2022-10-14 16:34
大佬请收下我的膝盖，此程序正是想要的，非常感谢！

下次提问题一定要说明清楚，不然会浪费大量的时间。我发现明经这一届道友很有耐心。

e2002

这种语言表述让别人没法理解是想做什么？

king、

mccad 发表于 2022-10-14 17:56
下次提问题一定要说明清楚，不然会浪费大量的时间。我发现明经这一届道友很有耐心。

好的，由于没有组织好语言就提问了，浪费各位热心道友时间和耐心，请大家原谅，引我为戒！

baby绑定命运线

有两点中心画圆吗

xj6019

baby绑定命运线 发表于 2022-10-28 20:55
有两点中心画圆吗

有问题自己发帖子提问，不要在别人的楼层提问，太乱：
(defun C:NM (/ p1 p2)
        (setq p1 (getpoint "\n第一点:")
                p2 (getpoint "\n第二点:" p1)       
        )       
        (command "circle" "non" (mapcar '(lambda (x y) (* (+ x y) 0.5)) p1 p2)  10) ;10=半径  自己修改
        (princ)
)

下文没句号。

点选红线线1处，点选红线线2处，得到十字线。又或者框选两处红色线，得到右下角十字架（十字架交点与第二条线齐平）楼主是这意思么？