; dinfo
; Lisp zum Kopieren und Einfügen von benutzerdefinierten Zeichnungseigenschaften
; "dinfo_exp" -> schreibt die Zeichnungseigenschaften in eine Textdatei
; "dinfo_imp" -> kopiert die Zeichnungseigenschaften aus der Textdatei in die Zeichnung

(defun dinfo (/ dProbs)
  (setq INFOFILE "G:/Abteilungen/IR CAD/1_Vorlagen/12_Projektdaten/Projektdaten_Kranich Benedikt/BD_Projektinfo.txt"); <- Speicherort
  (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 "BD_Projektnummer" 'BD_PROJEKTNUMMER)
  (vla-getCustomByKey dProps "BD_Projekt1" 'BD_PROJEKT1)
  (vla-getCustomByKey dProps "BD_Projekt2" 'BD_PROJEKT2)
  (vla-getCustomByKey dProps "BD_Projekt3" 'BD_PROJEKT3)
  (vla-getCustomByKey dProps "BD_Projektleitername" 'BD_PROJEKTLEITERNAME)
  (vla-getCustomByKey dProps "BD_Projektleiter_Tel" 'BD_PROJEKTLEITER_TEL)
  (vla-getCustomByKey dProps "BD_Projektleiter_Email" 'BD_PROJEKTLEITER_EMAIL)
  (vla-getCustomByKey dProps "BD_LV-Nr" 'BD_LV-NR)
  (vla-getCustomByKey dProps "BD_gezeichnet_von" 'BD_GEZEICHNET_VON)
  (vla-getCustomByKey dProps "BD_Datum_gezeichnet_von" 'BD_DATUM_GEZEICHNET_VON)
  (vla-getCustomByKey dProps "BD_Index" 'BD_INDEX)
  )

(defun currinfo (/)
  (princ "\n")
  (princ (strcat "BD_Projektnummer      = " BD_PROJEKTNUMMER "\n"))
  (princ (strcat "BD_Projekt1      = " BD_PROJEKT1 "\n"))
  (princ (strcat "BD_Projekt2      = " BD_PROJEKT2 "\n"))
  (princ (strcat "BD_Projekt3      = " BD_PROJEKT3 "\n"))
  (princ (strcat "BD_Projektleitername      = " BD_PROJEKTLEITERNAME "\n"))
  (princ (strcat "BD_Projektleiter_Tel      = " BD_PROJEKTLEITER_TEL "\n"))
  (princ (strcat "BD_Projektleiter_Email      = " BD_PROJEKTLEITER_EMAIL "\n"))
  (princ (strcat "BD_LV-Nr      = " BD_LV-NR "\n"))
  (princ (strcat "BD_gezeichnet_von      = " BD_GEZEICHNET_VON "\n"))
  (princ (strcat "BD_Datum_gezeichnet_von      = " BD_DATUM_GEZEICHNET_VON "\n"))
  (princ (strcat "BD_Index      = " BD_INDEX "\n"))
  )

;; Befehl zum Exportieren der Datei-Infos in eine Textdatei
(defun c:dinfo_exp (/ FW)
  (dinfo)
  (setq FW (open INFOFILE "w"))

  (prin1 (LIST (cons "BD_Projektnummer" BD_PROJEKTNUMMER)
      (cons "BD_Projekt1" BD_BD_PROJEKT1)
      (cons "BD_Projekt2" BD_PROJEKT2)
      (cons "BD_Projekt3" BD_PROJEKT3)
      (cons "BD_Projektleitername" BD_PROJEKTLEITERNAME)
      (cons "BD_Projektleiter_Tel" BD_PROJEKTLEITER_TEL)
      (cons "BD_Projektleiter_Email" BD_PROJEKTLEITER_EMAIL)
      (cons "BD_LV-Nr" BD_LV-NR)
      (cons "BD_gezeichnet_von" BD_GEZEICHNET_VON)
      (cons "BD_Datum_gezeichnet_von" BD_DATUM_GEZEICHNET_VON)
      (cons "BD_Index" BD_INDEX)
      )
FW
)
  (close FW)
  (currinfo)
  )

;; Befehl zum Importieren der Datei-Infos
(defun c:dinfo_imp (/ FR)
  (dinfo)
  (setq FR (open INFOFILE "r"))
  (setq IMPORT (read (read-line FR)))
  (close FR)

  (vla-setCustomByKey
    dProps
    "BD_Projektnummer"
    (cdr (assoc '"BD_PROJEKTNUMMER" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "BD_Projekt1"
    (cdr (assoc '"BD_PROJEKT1" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "BD_Projekt2"
    (cdr (assoc '"BD_PROJEKT2" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "BD_Projekt3"
    (cdr (assoc '"BD_PROJEKT3" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "BD_Projektleitername"
    (cdr (assoc '"BD_PROJEKTLEITERNAME" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "BD_Projektleiter_Tel"
    (cdr (assoc '"BD_PROJEKTLEITER_TEL" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "BD_Projektleiter_Email"
    (cdr (assoc '"BD_PROJEKTLEITER_EMAIL" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "BD_LV-Nr"
    (cdr (assoc '"BD_LV-NR" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "BD_gezeichnet_von"
    (cdr (assoc '"BD_GEZEICHNET_VON" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "BD_Datum_gezeichnet_von"
    (cdr (assoc '"BD_DATUM_GEZEICHNET_VON" IMPORT))
    )
 (vla-setCustomByKey
    dProps
    "BD_Index"
    (cdr (assoc '"BD_INDEX" IMPORT))
    )

  (dinfo)
  (currinfo)
  )