;Maska Mtextu ano/ne - www.cadforum.cz

(defun C:TMaskOn (/ ss x ob1)
 (vl-load-com)
 (setq ss (ssget '((0 . "MTEXT"))))
 (if ss
   (mapcar '(lambda (x)
    (setq ob1 (vlax-ename->vla-object x))
      (if (= (vla-get-backgroundfill ob1) :vlax-false)
       (vla-put-backgroundfill ob1 :vlax-true)
      )
     )
    (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
   )
 )
 (prin1)
)
(defun C:TMaskOff (/ ss x ob1)
 (vl-load-com)
 (setq ss (ssget '((0 . "MTEXT"))))
 (if ss
   (mapcar '(lambda (x)
    (setq ob1 (vlax-ename->vla-object x))
      (if (= (vla-get-backgroundfill ob1) :vlax-true)
       (vla-put-backgroundfill ob1 :vlax-false)
      )
     )
    (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
   )
 )
 (prin1)
)
(defun C:TMaskOnOff (/ ss x ob1)
 (vl-load-com)
 (setq ss (ssget '((0 . "MTEXT"))))
 (if ss
   (mapcar '(lambda (x)
    (setq ob1 (vlax-ename->vla-object x))
      (if (= (vla-get-backgroundfill ob1) :vlax-true)
       (vla-put-backgroundfill ob1 :vlax-false)
       (vla-put-backgroundfill ob1 :vlax-true)
      )
     )
    (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
   )
 )
 (prin1)
)