home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / 圆方5.0 / SETUP / CLT.LSP < prev    next >
Encoding:
Lisp/Scheme  |  1998-04-07  |  268 b   |  13 lines
  1. (defun c:changeLT( / cl obj c data )
  2.  
  3.   (setq cl (getvar "CLAYER"))
  4.   (setq obj (ssget))
  5.   (setq c 0)
  6.   (repeat (sslength obj)
  7.     (setq data (entget (ssname obj c)))
  8.     (entmod (subst (cons 8 cl) (assoc 8 data) data))
  9.     (setq c (1+ c))
  10.   )
  11.   (princ)
  12. )
  13.