(defun C:L_Style (/ objlst)
  (setq objlst (ssget))
  (setq j (sslength objlst))
  (setq i 0)
  (while (< i j)
    (setq obj1 (ssname objlst i))
    (setq obj1_data (entget obj1))
    (if (assoc 7 obj1_data)
      (setq obj1_data (subst (cons 7 "MBM Text") (assoc 7 obj1_data) obj1_data))
      (setq obj1_data (reverse (cons (cons 7 "MBM Text") (reverse obj1_data))))        
    )
    (entmod obj1_data)
    (if (assoc 8 obj1_data)
      (setq obj1_data (subst (cons 8 "---Text") (assoc 8 obj1_data) obj1_data))
      (setq obj1_data (reverse (cons (cons 8 "---Text") (reverse obj1_data))))        
    )
    (entmod obj1_data)        
    (if (assoc 90 obj1_data)
      (setq obj1_data (subst (cons 90 2) (assoc 90 obj1_data) obj1_data))
      (setq obj1_data (reverse (cons (cons 90 2) (reverse obj1_data))))        
    )
    (entmod obj1_data)  
    (if (assoc 45 obj1_data)
      (setq obj1_data (subst (cons 45 1) (assoc 45 obj1_data) obj1_data))
      (setq obj1_data (reverse (cons (cons 45 1) (reverse obj1_data))))        
    )
    (entmod obj1_data)  
    (setq i (+ i 1))
  )
)