---

Hallo an Alle,

weiß jemand wie ich schnell und einfach das Layout einer AttributeReference heraus finde.

Danke, Theo

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

---

Owner des Attributes = Blockreference
Owner der Blockreference = Layoutblock .... ?

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Danke Thomas,
das ganze sieht bei mir jetzt so aus:

Public Sub ZoomtoAttry(MyID As ObjectId)
        Dim MyAttRef As AttributeReference
        Dim APoint As Point3d
        Dim BPoint As Point3d
        Dim MPoint As Point3d
        Dim LineDumy As LineSegment3d
        Dim MyBlockref As BlockReference
        Dim MylayoutManager As LayoutManager = LayoutManager.Current
        Dim AktLayoutID As ObjectId
        Dim MyLayBlock As BlockTableRecord
        Dim Mylayout As Layout
        AktLayoutID = MylayoutManager.GetLayoutId(MylayoutManager.CurrentLayout)
        Using Trans As Transaction = myDB.TransactionManager.StartTransaction()
            MyAttRef = Trans.GetObject(MyID, OpenMode.ForWrite)
            APoint = MyAttRef.GeometricExtents.MinPoint
            BPoint = MyAttRef.GeometricExtents.MaxPoint
            MyBlockref = Trans.GetObject(MyAttRef.OwnerId, OpenMode.ForRead)
            MyLayBlock = Trans.GetObject(MyBlockref.OwnerId, OpenMode.ForRead)
            Mylayout = Trans.GetObject(MyLayBlock.LayoutId, OpenMode.ForRead)
            MyBlockref.Highlight()
        End Using
        If AktLayoutID = Mylayout.Id Then
            LineDumy = New LineSegment3d(APoint, BPoint)
            MPoint = LineDumy.EvaluatePoint(0.5)
            LineDumy.ScaleBy(8, MPoint)
            Zoom(LineDumy.StartPoint, LineDumy.EndPoint, New Point3d, 1)

        Else
            MsgBox("Sorry das Attribut ist im Layout: " & Mylayout.LayoutName)
        End If

    End Sub

und funktioniert auch. Aber ich denke es geht nur wenn der Block mit dem Attribut direkt in einem Layout ist. Wenn es ein Block im Block im Block.........wäre, dann ginge es sicher nicht.

Gruß, Theo

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

---

Zitat:

---

Original erstellt von Theo37:
... Wenn es ein Block im Block im Block.........wäre, dann ginge es sicher nicht. ...

---

Wenn du einen Block mit Attribut in einem anderen Block einfügst, dann kann ja dieser übergeordnete Block x-mal eingefügt sein.
Daher kann dies grundsätzlich nicht funktionieren, weil das Attribut dann ja womöglich in mehreren Blockreferenzen enthalten ist. Und wo willst du dann hin zoomen?

Grüße!
Holger

------------------
Holger Brischke
FREIE SCHULUNGSPLÄTZE -- C#.NET-Schulung im Mai 2013 Bei Interesse bitte melden!
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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