(defun dinfo (/ dProbs)
  (setq INFOFILE (strcat (getvar 'DWGPREFIX) "dwginfo.txt"))
  (vl-load-com)
  (setq acadObject (vlax-get-acad-object))
  (setq acadDocument (vla-get-ActiveDocument acadObject))
  (setq dProps (vlax-get-Property acadDocument 'SummaryInfo))

  (vla-getCustomByKey dProps "Datum" 'DATUM)
  (vla-getCustomByKey dProps "Bearbeitet" 'BEARBEITET)
  (vla-getCustomByKey dProps "Gezeichnet" 'GEZEICHNET)
  (vla-getCustomByKey dProps "Geprüft" 'GEPRÜFT)
  (vla-getCustomByKey dProps "Ausfertigung" 'AUSFERTIGUNG)
  (vla-getCustomByKey dProps "Bauvorhaben_1-1" 'BAUVORHABEN_1-1)
  (vla-getCustomByKey dProps "Bauvorhaben_2-1" 'BAUVORHABEN_2-1)
  (vla-getCustomByKey dProps "Bauvorhaben_2-2" 'BAUVORHABEN_2-2)
  (vla-getCustomByKey dProps "Bauvorhaben_3-1" 'BAUVORHABEN_3-1)
  (vla-getCustomByKey dProps "Bauvorhaben_3-2" 'BAUVORHABEN_3-2)
  (vla-getCustomByKey dProps "Bauvorhaben_3-3" 'BAUVORHABEN_3-3)
  (vla-getCustomByKey dProps "Maßnahmenträger_1-1" 'MAßNAHMENTRÄGER_1-1)
  (vla-getCustomByKey dProps "Maßnahmenträger_2-1" 'MAßNAHMENTRÄGER_2-1)
  (vla-getCustomByKey dProps "Maßnahmenträger_2-2" 'MAßNAHMENTRÄGER_2-2)
  (vla-getCustomByKey dProps "Maßnahmenträger_3-1" 'MAßNAHMENTRÄGER_3-1)
  (vla-getCustomByKey dProps "Maßnahmenträger_3-2" 'MAßNAHMENTRÄGER_3-2)
  (vla-getCustomByKey dProps "Maßnahmenträger_3-3" 'MAßNAHMENTRÄGER_3-3)
  (vla-getCustomByKey dProps "Planungsstand" 'PLANUNGSSTAND)
  (vla-getCustomByKey dProps "Projekt-Nr." 'PROJEKT-NR.)
  (vla-getCustomByKey dProps "Maßnahmenträger_Adresse _2-1" 'MAßNAHMENTRÄGER_ADRESSE_2-1)
  (vla-getCustomByKey dProps "Maßnahmenträger_Adresse _2-2" 'MAßNAHMENTRÄGER_ADRESSE_2-2)
  (vla-getCustomByKey dProps "Maßnahmenträger_Telefon" 'MAßNAHMENTRÄGER_TELEFON)
  (vla-getCustomByKey dProps "Maßnahmenträger_E-MAIL" 'MAßNAHMENTRÄGER_E-MAIL)
  )


(defun currinfo	(/)
  (princ "\n")
  (princ (strcat "Datum      = " DATUM "\n"))
  (princ (strcat "Bearbeitet      = " BEARBEITET "\n"))
  (princ (strcat "Gezeichnet      = " GEZEICHNET "\n"))
  (princ (strcat "Geprüft      = " GEPRÜFT "\n"))
  (princ (strcat "Ausfertigung      = " AUSFERTIGUNG "\n"))
  (princ (strcat "Bauvorhaben_1-1      = " BAUVORHABEN_1-1 "\n"))
  (princ (strcat "Bauvorhaben_2-1      = " BAUVORHABEN_2-1 "\n"))
  (princ (strcat "Bauvorhaben_2-2      = " BAUVORHABEN_2-2 "\n"))
  (princ (strcat "Bauvorhaben_3-1      = " BAUVORHABEN_3-1 "\n"))
  (princ (strcat "Bauvorhaben_3-2      = " BAUVORHABEN_3-2 "\n"))
  (princ (strcat "Bauvorhaben_3-3      = " BAUVORHABEN_3-3 "\n"))
  (princ (strcat "Maßnahmenträger_1-1      = " MAßNAHMENTRÄGER_1-1 "\n"))
  (princ (strcat "Maßnahmenträger_2-1      = " MAßNAHMENTRÄGER_2-1 "\n"))
  (princ (strcat "Maßnahmenträger_2-2      = " MAßNAHMENTRÄGER_2-2 "\n"))
  (princ (strcat "Maßnahmenträger_3-1      = " MAßNAHMENTRÄGER_3-1 "\n"))
  (princ (strcat "Maßnahmenträger_3-2      = " MAßNAHMENTRÄGER_3-2 "\n"))
  (princ (strcat "Maßnahmenträger_3-3      = " MAßNAHMENTRÄGER_3-3 "\n"))
  (princ (strcat "Planungsstand      = " PLANUNGSSTAND "\n"))
  (princ (strcat "Projekt-Nr.      = " PROJEKT-NR. "\n"))
  (princ (strcat "Maßnahmenträger_Adresse_2-1      = " MAßNAHMENTRÄGER_ADRESSE_2-1 "\n"))
  (princ (strcat "Maßnahmenträger_Adresse_2-2      = " MAßNAHMENTRÄGER_ADRESSE_2-2 "\n"))
  (princ (strcat "Maßnahmenträger_Telefon      = " MAßNAHMENTRÄGER_TELEFON "\n"))
  (princ (strcat "Maßnahmenträger_E-MAIL      = " MAßNAHMENTRÄGER_E-MAIL "\n"))
  )

(defun c:dinfo_exp (/ FW)
  (dinfo)
  (setq FW (open INFOFILE "w"))

  (prin1 (LIST (cons "Datum" 'DATUM)
      (cons "Bearbeitet" 'BEARBEITET)
      (cons "Gezeichnet" 'GEZEICHNET)
      (cons "Geprüft" 'GEPRÜFT)
      (cons "Ausfertigung" 'AUSFERTIGUNG)
      (cons "Bauvorhaben_1-1" 'BAUVORHABEN_1-1)
      (cons "Bauvorhaben_2-1" 'BAUVORHABEN_2-1)
      (cons "Bauvorhaben_2-2" 'BAUVORHABEN_2-2)
      (cons "Bauvorhaben_3-1" 'BAUVORHABEN_3-1)
      (cons "Bauvorhaben_3-2" 'BAUVORHABEN_3-2)
      (cons "Bauvorhaben_3-3" 'BAUVORHABEN_3-3)
      (cons "Maßnahmenträger_1-1" 'MAßNAHMENTRÄGER_1-1)
      (cons "Maßnahmenträger_2-1" 'MAßNAHMENTRÄGER_2-1)
      (cons "Maßnahmenträger_2-2" 'MAßNAHMENTRÄGER_2-2)
      (cons "Maßnahmenträger_3-1" 'MAßNAHMENTRÄGER_3-1)
      (cons "Maßnahmenträger_3-2" 'MAßNAHMENTRÄGER_3-2)
      (cons "Maßnahmenträger_3-3" 'MAßNAHMENTRÄGER_3-3)
      (cons "Planungsstand" 'PLANUNGSSTAND)
      (cons "Projekt-Nr." 'PROJEKT-NR.)
      (cons "Maßnahmenträger_Adresse_2-1" 'MAßNAHMENTRÄGER_ADRESSE_2-1)
      (cons "Maßnahmenträger_Adresse_2-2" 'MAßNAHMENTRÄGER_ADRESSE_2-2)
      (cons "Maßnahmenträger_Telefon" 'MAßNAHMENTRÄGER_TELEFON)
      (cons "Maßnahmenträger_E-MAIL" 'MAßNAHMENTRÄGER_E-MAIL)
      )
FW
)
  (close FW)
  (currinfo)
  )

(defun c:dinfo_imp (/ FR)
  (dinfo)
  (setq FR (open INFOFILE "r"))
  (setq IMPORT (read (read-line FR)))
  (close FR)

  (vla-setCustomByKey
    dProps
    "Bearbeitet"
    (cdr (assoc '"Bearbeitet" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Datum"
    (cdr (assoc '"Datum" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Gezeichnet"
    (cdr (assoc '"Gezeichnet" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Geprüft"
    (cdr (assoc '"Geprüft" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Ausfertigung"
    (cdr (assoc '"Ausfertigung" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Bauvorhaben 1-1"
    (cdr (assoc '"Bauvorhaben 1-1" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Bauvorhaben 2-1"
    (cdr (assoc '"Bauvorhaben 2-1" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Bauvorhaben 2-2"
    (cdr (assoc '"Bauvorhaben 2-2" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Bauvorhaben 3-1"
    (cdr (assoc '"Bauvorhaben 3-1" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Bauvorhaben 3-2"
    (cdr (assoc '"Bauvorhaben 3-2" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Bauvorhaben 3-3"
    (cdr (assoc '"Bauvorhaben 3-3" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Maßnahmenträger 1-1"
    (cdr (assoc '"Maßnahmenträger 1-1" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Maßnahmenträger 2-1"
    (cdr (assoc '"Maßnahmenträger 2-1" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Maßnahmenträger 2-2"
    (cdr (assoc '"Maßnahmenträger 2-2" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Maßnahmenträger 3-1"
    (cdr (assoc '"Maßnahmenträger 3-1" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Maßnahmenträger 3-2"
    (cdr (assoc '"Maßnahmenträger 3-2" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Maßnahmenträger 3-3"
    (cdr (assoc '"Maßnahmenträger 3-3" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Planungsstand"
    (cdr (assoc '"Planungsstand" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Projekt-Nr."
    (cdr (assoc '"Projekt-Nr." IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Maßnahmenträger Adresse 2-1"
    (cdr (assoc '"Maßnahmenträger Adresse 2-1" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Maßnahmenträger Adresse 2-2"
    (cdr (assoc '"Maßnahmenträger Adresse 2-2" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Maßnahmenträger Telefon"
    (cdr (assoc '"Maßnahmenträger Telefon" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Maßnahmenträger E-MAIL"
    (cdr (assoc '"Maßnahmenträger E-MAIL" IMPORT))
    )

  (dinfo)
  (currinfo)
  )