Topic: Layer Lock

[OcCad]

Can someone tell me what I am missing? Trying to pursue a diff method to change layer lock state. My assumption is that the 70 group code does this with 0=unlock & 4=lock...

Code: [Select]

(setq lyr "s-layer")
  (setq lyr_data (tblsearch "layer" lyr)) ;(0 . "LAYER") (2 . "S-LAYER") (70 . 4) (62 . 7) (6 . "Continuous"))
  (setq lyr_data (subst (cons 70 0) (assoc 70 lyr_data) lyr_data))

(entmod lyr_data)

[VovKa]

instead of

Code: [Select]

(setq lyr_data (tblsearch "layer" lyr))write

Code: [Select]

(setq lyr_data (entget (tblobjname "layer" lyr)))

[OcCad]

Why does it work with one and not the other?

[VovKa]

because tblsearch does not return an entity
another way

Code: [Select]

(vl-load-com)
(vla-put-Lock
  (vla-Item (vla-Get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))
    lyr
  )
  :vlax-false ;to unlock or :vlax-true to lock
)


[T.Willey]

because tblsearch does not return an entity
another way

Code: [Select]

(vl-load-com)
(vla-put-Lock
  (vla-Item (vla-Get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))
    lyr
  )
  :vlax-false ;to unlock or :vlax-true to lock
)


If you go this way you have to make sure you either know the layer is there, or trap the error is one occurs.  FYI..

[ronjonp]

Here is another way:

Code: [Select]

(vl-load-com)
(vla-put-lock
  (vlax-ename->vla-object (tblobjname "layer" lyr))
  :vlax-false
)
Here are some of the layer properties...

Code: [Select]

<Description>   
 <Document>   #<VLA-OBJECT IAcadDocument 01b2d558>
 <Freeze>   :vlax-false
 <Handle>   10
 <HasExtensionDictionary>   :vlax-false
 <LayerOn>   :vlax-true
 <Linetype>   Continuous
 <Lineweight>   -3
 <Lock>   :vlax-false
 <Material>   Global
 <Name>   0
 <ObjectID>   2130381952
 <ObjectName>   AcDbLayerTableRecord
 <OwnerID>   2130381840
 <PlotStyleName>   Color_7
 <Plottable>   :vlax-true
 <TrueColor>   #<VLA-OBJECT IAcadAcCmColor 06bd0f08>
 <Used>   :vlax-true
 <ViewportDefault>   :vlax-false

[VovKa]

because tblsearch does not return an entity
another way

Code: [Select]

(vl-load-com)
(vla-put-Lock
  (vla-Item (vla-Get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))
    lyr
  )
  :vlax-false ;to unlock or :vlax-true to lock
)


If you go this way you have to make sure you either know the layer is there, or trap the error is one occurs.  FYI..

the same can be said about (setq lyr_data (entget (tblobjname "layer" lyr)))

[OcCad]

Thanks guys!

[T.Willey]

because tblsearch does not return an entity
another way

Code: [Select]

(vl-load-com)
(vla-put-Lock
  (vla-Item (vla-Get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))
    lyr
  )
  :vlax-false ;to unlock or :vlax-true to lock
)


If you go this way you have to make sure you either know the layer is there, or trap the error is one occurs.  FYI..

the same can be said about (setq lyr_data (entget (tblobjname "layer" lyr)))

Yup.  That is why I don't code that way.