store all vertex

[maahee]

(defun c:WD ()

  (setq pt1 (getpoint "\nEnter start point: "))
  (setq pt2 (getpoint pt1 "\nSelect second point: "))

  (setq bm (ssadd)) ; create blank / empty selection set
  (command "x" "rectangle" pt1 pt2)
  (ssadd (entlast) bm)
  (command "_.offset" 0.05 bm pt1 "")

 (setq ent (entlast))
 (setq vertices '())
 (while (not (null ent))
 (setq vertex (cdr (assoc 10 (entget ent)))
                   
(if (not (null vertex))
    (setq vertices (cons vertex vertices))
 )
 
 (setq ent (entnext ent))
 )
(prin1 vertices)
)

show all vertex in list

Edited May 23 by maahee