0 Members and 1 Guest are viewing this topic.
(setq plent (entsel "\nPick rectang"))(if plent (setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car plent))))))(princ co-ord)