;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;; Aufruf der Funktion nach dem laden von TBT_MTEXT durch:
;; (C:TBT_MTEXT_FREI 3 9) -> zum freistellen mit "WEISS"
;;
;; Durch hinzufügen der Gruppencodes 90 63 45 wird ein Hintergrund
;; für Mtexte, wie es in Autocad2005 möglich ist, auch in
;; Autocad2004 hinzugefügt.
;; 
;; Hintergrund   Code-90  Code-63
;; FREIGESTELLT  3        9      "WEISS"
;; ROT           1        1
;; GELB          1        2
;; GRÜN          1        3
;; CYAN          1        4
;; BLAU          1        5
;; MANGENTA      1        6
;; SCHWARZ       1        7
;; FARBE_8       1        8
;; FARBE_9       1        9
;; und so weiter...
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
(defun C:TBT_MTEXT_FREI (#90# #63# / #el# #TEMP#)
(while 
  (setq #el# (entget(car (nentsel "\nMtext wählen: "))))

;;================================================================
    (setq    #TEMP# (list (cons 90 #90#)))
    (if (= (assoc 90 #el#) nil)
       (setq #el# (append #el# #TEMP#))
       (setq #el# (subst (cons 90 #90#) (assoc 90 #el#) #el#))
    )
;;================================================================
    (setq    #TEMP# (list (cons 63 #63#)))
    (if (= (assoc 63 #el#) nil)
       (setq #el# (append #el# #TEMP#))
       (setq #el# (subst (cons 63 #63#) (assoc 63 #el#) #el#))
    )
;;================================================================
    (setq    #TEMP# (list (cons 45 1.5)))
    (if (= (assoc 45 #el#) nil)
       (setq #el# (append #el# #TEMP#))
       (setq #el# (subst (cons 45 1.5) (assoc 45 #el#) #el#))
    )
;;================================================================ 
  (entmod #el#)(princ)  
);;ENDE while
);;ENDE C:DEFUN







;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;; Funktion zum "entfernen" des Hintergrundes von Mtexten
;; Aufruf der Funktion nach dem laden von TBT_MTEXT durch:
;; (C:TBT_MTEXT_UNFREI)
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
(defun C:TBT_MTEXT_UNFREI (/ #att# #el#)
(while
 (setq #att# (car (nentsel "\nMtext wählen: ")))
 (setq #el# (entget #att#))
 
 (entmake
  (list
	(cons 0 "MTEXT") 
	(cons 100 "AcDbEntity") 
	(assoc 8 #el#)
	(cons 100"AcDbMText") 
	(assoc 10 #el#)
	(assoc 1 #el#)
	(assoc 40 #el#)
	(assoc 41 #el#)
	(assoc 71 #el#)
	(assoc 72 #el#)
	(assoc 7 #el#)
	(assoc 210 #el#)
	(assoc 11 #el#)
	(assoc 42 #el#)
	(assoc 43 #el#)
	(assoc 50 #el#)
	(assoc 73 #el#)
	(assoc 44 #el#)
   )
 )
(entdel #att#)
);;ENDE while
);;ENDE C:DEFUN