;; Einfügen der Schriftfelder in die Layouts
;; WoEb u. StJa, 4.11.2002
(DEFUN wec_duka_doc_InsertBlocks(wec_TemplatePath /)

  ;; Prüfung, ob die Schriftfelder bereist eingefügt wurden (bei erneutem Öffnen der Datei).
  (if (not (tblsearch "block" "A4_Sondermasse"))
    (progn ;; Blöcke nicht gefunden => einfügen
      ;; Jedes Layout einzeln ansprechen und das entsprechende Schriftfeld einfügen.

      (command "_-Layout" "_SE" "PZ")
      (if (= (getvar "CTAB") "PZ")
	(command "_-insert" (strcat wec_TemplatePath "\\A4_Sondermasse.dwg") "0,0" "1" "1" "0")
	);; End IF


      (command "_-Layout" "_SE" "MZ")
      (if (= (getvar "CTAB") "MZ")
	(command "_-insert" (strcat wec_TemplatePath "\\A3_Sondermasse.dwg") "0,0" "1" "1" "0")
	);; End If

      (command "_-Layout" "_SE" "Glas")
      (if (= (getvar "CTAB") "Glas")
	(command "_-insert" (strcat wec_TemplatePath "\\A4_Sondermasse.dwg") "0,0" "1" "1" "0")
	);; End If

      (command "_-Layout" "_SE" "L")
      	(if (= (getvar "CTAB") "L")
	  (command "_-insert" (strcat wec_TemplatePath "\\A4_Sondermasse.dwg") "0,0" "1" "1" "0")
	  );; End If

      (command "_-Layout" "_SE" "M")
      (if (= (getvar "CTAB") "M")
	(command "_-insert" (strcat wec_TemplatePath "\\A4_Sondermasse.dwg") "0,0" "1" "1" "0")
	);; End If

      (command "_-Layout" "_SE" "ML")
      (if (= (getvar "CTAB") "ML")
	(command "_-insert" (strcat wec_TemplatePath "\\A4_Sondermasse.dwg") "0,0" "1" "1" "0")
	);; End If

      (command "_-Layout" "_SE" "MR")
      (if (= (getvar "CTAB") "MR")
	(command "_-insert" (strcat wec_TemplatePath "\\A4_Sondermasse.dwg") "0,0" "1" "1" "0")
	);; End If

      (command "_-Layout" "_SE" "PZ2")
      (if (= (getvar "CTAB") "PZ2")
	(command "_-insert" (strcat wec_TemplatePath "\\A4_Sondermasse.dwg") "0,0" "1" "1" "0")
	);; End IF

      (command "_-Layout" "_SE" "R")
      (if (= (getvar "CTAB") "R")
	(command "_-insert" (strcat wec_TemplatePath "\\A4_Sondermasse.dwg") "0,0" "1" "1" "0")
	);; End If

      );; Progn
    );; End If

  (command "_-Layout" "SE" "Modell")
  (command "aimdUpdateAllTitleblocks")

  );; Defun wec_duka_doc_InsertBlocks