[Michael!]

Доброго времени суток!
Для поиска и замены текста в чертеже, пользуюсь такой вот функцией.

Код:

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

 
(defun chng (Old$ New$)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vlax-for lt (vla-get-layouts adoc)
    (vlax-for obj (vla-get-block lt)
      (if (eq "AcDbText" (vla-get-objectname obj))
        (while (vl-string-search Old$ (vla-get-textstring obj))
          (vla-put-textstring obj
            (vl-string-subst New$ Old$ (vla-get-textstring obj)))
        )
      )
    )
  )
  (princ)
) ;end defun

При этом все она находит и заменяет хорошо, но возникает сабжевая ошибка при поиске и замене значения более 9 символов. И не важно что это за символы буквы или цифры.
Иногда функция вываливается с ошибкой "; warning: unwind skipped on unknown exception", но тоже ничего не находит и не меняет.
Подскажите, как победить проблему. Я понимаю, что не достаточно места для переменной. Но как и что поменять?
Спасибо!
да, забыл написать, что AutoCAD 2004.

[Michael!]

Образец чего?
Ну например решил поменять дату для начала на layouts с 00/00/00 на 26/02/13. не поменяла. для теста в модели - сменила.
Ты вот в начале умную мысль сказал, а я особо и не обратил внимания, что цикл в засисон бесконечный уходит. Я проверил, и ведь действительно уходит. Только при условии, что я задаю поменять значение "типа само на себя", например есть выражеине "Connector TYCO p/n", а я хочу его заменить на "Connector TYCO p/n C-0480698-10-3". Значит прога моя-то что делает? - Ищет первое выражение и меняет на второе. После нескольких циклов получается такая вот фигня "Connector TYCO p/n C-0480698-10-3 C-0480698-10-3 C-0480698-10-3" ну и т.д.
Может знаешь, как ей это условие прописать, чтобы она так не делала?

Добавлено через некоторое время раздумий:
Помоему я нашел как обойти это (может не совсем правильно с точки зрения лиспа):
Я добавил промежуточную замену. Тоесть "Connector TYCO p/n" я меняю на произвольную неповторяющуюся последовательность "9797979", а ее уже меняю на "Connector TYCO p/n C-0480698-10-3".

Код:

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

 
(progn
	(chng Old$ "9797979")
	(chng "9797979" New$)
;	(chng Old$ New$)
) ;progn

Пока вроде работает без зависов.

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

Я ж предлагал:

Код:

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

 _$ (repeat 163 (_KPBLC-STRING-REPLACE "Connector TYCO p/n" "Connector TYCO p/n" "Connector TYCO p/n C-0480698-10-3"))
"Connector TYCO p/n C-0480698-10-3"

И файл dwg так и не предоставлен.

[Michael!]

К сожалению файл рабочего чертежа выложить не смогу. Слишком много данных.
А по поводу программы - я продолжаю использовать свою, благо с твоей помощью пофиксил проблему. Твоя в резерве.
Спасибо за помощь! А прогу твою и мою может есть смысл выложить на всеобщее использование? Вдруг кому что менять потребуется. Часто встречаются такие вопросы судя по поиску. А эту тему думаю что можно закрывать.

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

Сообщение от Michael! К сожалению файл рабочего чертежа выложить не смогу. Слишком много данных.

Я не просил весь файл. Было бы достаточно куска: пара-тройка текстов с заменяемыми частями в модели, еще три-четыре "пустых" (там же), ну и до кучи с десяток текстов по листам раскиданных.

Сообщение от Michael! А прогу твою и мою может есть смысл выложить на всеобщее использование?

Так оно и так в общем доступе. Хочешь - выкладывай, потому как моя поделка на нормальную прогу не тянет.

[Michael!]

А моя думаешь тянет? Единственное преимущество - что она короткая.
Файлик тогда в конце дня обрежу и вышлю. Сейчас пока не сижу на месте.