[Татьянаu152]

Доброго времени, подскажите, как можно заменить текст на блок (из библиотеки ) с одноименным именем, что бы 5.22 менялся на блок с изображением знака 5.22, а текст 5.21 на блок с таким же названием. Идеально было бы, если бы блок вставлялся с тем же углом поворота, что и текст.

[Boxa]

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

[Петр-и-Алекс]

Boxa, проще lisp написать

----- добавлено через ~17 мин. -----
а "библиотеку" в таком разе организовать так:
из разных потенциально нужных блоков создать мегаблок, который и загружать в чертеж в случае обращения к библиотеке
далее использовать понадобившиеся блоки-атомы (они уже загруженны в чертеж)
в конце все пропургенить
в годы юности написал бы это в четверть часа

[Boxa]

Петр-и-Алекс, я же написал, что это штатными средствами, а из не штатных, я бы воспользовался уже готовыми, например своим DynIN-DynOut, ну или поискал по форуму.

[Сергей812]

Сообщение от Татьянаu152 Доброго времени, подскажите, как можно заменить текст на блок (из библиотеки ) с одноименным именем, что бы 5.22 менялся на блок с изображением знака 5.22, а текст 5.21 на блок с таким же названием. Идеально было бы, если бы блок вставлялся с тем же углом поворота, что и текст.

тайна, покрытая мраком - зачем генерить кучу определений блоков по содержимому текстов. Может, все таки блок с атрибутом - значение которого и угол вставки блока берется из параметров текста...

[Петр-и-Алекс]

заинтригован:
"блок с атрибутом - значение которого и угол вставки блока берется из параметров текста..."
и как организовать "штатными средствами" это самое "берется" ? как установить связь?
вручную копипастом???
если что, то по мне lisp (и на всякий случай "дизель", и язык описания штриховок, типов линий и шейпов)
- это все что нинаесть "штатные средства". в отличии от положим технологии ".net" и конечно же от Excel.
---
а с чего такая странная задача - это тоже интересно.
но раз задача сформулирована, то значит это кому ни будь нужно

[skkkk]

Offtop:

Сообщение от Петр-и-Алекс если что, то по мне lisp (и на всякий случай "дизель", и язык описания штриховок, типов линий и шейпов) - это все что нинаесть "штатные средства". в отличии от положим технологии ".net" и конечно же от Excel.

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

[Петр-и-Алекс]

офтоп
а создание собственной штриховки? или своего типа линии?
и что, создание автомата в книге Excel это разве не "программирование"?

[Boxa]

Сообщение от Сергей812 зачем генерить кучу определений блоков по содержимому текстов.

могу предположить дорожные знаки... номер заменить на картинку..., но это предположение.

Offtop:

Сообщение от Петр-и-Алекс если что, то по мне lisp (и на всякий случай "дизель", и язык описания штриховок, типов линий и шейпов) - это все что нинаесть "штатные средства". в отличии от положим технологии ".net" и конечно же от Excel.

а VBA это штатные средства? а использование комманд arxload и netload это штатные средства? а общение с автокадом по COM это штатные?
ИМХО, все задачи, для решения которых, необходимо записать некоторый алгоритм работы на любом языке - это программирование и не штатные средства, в остальных случаях штатные.

[Петр-и-Алекс]

ну право же...
То что приходит в поставке продукта по умолчанию - это штатные средства. То, что надо заказывать дополнительно - не штатные.
Вот вам пример: положим пипл не умеет создавать не только lisp, но и "динамические блоки" (у меня кстати таких немало), то по вашему дин.блок - тоже не штатное?
---
а кстати
замена текста на блок (даже если блок выглядит один-в-один как тот же текст) имеет смысл, если блок снабжен тучей атрибутов (таких как "поставщик", "каталожный-номер", "масса", "число-в-упаковке" и т.п.)
тогда кстати, загрузкой мега-блока можно актуализировать уже использованные блоки-атомы по состоянию загружаемого мега

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

С флудом завязывайте.

[skkkk]

Татьянаu152, хорошо бы приложить файл с примером того, что надо. Можно было бы предложить несложное решение (правда, на лиспе, т.е. тему придется попросить перенести, (да же, Кулик Алексей aka kpblc?), но ведь знаю, сейчас начнётся: текст с форматированием, точка вставки непонятно где, всё уехало, поскакало, плохо.
Offtop: Но Татьяна, похоже, уже не интересуется данной темой.

[Татьянаu152]

Очень интересуюсь))) Да, речь идет о дорожных знаках. Атрибуты как таковые не нужны. Приложила файл, для примера. Есть пикетаж относительно оси (плилиния), координат нет. Думаю, что проще на место и с тем же углом текста( №знака).

[Татьянаu152]

файл

[name02]

Проверок никаких нет, блоки с нужными именами должны быть в файле

Код:

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

 (defun c:qq ( / SS i obj block_rotation ins_point block_name)

	(setq SS (ssget '((0 . "TEXT"))))
	
	(setq i 0)

	(while (< i (sslength SS))
	
		(setq obj (ssname SS i))

		(setq 
			block_name		(cdr (assoc 1	(entget obj)) )
			ins_point 		(cdr (assoc 11 (entget obj)) )
			block_rotation	(	/
									(*
										(cdr (assoc 50 (entget obj)) )
										180
									)
									
									pi
							)
		)

		(command "_insert" block_name ins_point 1 1 block_rotation)
		
		(setq i (1+ i))

	)

	(princ)

)

[shartal]

Блок вставляется не в точку вставки текста, а в 0,0,0

[Oleg T]

Сообщение от shartal Блок вставляется не в точку вставки текста, а в 0,0,0

поменять assoc 11 на assoc 10
(эти значения зависят от способа выравнивания текста, при выравнивании влево assoc 11 даёт 0,0,0)

[Татьянаu152]

Спасибо!!! Спасибо!! Спасибо!!! текст заменяется на блоки. Только почему-то не поворачиваются.

[name02]

Блоки не поворачиваются? Согласно коду угол поворота блока определяется углом поворота соответствующего текстового объекта.
Протестировал еще раз на твоем файле - блоки со знаками поворачиваются.

Приложи файл с которым работаешь - посмотрю его тоже

[Татьянаu152]

Вот этот, например, посмотри, пожалуйста