---

Hallo zusammen,
mein Problem ist folgendes: Habe in eine Zeichnung Blocks eingefügt. Mit diesen Blocks sind Hyperlinks verbunden. Beim erstmaligen Einfügen der Blocks erscheinen die Hyperlinks auch in der Zeichnung und lassen sich problemlos öffnen. Speichere ich aber dann die Zeichnung und öffne sie dann erneut, sind zwar die Blöcke noch da aber die Hyperlinks fehlen.
Hat jemand eine Idee?

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

---

Hallo,
Wo hast Du die Blöcke eingefügt? Bei Blocks Definition oder im ModellSpace?
Klaus

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

---

Hallo Klaus,
ich schicke dir mal den entsprechenden Teil des Quellcodes rüber. Das macht es sicher einfacher.

Block aus Referenzdatei in die geöffnete Zeichnung importieren

Code:

---

        ' Zuweisung des Blocks
        Dim axBlockFile As New AxDbDocument
        Dim newBloecke(0) As Object
        Dim block As AcadBlock

        On Error Resume Next
        axBlockFile.Open Konstants.FILE_BLOCKREFERENZ
       
       
        For Each block In axBlockFile.Blocks
            If block.name = Konstants.BLOCKNAME_FOTO Then
                Set newBloecke(0) = block
                axBlockFile.CopyObjects newBloecke, ThisDrawing.ModelSpace
                Exit For
            End If
        Next
       
        On Error Resume Next

---

Block in Zeichnung einfügen

Code:

---

            ' Importieren des Blocks
            Set blockRef = ThisDrawing.ModelSpace.InsertBlock(point_gk, _
                            Konstants.BLOCKNAME_FOTO, 1, 1, 1, 0)
            blockRef.Layer = Konstants.LAYER_FOTO

---

Zuweisen des Hyperlinks (in daten(posFileName) steht der komplette Pfad zum Foto, z.B. M:\Fotos\123.jpg)

Code:

---

            'Erzeugen eines Hyperlink
            Set Hyperlink = blockRef.Hyperlinks.Add(daten(posFileName))
            Hyperlink.URLDescription = "Fotodatei"

---

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

---

Schon mal so probiert (ungetestet) ?

Code:

---

    Set Hyperlink = Hyperlinks.Add("Foto")
    Hyperlink.URL = daten(posFileName) ' das hat gefehlt
    Hyperlink.URLDescription = "Fotodatei"
    Hyperlink.URLNamedLocation = "Lokal" ' kann auch leer sein

---

Hab leider gerade keine Zeit, könnte erst abends näher draufsehen.

Grüße,
Klaus

[Edit] sorry, des war natürlich falsch
    Hyperlink.URLNamedLocation = daten(posFileName) ' falsch
muß natürlich nur auf .URL zeigen
kommt davon wenn man nur schnell kopiert

[Diese Nachricht wurde von KlaK am 05. Feb. 2009 editiert.]

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

---

Hallo Klaus,
funktioniert so gar nicht. daten(posFileName)muß schon hinter der Add-Funktion stehen bleiben, sonst kommt die Meldung: Kann Ziel nicht finden!
Danke trotzdem für den Versuch. Vielleicht finde ich ja selbst noch die Lösung oder wenn du noch Zeit findest am abend!?

Bis dann

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

---

Hab es jetzt mit deiner korrigierten Version durchlaufen lassen. Das Einlesen funktioniert jetzt wieder, aber mein altes Problem nach Speicherung und Wiederaufruf fehlende Hyperlinks existiert weiter.

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

---

Schon mal vor dem Speichern der Zeichnung die Eigenschaften angesehen?
(Erweiterte Daten - Hyperlink)
Du fügst den Hyperlink schon nach jedem Block einfügen hinzu? (Oder erst in einem zweitem Durchlauf?)
Machst Du ein Block.update nach dem Hinzufügen der Hyperlinks bzw. ein regenall nach Abschluß?

Habe gerade mal einen kleinen Test gemacht mit drei Blöcken und drei Bildern, klappt einwandfrei. Zeichnung speichern, schließen, neu öffnen. AutoCAD schließen, neu starten.

Was machst Du anders?
Grüße,
Klaus 

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

---

Hey Klaus,

die erweiterten Daten sind alle da. Habe beim debuggen sogar mit getxdata die Daten in die Überwachung ausgelesen für jeden Block. Bis dahin alles klar. Mit jedem Einfügen eines Blocks wird auch sofort der Hyperlink erzeugt mit anschließendem Update. Am Ende der Applikation habe ich jetzt auch noch ThisDrawing.Application.Update eingebaut. Trotzdem funktioniert es nicht.
Weiß der Geier warum???

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

---

Hyperlink.zip

Hab Dir mal die Zeichnung mit vba angefügt.
Bilder natürlich nicht (zu groß), aber die Hyperlinks sollten noch an den Blöcken stehen.
Vielleicht hilft's,
Klaus

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

---

Danke für die Zeichnung.
Nur leider funktioniert es mit deinem Beispiel und mit einem Beispiel aus einem Buch auch, nur eben mit meinem nicht, obwohl ich eigentlich ja nichts anders mache.

Auf einem anderen Rechner funktioniert mein Beispiel aber jetzt auch, allerdings hab ich hierbei nicht denselben Block verwendet(Hab gerade keinen Zugriff auf die Blocksammeldatei) wie in der ursprünglichen Zeichnung. Daher befürchtete ich zuerst, dass das ganze mit importierten Blöcken nicht funktioniert aber das war es zum Glück auch nicht.

Nun bleibt mir irgendwie nur noch den bisherigen Blöck neu zu erstellen und es dann nochmal zu testen, nur leider muss das bis Montag warten

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

---

Es lag wirklich am verwendeten Block. Ich hab den in der externen Zeichnung neu erstellt und soehe da es ging. Keine Ahnung warum.

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