[Йинегве]

Добрый день! В чертеже имеется больше 1000 блоков. У всех этих блоков есть атрибут "Номер". И у всех блоков в этом атрибуте для параметра режима "Скрытый" установлена галочка. В результате атрибут не отображается на чертеже. Стандартная опция позволяет редактировать только по одному блоку. Можно ли снять галочку для параметра "Скрытый" сразу для всех 1000 блоков одновременно? Спасибо

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

1000 вхождений одного и того же блока или 1000 разных описаний блоков?

[Йинегве]

1000 разных описаний блоков

[name02]

Вот попробуй это. Основу взял отсюда
Изменение свойства скрытности для атрибутов всех ОПИСАНИЙ блоков в чертеже:

Код:

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

 (defun c:AttsNotHIDDEN (/ ATT_NAME b n)

  ;;Здесь указать имя атрибута
  (setq ATT_NAME "НОМЕР")

  (vl-load-com)

  (while (setq b (tblnext "block" (not b)))

    (setq n (cdr (assoc 2 b)))

    (vlax-for o	(vla-item (vla-get-blocks
			    (vla-get-activedocument
			      (vlax-get-acad-object)
			    ) ;_ end of vla-get-activedocument
			  ) ;_ end of vla-get-blocks
			  n
		) ;_ end of vla-item

      (if (= (vla-get-objectname o) "AcDbAttributeDefinition")

	(if (wcmatch (strcase (vla-get-tagstring o)) (strcase ATT_NAME))
	  (progn
	    ;;  :vlax-true  -  сделать атрибут скрытым
	    ;;  :vlax-false -  сделать не скрытым
	    (vla-put-invisible o :vlax-false)

	    ;;обновляем вхождение блока в документе
	    (command "_attsync" "_name" n)


	  ) ;_ end of progn
	) ;_ end of if
      ) ;_ end of if
    ) ;_ end of vlax-for
  ) ;_ end of while
) ;_ end of defun
(c:AttsNotHIDDEN)

AttsNotHIDDEN.lsp

[Йинегве]

Спасибо большое, помогло!