home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / CAD08N05.ZIP / CHTXLAY.LSP < prev    next >
Lisp/Scheme  |  1993-04-28  |  375b  |  15 lines
  1. (defun c:chtxlay (/ a tl n i e1 b c d e2)
  2.    (setq a (ssget "x" '((0 . "TEXT") (8 . "MECH"))))
  3.    (setq LN (getstring "\nNew layer  "))
  4.    (setq n (sslength a))
  5.    (setq i 0)
  6.    (repeat n
  7.      (setq e1 (entget (ssname a i)))
  8.      (setq i (+ 1 i))
  9.      (setq c (assoc 8 e1))
  10.      (setq d (cons (car c) LN))
  11.      (setq e2 (subst d c e1))
  12.      (entmod e2)
  13.    )
  14.  )
  15.