;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 10-20-2000
;;;
(DEFUN c:mesh2pl ()
  (SETQ mesh_ent (ENTSEL "\nSelect Polyline Mesh to convert: "))
  (SETQ mesh_name (CAR mesh_ent))
  (WHILE (NOT (EQ (CDR (ASSOC 0 (ENTGET mesh_name))) "SEQEND"))
    (SETQ mesh_name (ENTNEXT mesh_name))
  ) ;_ end of while
  (SETQ mesh_name (CDR (ASSOC -2 (ENTGET mesh_name))))
  (SETQ pl_ent (ENTGET mesh_name))
  (IF (ASSOC 70 pl_ent)
    (SETQ pl_ent (SUBST (CONS 70 0) (ASSOC 70 pl_ent) pl_ent))
  ) ;_ end of if
  (IF (ASSOC 71 pl_ent)
    (SETQ pl_ent (SUBST (CONS 71 0) (ASSOC 71 pl_ent) pl_ent))
  ) ;_ end of if
  (IF (ASSOC 72 pl_ent)
    (SETQ pl_ent (SUBST (CONS 72 0) (ASSOC 72 pl_ent) pl_ent))
  ) ;_ end of if
  (IF (ASSOC 73 pl_ent)
    (SETQ pl_ent (SUBST (CONS 73 0) (ASSOC 73 pl_ent) pl_ent))
  ) ;_ end of if
  (IF (ASSOC 74 pl_ent)
    (SETQ pl_ent (SUBST (CONS 74 0) (ASSOC 74 pl_ent) pl_ent))
  ) ;_ end of if
  (ENTMAKE (CDR pl_ent))
  (SETQ pl_ent (ENTGET (ENTNEXT mesh_name)))
  (WHILE (NOT (EQ (CDR (ASSOC 0 pl_ent)) "SEQEND"))
    (IF (ASSOC 70 pl_ent)
      (SETQ pl_ent (SUBST (CONS 70 0) (ASSOC 70 pl_ent) pl_ent))
    ) ;_ end of if
    (IF (ASSOC 71 pl_ent)
      (SETQ
        pl_ent (APPEND
                 (REVERSE
                   (CDR (MEMBER (ASSOC 71 pl_ent) (REVERSE pl_ent)))
                 ) ;_ end of reverse
                 (CDR (MEMBER (ASSOC 71 pl_ent) pl_ent))
               ) ;_ end of append
      ) ;_ end of setq
    ) ;_ end of if
    (IF (ASSOC 72 pl_ent)
      (SETQ
        pl_ent (APPEND
                 (REVERSE
                   (CDR (MEMBER (ASSOC 72 pl_ent) (REVERSE pl_ent)))
                 ) ;_ end of reverse
                 (CDR (MEMBER (ASSOC 72 pl_ent) pl_ent))
               ) ;_ end of append
      ) ;_ end of setq
    ) ;_ end of if
    (IF (ASSOC 73 pl_ent)
      (SETQ
        pl_ent (APPEND
                 (REVERSE
                   (CDR (MEMBER (ASSOC 73 pl_ent) (REVERSE pl_ent)))
                 ) ;_ end of reverse
                 (CDR (MEMBER (ASSOC 73 pl_ent) pl_ent))
               ) ;_ end of append
      ) ;_ end of setq
    ) ;_ end of if
    (IF (ASSOC 74 pl_ent)
      (SETQ
        pl_ent (APPEND
                 (REVERSE
                   (CDR (MEMBER (ASSOC 74 pl_ent) (REVERSE pl_ent)))
                 ) ;_ end of reverse
                 (CDR (MEMBER (ASSOC 74 pl_ent) pl_ent))
               ) ;_ end of append
      ) ;_ end of setq
    ) ;_ end of if
    (ENTMAKE (CDR pl_ent))
    (SETQ pl_ent (ENTGET (ENTNEXT (CDR (ASSOC -1 pl_ent)))))
  ) ;_ end of while
  (ENTMAKE (LIST (CONS 0 "SEQEND")))
) ;_ end of DEFUN

;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 1 0 nil nil nil T)
 ***Don't add text below the comment!***|;