Leaderboard

Assuming rectangular bounding box for LWPolyline - (defun polybb ( ent ) ( (lambda ( lst ) (mapcar '(lambda ( x ) (apply 'mapcar (cons x lst))) '(min max))) (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= 10 (car x))) (entget ent))) ) ) Usage: (defun c:test ( / sel ) (cond ( (not (setq sel (car (entsel))))) ( (/= "LWPOLYLINE" (cdr (assoc 0 (entget sel)))) (princ "\nObject is not an LWPolyline.") ) ( (foreach x (polybb sel) (entmake (list '(0 . "POINT") (cons 10 (trans x sel 0)))) ) ) ) (princ) )

Could you explain what you mean for corner points, is ti like bounding box?, Maybe a graphic illustration would help.

Is this suitable? Located here - MyPropertiesCAD