home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / autocad / 1-bc-cad.arj / CLSS.LSP < prev    next >
Encoding:
Text File  |  1992-05-11  |  260 b   |  10 lines
  1. ;THIS FILE WILL PERFORM SSX FIRST THEN CHANGE THE ITEMS
  2. (defun c:CLSS ()
  3.   (command)
  4.   (SSX)
  5.   (command)
  6.   (setq LA (cdr (assoc '8 (entget (car (entsel "\nExtract info from what object: "))))))
  7.   (command "CHANGE" "P" "" "P" "LA" LA "") 
  8.   (prin1)
  9. )
  10.