TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: GDF on July 04, 2018, 03:31:25 PM

Title: True Color
Post by: GDF on July 04, 2018, 03:31:25 PM

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))


Title: Re: True Color
Post by: GDF on July 04, 2018, 03:34:18 PM

oops

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

Title: Re: True Color
Post by: GDF on July 04, 2018, 03:55:54 PM

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")


Title: Re: True Color
Post by: CAB on July 06, 2018, 07:51:24 PM

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

Title: Re: True Color
Post by: GDF on July 07, 2018, 01:38:14 PM

Thanks Alan and Lee