Guten Morgen,
sorry dass ich mich jetzt erst melde, aber ich hatte eine Woche echt verdienten Urlaub
Leider ist attcopy< nicht das was wir suchen. Da ich leider keine Datei anhängen konnte, hänge ich jetzt einfach mal die Lisp hier an. Wie gesagt, es erleichtert uns die Arbeit ungemein und in ACad lief sie auch ohne weiteres aber in BricsCad geht sie gar nicht
Ich bin allerdings auch Sachen Lisp nicht sehr bewandert.
(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)
)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP