(defun dinfo (/ dProbs)
(setq INFOFILE (strcat (getvar 'DWGPREFIX) "Projektdaten.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 "Ort" 'Ort)
  (vla-getCustomByKey dProps "Bauvorhaben 1-1" 'Bauvorhaben_1-1)
  (vla-getCustomByKey dProps "Bauvorhaben 1-2" 'Bauvorhaben_1-2)
  (vla-getCustomByKey dProps "Bauvorhaben 2-2" 'Bauvorhaben_2-2)
  (vla-getCustomByKey dProps "Bauvorhaben 1-3" 'Bauvorhaben_1-3)
  (vla-getCustomByKey dProps "Bauvorhaben 2-3" 'Bauvorhaben_2-3)
  (vla-getCustomByKey dProps "Bauvorhaben 3-3" 'Bauvorhaben_3-3)
  (vla-getCustomByKey dProps "Ort Wappen" 'Ort_Wappen)
  (vla-getCustomByKey dProps "Bauvorhaben 1-1 Wappen" 'Bauvorhaben_1-1_Wappen)
  (vla-getCustomByKey dProps "Bauvorhaben 1-2 Wappen" 'Bauvorhaben_1-2_Wappen)
  (vla-getCustomByKey dProps "Bauvorhaben 2-2 Wappen" 'Bauvorhaben_2-2_Wappen)
  (vla-getCustomByKey dProps "Bauvorhaben 1-3 Wappen" 'Bauvorhaben_1-3_Wappen)
  (vla-getCustomByKey dProps "Bauvorhaben 2-3 Wappen" 'Bauvorhaben_2-3_Wappen)
  (vla-getCustomByKey dProps "Bauvorhaben 3-3 Wappen" 'Bauvorhaben_3-3_Wappen)
  (vla-getCustomByKey dProps "Baumaßnahme 1-1" 'Baumassnahme_1-1)
  (vla-getCustomByKey dProps "Baumaßnahme 1-2" 'Baumassnahme_1-2)
  (vla-getCustomByKey dProps "Baumaßnahme 2-2" 'Baumassnahme_2-2)
  (vla-getCustomByKey dProps "Baumaßnahme 1-3" 'Baumassnahme_1-3)
  (vla-getCustomByKey dProps "Baumaßnahme 2-3" 'Baumassnahme_2-3)
  (vla-getCustomByKey dProps "Baumaßnahme 3-3" 'Baumassnahme_3-3)
  (vla-getCustomByKey dProps "Bauherr 1-1" 'Bauherr_1-1)
  (vla-getCustomByKey dProps "Bauherr 1-2" 'Bauherr_1-2)
  (vla-getCustomByKey dProps "Bauherr 2-2" 'Bauherr_2-2)
  (vla-getCustomByKey dProps "Bauherr 1-3" 'Bauherr_1-3)
  (vla-getCustomByKey dProps "Bauherr 2-3" 'Bauherr_2-3)
  (vla-getCustomByKey dProps "Bauherr 3-3" 'Bauherr_3-3)
  (vla-getCustomByKey dProps "Straße - Nr des Bauherren" 'Strasse_-_Nr_des_Bauherren)
  (vla-getCustomByKey dProps "Postleitzahl - Ort des Bauherren" 'Postleitzahl_-_Ort_des_Bauherren)
  (vla-getCustomByKey dProps "Tel - des Bauherren" 'Tel_-_des_Bauherren)
  (vla-getCustomByKey dProps "Projektnummer" 'Projektnummer)
  (vla-getCustomByKey dProps "Phase" 'Phase)
  (vla-getCustomByKey dProps "bearbeitet Datum" 'bearbeitet_Datum)
  (vla-getCustomByKey dProps "bearbeitet" 'bearbeitet)
  (vla-getCustomByKey dProps "gezeichnet Datum" 'gezeichnet_Datum)
  (vla-getCustomByKey dProps "gezeichnet" 'gezeichnet)
  (vla-getCustomByKey dProps "geprüft Datum" 'geprueft_Datum)
  (vla-getCustomByKey dProps "geprüft" 'geprueft)
  (vla-getCustomByKey dProps "Aufstellungsort den" 'Aufstellungsort_den))

(defun currinfo (/)
  (princ "\n")
  (princ (strcat "Ort      = " Ort "\n"))
  (princ (strcat "Bauvorhaben 1-1      = " Bauvorhaben_1-1 "\n"))
  (princ (strcat "Bauvorhaben 1-2      = " Bauvorhaben_1-2 "\n"))
  (princ (strcat "Bauvorhaben 2-2      = " Bauvorhaben_2-2 "\n"))
  (princ (strcat "Bauvorhaben 1-3      = " Bauvorhaben_1-3 "\n"))
  (princ (strcat "Bauvorhaben 2-3      = " Bauvorhaben_2-3 "\n"))
  (princ (strcat "Bauvorhaben 3-3      = " Bauvorhaben_3-3 "\n"))
  (princ (strcat "Ort Wappen      = " Ort_Wappen "\n"))
  (princ (strcat "Bauvorhaben 1-1 Wappen      = " Bauvorhaben_1-1_Wappen "\n"))
  (princ (strcat "Bauvorhaben 1-2 Wappen      = " Bauvorhaben_1-2_Wappen "\n"))
  (princ (strcat "Bauvorhaben 2-2 Wappen      = " Bauvorhaben_2-2_Wappen "\n"))
  (princ (strcat "Bauvorhaben 1-3 Wappen      = " Bauvorhaben_1-3_Wappen "\n"))
  (princ (strcat "Bauvorhaben 2-3 Wappen      = " Bauvorhaben_2-3_Wappen "\n"))
  (princ (strcat "Bauvorhaben 3-3 Wappen      = " Bauvorhaben_3-3_Wappen "\n"))
  (princ (strcat "Baumaßnahme 1-1      = " Baumassnahme_1-1 "\n"))
  (princ (strcat "Baumaßnahme 1-2      = " Baumassnahme_1-2 "\n"))
  (princ (strcat "Baumaßnahme 2-2      = " Baumassnahme_2-2 "\n"))
  (princ (strcat "Baumaßnahme 1-3      = " Baumassnahme_1-3 "\n"))
  (princ (strcat "Baumaßnahme 2-3      = " Baumassnahme_2-3 "\n"))
  (princ (strcat "Baumaßnahme 3-3      = " Baumassnahme_3-3 "\n"))
  (princ (strcat "Bauherr 1-1      = " Bauherr_1-1 "\n"))
  (princ (strcat "Bauherr 1-2      = " Bauherr_1-2 "\n"))
  (princ (strcat "Bauherr 2-2      = " Bauherr_2-2 "\n"))
  (princ (strcat "Bauherr 1-3      = " Bauherr_1-3 "\n"))
  (princ (strcat "Bauherr 2-3      = " Bauherr_2-3 "\n"))
  (princ (strcat "Bauherr 3-3      = " Bauherr_3-3 "\n"))
  (princ (strcat "Straße - Nr des Bauherren      = " Strasse_-_Nr_des_Bauherren "\n"))
  (princ (strcat "Postleitzahl - Ort des Bauherren      = " Postleitzahl_-_Ort_des_Bauherren "\n"))
  (princ (strcat "Tel - des Bauherren      = " Tel_-_des_Bauherren "\n"))
  (princ (strcat "Projektnummer      = " Projektnummer "\n"))
  (princ (strcat "Phase      = " Phase "\n"))
  (princ (strcat "bearbeitet Datum      = " bearbeitet_Datum "\n"))
  (princ (strcat "bearbeitet      = " bearbeitet "\n"))
  (princ (strcat "gezeichnet Datum      = " gezeichnet_Datum "\n"))
  (princ (strcat "gezeichnet      = " gezeichnet "\n"))
  (princ (strcat "geprüft Datum      = " geprueft_Datum "\n"))
  (princ (strcat "geprüft      = " geprueft "\n"))
  (princ (strcat "Aufstellungsort den      = " Aufstellungsort_den "\n"))
  )

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

  (prin1 (LIST (cons "Ort" Ort)
      (cons "Bauvorhaben 1-1" Bauvorhaben_1-1)
      (cons "Bauvorhaben 1-2" Bauvorhaben_1-2)
      (cons "Bauvorhaben 2-2" Bauvorhaben_2-2)
      (cons "Bauvorhaben 1-3" Bauvorhaben_1-3)
      (cons "Bauvorhaben 2-3" Bauvorhaben_2-3)
      (cons "Bauvorhaben 3-3" Bauvorhaben_3-3)
      (cons "Ort Wappen" Ort_Wappen)
      (cons "Bauvorhaben 1-1 Wappen" Bauvorhaben_1-1_Wappen)
      (cons "Bauvorhaben 1-2 Wappen" Bauvorhaben_1-2_Wappen)
      (cons "Bauvorhaben 2-2 Wappen" Bauvorhaben_2-2_Wappen)
      (cons "Bauvorhaben 1-3 Wappen" Bauvorhaben_1-3_Wappen)
      (cons "Bauvorhaben 2-3 Wappen" Bauvorhaben_2-3_Wappen)
      (cons "Bauvorhaben 3-3 Wappen" Bauvorhaben_3-3_Wappen)
      (cons "Baumaßnahme 1-1" Baumassnahme_1-1)
      (cons "Baumaßnahme 1-2" Baumassnahme_1-2)
      (cons "Baumaßnahme 2-2" Baumassnahme_2-2)
      (cons "Baumaßnahme 1-3" Baumassnahme_1-3)
      (cons "Baumaßnahme 2-3" Baumassnahme_2-3)
      (cons "Baumaßnahme 3-3" Baumassnahme_3-3)
      (cons "Bauherr 1-1" Bauherr_1-1)
      (cons "Bauherr 1-2" Bauherr_1-2)
      (cons "Bauherr 2-2" Bauherr_2-2)
      (cons "Bauherr 1-3" Bauherr_1-3)
      (cons "Bauherr 2-3" Bauherr_2-3)
      (cons "Bauherr 3-3" Bauherr_3-3)
      (cons "Straße - Nr des Bauherren" Strasse_-_Nr_des_Bauherren)
      (cons "Postleitzahl - Ort des Bauherren" Postleitzahl_-_Ort_des_Bauherren)
      (cons "Tel - des Bauherren" Tel_-_des_Bauherren)
      (cons "Projektnummer" Projektnummer)
      (cons "Phase" Phase)
      (cons "bearbeitet Datum" bearbeitet_Datum)
      (cons "bearbeitet" bearbeitet)
      (cons "gezeichnet Datum" gezeichnet_Datum)
      (cons "gezeichnet" gezeichnet)
      (cons "geprüft Datum" geprueft_Datum)
      (cons "geprüft" geprueft)
      (cons "Aufstellungsort den" Aufstellungsort_den)
      )
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 "Ort"
    (cdr (assoc '"Ort" IMPORT)))
 
 (vla-setCustomByKey dProps "Bauvorhaben 1-1"
    (cdr (assoc '"Bauvorhaben 1-1" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 1-2"
    (cdr (assoc '"Bauvorhaben 1-2" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 2-2"
    (cdr (assoc '"Bauvorhaben 2-2" IMPORT)))
  
(vla-setCustomByKey dProps "Bauvorhaben 1-3"
    (cdr (assoc '"Bauvorhaben 1-3" IMPORT)))
  
(vla-setCustomByKey dProps "Bauvorhaben 2-3"
    (cdr (assoc '"Bauvorhaben 2-3" IMPORT)))
  
(vla-setCustomByKey dProps "Bauvorhaben 3-3"
    (cdr (assoc '"Bauvorhaben 3-3" IMPORT)))

  (vla-setCustomByKey dProps "Ort Wappen"
    (cdr (assoc '"Ort Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 1-1 Wappen"
    (cdr (assoc '"Bauvorhaben 1-1 Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 1-2 Wappen"
    (cdr (assoc '"Bauvorhaben 1-2 Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 2-2 Wappen"
    (cdr (assoc '"Bauvorhaben 2-2 Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 1-3 Wappen"
    (cdr (assoc '"Bauvorhaben 1-3 Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 2-3 Wappen"
    (cdr (assoc '"Bauvorhaben 2-3 Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 3-3 Wappen"
    (cdr (assoc '"Bauvorhaben 3-3 Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Baumaßnahme 1-1"
    (cdr (assoc '"Baumaßnahme 1-1" IMPORT)))	
	
  (vla-setCustomByKey dProps "Baumaßnahme 1-2"
   (cdr (assoc '"Baumaßnahme 1-2" IMPORT)))	
	
  (vla-setCustomByKey dProps "Baumaßnahme 2-2"
   (cdr (assoc '"Baumaßnahme 2-2" IMPORT)))	
	
  (vla-setCustomByKey dProps "Baumaßnahme 1-3"
   (cdr (assoc '"Baumaßnahme 1-3" IMPORT)))
	
  (vla-setCustomByKey dProps "Baumaßnahme 2-3"
   (cdr (assoc '"Baumaßnahme 2-3" IMPORT)))
	
  (vla-setCustomByKey dProps "Baumaßnahme 3-3"
   (cdr (assoc '"Baumaßnahme 3-3" IMPORT)))	

  (vla-setCustomByKey dProps "Bauherr 1-1"
    (cdr (assoc '"Bauherr 1-1" IMPORT)))  

  (vla-setCustomByKey dProps "Bauherr 1-2"
    (cdr (assoc '"Bauherr 1-2" IMPORT)))  
  
  (vla-setCustomByKey dProps "Bauherr 2-2"
    (cdr (assoc '"Bauherr 2-2" IMPORT)))
  
  (vla-setCustomByKey dProps "Bauherr 1-3"
    (cdr (assoc '"Bauherr 1-3" IMPORT))) 

  (vla-setCustomByKey dProps "Bauherr 2-3"
    (cdr (assoc '"Bauherr 2-3" IMPORT)))

  (vla-setCustomByKey dProps "Bauherr 3-3"
    (cdr (assoc '"Bauherr 3-3" IMPORT)))

  (vla-setCustomByKey dProps "Straße - Nr des Bauherren"
    (cdr (assoc '"Straße - Nr des Bauherren" IMPORT)))

  (vla-setCustomByKey dProps "Postleitzahl - Ort des Bauherren"
    (cdr (assoc '"Postleitzahl - Ort des Bauherren" IMPORT)))

  (vla-setCustomByKey dProps "Tel - des Bauherren"
    (cdr (assoc '"Tel - des Bauherren" IMPORT)))

  (vla-setCustomByKey dProps "Projektnummer"
    (cdr (assoc '"Projektnummer" IMPORT)))

  (vla-setCustomByKey dProps "Phase"
    (cdr (assoc '"Phase" IMPORT)))

  (vla-setCustomByKey dProps "bearbeitet Datum"
    (cdr (assoc '"bearbeitet Datum" IMPORT)))

  (vla-setCustomByKey dProps "bearbeitet"
    (cdr (assoc '"bearbeitet" IMPORT)))

  (vla-setCustomByKey dProps "gezeichnet Datum"
    (cdr (assoc '"gezeichnet Datum" IMPORT)))

  (vla-setCustomByKey dProps "gezeichnet"
    (cdr (assoc '"gezeichnet" IMPORT)))

  (vla-setCustomByKey dProps "geprüft Datum"
    (cdr (assoc '"geprüft Datum" IMPORT)))

  (vla-setCustomByKey dProps "geprüft"
    (cdr (assoc '"geprüft" IMPORT))) 

  (vla-setCustomByKey dProps "Aufstellungsort den"
    (cdr (assoc '"Aufstellungsort den" IMPORT))) 
	)

  (dinfo)
  (currinfo)
  )