#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).]
cron