home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / CAD / PKEY11_1.ZIP / CC.LSP < prev    next >
Encoding:
Text File  |  1992-03-14  |  852 b   |  24 lines
  1. ;Change Color
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. ;
  7. (Defun c:cc(/ a c d)
  8. (setq oer   *error*  *error*  err2)
  9. (graphscr)
  10. (prompt "\nSelect object to be changed...")
  11. (setq a(ssget))
  12. (if a(progn
  13. (initget 1 "R B C G M Y W L r b c g m y w l")
  14. (setq c(getkword "\nselect.(R)ed.(B)lue.(C)yan.(G)reen.(M)agenta.(Y)ellow.(W)hite.by(L)ayer"))
  15. (if(or(= c "R")(= c "r"))(setq d '"red"))
  16. (if(or(= c "B")(= c "b"))(setq d '"blue"))
  17. (if(or(= c "C")(= c "c"))(setq d '"cyan"))
  18. (if(or(= c "G")(= c "g"))(setq d '"green"))
  19. (if(or(= c "M")(= c "m"))(setq d '"magenta"))
  20. (if(or(= c "Y")(= c "y"))(setq d '"yellow"))
  21. (if(or(= c "W")(= c "w"))(setq d '"white"))
  22. (if(or(= c "L")(= c "l"))(setq d '"bylayer"))
  23. (command "change" a "" "prop" "c" d "")))
  24. (princ))