Изменение текста в мультивыноске

[Bazinga]

Помогите, пожалуйста, советом, как можно отредактировать текст мультивыноске ?

[Александр Ривилис]

Я правильно понимаю, что программа должна быть на lisp'е?

[Bazinga]

Александр Ривилис, угу.

[Александр Ривилис]

Тогда как-то так:

Код - Auto/Visual Lisp [Выбрать]

1. (progn
2.  (vl-load-com)
3.  (setq en_obj (vlax-ename->vla-object en_ename)) ; получаем vla-объект
4.  (setq en_txt (vla-get-TextString en_obj)) ; Получаем старую строку
5.  ;; Модифицируем строку
6.  (vla-put-TextString en_obj en_txt) ; Новая строка в мультивыноске.
7. )

(vla-get-TextString) иногда "спотыкается". Поэтому лучше такой вариант:

Код - Auto/Visual Lisp [Выбрать]

1. ;; Extract textstring (with symbols) from text object
2. ;; Works on: MText, Text, Attrib, Attdef, Multileader
3. ;; Obj - Object to extract textstring from
4. ;; Alan J. Thompson, 11.24.09 / 04.13.10
5. (defun AT:TextString (Obj)
6.   (if Obj
7.     ((lambda (e s)
8.        (cond ((eq (cdr (assoc 0 e)) "MULTILEADER") (cdr (assoc 304 e)))
9.              ((vl-position (cdr (assoc 0 e)) '("ATTDEF" "ATTRIB" "MTEXT" "TEXT"))
10.               (foreach x e (and (vl-position (car x) '(1 3)) (setq s (strcat s (cdr x)))))
11.               s
12.              )
13.        )
14.      )
15.       (cond ((vl-consp Obj) (entget (car Obj)))
16.             ((eq (type Obj) 'ENAME) (entget Obj))
17.             ((eq (type Obj) 'VLA-ObjECT) (entget (vlax-vla-Object->ename Obj)))
18.       )
19.       ""
20.     )
21.   )
22. )

[Bazinga]

Александр Ривилис, спасибо огромное!!! Буду пробовать.