---

Hallo miteinander,

ich möchte auf einer DWG alle vorhandenen Textefelder durchsuchen und prüfen ob in diesen ein Hyperlink festgelegt ist.
Hat jemand eine Idee wie ich das mache?

------------------
----------------------------------
Mit freundlichen Grüßen

Felix

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

---

Hallo Felix,
Mach Dir einen Selectionset über alle gewünschten Elemente (Text, MText, BlockRef, ..) und durchsuche daraufhin die Hyperlink-Collection
Beispiel VB.NET, ObjectARX C

Grüße
Klaus 

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

---

Ich würde einmal die Blocktabelle durchlaufen und alle Elemente der Blockdefinition durchgehen. Prüfen, ob es ein Textelement ist, Text, MText, AttributDefinition, MtextAttribut, Blockreference->Attributreference.
Damit erwischst du alle relevanten Entities, was dir beim SelectionSet nicht unbedingt gelingt, gerade dann nicht, wenn die Texte in beliebiger Tiefe innerhalb eines Blocks verschachtelt sind.

Grüße!
Holger

------------------
Holger Brischke
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

---

Also mit dem Code konnte ich leider nichts so richtig anfangen.

Ich habe jetzt versucht alle objekte zu durchlaufen und zu testen ob es Texte sind. Aber wie teste ich jetzt ob das Objekt einen Hyperlink hat und lese diesen aus?

acObjId.Database.HyperlinkBase bringt leider keinen Erfolg.

Code:

---

            Dim acLockCurrDoc As DocumentLock = oDoc.LockDocument()
            Dim acCurDb As Database = oDoc.Database
            Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

                Dim acBlkTblRec As BlockTableRecord
                Dim acBlkTbl As BlockTable
                acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)
                acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForRead)

                For Each acObjId As ObjectId In acBlkTblRec
                    If acObjId.ObjectClass().DxfName.Contains("TEXT") Then
                        MsgBox(acObjId.Database.HyperlinkBase)
                    End If
                Next
            End Using

---

------------------
----------------------------------
Mit freundlichen Grüßen

Felix

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

---

Du hast Dir die Beispiele aber schon angesehen?
M.E. lädst Du die Hyperlink gar nicht, aber da kenne ich mich mit .NET zu wenig aus

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

---

Hallo,
ich habe mir die Beispiele angeschaut aber wie schon gesagt konnte ich damit nichts anfangen.

Briscke meinte ja man soll lieber alle Elemente durchsuchen, prüfen ob es Texte sind und dann daraus die Hyperlinke suchen.
Das habe ich versucht aber ich komme jetzt nicht an die Hyperlinks.

------------------
----------------------------------
Mit freundlichen Grüßen

Felix

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

---

Hallo Felix,

Nach dem VB.NET - Beispiel

Code:

---

Using acLockCurrDoc As DocumentLock = acDoc.LockDocument()
  Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
    Dim MyEntity As Entity = CType(acTrans.GetObject(MyObjID, OpenMode.ForWrite), Entity)
    Dim hyperlinkColl As HyperLinkCollection = MyEntity.Hyperlinks
    Dim hyperL As HyperLink = hyperlinkColl.Item(0)
    hyperL.Description =" Some description"
    acTrans.Commit()
  End Using
End Using

---

D.h. man holt sich zunächst ein Acad Objekt (entity), von diesem frägt man die Hyperlinks Collection ab und weißt diese einem Hyperlink Objekt (Array) zu. Hat dieses Array Werte (Count>0) kann man die Item abfragen und die zugehörigen Eigenschaften (Eigenschaften unter VBA):
URL = Webadresse, Dateiname mit Pfad
URLDescription = Beschreibung zur URL
URLNamedLocation =

In .NET müßten die Eigenschaften entsprechend sein:
.Name
.Description
.SubLocation

Aber wie schon geschrieben, habe mich am Rande mit .Net beschäftigt das ActiveX-Modell ist aber ähnlich.
Genauere Programmdetails muß Dir Holger geben oder Du informierst Dich selber über die diversen Autodesk Seiten.

Grüße
Klaus 

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

---

Das hatte ich bereits versucht aber da stürzt AutCAD ab mit der Meldung "Systemfehler".

Code:

---

            Dim acLockCurrDoc As DocumentLock = oDoc.LockDocument()
            Dim acCurDb As Database = oDoc.Database
            Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

                Dim acBlkTblRec As BlockTableRecord
                Dim acBlkTbl As BlockTable
                acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)
                acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForRead)

                For Each acObjId As ObjectId In acBlkTblRec
                    If acObjId.ObjectClass().DxfName.Contains("TEXT") Then
                        Dim MyEntity As Entity = CType(acTrans.GetObject(acObjId, OpenMode.ForWrite), Entity)
                        Dim hyperlinkColl As HyperLinkCollection = MyEntity.Hyperlinks
                        Dim hyperL As HyperLink = hyperlinkColl.Item(0)

                        MsgBox(hyperL)
                        '    hyperL.Description = " Some description"
                        'acTrans.Commit()

                    End If

                Next
            End Using

---

------------------
----------------------------------
Mit freundlichen Grüßen

Felix

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

---

Welchen Systemfehler bekommst Du denn?
Möglicherweise hat das Element ja gar keinen Hyperlink (hyperlinkColl.Count = 0)  und Du kannst deshalb nicht auf Item(0) zugreifen.
Bei der MsgBox würde ich auch die Eigenschaft (HyperL.Name) anzeigen lassen

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