;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-13-97
;;;>		   EDITED: 08-18-1999
;;;
(defun c:plzero ( / plss plss_l count plname plelst vname plnext vrtlst)
  (setq plss (ssget '((0 . "POLYLINE"))))
  (setq plss_l (sslength plss)
        count 0)
  (while (< count plss_l)
    (setq plname (ssname plss count))
    (setq plelst (entget plname))
    (setq vname (entnext plname))
    (setq plnext (entget vname))
    (while (/= (cdr(assoc 0 plnext))"SEQEND")
      (if vrtlst
        (setq vrtlst (append vrtlst (list plnext)))
        (setq vrtlst (list plnext))
      )
      (setq vname (entnext vname)
            plnext (entget vname))
    )
    (setq newhdr
      (subst
        (cons 10
          (list
            (cadr(assoc 10 plelst))
            (caddr(assoc 10 plelst))
            0.0
          )
        )
        (assoc 10 plelst)
        plelst
      )
    )
;    (if
      (entmake newhdr)
;      (princ "\nPolyline header made ")
;      (princ "\nPolyline header failed ")
;    )
    (foreach n vrtlst
      (setq n
        (subst
          (cons 10
            (list
              (cadr(assoc 10 n))
              (caddr(assoc 10 n))
              0.0
            )
          )
          (assoc 10 n)
          n
        )
      )
;      (if
        (entmake n)
;        (princ "\nVertex made ")
;        (princ "\nVertex failed ")
;      )
    )
    (entdel plname)
    (if
      (entmake (list (cons 0 "SEQEND")(assoc 8 plelst)))
      nil
      (progn
        (command ".oops")
        (princ "\nEntmake failed ")
      )
    )
    (setq count (1+ count)
          testlst vrtlst
          vrtlst nil)
  )
;  (command ".redraw")
  (princ)
)