怎么获得拾取框的角点坐标？

lkm3131

怎么获得拾取框的角点坐标？这个有通过系统变量直接获得吗
我自己的想法是先画个矩形，再获得矩形的角点坐标，程序如下
(defun c:crk()
;画矩形
(command "rectang" (getpoint "\n第一个角点") (getpoint "\n下一个角点"))
;获得矩形角点坐标
(setq sel (entsel "\n选择四边形:")
en (entget (car sel)))
(setq Lst (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) en))
s1 (nth 0 Lst)
s2 (nth 1 Lst)
s3 (nth 2 Lst)
s4 (nth 3 Lst)
)
)

最后再删除矩形，但是这里是输入矩形的2个点，不能像cad里画矩形一样，拖拉式画矩形，没有框选的感觉，求高手指点一下,能直接框选一下，就得出框选方框的角上顶点的坐标也行，能改动我上边的lisp程序，让画矩形像cad里画矩形的拖拉式画出矩形也可以

Gu_xl

（getcorner p1 p2）

lkm3131

已经解决了，哈哈

lkm3131

Gu_xl 发表于 2018-11-26 08:57
（getcorner p1 p2）

谢谢，我已经解决了，就是你发的这个命令，我还有个问题，发了悬赏，高手你帮忙看一下