Hi

Looking for help on adding current layer names in you active drawings to a  combo box?

Let me explain what i would like to do.

Edited by GaryM - 22.Aug.2007 at 15:58

Thanks for the suggestion, but came right doing it another way... check it out!

Private Sub UserForm_Activate()

  Dim objLayers As AcadLayers
  Dim objLayer As AcadLayer
 
'search for layers in current drawing and add to combo box
For Each objLayer In ThisDrawing.Layers
  frmDelLayer.cboLayerName.AddItem (objLayer.Name)
  Next
End Sub

HI

Now i'm struggling to delete a layer. How would i go about this...
Here is the code i'm using. What i'm actually trying to do is that i want to select from the combo box a layer to delete.

Here is the code i'm using;

Private Sub cmdOk_Click()
On Error Resume Next
  Dim strLayerName As String
  Dim objLayer As AcadLayer
 
  strLayerName = frmDelLayer.cboLayerName.Text
 
  Set objLayer = ThisDrawing.Layers(strLayerName)
    If objLayer Is Nothing Then
      MsgBox "Layer " & strLayerName & " not found"
      Exit Sub
    End If
 
  objLayer.Delete
    If Err Then
      MsgBox "Unable to delete layer: " & vbCr & Err.Description
    Else
      MsgBox "Layer '" & strLayerName & "' deleted"
    End If
  End Sub

Giving me a error: "Object is referenced by other object(s)"

Any ideas on what i'm doing wrong.

cool you are quite right.

Autocad gives you the LAYDEL command where you can delete layers with all entities etc. Is there anything similar i could do with vba?

How would i write the code to remove all possible references.

And the Sendcommand "LAYDEL" just activates the command does not actually delete the layer,  you still l need to do the normal steps after the laydel command is entered.

I want to delete from my delete layer form after selecting the layer from the combo box and clicking ok.