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.... :pintje: