;;;
;;;
;;;

(defun c:irefakt ()
  (alert "Bilder")
  (setq sset_iRefs (ssget "x" '((0 . "IMAGE"))))
  (if (>= (sslength sset_iRefs) 1)
    (reflist)
    (alert "In dieser Datei sind keine Bilder eingebunden.")
  )
  
  (alert "PDFs")
  (setq sset_iRefs (ssget "x" '((0 . "PDFUNDERLAY"))))
  (if (/= sset_iRefs nil)
    (reflist)
    (alert "In dieser Datei sind keine PDF-Dateien eingebunden")
  )
  
  (alert "DWFs")
  (setq sset_iRefs (ssget "x" '((0 . "DWFUNDERLAY"))))
  (if (>= (sslength sset_iRefs) 1)
    (reflist)
    (alert "In dieser Datei sind keine DWF-Dateien.")
  )  
)

(defun reflist ()
  
  (setq sset_iRefs (ssget "x" '((0 . "IMAGE"))))
  (setq sset_iRefs (ssget "x" '((0 . "PDFUNDERLAY"))))
  (setq sset_iRefs (ssget "x" '((0 . "DWFUNDERLAY"))))
  
  (setq iRefZa (sslength sset_iRefs))
    (if (>= iRefZa 1)
      (progn
        (setq entlist_iRef (entget (ssname sset_iRefs 0))
              entlist_iRefDef (entget (cdr (assoc 340 entlist_iRef)))
              entlist_iRefDic (entget (cdr (assoc 330 entlist_iRefDef)))
              entlist_iRefDicLst (member (assoc 3 entlist_iRefDic) entlist_iRefDic)
              iRefLstZa (/ (length entlist_iRefDicLst) 2)
	      i 0
        )
        (while (< i iRefLstZa)
          (setq LstIndex (- (* (+ i 1) 2) 1)
                iRef_elm (entget (cdr (nth LstIndex entlist_iRefDicLst)))
                iRef_Name (cdr (nth (1- LstIndex) entlist_iRefDicLst))
                iRefPfad (cdr (assoc 1 iRef_elm))
                iRefPfadneu (findFileNeu iRefPfad)
          )
        (if (/= iRefPfadneu nil)
          (progn
            (setq iRef_elmn (subst (cons 1 iRefPfadneu) (assoc 1 iRef_elm) iRef_elm))
            (if (entmod iRef_elmn)
              (alert (strcat "\nFür <" iRef_Name "> wurde der Pfad geändert."))
              (alert (strcat "\nFür <" iRef_Name "> konnte der Pfad nicht geändert werden!"))
            )
          )
          (alert (strcat "\nFür <" iRef_Name "> liegt kein gültiger Pfad vor!"))
        );endif
        (setq i (1+ i))
      );wend
    );progn
  );endif
)

(defun findFileNeu (Pfadalt)
  (setq Pfadneu Pfadalt)
  Pfadneu
)