[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)
		  )
	  )
	)
      )
    )
  )
)