How do you select and turn layers on an off through VBA?
I can create and delete them, but am having a fit just simply turning them on and off.
#2
Matt V,
Try this
Dim myLayer As Layer
Dim mylayers As Layers
Set mylayers = intellicad.ActiveDocument.Layers
Set myLayer = mylayers.Item("LayerName")
myLayer.Freeze=True 'False will thaw
myLayer.LayerOn=True 'False will turn layer off
myLayer.Lock=False 'True will lock layer
ssc
[This message has been edited by ssc (edited 07-12-2005).]
[This message has been edited by ssc (edited 07-12-2005).]
Try this
Dim myLayer As Layer
Dim mylayers As Layers
Set mylayers = intellicad.ActiveDocument.Layers
Set myLayer = mylayers.Item("LayerName")
myLayer.Freeze=True 'False will thaw
myLayer.LayerOn=True 'False will turn layer off
myLayer.Lock=False 'True will lock layer
ssc
[This message has been edited by ssc (edited 07-12-2005).]
[This message has been edited by ssc (edited 07-12-2005).]