Программы

(progn
(vl-load-com)
(alert "обработается Мтекст в слое: 0")
(vlax-put vla_line "StyleName" "GOST 2.304")
(setq nab (ssget "_X" (list (cons 8 "0") (cons 0 "MText"))))
(if (not nab) (alert "Ошиба! нет Мтекст в слое"))
(setq i 0)
	(repeat (sslength nab)
		(setq o_obj (ssname nab i))
		(setq vlaM (vlax-ename->vla-object o_obj))
		(vlax-put vlaM "StyleName" "GOST 2.304")
		(setq i (+ i 1))
	)
)

Тэги: AutoLISP