一个对象选择的问题

yingxy

选择对象的时候，要求如果直接点在对象上，就选中该对象，如果点在空白的地方，就以该点为第一点，同时要求输入第二点来框选（类似ssget那样的，但单选或者框选后直接返回，不需要再按回车），能做到吗？我用entsel来实现这个功能，单选没问题，框选的时候，我读lastpoint变量，总是读不对第一点，请问能有好的办法读取吗？

yulijin608

(setq b (getcorner
(setq a (getpoint "\n框选"))
)
) a 和 b就是框的范围

yingxy

可能是我没说清楚吧，单选和框选如果分开，都可以做到，我的要求是程序自己判断，如果第一点点在对象上，就单选，如果第一点不点在任一对象上，就以该点为第一点来框选，不需要再输一次第一点了，二楼的这个办法还要重新输入一次第一点

wdb

(defun c:try (/ pt1 pt2 ss)
(setq pt1 (getpoint " 选择文字："))
(setq ss (ssget
pt1
'(
(-4 . "<OR")
(0 . "TEXT")
(0 . "MTEXT")
(-4 . "OR>")
)
)
)
(if (not ss)
(progn
(setq pt2 (getcorner pt1 "\n用鼠标选择第二点！"))
(setq ss (ssget "_C"
pt1
pt2
'(
(-4 . "<OR")
(0 . "TEXT")
(0 . "MTEXT")
(-4 . "OR>")
)
)
)
)
)
(princ)
)

meflying

(defun sel( / pt pt1 ent)
(setq ent (entsel))
(if (not ent)
(progn
(setq pt (getcorner (setq pt1 (cadr (grread 2 4))) "选择另一角点:"))
(ssget pt pt1)
)
ent
)
)

yingxy

太好了，谢谢！