[zamtmn]

Для примитивов пользовался DSTP_OBJXDATA из TOOLPAC. Понадобились смотреть хдата для описаний блоков, тут помоему без лиспа никак(((.

[VVA]

zamtmn, В Express Tools есть команда XDLIST для просмотра и XDATA для правки

[zamtmn]

через XDLIST как и DSTP_OBJXDATA не получить доступ к описанию блока.

edit: Наверно неправильно выразился описание=определение

[Sleekka]

ну да без лиспа никак - а ты ж вроде дружишь с ним?

[zamtmn]

нет, не дружу

[VVA]

zamtmn, Может я чего-то не понимаю, но запускаешь _BEDIT и в редакторе блока с помощью того же XDLIST смотришь расширенные данные.

[zamtmn]

нет, так я посмотрю xdata примитивов входящих в блок. а нужно самого описания блока

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

Наверное, "на посмотреть" как-то так:

Код:

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

(defun get-xdata-by-block-definition (ent app-name / res)
                                     ;|
ent	указатель на вхождение блока
app-name	приложение, для которого надо смотреть xdata. nil -> ""

(get-xdata-by-block-definition (car(entsel)) nil)
|;
  (if (and (setq ent (cond
                       ((= (type ent) 'vla-object) ent)
                       ((= (type ent) 'ename) (vlax-ename->vla-object ent))
                       ) ;_ end of cond
                 ) ;_ end of setq
           (wcmatch (strcase (vla-get-objectname ent)) "*BLOCK*")
           ) ;_ end of and
    (setq res ((lambda (/ xtype xdata)
                 (vla-getxdata
                   (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
                             (cond
                               ((and (vlax-property-available-p ent 'isdynamicblock)
                                     (equal (vla-get-isdynamicblock ent) :vlax-true)
                                     ) ;_ end of and
                                (vla-get-effectivename ent)
                                )
                               (t (vla-get-name ent))
                               ) ;_ end of cond
                             ) ;_ end of vla-item
                   (cond (app-name)
                         (t "")
                         ) ;_ end of cond
                   'xtype
                   'xdata
                   ) ;_ end of vla-getxdata
                 (if (and xtype
                          xdata
                          (>= (vlax-safearray-get-u-bound xtype 1) 0)
                          (>= (vlax-safearray-get-u-bound xdata 1) 0)
                          ) ;_ end of and
                   (mapcar (function (lambda (a b)
                                       (cons a (vlax-variant-value b))
                                       ) ;_ end of lambda
                                     ) ;_ end of function
                           (vlax-safearray->list xtype)
                           (vlax-safearray->list xdata)
                           ) ;_ end of mapcar
                   ) ;_ end of if
                 ) ;_ end of lambda
               )
          ) ;_ end of setq
    ) ;_ end of if
  res
  ) ;_ end of defun

---
Слегка исправил код. Изменения выделены красным

[zamtmn]

нет, не видит
на блок с моими xdata в определении:
>>Command: (get-xdata-by-block-definition (car(entsel)) DSTP_XDATA)
>>Select object: nil
>>Command:

на блок без моих данных:
>>Command: (get-xdata-by-block-definition (car(entsel)) DSTP_XDATA)
>>Select object: ((1001 . #<variant 8 ACAD>) (1000 . #<variant 8 DesignCenter
>>Data>) (1002 . #<variant 8 {>) (1070 . #<variant 2 1>) (1070 . #<variant 2 4>)
>>(1002 . #<variant 8 }>) (1001 . #<variant 8 AcDbDynamicBlockGUID>) (1000 .
>>#<variant 8 {EBE1C508-037D-4DEF-ADD6-429EF025AFB5}>) (1001 . #<variant 8
>>AcDbBlockRepETag>) (1070 . #<variant 2 1>) (1071 . #<variant 3 2>))

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

Чего??

Код:

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

(get-xdata-by-block-definition (car(entsel "\nУкажите вхождение блока, для которого надо смотреть xdata : ")) nil)

В результате получишь список (если он, конечно, есть) xdata, относящихся именно к описанию блока. А вывод его в текстовый экран я не делал.
---
Добавлено: DSTP_XDATA - енто хто? И чему равно на момент вызова?
P.S. Код я не гонял особо, т.к. я xdata практически не работал, предпочитая vlax-ldata-* функции как более простые и удобные. И не имеющие ограничений расширенных данных.

[zamtmn]

>А вывод его в текстовый экран я не делал.
понял. спасибо
>Добавлено: DSTP_XDATA - енто хто?
имя приложения. забыл кавычки

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

Я там код немного поменял.