CADsite forum

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.