topic Re: Layers in VBA Forum

Layers

Anonymous — Thu, 16 Jun 2005 18:51:24 GMT

I need to be able to create a routine or reactor that will not allow my ADT
2006 users to create or change any layers. How can this be done. Any help
would be appreciated.

Re: Layers

Anonymous — Thu, 16 Jun 2005 19:43:19 GMT

Perhaps something like this would do the trick!

Joe
--

Option Explicit

Dim lngLayers As Long

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
If UCase(CommandName) = "LAYER" Then lngLayers = ThisDrawing.Layers.Count
End Sub

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
If UCase(CommandName) = "LAYER" And ThisDrawing.Layers.Count > 1 Then
Do While ThisDrawing.Layers.Count <> lngLayers
ThisDrawing.Layers(ThisDrawing.Layers.Count - 1).Delete
Loop
End If
End Sub

"Nate Hunter" wrote in message
news:4877243@discussion.autodesk.com...
I need to be able to create a routine or reactor that will not allow my ADT
2006 users to create or change any layers. How can this be done. Any help
would be appreciated.

Re: Layers

Anonymous — Thu, 16 Jun 2005 20:21:58 GMT

I was acutally ahead of you. This is exactly what I did. thanks for the
input

"Joe Sutphin" wrote in message
news:4877347@discussion.autodesk.com...
Perhaps something like this would do the trick!

Joe
--

Option Explicit

Dim lngLayers As Long

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
If UCase(CommandName) = "LAYER" Then lngLayers = ThisDrawing.Layers.Count
End Sub

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
If UCase(CommandName) = "LAYER" And ThisDrawing.Layers.Count > 1 Then
Do While ThisDrawing.Layers.Count <> lngLayers
ThisDrawing.Layers(ThisDrawing.Layers.Count - 1).Delete
Loop
End If
End Sub

"Nate Hunter" wrote in message
news:4877243@discussion.autodesk.com...
I need to be able to create a routine or reactor that will not allow my ADT
2006 users to create or change any layers. How can this be done. Any help
would be appreciated.

Re: Layers

Anonymous — Thu, 16 Jun 2005 22:32:14 GMT

Advice: Don't even think about using the code
Joe posted. It can easily erase all the layers
in your drawing.

Suppose for example, the user adds one layer and
deletes two or more others. In that case the number
of layers will never be equal to what it was at the
start of the command and so, Joe's code will just
start deleting all the layers.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2004/2005/2006
http://www.acadxtabs.com

"Nate Hunter" wrote in message news:4877243@discussion.autodesk.com...
I need to be able to create a routine or reactor that will not allow my ADT
2006 users to create or change any layers. How can this be done. Any help
would be appreciated.

Re: Layers

Anonymous — Fri, 17 Jun 2005 11:27:49 GMT

Good catch, didn't think of that ... but you're absolutely right.

Joe
--

"Tony Tanzillo" wrote in message
news:4877565@discussion.autodesk.com...
Advice: Don't even think about using the code
Joe posted. It can easily erase all the layers
in your drawing.

Suppose for example, the user adds one layer and
deletes two or more others. In that case the number
of layers will never be equal to what it was at the
start of the command and so, Joe's code will just
start deleting all the layers.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2004/2005/2006
http://www.acadxtabs.com

"Nate Hunter" wrote in message
news:4877243@discussion.autodesk.com...
I need to be able to create a routine or reactor that will not allow my ADT
2006 users to create or change any layers. How can this be done. Any help
would be appreciated.