请教关于ssget点选坐标的问题

吴琦

在论坛找到某位高人的一段代码，可以获得ssget框选的两个角点坐标，但ssget同时又是可以点选单个对象的，请问这时候怎么获得点选的坐标呢？



(defun c:gc (/ bz ss xy x y)  
(Setvar "CMDECHO" 0)
(setq bz (getvar "osmode"))
(Setvar "osmode" 0)
(setq xy (last (ssnamex (setq ss (ssget)) 0)))  ;;获得ssget选择集的一个信息表。
(setq x (last (cadr xy)) y (last (cadddr xy)))     ;;提取刚才的窗选对角坐标。
(command "RECTANG" x y)   ;;通过对角坐标画一个矩形。
(Setvar "osmode" bz)
(princ)
)

zdqwy19

看看ssnamex的帮助