Geachte mede-cad-gebruikers,
ik gebruik Autocad 2005 en vroeg me af of er een manier is om alle layer in een soort 'properties-achtige' lijst constant op je scherm te hebben? (een beetje zoals photoshop zijn layerlijst heeft gedockt).
Dat zou een stuk makkelijker werken dan elke keer naar je Layer Properties Manager te moeten of de dropdown activeren.
Met vriendelijke groet,
Raúl
Op die manier maak je het tekengebied wel erg klein in een tekening waar veel lagen inzitten.
Er is een manier.
Voeg deze code in een form met de naam: "frmLayer"
Private Sub cbLayer_Click()
Unload Me
End Sub
Private Sub lbLayers_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim LNaam As String
Dim layerObj As AcadLayer
'Dim listindex
With frmLayer
If .lbLayers.ListCount >= 1 Then
If .lbLayers.listindex = -1 Then .lbLayers.listindex = .lbLayers.ListCount - 1
LNaam = .lbLayers
End If
End With
Set layerObj = ThisDrawing.Layers(LNaam)
ThisDrawing.ActiveLayer = layerObj
End Sub
Private Sub UserForm_Initialize()
Dim LColl As AcadLayers
Dim Layer
Dim LNaam() As String
Dim tel
Set LColl = ThisDrawing.Layers
For Each Layer In LColl
ReDim Preserve LNaam(tel)
LNaam(tel) = LColl.Item(tel).Name
frmLayer.lbLayers.AddItem (LNaam(tel))
tel = tel + 1
Next
End Sub
Zet de waarde "ShowModal" op "False" dan blijft het form op je scherm staan.
gr EddyBeerke
Citaat van: Gene op ma 05 03 2007, 13:43:10
Op die manier maak je het tekengebied wel erg klein in een tekening waar veel lagen inzitten.
Dit kan erg meevallen als je met twee beeldschermen werkt!
Inmiddels heb ik die ervaring opgedaan en dat werkt prima, toch zie ik collegas op deze afdeling met behoorlijk kleine tekenvensters werken: Dus eigenlijk een keuze van smaak.
Zal deze zeer zeker onthouden, over een tijdje krijgen we hier op het werk ook een tweede beeldscherm, zal best ahndig zijn dan.