topic Re: Newbie- Label Showing Active Layer in VBA Forum

Newbie- Label Showing Active Layer

Anonymous — Tue, 13 Jun 2006 13:28:37 GMT

Why won't the following show the Active Layer? (Keep getting the debugger bugging me!)

Private Sub Userform_Activate()
Label3.Caption = ThisDrawing.ActiveLayer
End Sub

Re: Newbie- Label Showing Active Layer

Anonymous — Tue, 13 Jun 2006 13:32:02 GMT

Label3.Caption = ThisDrawing.ActiveLayer.Name

wrote in message news:5204121@discussion.autodesk.com...
Why won't the following show the Active Layer? (Keep getting the debugger
bugging me!)

Private Sub Userform_Activate()
Label3.Caption = ThisDrawing.ActiveLayer
End Sub

Re: Newbie- Label Showing Active Layer

Anonymous — Tue, 13 Jun 2006 13:45:57 GMT

Thank you Joe!

I'm also trying to make a listbox showing all of the layers in CAD. When the user selects the layer it becomes active.....

Somebody advised the following but it doesn't seem to do anything:

Private Sub ListBox1_Click()
Dim layerObj As AcadLayer
Set layerObj = ThisDrawing.Layers.Item(ListBox1.Text)

End Sub

??

Re: Newbie- Label Showing Active Layer

Anonymous — Tue, 13 Jun 2006 13:53:12 GMT

That won't work, use the code below:

ThisDrawing.ActiveLayer = ThisDrawing.Layers(ListBox1.Text)

wrote in message news:5204163@discussion.autodesk.com...
Thank you Joe!

I'm also trying to make a listbox showing all of the layers in CAD. When
the user selects the layer it becomes active.....

Somebody advised the following but it doesn't seem to do anything:

Private Sub ListBox1_Click()
Dim layerObj As AcadLayer
Set layerObj = ThisDrawing.Layers.Item(ListBox1.Text)

End Sub

??

Re: Newbie- Label Showing Active Layer

Anonymous — Tue, 13 Jun 2006 14:08:00 GMT

To the OP: Note that the solution to both of your problems in this drawing
had to do with data types. You're on the right track, don't get
discouraged. Just note that data types are extremely important, as you're
seeing. Once you get a fair understanding of the differences between
objects (such as AcadLayer), doubles, integers, strings, etc., it will ar
start flowing very nicely.

..........and books like Mr. Sutphin's don't hurt, either. I'd highly
recommend anything he's written about VBA.

"Joe Sutphin" wrote in message
news:5204189@discussion.autodesk.com...
That won't work, use the code below:

ThisDrawing.ActiveLayer = ThisDrawing.Layers(ListBox1.Text)

Re: Newbie- Label Showing Active Layer

Anonymous — Tue, 13 Jun 2006 14:59:29 GMT

I'm struggling a bit. I am using a combination of Mr Sutphins book (very good BTW) and also my own trial and error.
The following seems to always return the MsgBox before I select the entity......sorry if I'm being annoying 😞

Private Sub CommandButton1_Click()
'Allows user to pick entity that contains desired layer
Dim objDrawingObject As AcadEntity
Dim varEntityPickedPoint As Variant

On Error Resume Next
ThisDrawing.Utility.GetLayer objDrawingObject, varEntityPickedPoint, _
"Choose object to take layer from: "
If objDrawingObject Is Nothing Then
MsgBox "You did not choose an object"
Exit Sub
End If

ThisDrawing.ActiveLayer = objDrawingObject

End Sub

Re: Newbie- Label Showing Active Layer

Anonymous — Tue, 13 Jun 2006 15:17:25 GMT

My last example must have slipped past you ...

Private Sub CommandButton1_Click()
'Allows user to pick entity that contains desired layer
Dim objDrawingObject As AcadEntity
Dim varEntityPickedPoint As Variant
Dim NewLayer As AcadLayer

Me.Hide

'On Error Resume Next

ThisDrawing.Utility.GetEntity objDrawingObject, varEntityPickedPoint, _
"Choose object to take layer
from: "

If objDrawingObject Is Nothing Then
MsgBox "You did not choose an object"
Exit Sub
End If

'change active layer to that of the object selected
Set NewLayer = ThisDrawing.Layers(objDrawingObject.Layer)
ThisDrawing.ActiveLayer = NewLayer
End Sub

Be carefully how you use On Error Resume Next

wrote in message news:5204322@discussion.autodesk.com...
I'm struggling a bit. I am using a combination of Mr Sutphins book (very
good BTW) and also my own trial and error.
The following seems to always return the MsgBox before I select the
entity......sorry if I'm being annoying 😞

Private Sub CommandButton1_Click()
'Allows user to pick entity that contains desired layer
Dim objDrawingObject As AcadEntity
Dim varEntityPickedPoint As Variant

On Error Resume Next
ThisDrawing.Utility.GetLayer objDrawingObject, varEntityPickedPoint, _
"Choose object to take layer
from: "
If objDrawingObject Is Nothing Then
MsgBox "You did not choose an object"
Exit Sub
End If

ThisDrawing.ActiveLayer = objDrawingObject

End Sub

Re: Newbie- Label Showing Active Layer

Anonymous — Tue, 13 Jun 2006 15:32:27 GMT

So close! It all works fine apart from when the user picks nothing and the MsgBox is shown, the program kicks the user out - instead of waiting for another entity to be picked......

I promise that I'll read your chapter on "User Interaction and the Utility Object" before asking any more dumb questions after this one!

Re: Newbie- Label Showing Active Layer

Anonymous — Tue, 13 Jun 2006 15:47:24 GMT

Private Sub CommandButton1_Click()
'Allows user to pick entity that contains desired layer
Dim objDrawingObject As AcadEntity
Dim varEntityPickedPoint As Variant
Dim NewLayer As AcadLayer

Me.Hide

On Error Resume Next

Do
ThisDrawing.Utility.GetEntity objDrawingObject, varEntityPickedPoint, _
"Choose object to take layer from:
"
If Not objDrawingObject Is Nothing Then Err.Number = 0
Loop While Err <> 0

'change active layer to that of the object selected
Set NewLayer = ThisDrawing.Layers(objDrawingObject.Layer)
ThisDrawing.ActiveLayer = NewLayer
End Sub

wrote in message news:5204377@discussion.autodesk.com...
So close! It all works fine apart from when the user picks nothing and the
MsgBox is shown, the program kicks the user out - instead of waiting for
another entity to be picked......

I promise that I'll read your chapter on "User Interaction and the Utility
Object" before asking any more dumb questions after this one!

Re: Newbie- Label Showing Active Layer

Anonymous — Tue, 13 Jun 2006 15:56:17 GMT

Excellent, you are as tolerant as a mother with a screaming infant. Consider me back under my rock whilst I do a little more learning. Mind you, smoke me a kipper, as I will probably be back for breakfast! (blooming Inputbox - cancel is annoying me now but I'll save that delight for another time).

Cheers.

Re: Newbie- Label Showing Active Layer

Anonymous — Tue, 13 Jun 2006 16:05:33 GMT

The user interaction is actually one of the hardest things to get a handle
on, IMO, particularly if you have any background in lisp.

wrote in message news:5204377@discussion.autodesk.com...
So close! It all works fine apart from when the user picks nothing and the
MsgBox is shown, the program kicks the user out - instead of waiting for
another entity to be picked......

I promise that I'll read your chapter on "User Interaction and the Utility
Object" before asking any more dumb questions after this one!