;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-18-1999
;;;
(defun c:seed ()
  (SETVAR "LUPREC" 8)
  (SETQ pt_lst nil)
  (SETQ align_pline (NENTSELP "\nSelect Alignment Polyline: "))
  (SETQ	v_next	  (ENTGET (CAR align_pline)))
  (IF (EQ (CDR (ASSOC 0 v_next)) "VERTEX")
    (WHILE (/= (CDR (ASSOC 0 v_next)) "SEQEND")
      (SETQ v_next (ENTGET (ENTNEXT (CDR (ASSOC -1 v_next)))))
    )
  )
  (SETQ head_ename (CDR (ASSOC -2 v_next)))
  (SETQ v_ent (ENTGET (ENTNEXT head_ename)))
  (WHILE (/= (CDR (ASSOC 0 v_ent)) "SEQEND")
    (SETQ pt_lst
      (IF pt_lst
        (SETQ pt_lst (APPEND pt_lst (LIST (CDR (ASSOC 10 v_ent)))))
        (SETQ pt_lst (LIST (CDR (ASSOC 10 v_ent))))
      )
    )
    (SETQ v_ent (ENTGET (ENTNEXT (CDR (ASSOC -1 v_ent)))))
  )
  (princ)
)