;;;Modify linetype generation on a selection set of polyline entities.
;;;	The only input
;;;       required is the selection of the polylines to modify.  There
;;;       is no need to worry about not selecting non-polyline entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-17-94
;;;>		   EDITED: 02-09-2000
;;;
(DEFUN C:LTGEN ( / plin edpl)
(setq ltgw (ukword 1 "ON OFf" "ltgen ON or OFF " (if ltgw ltgw "ON")))
(if (eq ltgw "ON")
  (setq as70 128)
  (setq as70 0)
);if
(prompt "\nSelect Polyline(s): ")
  (setq pset (ssget '((-4 . "<OR")(0 . "POLYLINE")(0 . "LWPOLYLINE")(-4 . "OR>"))))
  (if pset
    (progn
      (setq psln (sslength pset))
      (setq cntr 0)
    )
  )
(while
  (if (and (< cntr psln) pset)
    (setq pent (entget (ssname pset cntr)))
  );if
  (progn
    (setq edpl (entget (cdar pent)))
    (if (or(eq (cdr (assoc 0 edpl)) "POLYLINE")(eq (cdr (assoc 0 edpl)) "LWPOLYLINE"))
      (progn
        (setq ex_as70 (cdr(assoc 70 edpl)))
	(if (>= ex_as70 128)
	  (if (eq as70 0)
            (setq edpl
              (subst (cons 70 (- ex_as70 128))
                     (assoc 70 edpl)
                     edpl
              )
            )
	    nil
	  )
	  (if (eq as70 0)
	    nil
	    (setq edpl
	      (subst (cons 70 (+ ex_as70 128))
	             (assoc 70 edpl)
		     edpl
	      )
	    )
	  )
	)
        (entmod edpl)
      )
    )
    (setq cntr (1+ cntr))
  )
)
);DEFUN