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