---

Hallo zusammen,

gibt es eine Möglichkeit die Hyperlinkbezeichnung als Text innerhalb eines Blockes anzuzeigen?

------------------
mfg Roman

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

---

Hy

jep , geht über Schriftfeld jedenfalls den umgekehrten Weg
Man macht ein Schriftfeld und hängt den HL an da müsste man auch dann verblocken können

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

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

---

Hallo cw,

ist glaub ich nicht ganz das was ich suche.
Ich habe einen Block mit Namen xyz und habe diesen Block sagen wir 100 mal in der Zeichnung kopiert und jedem einzelnen ist ein anderer Link zugewiesen.
Jetzt möchte ich den Block so bearbeiten, dass der Link als Text angeschrieben wird

Ich habs bisher mit Attribut versucht: ^AcDbEntity.Allgemein.Hyperlink
funktionierte jedoch nicht

------------------
mfg Roman

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

---

Hallo zusammen,

hat keiner eine Idee, wie es funktionieren könnte?

------------------
mfg Roman

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

---

Ich hab nichtmal ne Idee, was DU jetzt genau möchtest.
Eine Beispieldatei könnte Licht ins Dunkel bringen, zumal Du imo die Begriffe Block, BlockDEFINTION und BlockREFERENZ hier nicht eindeutig verwendest...
Nachbasteln mach ich nicht mehr, hab schon zu oft für die Mülltonne gebastelt.

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

---

BlockmitVerknupfung.dwg

Hast recht ist so nicht eindeutig beschrieben. Also hier mein 2. Versuch:

ich habe in der Beispieldatei einen Block definiert "testblock". Diesen habe ich mehrmals in der Zeichnung kopiert (referenziert) und anschließend an jede Blockreferenz mit einem Link versehen.

Jetz möchte ich im NAchhinein die Blockdefinition so geändert haben das in allen Blockreferenzen der Pfad als Text erscheint.

Ich hoffe jetzt ist es verständlicher, was ich möchte???

------------------
mfg Roman

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

---

Wie soll denn die Blockdefinition wissen, was Du im Nachhineien an die Blockreferenz dranhängst. Ich kann mir nicht vorstellen, daß das gehen soll (sofern ich Dein Vorhaben richtig verstanden habe).

Jürgen

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

---

Du musst erstmal den Block neu definieren, so das er ein Attribut hat.
Dann brauchst du ein Tool, welches alle Blockrefs durchgeht, den jeweiligen Hyperlink ausliest und in das Attribut einträgt.

fertig

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

_DATAEXTRACTION mit Blockinformationen (Einfügepunkt, Skalierung, Drehung, Blockname, Layer, ...) + "Hyperlink". Aus diesen Daten ein SCRIPT mit Excel zusammenbauen, welches den Block neu einfügt und dann halt ein Attribut mit dem extrahierten Hyperlink-Wert bestückt (Attribut muss in der Blockdefinition schon enthalten sein, also Block vorher umdefinieren wie schon zuvor bemerkt).

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


www.cars4fun.at

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

---

Zitat:

---

Original erstellt von Ingenieur Studio HOLLAUS:
_DATAEXTRACTION mit Blockinformationen (Einfügepunkt, Skalierung, Drehung, Blockname, Layer, ...) + "Hyperlink". Aus diesen Daten ein SCRIPT mit Excel zusammenbauen, welches den Block neu einfügt und dann halt ein Attribut mit dem extrahierten Hyperlink-Wert bestückt (Attribut muss in der Blockdefinition schon enthalten sein, also Block vorher umdefinieren wie schon zuvor bemerkt).

---

ist leider auch wieder nur die halbe miete, weil der echte Hyperlink wieder weg ist.
Trotzdem erst einmal soweit gut der Hinweis mit Dataextraction und Script -> jetzt kann ich zumindest Texte in der Nähe des Blockes automatisiert anschreiben lassen.

Wenn mir vieleicht noch CADwiesel erläutern könnte, wo ich so ein Tool finde

------------------
mfg Roman

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

---

Zitat:

---

nur die halbe miete, weil der echte Hyperlink wieder weg ist

---

Was spricht dagegen, nach den Einfügen des Blocks den Befehl _-HYPERLINK zu starten und bei der Abfrage nach Objektwahl _L zu übergeben? Damit kannst Du auch dem neuen Block einen Hyperlink zuweisen.

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


www.cars4fun.at

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

---

Hallo Roman,
ohne Fehlerprüfung (also Attribut muß vorhanden sein, Hyperlink muß vorhanden sein) könnte das Grundgerüst so eines Tools in etwa so aussehen:

Code:

---

(defun c:show-hyperlinks ( / inserts insert z att-name hyper att)
  (vl-load-com)
  (setq inserts (ssget '((0 . "INSERT"))) z -1 att-name "LINK"); !! Hier Name des Attributs definieren !!
  (while (setq insert (ssname inserts (setq z (1+ z))))
    (setq hyper (vla-get-url (vla-item (vla-get-hyperlinks (vlax-ename->vla-object insert)) 0))
    (foreach att (vlax-safearray->list (vlax-variant-value (vla-getattributes (vlax-ename->vla-object insert))))
      (if (= (vla-get-tagstring att) att-name) (vla-put-textstring att hyper))
    )
  )
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hallo Henning,

ich bin nicht so bewandert mit Lisp, deshalb bekomme ich Dein Codeschnipsel nicht zum laufen
Fehlermeldung im Textfenster:  "; Fehler: Falsch formatierte Liste in Eingabe"

Attribut heißt bei mir "Dateiname"
hab also Dein "LINK" durch "Dateiname" ersetzt, was dann so aussieht:

(defun c:show-hyperlinks ( / inserts insert z att-name hyper att)
  (vl-load-com)
  (setq inserts (ssget '((0 . "INSERT"))) z -1 att-name "Dateiname"); !! Hier Name des Attributs definieren !!
  (while (setq insert (ssname inserts (setq z (1+ z))))
    (setq hyper (vla-get-url (vla-item (vla-get-hyperlinks (vlax-ename->vla-object insert)) 0))
    (foreach att (vlax-safearray->list (vlax-variant-value (vla-getattributes (vlax-ename->vla-object insert))))
      (if (= (vla-get-tagstring att) att-name) (vla-put-textstring att hyper))
    )
  )
)

Dann speichern als lsp und per appload geladen brachte den Fehler.
Was mach i falsch

------------------
mfg Roman

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

---

Hallo Roman,

die Fehlermeldung deutet darauf hin, dass noch irgendwo eine Klammer fehlt.
Wenn man sich den Code in den VL Editor läd, kann man recht schnell prüfen, wo das sein kann. Ich denke in der Zeile

  (setq hyper ...

fehlt hinten noch eine Klammer zu )

HTH
Gruß
Thomas

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

---

... keine Ahnung, warum die Klammer abhanden gekommen ist, aber Thomas hat recht mit seiner Vermutung.
zu Lisp-Tools auch nochmal ein Link zu den FAQ.
Und nochmal das korrigierte Progrämmchen:

Code:

---

(defun c:show-hyperlinks ( / inserts insert z att-name hyper att)
  (vl-load-com)
  (setq inserts (ssget '((0 . "INSERT"))) z -1 att-name "Dateiname"); !! Hier Name des Attributs definieren !!
  (while (setq insert (ssname inserts (setq z (1+ z))))
    (setq hyper (vla-get-url (vla-item (vla-get-hyperlinks (vlax-ename->vla-object insert)) 0)))
    (foreach att (vlax-safearray->list (vlax-variant-value (vla-getattributes (vlax-ename->vla-object insert))))
      (if (= (vla-get-tagstring att) att-name) (vla-put-textstring att hyper))
    )
  )
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hallo zusammen,

es hat funktioniert   
ich danke allen Beteiligten.
Vor Allem Henning für das fast vollständige Codeschnipsel   und Thomas für die Korrektur.

------------------
mfg Roman

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

---

Eine kleine Frage hab ich noch:

wie ändere ich den Code, um wirklich nur den Datei-Namen ohne den ganzen Pfad angezeigt zu bekommen?

------------------
mfg Roman

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

---

Hallo zusammen,

für meine Bedürfnisse reichte es anstatt der Funktion vla-get-url (Hyperlinkpfad) die Funktion vla-get-URLDescription (Anzuzeig. Text zu verwenden.

------------------
mfg Roman

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