[Татьянаu152]

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

[name02]

Поправил. Если нужно, то можешь изменить имя команды. Для этого в первой строке замени c:qq на c:НУЖНОЕ_ИМЯ_КОМАНДЫ. НУЖНОЕ_ИМЯ_КОМАНДЫ можно писать русскими или английскими буквами, без пробелов. Заглавными или строчными не имеет значения.
Еще добавил в конце возможность удаления текстовых объектов, по которым определяется вставка блоков.

Код:

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

  (defun c:qq ( / adoc SS i obj block_rotation ins_point block_name)
 
	(vla-startundomark
		(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
	)
	
	
	(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 10 (entget obj)) )
			block_rotation	(	/
									(*
										(cdr (assoc 50 (entget obj)) )
										180
									)
									
									pi
							)
		)

		(command "_insert" block_name ins_point 1 block_rotation)
		
		(setq i (1+ i))
		
		; ;Если нужно удалить текстовые объекты -
		; ; - убрать символ ; со следующей строчки
		;(entdel obj)

	)
	
	(vla-endundomark adoc)

	(princ)

)

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

мне вот теперь АКАД не актуален совершенно
интересны такие вопросы исключительно в отношении НАНОкад
кому есть что сказать? посоветовать...