CAD programy 4M
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í
NEJOBLÍBENĚJŠÍ:
4M CAD 19 Classic CZ

3 6004 356
4M CAD 19 Standard CZ

4 9005 929
4M CAD 19 Professional CZ

6 7008 107
DOPORUČUJEME:
FINE-ELEC 14 CZ

15 90019 239
IDEA Architektura 14 CZ

26 00031 460