怎么获得拾取框的角点坐标？
怎么获得拾取框的角点坐标？这个有通过系统变量直接获得吗我自己的想法是先画个矩形，再获得矩形的角点坐标，程序如下
(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里画矩形的拖拉式画出矩形也可以
（getcorner p1 p2） 已经解决了，哈哈
Gu_xl 发表于 2018-11-26 08:57
（getcorner p1 p2）
谢谢，我已经解决了，就是你发的这个命令，我还有个问题，发了悬赏，高手你帮忙看一下
页:
[1]