---

Hallo zusammen

ist es möglich die Pfade aller Hyperlinks einer Zeichnung
in einer Tabelle oder als Text auszugeben?

Oder gibt es einen Hyperlink-Manager? 

------------------
Gruß
Werner

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

---

Hi,

>>"ist es möglich die Pfade aller Hyperlinks einer Zeichnung in einer Tabelle oder als Text auszugeben?"
Ja, der DATENEXTRAKT kann auch Hyperlinks ausgeben.

>>"Oder gibt es einen Hyperlink-Manager?"
Nein, wäre mir zumindest spontan nicht bekannt.

oder Ausgabe im Log/Textfenster[F2]

Code:

---

(defun c:HYPERLINKLIST (/ aws)
(and
  (setq aws (ssget '((-3 ("PE_URL")))))
  (foreach i (vl-remove-if 'listp (mapcar 'cadr (ssnamex aws)))
      (if (= "" (setq www (cdr(assoc 1000 (cdadr(assoc -3 (entget i '("PE_URL"))))))))
          (print (cdr(assoc 1000 (reverse(cdadr(assoc -3 (entget i '("PE_URL"))))))))
          (print www)
      )
  )
)
(princ)
)

---

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

---

Super
haut einwandfrei hin

Es ist nicht zu glauben, was man mit diesen "Klammergebirgen"
alles machen kann.

------------------
Gruß
Werner

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

---

Ja aber mit dem ohnehin vorhandenen Befehl DATENEXTRAKT bekommst du die Sache auch
und dazu in einer schönen Tabelle.

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

---

Hier noch was für verschachtelte sowie die Bezeichnungen der Links

Code:

---

(defun c:hyper2dwg (/ hyperlist)
  (defun GET-HYPERLINKS (OBJ / HL HYPER-WERTE allHyper)
    (if (and (setq
      OBJ (cond
    ((= (type OBJ) 'VLA-object) OBJ)
    ((= (type OBJ) 'Ename) (vlax-ename->vla-object OBJ))
  )
    )
    (vlax-property-available-p OBJ 'Hyperlinks)
    (not (vl-catch-all-error-p
    (setq HL (vl-catch-all-apply
      'vla-get-hyperlinks
      (list OBJ)
    )
    )
  )
    )
)
      (progn
(vlax-for HYPER HL
  (setq HYPER-WERTE
(list (vla-get-URL HYPER)
      (vla-get-URLDescription HYPER)
      (vla-get-URLNamedLocation HYPER)
)
  )
  (setq allHyper (cons Hyper-Werte allHyper))
)
      )
    )
    allHyper
  )
  (if (setq ins (Getpoint "\nEinfügepunkt für Texte zeigen: "))
    (mapcar '(lambda (x)
      (mapcar '(lambda (y / TObj step)
  (setq TObj (vl-catch-all-apply
      'vla-addText
      (list
(if (= 1 (getvar 'cvport))
  (vla-get-PaperSpace
    (vla-get-ActiveDocument (vlax-get-acad-object))
  )
  (vla-get-ModelSpace
    (vla-get-ActiveDocument (vlax-get-acad-object))
  )
)
(strcat (nth 1 y) " :  " (nth 0 y))
(vlax-3d-point (trans ins 1 0))
(setq step (getvar 'textsize))
      )
    )
  )
  (setq ins (list (car ins) (+ (cadr ins) step (/ step 3)) '0.0))
)
      x
      )
    )
    (vl-remove nil
      (vlax-for BLOCK (vla-get-blocks
(vla-get-activedocument
  (vlax-get-acad-object)
)
      )
(if (and
      (= (vla-get-isxref BLOCK) :vlax-false)
      (> (vla-get-Count BLOCK) 0)
;;;   (/= (substr (vla-get-name BLOCK) 1 1) "*")
    )
  (vlax-for ITEM BLOCK
    (setq hyperlist (cons (GET-HYPERLINKS ITEM) hyperlist))
  )
  (setq hyperlist (cons (GET-HYPERLINKS BLOCK) hyperlist))
)
      )
    )
    )
  )
  (princ)
)

---

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

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