[proektant-minsk]

Дано:
В пространстве modelSpace имеется n блоков (не динамических).
Каждый блок имеет около 15 атрибутов.
Найти:
При помощи инструментов VisualLisp, из указанной области, выбрать данные блоки и вывести их атрибуты в один ассоциативный список, (все блоки имеют одинаковое имя и одинаковое число атрибутов) для дальнейшей сортировки его.
Результат должен быть примерно таким:
(list

(list (list x y) (list name_atr1 value_atr1) (list name_atr2 value_atr2) (list name_atr3 value_atr3) ... )
(list (list x y) (list name_atr1 value_atr1) (list name_atr2 value_atr2) (list name_atr3 value_atr3) ... )
(list (list x y) (list name_atr1 value_atr1) (list name_atr2 value_atr2) (list name_atr3 value_atr3) ... )
...
)

где x,y координаты блока
спасибо.

[Дима_]

Сообщение от proektant-minsk Результат должен быть примерно таким: (list (list (list x y) (list name_atr1 value_atr1) (list name_atr2 value_atr2) (list name_atr3 value_atr3) ... ) (list (list x y) (list name_atr1 value_atr1) (list name_atr2 value_atr2) (list name_atr3 value_atr3) ... ) (list (list x y) (list name_atr1 value_atr1) (list name_atr2 value_atr2) (list name_atr3 value_atr3) ... ) ... )

Ты так все красиво расписал, и если нужен именно список - значит ты что-то с ним дальше собираешся делать - видимо с лиспом знаком - в чем сложность аттрибуты вынуть? vla-getattributes в справочнике есть - программа на 10 строк без всяких заковырок.

[VVA]

get-all-atts

[Олег (jr.)]

;http://www.menziengineering.ch/Downloads/Download.htm

;-------------------------------------------
;VxGetAtts - Reads all attribute values from a block
;-------------------------------------------
;
; -- Function VxGetAtts
; Reads all attribute values from a block.
; Copyright:
;   ©2000 MENZI ENGINEERING GmbH, Switzerland
; Arguments [Type]:
;   Obj = Object [VLA-OBJECT]
; Return [Type]:
;   > Dotted pair list '(("Tag1" . "Val1")...)[list]
; Notes:
;   - None
;
(defun VxGetAtts (Obj)
 (mapcar 
 '(lambda (Att)
   (cons (vla-get-TagString Att)
         (vla-get-TextString Att)
   )
  )
  (vlax-invoke Obj 'GetAttributes)
 )
)

[Disney]

Ребята, а можно, то же самое (ну естественно без значения, только имена) атрибутов из описания блоков?
Я сам как-то делал, только муторно и по длинному: vla-get-blocks -> tblobjname -> entnext.
Наверняка где-то есть более изящное решения.

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

Вырвано из библиотеки, но суть, думаю, понятна

Код:

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

(defun _kpblc-block-attr-get-pointer-mask (blk mask / res)
                                          ;|
*    Получение списка атрибутов блока по маске. Учитываются также постоянные атрибуты.
*    Параметры вызова:
*	blk	указатель на вставку блока
*	mask	строка с маской тэга атрибута
|;

  (if (not mask)
    (setq mask "*")
    ) ;_ end ofif
  (if (or (_kpblc-is-ent-block-with-attr blk)
          (_kpblc-is-ent-block-with-constant-attr blk)
          ) ;_ end ofor
    (progn
      (setq blk (_kpblc-conv-ent-to-vla blk))
      (vl-remove-if-not
        (function
          (lambda (x)
            (wcmatch (strcase (_kpblc-property-get x 'tagstring))
                     (strcase mask)
                     ) ;_ end of wcmatch
            ) ;_ end of lambda
          ) ;_ end of function
        (apply (function append)
               (mapcar (function _kpblc-conv-vla-to-list)
                       (list
                         (vla-getattributes blk)
                         (vla-getconstantattributes blk)
                         ) ;_ end of list
                       ) ;_ end of mapcar
               ) ;_ end of apply
        ) ;_ end of vl-remove-if-not
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun]

[Disney]

Алексей, а на мой вопрос.

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

А, тебе из описания (определения) блока... Тады ой. Тестируй (я код не проверял - извини, тупо некогда )

Код:

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

 (vl-load-com)

(defun _get-att-by-block-def (doc name / blk_def res)
                             ;|
*    Получение vla-указателей на атрибуты блока
*    Параметры вызова:
  doc     vla-указатель на обрабатываемый документ. nil -> текущий
  name    имя блока (строка)
|;
  (if (not doc)
    (setq doc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of if
  (if (= (type (setq blk_def
                      (vl-catch-all-apply
                        (function
                          (lambda ()
                            (vla-item (vla-get-blocks doc) name)
                            ) ;_ end of lambda
                          ) ;_ end of function
                        ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'vla-object
         ) ;_ end of =
    (vlax-for ent blk_def
      (if (wcmatch (strcase (vla-get-objectname ent)) "*ATTR*")
        (setq res (cons ent res)
              ) ;_ end of setq
        ) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of if
  (reverse res)
  ) ;_ end of defun

[Дима_]

То Disney - можно отфильровать коллекцию примитивов из блока по ObjectName - но будет-ли это более "изящней" - вопрос.

[Disney]

Спасибо, Алексей, всё так.
Я не знал до конца не понимал функцию vlax-for. Раньше я умел только либо применять метод, либо читать\назначать свойства, а вот у определения блока не оказалось метода GetAttributes, теперь научили работать с коллекцией примитивов из объекта.

Сообщение от Дима_ можно отфильровать коллекцию примитивов из блока по ObjectName

Код:

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

 (wcmatch (strcase (vla-get-objectname ent)) "*ATTR*")

Может "красивше" будет тупо проверить есть ли у объекта свойство TagString

Код:

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

 (vlax-property-available-p ent 'TagString t)

[VVA]

Имена атрибутов можно достать из описания блока и из лиспа

Код:

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

(defun get-att-name-from-blkdef (name / blk ed lst)
  ;;; Name - string Block name
  (and
    (setq blk (tblobjname "BLOCK" name))
    (while (setq blk (entnext blk))
      (if (eq (cdr(assoc 0 (setq ed (entget blk)))) "ATTDEF")
	(setq lst (cons (cdr(assoc 2 ed)) lst))
	)
      )
    )
    lst
  )

Правда тут может возникнуть проблема с неименованными (*U) блоками