[Pr9nik]

Как в AutoLisp-е увидеть атрибута блока?
Есть блок с атрибутами в AutoCAD-е...
Чтоб посмотреть данные этого объекта набераю:
(entget (car (entsel))), выделяю блок
AutoCAD мне выдает:
((-1 . <Entity name: 7efc0570>) (0 . "INSERT") (330 . <Entity
name: 7efbecf8>) (5 . "1EE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"Невидимые") (6 . "Continuous") (100 . "AcDbBlockReference") (66 . 1) (2 .
"ARM-INFO") (10 862.134 1271.86 0.0) (41 . 150.0) (42 . 150.0) (43 . 150.0) (50
. 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
А про атрибуты и значения их нечего нету. Подскажите пожалуйста какой командой можно это посмотреть? И вообще как это можно сделать?

[Сергей812]

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

[pad]

Дак в том то и дело, что атрибуты содержащие текст выставлены в зависимости от состояния Видимости, в этом суть. Должен же быть маркер у них?

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

По-моему, достаточно проверять свойство видимости. Какой бит в DXF за это отвечает, не помню точно.

[pad]

Сообщение от Кулик Алексей aka kpblc По-моему, достаточно проверять свойство видимости. Какой бит в DXF за это отвечает, не помню точно.

Может есть кусок кода, или источник где можно изучить? Читая на форуме ветку от Supermax "Создание дополнительных параметров Visibility Set в динамических блоках" закипел уже

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

Ну как-то так примерно:

Код:

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

 (defun  get-all-atts (obj)
  (if (and obj
	   (vlax-property-available-p obj 'Hasattributes)
	   (eq :vlax-true (vla-get-HasAttributes obj))
      )
    (vl-catch-all-apply
      (function
	(lambda	()
	 (vl-remove nil (mapcar (function (lambda (x)
			    (if (equal (vla-get-visible x))  (cons (vla-get-TagString x)
				    (vla-get-TextString x)
			      )
			    )
		  ))
		  (append (vlax-invoke obj 'Getattributes)
			  (vlax-invoke obj 'Getconstantattributes)
		  ))
	  )
	)
      )
    )
  )
)

Код не проверял (пишу без ACAD'a)

[Сергей812]

Сообщение от pad Дак в том то и дело, что атрибуты содержащие текст выставлены в зависимости от состояния Видимости, в этом суть. Должен же быть маркер у них?

с другой стороны, у каждого атрибута есть тэг/имя. И если в динпараметр видимости эти атрибуты заносятся по определенной системе, а не в каждом блоке произвольно - то по состоянию параметра видимости и именам атрибутов можно выбрать нужные. Хотя на лиспе проще видимость атрибута посмотреть, наверно)

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

Тэги - как ни парадоксально - могут повторяться.

[Сергей812]

Сообщение от Кулик Алексей aka kpblc Тэги - как ни парадоксально - могут повторяться.

имхо, не вижу ничего парадоксального, потому что атрибуты - просто список, а не словарь с ключом = имени тэга (сужу на основании того, что нет механизма доступа к значениям отдельных атрибутов по имени).

[===AAA===]

Дык атрибуты появились в те времена, когда "словари" только бумажные были...
И стояли на книжных полках. :-)

[pad]

Сообщение от Кулик Алексей aka kpblc Тэги - как ни парадоксально - могут повторяться.

Может я не корректно объяснил вопрос, есть блок. В блоке есть N количество видимостей.
На каждой видимости помимо графической части есть два скрытых постоянных атрибута, пусть будут единицы измерения и количество.
Для примера:
"видимость 1" атрибуты имеют значения М и 1,
"видимость 2" атрибуты имеют значения КГ и 100,
"видимость 3" атрибуты имеют значения ШТ и 1000.

Дак вот вопрос был, как считать атрибуты активной (установленной) видимости блока на чертеже, т.е. если пользователь выбрал "видимость 2" то необходимо считать атрибуты КГ и 100.

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

[koMon]

Код:

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

 (setq insert_object (vlax-ename->vla-object (car (entsel))))
(princ "\n")
(foreach attribute
	(vl-remove-if '(lambda (attribute) (zerop (vlax-get attribute 'visible)))
				   (append (vlax-invoke insert_object 'getattributes)
				   		   (vlax-invoke insert_object 'getconstantattributes)
				   )
	)
	(princ (strcat "\n" (vla-get-tagstring attribute) "/" (vla-get-textstring attribute)))
)

[Сергей812]

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

[===AAA===]

Ну дык и смотри DXF-код 70. Первый бит - режим скрытности.
0 - видим, 1 - скрыт.

[koMon]

70 группа это флаг атрибута, здесь нужна видимость объекта - 60 группа.

[pad]

Сообщение от koMon Код:

то что надо было!