vlisp Layer-prop. "VLA-PUT-FREEZE"

[HI-CADService GmbH]

How is the correct call for the layer-prop. "vla-put-freeze" ?

If start the routine, i've got on the prompt:
; *** ERROR: AutoCAD.Application: Ungültiger Layer

Any ideas would be appreciated,
Ralph Muth

;--------------------------------------------------
;vlisp-code starts

(setq aAcadObject (vlax-get-acad-object))
(setq aAcadDocument (vla-get-ActiveDocument aAcadObject))
(setq amSpace (vla-get-ModelSpace aAcadDocument))

(setq aLayers (vla-get-Layers aAcadDocument))

(defun f:layer_state (
/
ent
)

(setq layer_state_list nil)

(vlax-for ent aLayers
(setq layer_state_list (append layer_state_list
(list (list (vla-get-Name ent)
(vla-get-LayerOn ent)
(vla-get-Freeze ent)
(vla-get-Lock ent)
))
)
)
);end vlax-for

);ende defun

(defun f:layer_state_rebuild (
/
ent
object
)
(setq object nil)
(foreach ent layer_state_list
(setq object (vla-item aLayers (nth 0 ent)))
(vla-put-LayerOn object (nth 1 ent))
(vla-put-Freeze object (nth 2 ent))
(vla-put-Lock object (nth 3 ent))
);ende foreach
);ende defun

[HI-CADService GmbH]

vla-put-freeze is not posible for ActiveLayer. so must take the follow
construct:

(if (/= (vla-get-name (vla-get-ActiveLayer aAcadDocument)) (nth 0 ent))

(vla-put-Freeze object (nth 2 ent))

)

Ralph Muth

HI-CADService GmbH schrieb: