[Полянка]

Есть блок, у которого в свойствах высвечиваются 4 атрибута, при нажатии кнопки "редактировать атрибут", они редактируются. Но при нажатии "управление атрибутами", выдает, что нет блоков с атрибутами, тоже самое в редакторе блоков. Как это возможно и, главное, как избавиться от этих атрибутов, они не нужны.

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

Попробуй _.attsync, но я не уверен, что сработает.
Я с такими ситуациями сталкивался, лечилось вставкой (вручную или программно) аналогов блока, удалением старых блоков и переименованием аналога на старое имя.

[Полянка]

не сработало.

[Хмурый]

Полянка, файл с проблемным блоком где?

[Полянка]

Вот файл, acad2014

[Хмурый]

Здесь придётся, если нет исходных блоков, открыть блок редактором блоков и вручную заново определить атрибуты.
_attdef
по выходе из редактора атрибуты синхронизировать _attsync
Атрибуты не нужны, а блок нужен? что-то непонятно. Атрибуты можно не заполнять, блок можно расчленить...
PS я-то, вначале, подумал, что, как обычно, нужно восстановить блок...

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

Я с подобным на прошлой работе сталкивался - в определении блока атрибутов нет, а во вхождениях они есть. При вставке такого файла внешней ссылкой "несуществующие" атрибуты вылезают и засоряют чертеж.

[Полянка]

Сообщение от Хмурый Атрибуты не нужны, а блок нужен? что-то непонятно

требование сторонней организации. И вхождений блоков очень много, это точки топосъемки.
Спасибо всем.

[koMon]

Варварское удаление атрибутов у выбранных блоков…
После сохранения на выходе имеем голые блоки.

Код:

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

 
(defun c:Clear_Blocks_of_Attributes ()
	(while (or (= 'VL-CATCH-ALL-APPLY-ERROR (type (setq blocks_pickset (vl-catch-all-apply 'ssget (list (list (cons 0 "INSERT")))))))
			   (null blocks_pickset)
		   )
	)
	(setq blocks_pickset_index 0
		  block_processed 0
	)
	(repeat (sslength blocks_pickset)
  		(setq block_inspected (vlax-ename->vla-object (ssname blocks_pickset blocks_pickset_index)))
  		(if (and (= (vla-get-HasAttributes block_inspected) :vlax-true)
  			 (/= 'VL-CATCH-ALL-APPLY-ERROR (type (vl-catch-all-apply 'vlax-safearray->list (list (vlax-variant-value (vla-getattributes block_inspected))))))
  			)
  			  (progn
  				    (setq All_Attributes_List (vlax-safearray->list (vlax-variant-value (vla-GetAttributes block_inspected))))
  				    (foreach attribite_object All_Attributes_List (vla-delete attribite_object) (vlax-release-object attribite_object))
					(setq block_processed (1+ block_processed))
  			  )
  		)
		(setq blocks_pickset_index (1+ blocks_pickset_index))
	)
	(princ (strcat "\n" (itoa block_processed) "\ Blocks Have Been Cleared of Attributes."))
	(princ)
)

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

koMon, у меня сейчас нет возможности скачать и посмореть файл. Тем не менее, попробуй сделать следующее:
1. Создаешь блок с атрибутом. Атрибут нормальный, видимый и т.п. Значение по умолчанию, например, "12"
2. Вставка блока (пару-тройку раз). Значение атрибута устанавливаешь в пустую строку.
3. Зайти в редактор блоков. Удалить определение атрибута.
4. Попытаться исправить сложившуюся ситуацию.

P.S. Насколько я помню, у Alasher'a был код, "добавляющий" атрибуты ко вхождению блока. Может быть, аналогичным образом можно их и удалять - не знаю.

[koMon]

Алексей, что ты имеешь в виду под "попытаться исправить сложившуюся ситуацию"? Я сделал 1-3. Прикольные получились блоки со стелс атрибутами))) Если речь идёт об удалении таких атрибутов, то #9 их удаляет, но в текущей сессии у блока сохраняется свойство hasattributes. установленное в true. После сохранения файла и его следующего открытия всё становится так, как надо: блоки становятя безатрибутными. Но вот если к примеру в такой файл вставить нетронутый блок, с его прежними атрибутами и позволить акаду обновить все его вхождения, то получим [по крайней мере у меня это случилось] ещё прикольнее ситуацию: блоки с имеющимися определениями атрибутов, но без наличия последних. Как-то что-то у них в автодеске с атрибутами не доделалось, имхо.

Последнее лечится однако очень легко редактированием определения блока, а именно удалением определений атрибутов. Но тем не менее…

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

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

[koMon]

Я понял идею, но она как-то отличается от того, чего хотел Полянка. Надо подумать.

[Хмурый]

Полянка, выделить все блоки с одинаковым именем и в свойствах проставить пробелы в заполнении атрибутов.
Или отключить отображение атрибутов
_ATTDISP

[pan]

Такой вариант:
- заходим в редактор блоков, создаем атрибут постоянный скрытый с фиксированным положением.
- выходим, синхронизируем (_.attsync)
- теперь снаружи атрибутов не видно
- заходим в редактор блоков, удаляем наш атрибут
- теперь и внутри атрибутов не видно

[Oleg T]

Я в таких случаях просто меняю одно на другое с помощью простейшего лиспа. Вроде в ExpressTools что-то есть, но пользуюсь своим. Корявый-нет, работает ).

Код:

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

 
;Замена блока (и пр) другим по выбору на чертеже
;-------------------------------------------------------
(defun c:change_objekt ()
	(setq v_repl_1 (getstring "\nУдалить объекты - Enter, оставить - 1"))
	(while
		(setq pr_1 (car (entsel "\n Выберите исходный объект")))
		(setq pr_1_ (cdr (assoc '0 (entget pr_1))))
		(setq t_2 (cdr (assoc '10 (entget pr_1))))
		(prompt "\n Выберите объекты, которые планируете заменить")
		(setq nab (ssget))
		(setq kol (sslength nab))
		(setq nab1 (ssadd))
		(setq n -1)
		(repeat kol
			(setq n (+ n 1))
			(setq pr_i (ssname nab n))
			(setq t_1 (cdr (assoc '10 (entget pr_i))))
			(setq lr_1 (assoc '8 (entget pr_i)))
			(setq ang_1 (assoc '50 (entget pr_i)))
			(command "_copy" pr_1 "" t_2 t_1)
			(setq lr_ (assoc '8 (entget (entlast))))
			(setq ang_ (assoc '50 (entget (entlast))))
			(setq pr_ (subst lr_1 lr_ pr_))
			(entmod pr_)
			(setq pr_ (subst ang_1 ang_ pr_))
			(entmod pr_)
			(ssadd pr_i nab1)
		)
	(if (= v_repl_1 "") (command "_erase" nab1 ""))
	)
)

[COVID]

Здравствуйте! Давно здесь не был, но возникла та же проблема. Надо просто в блоке менять надпись.
Задаю один атрибут. Сохраняю блок, а автокад мне говорит, что атрибутов нет. Со штампом все работает, а с блоком нет. Так и не понял решен этот вопрос?