[yurka52rus]

Добрый день

Столкнулся с проблемой: нужно массово заменить кучу (штук 300+) текстовых обозначений блока.

Сейчас у меня такой формат: 4.1-4.015-1.1 , а требуется привести к формату: 4.1-4.015-1-1 (предпоследний символ "точка" нужно заменить на "дефис").

При использовании в "Поиске и замене" подстановочных знаков типа *, ? и # автокад радостно меняет все символы в поисковой строке на эти самые - *, ? и #.

То есть я пишу в поисковой строке: "???????????.1" - заменить на "???????????-1" ну и получаю вместо обозначения блока кучу знаков вопроса.

Подскажите, можно ли решить данную проблему?

[Oleg T]

Если говорить о приведенном примере, то надо менять
-1.1
на
-1-1
без всяких подстановочных знаков.

[Bull]

Сообщение от Oleg T то надо менять........без всяких подстановочных знаков.

Это надо знать, какая версия АКАД у автора. Возможны нюансы, если старая какая.

[Boxa]

Довольно давно, вот тут ссылка Андрей Бушман выкладывал инструмент для поиска и модификации текста с помощью регулярных выражений.

Если текстовые обозначения блоков находятся в атрибутах, то можете попробовать извлечь эти данные (ATTIN/ATTOUT или DYNIN/DYNOUT) и поменять в любом текстовом или табличном редакторе.

[yurka52rus]

Версия новая (2018), подстановочные знаки отключить и включить можно. Но тупо поменять "-1.1" на "-1-1" не сработает, там очень много разных комбинаций, плюс кое-где они пересекаются с элементами, которые заменять не надо (как в примере в старт-топике - "4.1")

[Bull]

Может вам тогда будет удобней не менять всё автоматом, а чтобы команда вывела список "-1.1" (галочка "результаты", нажать "найти"), а уж потом вы сами перебирали, где менять "-1.1" на "-1-1"?

[Oleg T]

Сообщение от yurka52rus Но тупо поменять "-1.1" на "-1-1" не сработает, там очень много разных комбинаций

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

Код:

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

 
;-------------------------------------------------------------------------------------------------------
;Программа работы с префиксами
;-------------------------------------------------------------------------------------------------------
(defun C:pref_str()
	(setq pr_sf 1) 
	(setq go_go (getint "\n Префикс: 1 - добавить, 2 - удалить:    "))
	(if
		(= go_go 1)
		(setq pref_n (getstring t "\nВведите значение префикса:    "))
		(setq pref_n (getint "\nВведите количество символов для удаления:    "))
		)
	(pref_suff)
)

;-------------------------------------------------------------------------------------------------------
;Программа работы с суффиксами
;-------------------------------------------------------------------------------------------------------
(defun C:suff_str()
	(setq pr_sf 2) 
	(setq go_go (getint "\n Суффикс: 1 - добавить, 2 - удалить:    "))
	(if
		(= go_go 1)
		(setq pref_n (getstring t "\nВведите значение суффикса:    "))
		(setq pref_n (getint "\nВведите количество символов для удаления:    "))
		)
	(pref_suff)
)


;-------------------------------------------------------------------------------------------------------
;Рабочая функция
;-------------------------------------------------------------------------------------------------------
(defun pref_suff()
	(setq nab (ssget))
	(setq kol (sslength nab))
	(setq nab1 (ssadd))
	(setq n -1)
	(repeat kol
		(setq n (+ n 1))
		(setq pr (ssname nab n))
		(setq pr_ (entget pr))
		(setq pr_ (assoc '0  PR_))
		(setq pr_ (cdr PR_))
		(if	(= pr_ "INSERT")
			(progn
				(setq pr1 (entnext pr))
				(setq pr1_ (entget pr1))
				(setq pr1_ (assoc '0  PR1_))
				(setq pr1_ (cdr PR1_))
				(if
					(= pr1_ "ATTRIB")
					(ssadd pr nab1)
				)
			)
		)
		(if
			(= pr_ "TEXT")
			(ssadd pr nab1)
		)
	)
	(setq kol (sslength nab1))
	(setq n -1)
	(repeat kol
		(setq n (+ n 1))
		(setq pr (ssname nab1 n))
		(setq pr_ (entget pr))
		(setq pr_naim (cdr(assoc '0 pr_)))
			(if
				(= pr_naim "INSERT")
				(setq pr_ (entget (entnext pr)))
			)
			(setq pr_old (assoc '1 pr_))
			(setq pr_old_ (cdr pr_old))
			(if	(= go_go 1)
				(if (= pr_sf 1)
					(setq pr_new (strcat pref_n pr_old_))
					(setq pr_new (strcat pr_old_ pref_n))
				)
				(progn
					(setq l_str (strlen pr_old_))
					(if	(> l_str pref_n)
						(if (= pr_sf 1)
							(setq pr_new (substr pr_old_ (+ pref_n 1)))
							(setq pr_new (substr pr_old_ 1 (- l_str pref_n)))
						)
						(setq pr_new pr_old_)
					)
				)
			)
		(setq pr_new (cons 1 pr_new))
		(setq pr_ (subst pr_new pr_old pr_))
		(entmod pr_)
	)
)

PS
Вот еще:
http://forum.dwg.ru/showthread.php?p=631342#post631342