king、 发表于 2022-10-14 16:34
大佬请收下我的膝盖，此程序正是想要的，非常感谢！
下次提问题一定要说明清楚，不然会浪费大量的时间。我发现明经这一届道友很有耐心。
这种语言表述让别人没法理解是想做什么？
mccad 发表于 2022-10-14 17:56
下次提问题一定要说明清楚，不然会浪费大量的时间。我发现明经这一届道友很有耐心。
好的，由于没有组织好语言就提问了，浪费各位热心道友时间和耐心，请大家原谅，引我为戒！
有两点中心画圆吗
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处，得到十字线。又或者框选两处红色线，得到右下角十字架（十字架交点与第二条线齐平）楼主是这意思么？