----
;;;	Hauptfunktion für Bemassungs-Präfix und Suffix		
----
(defun BEMPRAESUFF (OBJEKT PRAEFIX SUFFIX /)
 (if (and (= (type OBJEKT) 'ENAME)
          (= (cdr (assoc 0 (entget OBJEKT))) "DIMENSION")
          (= (type PRAEFIX) 'STR)
          (= (type SUFFIX) 'STR)
          ) ;_ ende von and
  (progn
   (setq VLA-OBJEKT (vlax-ename->vla-object OBJEKT))
   (vlax-put-Property VLA-OBJEKT 'TextPrefix PRAEFIX)
   (vlax-put-Property VLA-OBJEKT 'TextSuffix SUFFIX)
   ) ;_ ende von progn
  ) ;_ ende von if
 ) ;_ ende von defun

(defun C:DimPreaQuad ()
 (bem_set_praesuff (car (entsel)) "{\\fGDT;o}" "")
 (princ "Quadrat vor die Maßzahl hinzugefügt.")
 (princ)
 ) ;_ ende von defun