home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / CAD / PKEY11_1.ZIP / GS.LSP < prev    next >
Encoding:
Text File  |  1992-03-14  |  394 b   |  14 lines
  1. ;Set text Stlye by picking existing
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (defun c:gs (/ a b c d)
  7. (graphscr)
  8. (prompt "\nSelect text to set style....")
  9. (setq a (entsel))
  10. (setq b (entget (car a)))
  11. (setq c (cdr (assoc 7 b)))
  12. (setq d (cdr (assoc 40 b)))
  13.   (command "style" c "" d "" "" "" "")
  14. )