[Torino]

Необходимо в нескольких чертежах найти и заменить текст "ххх" на "ууу" в автоматическом режиме, т.е. алгоритм такой: я указываю чертежи, в которых необходимо провести изменения, открывается первый файл, отыскивается текст "ххх", меняется на текст "ууу", файл сохраняется, файл закрывается, открывается второй файл и т.д.
Вопрос: как?

И еще: как сделать замену текста "ххх" на "ууу" в тех же чертежах в блоках "bbb"? (текст в блоках не атрибут, а примитив)

[{Smirnoff}]

юХЧУФЧХЕФШУС ЮФП ФЩ УЕТШЕЪОП ЧЪСМУС ЪБ лбд...

нПЦОП. оП ЧТЕНЕОЙ УЕКЮБУ ОЕФ. еУФШ РПЧПД ЧЪСФШУС ЪБ VBA...

с ФБН ЛУФБФЙ, РПЮФЙ ДПРЙУБМ "РПДТЕЪЛХ" У ПВЕЭБООЩНЙ ЙЪНЕОЕОЙСНЙ. пФПЫМА ОБ ДОСИ, ЕУФШ ЕЭЕ ПДЙО ОЕ ВПМШЫПК ЗМАЛ, Б ФБЛ РТЕЛТБУОП ХЦЕ ТБВПФБЕФ. уОБЮБМБ НПЦОП ЧЩВТБФШ УЛПМШЛП ХЗПДОП ЗТБОЙГ, Б ЪБ ФЕН УЛПМШЛП ХЗПДОП УЕЛХЭЙИ ПФТЕЪЛПЧ, ПФТЕЪЛЙ НПЦОП ПВТЩЧБФШ.

[{Smirnoff}]

Oba na! Ti mozes procitatj prosloe soobshenie. Nu ladno, eto ja v gosti zasel v kontoru.

[{Smirnoff}]

Прошу прощения. Влез в интернет со старой работы, а у них что-то с кодировкой.

>Torino Чувствуется что ты решил серьезно заняться АКАДом...

Можно сделать что ты просишь. Это повод заняться VBA, ради тренировки. Правда со временем плоховато. Короче пусть пока желающие потренируються, дадут ЦУ, БЦУ и ЕБЦУ. А я потом потренируюсь.

[Torino]

Хм...
Серьезно Акадом я занимаюсь уже четыре года.
Просто в программирование нет времени влазить, по-горло работы по специальности.
Вот и приходится пользоваться своими старыми наработками и опытом жильцов этого сайта

Так что буду благодарен за решение и этого вопроса.
От пива тебе и Вове не отказываюсь. Вот только как вы их получить хотите?..

[{Smirnoff}]

Пиво в общем то не требуеться. Понимаешь, а в КАДе всего чуть больше года, а в ЛИСП по моему где то в июне в первый раз написал (defun .... Работа у меня не совсем обычная для автокадчика и время свободное бывает. То что ты можешь придумать может никогда не придет мне в голову. А при решении всегда открываеться что либо новое. И вообще приятно это, когда выполняешь какую нибудь рутинную работу быстро. Всегда любил что нибудь смастерить, это из этой серии.


Так что пиши. По мере возможности и желания буду что нибудь карябать (больших авансов не даю). Сегодня ничего корябать не буду... Вот так!

[Startrek]

>TORINO
Poiskat' nado v R14 est' lisp CHT.LSP on primitiven no rabotaet k sozhaleniju v otdel'no vzjatom chertezhe i ia ne sovsem uveren chto budet rabotat' s MTEXT. Mozhno poprobovat' ego ispol'zovat' so SCRIPT
kommandoi (napisat' script i pogliadet' chto poluchitsja
a izmenit' text (primitiv v bloke) zagliani na moju stranichku
http://home.pacifier.com/~nemi tam u menia est' TEXT UTILITIES v samom nachale sleva (tam mnogo fil;ov fse nuzhni) - de;aetr kakraz chto tebe nado (k sozhaleniu v tekushem chertezhe) hot' i ne sovsem chrto nado - vsetyaki luchshe chem nichego (better than nothing)
Eto vse chto na skoruju ruku prihodit v golovu (k sopzhaleniju vozitsja net vremeni) :roll: :roll:

[Torino]

Я не потерялся, я ищу R14

[Torino]

Нашел программу chtext.lsp
Функции она выполняет те, что нужно, но в ручном режиме, а нужно в автоматическом.
Я нашел код, отвечающий за поиск и замену.
Может, Fantomas, глянешь, как его можно переработать? :wink:

Код:

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

;;; Change the text of an object
(defun cht_Text ( / ans)
  (setq sslen (sslength sset))
  (initget "Globally Individually Retype")
  (setq ans (getkword 
    "\nFind and replace text.  Individually/Retype/<Globally>:"))
  (setq cht_OrgTexteval (getvar "texteval"))
  (setvar "texteval" 1)
  (cond 
    ((= ans "Individually")
      (progn
        (initget "Yes No")
        (setq ans (getkword "\nEdit text in dialog? <Yes>:"))
      )
  
      (while (> sslen 0)
        (redraw (setq sn (ssname sset (setq sslen (1- sslen)))) 3)
        (setq ss (ssadd))
        (ssadd (ssname sset sslen) ss)
        (if (= ans "No") 
          (cht_Edit ss)
          (command "_.DDEDIT" sn "")
        )
        (redraw sn 1)
      )
    )
    ((= ans "Retype")
      (while (> sslen 0)
        (setq ent (entget (ssname sset (setq sslen (1- sslen)))))
        (redraw (cdr (assoc -1 ent)) 3)
        (prompt (strcat "\nOld text: " (cdr (assoc 1 ent))))
        (setq nt (getstring  T "\nNew text: "))
        (redraw (cdr (assoc -1 ent)) 1)
        (if (> (strlen nt) 0)
          (entmod (subst (cons 1 nt) (assoc 1 ent) ent))
        )
      )
    )
    (T
      (cht_Edit sset)   ;; Change all
    )
  )
  (setvar "texteval" cht_OrgTexteval)
)

[impianto]

Сегодня создал аналогичную тему.. не углядел эту. Не нашлось решение?

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

Так что, дубль сносить?

[impianto]

Думаю да. Вопрос абсолютно аналогичен. Эта та в любом случае поднялась после комментов.

[u77]

Сообщение от impianto Сегодня создал аналогичную тему.. не углядел эту. Не нашлось решение?

если еще актуально , то может это подойти
SRXTEXT - search/replace with regular expressions
(C) 2008, XANADU a.s. http://www.xanadu.cz
или эта : FindAndChange

[impianto]

Спасибо огромное! Потестил прогу, на примере одно файлика прекрасно работает. Теперь надо разобраться как сна несколько dwg применять. Такое всегда актуально. Не хочется тратить время на рутину, типа изменения текста в куче документов.

[impianto]

Возник такой вопрос. Пользуясь программой srxtext, заметил закономерность. что если она находит что-либо в командной строке выдает 1 и наоборот о, когда не находит. Захотел это использовать, но не знаю как поймать эту единичку. простое приравнивание не помогает. Думал она ведет себя как функция, которая возвращает значени, но почему-то не получилось. Для чего это нужно: захотел запихать ее в while, чтобы выполнялась до тех пор пока не перестанет находить искомый текст. Как решается подобная проблема?

[CB]

Сообщение от impianto Думал она ведет себя как функция

Вобще-то она может использоваться как функция

Код:

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

 
(load "srxtext.vlx")
(srxtext "Substring" "oldtext" "newtext" "All")

[impianto]

Это все понятно. При вызове функции не учитывается момент, когда искомы текст встречается дважды в одном текстовом поле (мульти или однострочном - все равно) В таком случае он заменяет только первое найденное совпадение (внутри одного поля) Все остальные остаются нетронутыми. Для этого и решил использовать ее повторно. Это конечно частный случай, но как говорится любой разбор полезен для изученя языка. И заметил, что если текст нашелся, в коммандной строке выдает единичку, если нет 0. Про них я иговорил в прошлом посте.

[BraG_A]

Добрый день, давно в этой теме никто не отписывался. В итоге Вам ( Torino) удалось найти решение?
ЗЫ. Хотя спустя 4 года врядли Торино ответит.

Проблема аналогичная , вообще необходимо выполнить перевод большого количества чертежей с одного языка на другой. Хотелось бы создать большой список файлов, с перечеслением всех возможных элементов и с их переводом , который переодически можно пополнять :
К примеру:

Vite - Болт
Dado - Гайка
Rondella - Шайба и т.д

И в результате выбрав N-ное количество файлов DWG прогонять их через данный алгоритм.

Если кто-либо знает что-то подобное , буду рад любому совету.
К сожалению с автолиспом незнаком, и автокадом владею на низком уровне.

[roaa]

BraG_A! Попробуйте исполнить cht_Text с http://dwg.ru/dnl/11817

[bargool]

Batch Find & Replace Text может помочь