home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / CAD / PKEY11_1.ZIP / MTL.LSP < prev    next >
Encoding:
Text File  |  1992-03-14  |  515 b   |  17 lines
  1. ;move objects to a new layer
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (setq ss (ssget))
  7. (SETQ UL1(GETSTRING "\nLayer to move entities to : "))
  8. (setq counter 0)
  9. (prompt "Moving to layer.....")(princ ul1)
  10. (while
  11.   (setq e (ssname ss counter))
  12.   (setq l (cdr (assoc 8 (entget e))))
  13.   (setq S (ssget "X" (list (cons 8 l))))
  14. (progn
  15.   (command "CHANGE" s "" "P" "LA" UL1 ""))
  16.   (setq counter (+ counter 1))
  17.   (princ))