---

Hallo,

ich möchte mit einem kleinem Programm allen Layern abhängig ihrer Linienstärke eine Farbe zuordnen. Bei den normalen Layern funktioniert das auch ohne Probleme nur bei den überschriebenen Layern hänge ich gerade weil ich nicht weiß wie ich am besten alle ViewportIDs einer Zeichnung bekomme.

Gibt es irgendwas so das ich schreiben kann:

Code:

---

for each viewportID as ObjectID in (??? alle ViewportIDs eben)

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Code:

---

Dim tDxfFilter As ResultBuffer = New DatabaseServices.ResultBuffer
  tDxfFilter.Add(New TypedValue(DxfCode.Start, "VIEWPORT"))
  Dim tSelFilter As New EditorInput.SelectionFilter(tDxfFilter.AsArray)
  Dim tSelSetRes As EditorInput.PromptSelectionResult = tAcadDoc.Editor.SelectAll(tSelFilter)
  If (tSelSetRes IsNot Nothing) AndAlso (tSelSetRes.Status = EditorInput.PromptStatus.OK) Then
      For Each tObjID As DatabaseServices.ObjectId In tSelSetRes.Value.GetObjectIds
          If (tObjID.IsValid) AndAlso (Not tObjID.IsErased) Then
            Dim tVP As DatabaseServices.Viewport = CType(tTrAct.GetObject(tObjID, OpenMode.ForRead, True, True), DatabaseServices.Viewport)
            'da ist es, nur Vorsicht, kann linkes oder echtes Viewport sein (Layout ist selbst so was wie Viewport)
          End If
      Next
  End If

---

Nur bitte Vorsicht (wie im Kommentar schon angemerkt), der Papierbereich ist selbst auch ein Viewport, hast Du also aus der Sicht von einem normalen AutoCAD-User 1 Layout mit 1 Viewport drin, dann bekommst Du hier 2 Viewports retourniert.

- alfred -

------------------
www.hollaus.at