Групповое изменение сечения трубы в мультивыноске.

Решили изменить сечение трубы на новое на монтируемом участке. Описан алгоритм как это реализовать. Скрипт ниже: (defun c:MTXT ( / ss i e obj s) (setq s (getstring T "\nНовый текст: ")) (setq ss (ssget '((0 . "MULTILEADER")))) (if (and ss (/= s "")) (progn (setq i 0) (repeat (sslength ss) (setq e (ssname ss i) obj (vlax-ename-﹥vla-object e)) (vla-put-TextString obj s) (setq i (1+ i)) ) ) ) (princ) )