I need to overwrite layers from so many drawings. I thought it could be solved with this code:
(setq layers (list "005_DIMENSION" "off" "thaw" "unlock" "255" "255" "255" "Continuous" "-3" "CHBL_01" "dimensions"))
(entmake (list (cons 0 "LAYER")
(cons 100 "AcDbSymbolTableRecord")
(cons 100 "AcDbLayerTableRecord")
(cons 2 (car layers))
(cons 70 0)
)
)
(setq layers (cdr layers))
(if (= (car layers) "on")
(setq test ':vlax-true)
(setq test ':vlax-false)
)
(vla-put-layeron
(vlax-ename->vla-object
(tblobjname "LAYER" (car layers))
)
(princ test)
)
The proble at the end is that I can not /read/add the value from a symbol in my lisp (it is called test)
Can anybody help me please?