---

Hallo Gemeinde,

nachdem ich den Mercedes habe dank Thorsten möcht ich jetzt noch den Rolls Royce (is das nicht dann wieder VW, was solls)
Folgendes ich durchlaufe ein Zeichnung und frage alle AecArea ab um mir diverse Informationen zu holen. Unter anderem baue ich mir eine Raumnummer zusammen die ich dann in die Datenbank einfüge. jetzt möchte ich noch im gleichen Durchlauf diese raumnummer dem zugehörigen Flächenstempel (MVBlock) diese Raumnummer als Hyperlink hinzufügen, oder einen zweiten Durchlauf starten und mir aus dem MVBlock die Daten der Refernzierten Flächen (AECArea) holen um mir den Stempel mit der erneut erstellten Raumnummer zu versehen.

Ich finde aber die Verbindung zwischen Fläche und Stempel nicht :-(

anbei mal der code zu Variante eins (nur der Bereich in dem ich versuche die Hypelinks zuzuordnen

  'Objekte suchen
                   
  For Each Ent In ActiveDocument.ModelSpace
      If TypeOf Ent Is AecArea Then
        Set cPropSets = SchedApp.PropertySets(Ent)
        Set PropSet = cPropSets.Item(0)
        Set cProps = PropSet.Properties
        Set Prop = cProps.Item(1)
                           
      'Zusammensetzung Raumnr.
            intZifferRaum = Len(cProps.Item(0).Value)
            If intZifferRaum = 1 Then
              strRaum = "00" & cProps.Item(0).Value
              ElseIf intZifferRaum = 2 Then
              strRaum = "0" & cProps.Item(0).Value
              ElseIf intZifferRaum = 3 Then
              strRaum = cProps.Item(0).Value
          End If
          strRaum = Left(strDatei, Len(strDatei) - 4) & "." & strRaum
                           
                            'Hyperlinks hinzufügen
                          Dim MVBlock As AecMVBlockRef
                          Set MVBlock = ?????????
                          Dim Hyperlinks As AcadHyperlinks
                          Dim Hyperlink As AcadHyperlink
                          Set Hyperlinks = MVBlock.Hyperlinks
                          Set Hyperlink = Hyperlinks.Add("Raumnummer")
                          Hyperlink.URL = strRaum
                          Hyperlink.URLDescription = "Raumnummer"

Gruß aus Hamburg
Elav (armin)

------------------

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

---

Gibts vieleicht ne Idee wo nochmal fragen könnte

Gruß aus HH
Elav

------------------

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

---

hallo elav,
da ich dir leider bei diesem problem nicht weiterhelfen kann, bleibt mir nur übrig dich an die adt-diskussionsgruppen von autodesk zu verweisen. vielleicht hast du dort mehr glück.
http://discussion.autodesk.com/forum.jspa?forumID=57

gruß mario

------------------
www.mbillep.de

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

---

Hallo Gemeinde,

hab mein Problem gelöst !!!!! Man kommt an die referenziert Fläche des Stempels über AecGeo->AecAnchor->AecAnchorTagtoEnt->AecArea.
Dort gibt es eine Methode Namens Referenz mit der man den Handle der Fläche bekommt.

Dim ent as AcadEntity, geo As AecGeo, anchor As AecAnchor
Dim anchor1 As New AecAnchorTagToEnt, area As AecArea

For Each Ent In ThisDrawing.ModelSpace

Set geo = Ent
Set anchor = geo.GetAnchor
Set anchor1 = anchor
Set area = anchor1.Reference

Bis später
Elav

------------------

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