Topic: True Color

[GDF]

Need some help making this routine work for creating a layer with true color.

(ARCH:MLYR "NEW-MFC" 247,28,8 "Continuous" "0.01")

Code: [Select]

(defun ARCH:MLYR  (LA LC LT LW)
  (ARCH:LINETYPE)
  (command "cecolor" "bylayer")
  (setvar "cmdecho" 0)
  (if (tblsearch "layer" LA)
    (progn (command "layer" "Thaw" LA "") (command "layer" "Set" LA ""))
    (progn (command "layer" "Make" LA)
           (command "Color")
           (command "Truecolor" LC "")
           (command "Ltype" LT "" "LWeight" LW "" "")))
  (command "cecolor" "bylayer")
  (setvar "cmdecho" 1)
  (princ))


[GDF]

oops

(ARCH:MLYR "NEW-MFC" "247,28,8" "Continuous" "0.01")

[GDF]

Code: [Select]

(defun ARCH:LYR-RGB  (LA LC LT LW LD)
  (ARCH:LINETYPE)
  (command "cecolor" "bylayer")
  (setvar "cmdecho" 0)
  (if (tblsearch "layer" LA)
    (progn (command "layer" "Thaw" LA "") (command "layer" "Set" LA ""))
    (progn (command "layer" "Make" LA)
           (command "Color")
           (command "Truecolor" LC "")
           (command "Ltype" LT "" "LWeight" LW "" "")))
  (setq newLayer
         (vla-Add
           (vla-Get-Layers (vla-Get-ActiveDocument (vlax-Get-Acad-Object)))
           LA))
  (vla-Put-Description newLayer LD)
  (command "cecolor" "bylayer")
  (setvar "cmdecho" 1)
  (princ))
;;;(ARCH:LYR-RGB "NEW-MFC" "247,28,8" "Continuous" "0.01" "New MFC")


[CAB]

Gary does this help?
http://www.theswamp.org/index.php?topic=54058.0

[GDF]

Thanks Alan and Lee