Set color, line type & line weight to by layer

I need to set color, line type & line weight to by layer

in my drawing by lisp.

For Object :

(vla-put-color ob 256)

(vla-put-linetype ob "ByLayer")

(vla-put-lineweight ob -1)

For AutoCAD setting :

(setvar "cecolor" "256")

(setvar "celtype" "bylayer")

(setvar "celweight" -1)

For Object :

(vla-put-color ob 256)

(vla-put-linetype ob "ByLayer")

(vla-put-lineweight ob -1)

 

For AutoCAD setting :

 

(setvar "cecolor" "256")

(setvar "celtype" "bylayer")

(setvar "celweight" -1)

Thanks a lot. It is very usefull

Another way

(setq ssall (ssget "x"))
(repeat (setq x (sslength ssall))
(setq obj (vlax-ename->vla-object (ssname ssall (setq x (- x 1)))))
(vlax-put-property obj "Linetype" "Bylayer") 
(vlax-put-property obj "Lineweight" -1)
(vlax-put-property obj "Color" acbylayer)
) ; end repeat

Another way

 

(setq ssall (ssget "x"))
(repeat (setq x (sslength ssall))
(setq obj (vlax-ename->vla-object (ssname ssall (setq x (- x 1)))))
(vlax-put-property obj "Linetype" "Bylayer") 
(vlax-put-property obj "Lineweight" -1)
(vlax-put-property obj "Color" acbylayer)
) ; end repeat

Thanks for you also.

...(foreach prop 
'(	("Linetype"	"Bylayer"	)
	("Lineweight"	-1	)
  	("Color"	256	)
  	)
(vlax-put obj (car prop) (cadr prop)))
...

...
(mapcar '(lambda (p v)
	 (vlax-put obj p v)
	 v
    )
   '("Linetype" "Lineweight" "Color")
   '("Bylayer" -1 256)
)
....

(command "_Setbylayer" (ssget "X") "" "_Yes" "_Yes")

...(foreach prop 
'(	("Linetype"	"Bylayer"	)
	("Lineweight"	-1	)
  	("Color"	256	)
  	)
(vlax-put obj (car prop) (cadr prop)))
...

 

...


(mapcar '(lambda (p v)
	 (vlax-put obj p v)
	 v
    )
   '("Linetype" "Lineweight" "Color")
   '("Bylayer" -1 256)
)
....

 

(command "_Setbylayer" (ssget "X") "" "_Yes" "_Yes")

Nice codes Thanks everybody.

Hi i need to do that in nested object inside block.