---

Hallo
Zum letzen mal Hyperlinks,hoff ich.
Kann man die zugewiesenen Hyperlinks in eine Exeltabelle schreiben lassen ?.
Vielen Dank für die schnelle Hilfe in den letzten Tagen.

Schönes Wochenende
Ines

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

---

Klar kann man.

Hier mal ein Grundgerüst in Lisp.

Code:

---

(defun listhyperlinks ( / ss cnt hllist)
  (prompt "Liste Hyperlinks")
  (if (setq ss (ssget))
    (progn
      (setq cnt (sslength ss))
      (while (>= (setq cnt (1- cnt)) 0)
        (if (setq hllist (assoc -3 (entget (ssname ss cnt) (list "PE_URL"))))
          (progn
            (princ "\n")
              (foreach ele (cdadr hllist)
                (if (= (car ele) 1000)
                  (progn
                    (prin1 (cdr ele))
                    (princ "\t")
                  )
                )
              )
            )
        )
      )
    )
  )
  (prin1)
)
; Aufruf mit (ListHyperlinks)

---

------------------
Mit freundlichem Gruß

Udo Hübner
----------
Der versteckte Fehler bleibt nie unentdeckt.

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

---

Danke,
ich werds morgen mal ausprobieren und Rückmeldung geben.

Ines

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