Topic: if statement to fix error

[butzers09silverado]

it appears that when the layer is already set to "0" in the drawing we get an invalid layer error... thoughts?

Code: [Select]

(or *vla-AcadObject* (setq *vla-AcadObject* (vlax-get-acad-object)))
(or *vla-ActiveDocument* (setq *vla-ActiveDocument* (vla-get-ActiveDocument *vla-AcadObject*)))
(or *vla-LayersCollection* (setq *vla-LayersCollection* (vla-get-Layers *vla-ActiveDocument*)))

;; Adjust the layer 0
(if (not (vl-catch-all-error-p (setq l (vl-catch-all-apply 'vla-Item (list *vla-LayersCollection* "0")))))
  (progn
    (vla-put-LayerOn l :vlax-true)
    (vla-put-Freeze l :vlax-false)
    (vla-put-Lock l :vlax-false)
  )
)
(setvar 'CLayer "0")


[kojacek]

it appears that when the layer is already set to "0" in the drawing we get an invalid layer error... thoughts?

Code: [Select]

(or *vla-AcadObject* (setq *vla-AcadObject* (vlax-get-acad-object)))
(or *vla-ActiveDocument* (setq *vla-ActiveDocument* (vla-get-ActiveDocument *vla-AcadObject*)))
(or *vla-LayersCollection* (setq *vla-LayersCollection* (vla-get-Layers *vla-ActiveDocument*)))

;; Adjust the layer 0
(if (not (vl-catch-all-error-p (setq l (vl-catch-all-apply 'vla-Item (list *vla-LayersCollection* "0")))))
  (progn
    (vla-put-LayerOn l :vlax-true)
    (vla-put-Freeze l :vlax-false)
    (vla-put-Lock l :vlax-false)
  )
)
(setvar 'CLayer "0")


You can not freeze current layer.

best regards
kojacek

[ronjonp]

Maybe move around the catch-all:

Code: [Select]

(if (setq l (tblobjname "layer" "0"))
  (progn (setq l (vlax-ename->vla-object l))
(vl-catch-all-apply 'vla-put-freeze (list l :vlax-false))
(vl-catch-all-apply 'vla-put-lock (list l :vlax-false))
(vl-catch-all-apply 'vla-put-layeron (list l :vlax-true))
(setvar 'clayer "0")
  )
)

[butzers09silverado]

what kind of slow down do you figure this is causing?

[ronjonp]

what kind of slow down do you figure this is causing?

Ummmm ... not sure what you are referring to