我写了一个,看是否是你所要!
(defun c:test () (setq reg (car (entsel "\n请选择一个矩形:")) reg_data (entget reg) str "矩形的坐标为:" n 1 ) (while (setq pt (assoc 10 reg_data)) (setq reg_data (cdr (member pt reg_data)) str (strcat str "\n第" (itoa n) "点: " (vl-princ-to-string (cdr pt)) ) n (1+ n) ) ) (alert str) ) |