[jul80]

Пожалуйста, не ругайте, если ответ существует и для кого-то очевиден. Мне нужно добавить в мультивыноски, содержащие высоты приписку вида: "в.тр" либо "дно". Есть масса лиспов добавления суффиксов с автоматической нумерацией, либо добавление суффикса в мтекст (но при разбиении мвыноски полка мтекста не удлиняется при дописывании инфы и снова надо редактировать). Подскажите алгоритм, упрощающий данную операцию при порядке 500 выносок на каждом чертеже.

[Кулик Алексей aka kpblc]

А теперь еще раз, только с образцом - что было, что надо в результате.

[jul80]

Черные отметки проставляются программой в виде мультивыноски. Красные пояснения дописаны вручную.
+1 вопрос по Мвыноскам. Можно ли настроить вид выноски в виде прямой полочки, без излома (чтобы выбрать все, изменить стиль и текст мвыноски встал горизонтально к точкам вставки)

[Nike]

Код:

[Выделить все]

 ;prefix and suffix selected Texts
;(C) CAD Studio  - www.cadstudio.cz
;
(defun C:PSfixTxt (/ ss ssl obj sPrefix sSuffix)
 (vl-load-com)
 (princ "\nSelect Texts, Mtexts, MLeaders: ")
 (setq ss (ssget '((0 . "TEXT,MTEXT,MULTILEADER")))
       sPrefix (getstring "\nEnter prefix: " T)
       sSuffix (getstring "\nEnter suffix: " T)
 )
 (setq ssl (sslength ss))
 (repeat ssl
  (setq ssl (1- ssl))
  (setq obj (vlax-ename->vla-object (ssname ss ssl)))
  (vla-put-textstring obj (strcat sPrefix (vla-get-textstring obj) sSuffix))
 )
 (princ)
)

[jul80]

Nike, спасибо огромное, то что нужно! Offtop: 2 часа (650 пересечек) были бы вчера сэкономлены.