Vypnutí masky pozadí pro Mtext

Aplikace projde všechny entity Mtext ve výkrese a vypne zobrazení masky pozadí.

Využití: Hromadné vypnutí pozadí textů, pokud je nežádoucí při tisku. Po načtení souboru je k dispozici nový příkaz "XBG".

---

;Vypnuti masky pozadi u vsech entit Mtext
(DEFUN C:XBG(/ sset1 pocet index en1 pt1 pt2)
  
  ;Vyber vsech entit Mtext
  (setq sset1
  (ssget "X"
    (list (cons 0 "MTEXT"))
  )
  )
  (setq pocet (sslength sset1))
  (setq index 0)

  ;Vypnuti masky pozadi
  (repeat pocet  
    (setq en1 (entget (ssname sset1 index)))
    (setq index (+ index 1))
    (setq en1 (subst (cons 90 2) (assoc 90 en1) en1))
    (setq en1 (subst (cons 63 1) (assoc 63 en1) en1))
    (entmod en1) ; Modifikace entity
  )
  
  (command "_re")
  
  (princ "\nVypnuti masky pozadi pro Mtext: Hotovo.")
  (princ)
)

---

Soubor ke stažení