(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