Zrušení koeficientu šiřky u Mtext

Aplikace projde všechny entity typu Mtext ve výkrese a nastaví jejich šířku na 0.

Využití: Zrušení šířky, pokud entity Mtext překrývají ve výkrese zobrazení čar či jiných prvků.

---

;Vypnuti masky pozadi u vsech entit Mtext
(DEFUN C:XWID(/ 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)

  ;Nastaveni sirky na 0
  (repeat pocet  
    (setq en1 (entget (ssname sset1 index)))
    (setq index (+ index 1))
    (setq en1 (subst (cons 41 0) (assoc 41 en1) en1))
    (entmod en1) ; Modifikace entity
  )
  
  (command "_re")
  
  (princ "\nZruseni sirky pro Mtext: Hotovo.")
  (princ)
)

---

Soubor ke stažení