---

Guten Tag,
ich bin neu hier im Forum und noch recht neu in AutoCAD.

Ich möchte im Layout die Schriftfelder des Plankopfes so verknüpfen, dass ich nur in einem Layout den bspw. Bauherrn eintragen muss und sich dieser dann automatisch auf allen Layouts ändert.

Gibt es dafür einen einfachen Weg?

LG Nick 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nick,

Du kannst ein Feld in allen Layouts gleichzeitig ändern. Dafür benötigst du eine LISP-Datei (GATTE2-Att). Mit dieser kannst du Texte gleichzeitig in mehreren Layouts bearbeiten.

MfG
Obaid 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Obeid-WP:
in allen Layouts gleichzeitig ändern

---

Dafür reicht GATTE aus den Expresstools aus (Bereits installiert)

@Nick
Verknüpfen würde ich nicht machen, lieber so wie Obeid schreibt, oder ich mache das auch gerne
über die Eigenschaften-Palette, wobei hier der Kniff in der Objektwahl liegt.
Über Befehl FILTER und Objektwahl ALLE könnte man das machen, aber man möchte es ja als 1-Klick-Lösung,
da wird dann ein Zusatzprogramm nötig, oder bei nicht-dynamischen Blöcke eine einzige Lispzeile.
Befehl: (sssetfirst nil (ssget "_X" (list(assoc 2 (entget(car(entsel)))))))

Oder als Befehl "SELA"
(defun c:SELA nil (sssetfirst nil (ssget "_X" (list(assoc 2 (entget(car(entsel))))))))

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Verknüpfen nur, wenn man mit DWGEIGENschaften verknüpft!
Hier gibt es aber etwas mehr zu überlegen und vorzubereiten, geändert werden die Daten dann in den DWGEIGENschaften.

Tool/Vorbereitung zum 1-Knopf anlegen&füllen der Eigenschaften, welche dann von Schriftfeldern im Plankopf ausgelesen werden.
Wenn jemand den Luxus hat ausschließelich mit eigenen Dateien/Dateivorlagen zu arbeiten, dann ist es natürlich perfekt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
schön wäre es, wenn ACAD so etwas wie ein "Masterlayout" dafür hätte
Alternativ nutze ich einen Bereich des Modellbereichs außerhalb meiner Planung und platziere dort Plankopf, Legende und all das, was ich in mehreren Layouts brauche und blende das gewünschte in den Layouts über zusätzliche Ansichtsfenster ein

------------------

Gruß Thomas
CADdog the dog formerly known as TR

AutoCAD spricht mit einem, aber viele hören nicht zu.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Immer wieder lästig, die Plankopfausfüllerei. Ich habe das vor kurzem ganz automatisiert. Wenn man eindeutige Dateinamen und Layoutbezeichnungen hat, geht das auf Knopfdruck. z.B. Wenn im Dateinamen an Stelle X bei Geschoss "EG" steht, schreiben in Plankopfattribute "Erdgeschoss". Wenn in der Layoutbezeichnung an Stelle X für Gewerk "E" steht, Schreibe in Plankopf "Elektroinstallation" usw. usw.
Das das LISP dann am Ende 2011 Zeilen und 149.762 Zeichen beinhaltet, war anfangs nicht abzusehen :-D Aber funktioniert prächtig. Und alles von der KI erstellen lassen. Aber alternativen wie Gatte gehn natürlich auch. Was mich dann immer störte sind die unterschiedlichen Schreibweisen. Der eine schreibt EG im Plankopf, der andere schreibts aus, von der Zweckentfremdung, was für Werte in bestimmte Attribute eingetragen werden sollen ganz zu schweigen. 

------------------
Wer immer tut, was er schon kann, bleibt immer das, was er schon ist.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen,
da LISP-Dateien in DATAflor leider geblockt werden habe ich jetzt deine Lösung mit den DWGEigenschaften genutzt. Ist zwar nicht ganz so wie ich es mir erhofft hatte, aber erfüllt dennoch seine Zweck
Dankeschön 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Nick1810:
Guten Morgen,
da LISP-Dateien in DATAflor leider geblockt werden habe ich jetzt deine Lösung mit den DWGEigenschaften genutzt. Ist zwar nicht ganz so wie ich es mir erhofft hatte, aber erfüllt dennoch seine Zweck
Dankeschön  

---

Hy

evtl hilft die das Stichwort "Plansatz" noch weiter wenn LISP net geht einfach mal ein wenig schauen wie weit das Hilft

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

und noch einmal zurück zu verknüpften Schriftköpfen:

Es wäre kein Problem zu erstellen und wenn jemand immer nur seine Vorlagen benutzt, super.

Gehe in dein erstes Layout,
Befehl: Schriftfeld

OBJEKT, Objekt, oben in der Mitte des Schriftfeld Dialoges [Schaltfläche] zum Objekt wählen klicken, das erste Schriffeld anklicken und zurück im Dialog das entsprechende Attribut wählen.
Kopiere dir unten im Dialog den Schriftfeldcode
[Abbruch]
Gehe in das nächste Layout, bearbeite das Attribut des Schriftkopfes und füge den Code als Attributwert ein.

Anschließend kannst du

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielleicht hilft das: Exportieren von DWG Eigenschaften ...

Code:

---

(defun c:ExportDWGProps ( / #doc #si #cnt #i #key #val #pairs #fname )
  (setq #doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq #si  (vla-get-SummaryInfo #doc))
  (setq #cnt (vla-NumCustomInfo #si)
        #i   0
        #pairs '())
  ;; sammeln
  (repeat #cnt
    (vla-GetCustomByIndex #si #i 'key 'val)
    (setq #pairs (append #pairs (list (cons key val))))
    (setq #i (1+ #i)))
  ;; Datei wählen (Startpfad = aktueller DWG-Ordner)
  (setq #fname (getfiled "Eigenschaften exportieren"
                         (getvar "DWGPREFIX")
                         "prop" 1))
  (if #fname
    (:WritePairsToFile #fname #pairs))
  (princ))

---

Und in andere Zeichnung Importieren:

Code:

---

(defun C:ImportDWGProps ( / #doc #si #fname #pairs #key #val #cnt #i #found )
  (setq #fname (getfiled "Eigenschaften importieren"
                         (getvar "DWGPREFIX")
                         "prop" 0))
  (if #fname
    (progn
      (setq #pairs (:ReadPairsFromFile #fname))
      (setq #doc (vla-get-ActiveDocument (vlax-get-acad-object)))
      (setq #si  (vla-get-SummaryInfo #doc))

      (foreach #p #pairs
        (setq #key (car #p)
              #val (cdr #p)
              #found nil
              #cnt (vla-NumCustomInfo #si)
              #i 0)
        ;; prüfen ob vorhanden
        (while (< #i #cnt)
          (vla-GetCustomByIndex #si #i 'k 'v)
          (if (= (strcase k) (strcase #key))
            (progn
              (vla-SetCustomByKey #si #key #val)
              (setq #found T
                    #i #cnt))
            (setq #i (1+ #i))))
        ;; sonst neu
        (if (not #found)
          (vla-AddCustomInfo #si #key #val)))
      (princ (strcat "\nImportiert von: " #fname))))
  (princ))

---

Funktionen dazu:

(VL-LOAD-COM)

;;; ---------- Hilfen ----------

Code:

---

(DEFUN :stripbom (#s)
  (IF (AND #s (> (STRLEN #s) 0) (= (VL-STRING-ELT #s 0) 65279)) ; UTF-8 BOM
      (SUBSTR #s 2)
      #s
  )
)

---

Code:

---

(DEFUN :escapetabs (#s) ; Tabs in Text als \t sichern
  (VL-STRING-SUBST
      "\\t"
      "\t"
      (VL-PRINC-TO-STRING
        (IF #s
            #s
            ""
        )
      )
  )
)

---

Code:

---

(DEFUN :unescapetabs (#s) ; \t zurück in echte Tabs
  (VL-STRING-SUBST
      "\t"
      "\\t"
      (IF #s
        #s
        ""
      )
  )
)

---

Code:

---

(DEFUN :writepairstofile (#fname #pairs / #f)
   (IF (AND #fname #pairs (SETQ #f (OPEN #fname "w")))
      (PROGN (FOREACH #p #pairs (WRITE-LINE (STRCAT (:escapetabs (CAR #p)) "\t" (:escapetabs (CDR #p))) #f))
             (CLOSE #f)
      )
   )
   (PRINC)
)

---

Code:

---

(DEFUN :readpairsfromfile (#fname / #f #line #pos #key #val #out)
   (SETQ #out '())
   (IF (AND #fname (SETQ #f (OPEN #fname "r")))
      (PROGN (WHILE (SETQ #line (READ-LINE #f))
                ;; Tab-Position suchen
                (SETQ #pos (VL-STRING-SEARCH "\t" #line))
                (IF #pos
                   (PROGN (SETQ #key (SUBSTR #line 1 #pos))
                          (SETQ #val (SUBSTR #line (+ #pos 2)))
                          ;; leere Werte abfangen
                          (IF (= #val "")
                             (SETQ #val "")
                          )
                          ;; Paar anhängen
                          (SETQ #out (APPEND #out (LIST (CONS #key #val))))
                   )
                   ;; else: Zeilen ohne Tab ignorieren
                )
             )
             (CLOSE #f)
      )
   )
   #out
)

---

Die DWGeigen-schaften lassen sich gut in Schriftfeldern verwenden.    

------------------
Gruß aus Wien
Bernhard

[Diese Nachricht wurde von Bernhard GSD am 28. Aug. 2025 editiert.]

[Diese Nachricht wurde von Bernhard GSD am 28. Aug. 2025 editiert.]

[Diese Nachricht wurde von Bernhard GSD am 28. Aug. 2025 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nick,

hier ein ähnliches Thema, mit Schriftfelder.

http://ww3.cad.de/foren/ubb/Forum54/HTML/030081.shtml#000006

------------------
Gruß Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP