CADsite forum

Hallo allemaal,
Ik weet de weg te vinden in Autolisp maar ben een newbie met VBA en ben met een macro bezig waarmee men in een listbox kan zien welke lagen gelockt zijn en door te selecteren aangeven welke unlockt moeten worden. Tot zover gaat het goed alleen als ik nu een laag unlockt gemaakt heb verdwijnt t niet uit mijn listbox heeft iemand een idee hoe ik dit kan oplossen?

code:

Private Sub CommandButton1_Click()
Dim LaagNaam As String
Dim lay As AcadLayer

Me.Hide

LaagNaam = ListBox1.Value
If "" = LaagNaam Then Exit Sub

Set lay = ThisDrawing.Layers(LaagNaam)
lay.Lock = False

End Sub

Private Sub CommandButton2_Click()
End

End Sub

Private Sub UserForm_Initialize()
Dim AllLayers As Object
Dim layer As Object

Set AllLayers = ThisDrawing.Layers

For Each layer In AllLayers

If layer.Lock = "True" Then
    ListBox1.AddItem layer.Name
   End If
   
    Next
   
End Sub

zoiets....

de truuk zit in deze regel.....  ListBox1.RemoveItem (ListBox1.ListIndex)






Private Sub CommandButton1_Click()
Dim LaagNaam As String
Dim layer As AcadLayer

LaagNaam = ListBox1.Value
If "" = LaagNaam Then Exit Sub

Set layer = ThisDrawing.Layers(LaagNaam)
layer.Lock = False

ListBox1.RemoveItem (ListBox1.ListIndex)


End Sub



Private Sub UserForm_Initialize()
Dim layer As AcadLayer

For Each layer In ThisDrawing.Layers
   
    If layer.Lock = "True" Then
        ListBox1.AddItem layer.Name
    End If
       
Next
End Sub

Private Sub CommandButton2_Click()
    End
End Sub

ik zal es effe proberen, alvast bedankt.

het werkt perfect bedankt Remo

No problem....