This for exemple?
Code:
(defun C:Q?point ( / pt1 pt2 surf ss n dxf_ent)
(initget 9)
(setq pt1 (getpoint "\nFirst corner?: "))
(initget 9)
(setq pt2 (getcorner pt1 "\nSecond corner?: "))
(setq surf
(*
(- (max (car pt1) (car pt2)) (min (car pt1) (car pt2)))
(- (max (cadr pt1) (cadr pt2)) (min (cadr pt1) (cadr pt2)))
)
)
(cond
((setq ss (ssget "_C" pt1 pt2 '((0 . "POINT"))))
(princ (strcat "\n" (itoa (setq n (sslength ss))) " POINTS in the select box for an area of " (rtos surf 2 2)))
(initget "Yes No")
(cond
((eq (getkword "\nDo you want more information of this selection [Yes/No]? <No>: ") "Yes")
(repeat n
(setq dxf_ent (entget (ssname ss (setq n (1- n)))))
(princ
(strcat
"\nPOINT"
"\tLayer:"
(cdr (assoc 8 dxf_ent))
"\tPosition X:"
(rtos (cadr (assoc 10 dxf_ent)) 2 2)
"\tPosition Y:"
(rtos (caddr (assoc 10 dxf_ent)) 2 2)
(if (assoc 62 dxf_ent)
(strcat "\tColor:" (itoa (cdr (assoc 62 dxf_ent))))
""
)
)
)
)
(textscr)
)
)
)
(T (princ (strcat "\nSelection is empty for the select box for an area of " (rtos surf 2 2))))
)
(prin1)
)