---

Eine Frage an die Spezialisten.
Kann man über ein Makro bzw. eine Lisp folgendes programmieren.
Weise einem Objekt den Wert als Hyperlink zu, der in einem Text steht.
Ich stell mir das so vor, das ich nur noch den Text anklicke Enter drück und dann das Objekt anklick und der Hyperlink ist zugewiesen.
Das würde mir sehr sehr viel Arbeit ersparen.

Vielen Dank
Ines

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

---

Hi Ines,

verstehe ich nicht ganz. Ist der Text der anzuzeigenden Text des Hyperlinks? Was ist dann das Ziel des Hyperlinks? Oder steht im dem Text eine Pfadangabe zu einer Datei und der Hyperlink soll darauf verweisen?

Egal, hier ist mal eine Diskussionsgrundlage:

Code:

---

(defun c:hyperhyper (/ ten hen hobj txt objLinks)
  (if (setq ten (car (entsel "Text wählen:")))
    (if (setq txt (cdr (assoc 1 (entget ten))))
      (if (setq hen (car (entsel "\nObjekt für Hyperlink wählen: ")))
        (progn
          (setq
            hobj (vlax-ename->vla-object hen)
            objLinks (vla-get-hyperlinks hobj)
          )
          (vla-add objLinks txt)
        )
      )
    )
  )
  (princ)
)

---

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

------------------
Alles wirD guT

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

---

Hallo Torsten
Vieeelen Dank.
Um es kurz zu erklären brauche ich die Hyperlinks, um in einem anderem Programm Verknüpfungen mit einem Terminplan zu erstellen.
Ist zu kompliziert das alles genau zu erklären.
Interessiert sowieso keinen (glaub ich)
Da ich leider nicht lispln:-) kann, mußte ich das bisher so machen:
Text in die Zwischenablage kopieren und als Hyperlink einfügen.
Bei mehreren Hundert Objekten ist das sehr aufwendig.

Ines

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

---

Bei normalen Objekten funktioniert es. Leider bei Tragwerken nicht.
Folgende Fehlermeldung kommt
Objekt für Hyperlink wählen: ; Fehler:  Ausnahmebedingung aufgetreten:
0xC0000005 (Zugriffsverletzung)
; Warnung: Unwind übersprungen bei Unbekannte Ausnahmebedingung.
Vielleicht hast (habt) du (ihr)ja noch eine Idee.
Ines :-)

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

---

hhhmmm, irgendwie erschliesst es sich mir nicht auf die Schnelle warum es beim Tragwerk nicht will. Aber ich hätte noch ne Alternative (und die tut's auch beim Tragwerk):

Code:

---

(defun c:hyperhyper( / ten txt hen)
  (sssetfirst nil)
  (if (setq ten (car (entsel "Text wählen:")))
    (if (setq txt (cdr (assoc 1 (entget ten))))
      (if (setq hen (car (entsel "\nObjekt für Hyperlink wählen: ")))
        (command ".-hyperlink" "_ins" "_obj" hen "" txt "" "")
      )
    )
  )
  (princ)
)

---

Ich hoffe allerdings auch, dass der Lisp-Hardcore-Fraktion jetzt wegen des commands nicht die Haare ausfallen ;-)
Naja und man könnte auch noch überprüfen ob auch überhaupt ein Text gewählt wurde ...

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

------------------
Alles wirD guT

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

---

Vielen Dank

Ines

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

---

Hallo liebe Lispler
Noch einmal die Hyperlinkzuweisung.
Kann man allen Objekten einer Zeichnung den Namen des Layers auf den diese platziert sind als Hyperlink zuweisen ?
Ich hoffe das ist kein großer Aufwand.

Vielen Dank

Ines

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