[Mozgunov]

Ребят, подскажите можно ли вытащить через из dxf атрибуты динамического блока. Если не через dxf то как?
Спасибо, вопрос решился. Нашёл функцию _kpblc-get-dyn-block-list-prop-and-values. Алексея. Спасибо!

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

Стоп. Функция _kpblc-get-dyn-block-list-prop-and-values предназначена для получения свойств динамического блока, а не его атрибутов (насколько я помню). Атрибуты я обычно получаю функцией наподобие

Код:

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

 (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

Служебные функции не показываю, но, если надо - можно найти.

[Mozgunov]

Кулик Алексей aka kpblc, Упс... Неправильно вопрос задал. Свойства я хотел получить. Спасибо ещё раз за функции!