[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))
А про атрибуты и значения их нечего нету. Подскажите пожалуйста какой командой можно это посмотреть? И вообще как это можно сделать?

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

http://forum.dwg.ru/showthread.php?t=22653

[Pr9nik]

Спасибо, не подскажешь как ей пользоваться? Загрузил в автокад... а вот дальше какую функцию вводить? _dwgru-block-get-attr-by-mask?
Сильно не бейте, с автолиспом только начинаю знакомится.

[Do$]

Эту функцию можно использовать в своем коде.

Код:

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

<...>
(setq ats (_dwgru-block-get-attr-by-mask (car (entsel "\nУкажите блок с атрибутами:")) nil))
<...>

Главное тут - не забыть, что функция _dwgru-block-get-attr-by-mask использует еще 3 библиотечные функции, которые, в свою очередь, могут использовать другие функции... и все их надо подгрузить в автокад.

[Pr9nik]

Подгрузил все 5 функции...
1_dwgru-block-get-attr-by-mask.lsp
2_dwgru-is-ent-block-reference.lsp
3_dwgru-property-get.lsp
4_dwgru-conv-ent-to-vla.lsp
5_dwgru-conv-value-vla-to-list.lsp

ввожу (setq ats (_dwgru-block-get-attr-by-mask (car (entsel "\nУкажите блок с атрибутами:")) nil))
выбираю блок...
он мне возвращает nill

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

В последнем аргументе используй не nil, а "*".

[Do$]

В функции есь вот что:

Код:

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

(if (not mask)
    (setq mask "*")
    ) ;_ end of if

Так что мона и nil! А в блоке есть атрибуты-то?

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

Do$, я уж и забыл

[Pr9nik]

Попробовал и nil и "*"
возвращает:
Укажите блок с атрибутами:; error: no function definition: nil
в 1-м файле прописал в начале (vl-load-com)
может надо еще какието команды подгрузить?

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

ОБразец файла покажи. Мне уже просто интересно

[Pr9nik]

тут 5 файлов лиспа, сам блок, и какую команду ввожу

[Do$]

В функции _dwgru-block-get-attr-by-mask
надо заменить _dwgru-conv-value-to-list на _dwgru-conv-value-vla-to-list.
И вообще, я понимаю - отлов ошибок и пр... но иногда проще надо быть :

Код:

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

(defun do$-blk-get-attributes (ent / lst)
;;(do$-blk-get-attributes (car (entsel "\nSelect block:")))
  (while (and (setq ent (entnext ent))
       (= "ATTRIB" (cdr (assoc 0 (entget ent))))
  ) ;_ end of and
    (setq lst (cons ent lst))
  ) ;_ end of while
  lst
) ;_ end of defun

[Pr9nik]

Спасибо, заменил и получилось, вернул:
(#<VLA-OBJECT IAcadAttributeReference2 0c993b2c> #<VLA-OBJECT IAcadAttributeReference2 0c993964> #<VLA-OBJECT
IAcadAttributeReference2 0c9938cc> #<VLA-OBJECT IAcadAttributeReference2 0c993834> #<VLA-OBJECT IAcadAttributeReference2 0c99379c> #<VLA-OBJECT IAcadAttributeReference2 0c993704> #<VLA-OBJECT IAcadAttributeReference2 0c99366c>)
Это я так понимаю имена атрибутов, и нужно еще их разложить на списки чтоб добраться до значения этих атрибутов? И еще вопросс это он выдал результат в виде списка? Как их можно обрабатывать?
Вот этот код попроще Только он мне выдал:
Command: (setq ats (do$-blk-get-attributes (car (entsel "\nУкажите блок с
атрибутами:")) nil))

Укажите блок с атрибутами:; error: too many arguments

[Do$]

А надо так:
(setq ats (do$-blk-get-attributes (car (entsel "\nSelect block:"))))

[Pr9nik]

Спасибо получилось! Вернул список с именами

[VVA]

А где АКАД хранит значения атрибутов?
Редактирование атрибутов блока (скрытых и постоянных)
Извлечение значений атрибутов блоков AutoCAD Electrical с помощью AutoLisp

[E-degtyarev]

Pr9nik, Вообще то не обязательно использовать добрый десяток функций "со стороны", а можно развить код начатый Вами в теме используя стандартные функции Lisp:

Код:

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

(setq bl (cdr (assoc -1 (entget (car (entsel))))))
(print bl);;ТУТА ИМЯ БЛОКА
(while (eq (cdr (assoc 0 (entget (setq bl (entnext bl)))))
	   "ATTRIB"
       ) ;_ конец eq
  (progn
    (setq bbll (entget bl))
    (print bbll)	      ;;ТУТА АТРИБУТЫ т.е. ТО, ЧТО ТЕ НАДО!!!
  ) ;_ конец progn
) ;_ конец while

Вот коротенький кусочек кода, попробуй.
PS: Все это уже на форуме многократно обсуждалось.

[pad]

Добрый день! Как увидеть атрибуты с режимами СКРЫТЫЙ и ПОСТОЯННЫЙ?

[===AAA===]

Если склероз не подводит, то СКРЫТЫЙ - как обычный, перебором атрибутов
примитива "INSERT", а вот ПОСТОЯННЫЙ - тот живёт уже в таблице определения
блоков "BLOCK".

[pad]

С помощью функций LEE MAC LM:getvisibilitystate можно получить состояние видимости динамического блока, а с помощью LM:getvisibilityparametername узнать имя параметра видимости динамического блока (если есть)).
Вопрос, А как считать атрибуты блока с учетом параметра Видимости (они меняются в зависимости от выбора той или иной Видимости)?
С обычного дин. блока я из считываю фунцией get-all-atts

Код:

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

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

[Сергей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 Код:

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