[АлексЮстасу]

Пардон за наивные вопросы - только пытаюсь знакомиться с xdata. Пишу в "Программирование", поскольку ответить смогут только программисты?
Пока имею возможность рассматривать xdata только с помощью команд xdata и xdlist из Express Tools.
1. Единое описание xdata у однотипных объектов не предусмотрено? Т.е. в принципе каждая отдельная xdata потенциально уникальна? Например, одна xdata "Труба", у одного графического элемента, может иметь один набор полей (допустим, для материала труб и диаметра), а другая "Труба" же, но у другого элемента может иметь совсем другой набор полей и числом, и типами полей (допустим, для назначения трубы, толщины стенок, предельного давления, сечения)? Тогда получается, что для анализа и манипулирования данными из xdata необходимо самостоятельно описывать структуры и состав xdata где-то вовне dwg? Но как быть с тем, что это почти бесполезно. Ведь ничто не ограничивает различие числа, типов и порядка следования полей у xdata для данных однотипных объектов?
2. Как описывать в xdata целочисленные поля для чисел больше 32767?
В xdata для целочисленных значений предусмотрены типы int и long.
Если задать для поля типа int или поля типа long число больше 32767, то появляется сообщение, что требуется целое значение до 32767.
Других типов целочисленных полей в xdata не предусмотрено.
3. Как идентифицировать поля данных в xdata - для каких данных какое поле? Ни при описании полей при команде xdata, ни при просмотре их с помощью xdlist не видно никаких идентификаторов полей. Единственное - порядок следования полей?
Допустим, присоединяю xdata к элементу с тремя полями типа str, символьными, описанными в последовательности: поле1, поле2, поле3. Но с помощью xdlist виден порядок полей обратный:

* Registered Application Name: XDATA_1 * Code 1002, Starting or ending brace: { * Code 1000, ASCII string: содержание_поля_3 * Code 1000, ASCII string: содержание_поля_2 * Code 1000, ASCII string: содержание_поля_1 * Code 1002, Starting or ending brace: }

Как при этом найти нужное поле?

Или эти вопросы от особенности не самих xdata, а особенность работы команд xdata и xdlist из Express Tools?

[gomer]

Сообщение от АлексЮстасу Правильно?

Правильно, осталось еще окрыситься =)

[АлексЮстасу]

Сообщение от gomer осталось еще окрыситься

А как это?

[trir]

АлексЮстасу, а тебя ничего не смущает в названии функции _KPBLC-ENT-TO-VLA ?
KPBLC - читается как крЫс, знакомо? Ассоциации?

[АлексЮстасу]

Сообщение от trir а тебя ничего не смущает

Увы. Вне компетенции. Пытался по аналогии добавить строку: (kpblc-load-com) или (_kpblc-load-com). Пишет:

Команда: ; ошибка: no function definition: KPBLC-LOAD-COM

[trir]

ищи здесь

[gomer]

войди в аркаду и почитай внимательно что там написано

[VVA]

АлексЮстасу, ее код приведен в самом первом посте

[АлексЮстасу]

Сообщение от VVA ее код приведен в самом первом посте

Именно первый код и пытаюсь запустить.

[trir]

Код:

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

 ;|=============================================================================
*    Функция преобразования полученного значения в vla-указатель.
*    Параметры вызова:
*   ent_value   значение, которое надо преобразовать в указатель. Может
*         быть именем примитива, vla-указателем или просто
*         списком.
*         Если не принадлежит ни одному из указанных типов,
*         возвращается nil
*    Примеры вызова:
(_kpblc-ent-to-vla (entlast))
(_kpblc-ent-to-vla (vlax-ename->vla-object (entlast)))
=============================================================================|;
(defun _kpblc-ent-to-vla (ent_value)
  (cond
    ((= (type ent_value) 'vla-object) ent_value)
    ((= (type ent_value) 'ename) (vlax-ename->vla-object ent_value))
    ((= (type ent_value) 'list)
     (if (not (vl-catch-all-error-p
      (vl-catch-all-apply
        (vlax-ename->vla-object (_kpblc-ent-to-ename ent_value))
        ) ;_ end of VL-CATCH-ALL-APPLY
      ) ;_ end of VL-CATCH-ALL-ERROR-P
         ) ;_ end of not
       nil
       ) ;_ end of if
     )
    (t nil)
    ) ;_ end of cond
  ) ;_ end of defun


;|=============================================================================
*    Функция преобразования полученного значения в ename
*    Параметры вызова:
*   ent_value   значение, которое надо преобразовать в примитив. Может
*         быть именем примитива, vla-указателем или просто
*         списком.
*         Если не принадлежит ни одному из указанных типов,
*         возвращается nil
*    Примеры вызова:
(_kpblc-ent-to-ename (entlast))
(_kpblc-ent-to-ename (vlax-ename->vla-object (entlast)))
=============================================================================|;
(defun _kpblc-ent-to-ename (ent_value)
  (cond
    ((= (type ent_value) 'vla-object) (vlax-vla-object->ename ent_value))
    ((= (type ent_value) 'ename) ent_value)
    ((= (type ent_value) 'list) (cdr (assoc -1 ent_value)))
    (t nil)
    ) ;_ end of cond
  ) ;_ end of defun

[АлексЮстасу]

Это вроде бы второй код? Предположил, что нужно их собрать в один. Собрал. Запустил первый с указанным примером запуска, пишут:

Команда: (_kpblc-ent-ldata-add (vlax-ename->vla-object (car (entsel))) '(("block" . "data1")) t) Выберите объект: ; ошибка: неверный тип аргумента: (or stringp symbolp): nil

Намеки не помогают - не программист.

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

http://autolisp.ru/2010/06/09/no-fun...t-acad-object/

[gomer]

Для тех, кто в танке:

Код:

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

 
(setq *kpblc-appname* "DWGRU")

(vl-load-com)

;|============================================================================= 
*    Функция внесения дополнительных данных в примитив. 
*    Параметры вызова: 
*   ent      примитив, в который вносятся данные 
*   data-list   вносимые данные 
*   append-data   добавлять данные (t) или стирать старые (nil) 
*    Возвращаемое значение: 
*   полный список доп.данных или nil, если невозможно записать. 
*    Примеры вызова:

(_kpblc-ent-ldata-add (vlax-ename->vla-object (car (entsel))) '(("block" . "data1")) nil)
(_kpblc-ent-ldata-add (vlax-ename->vla-object (car (entsel))) '(("block" . "data2")) T)

=============================================================================|;
(defun _kpblc-ent-ldata-add (ent data-list append-data / exist_data)
  (setq ent (_kpblc-ent-to-vla ent))
  (if (and append-data
	   (setq exist_data (vlax-ldata-get ent *kpblc-appname*))
      ) ;_ end of and 
    (progn
      (setq data-list (append exist_data data-list))
      (vlax-ldata-delete ent *kpblc-appname*)
    ) ;_ end of progn 
  ) ;_ end of if 
  (vlax-ldata-put ent *kpblc-appname* data-list)
) ;_ end of defun 

;|============================================================================= 
*    Функция возвращает дополнительные данные, записанные в примитив (либо nil, 
* если их нет) 
*    Параметры вызова: 
*   ent   указатель на примитив 
*    Примеры вызова: 
(_kpblc-ent-ldata-get (vlax-ename->vla-object (car (entsel)))) 
=============================================================================|;
(defun _kpblc-ent-ldata-get (ent)
  (setq ent (_kpblc-ent-to-vla ent))
  (vlax-ldata-get ent *kpblc-appname*)
) ;_ end of defun

;|============================================================================= 
*    Функция преобразования полученного значения в vla-указатель. 
*    Параметры вызова: 
*   ent_value   значение, которое надо преобразовать в указатель. Может 
*         быть именем примитива, vla-указателем или просто 
*         списком. 
*         Если не принадлежит ни одному из указанных типов, 
*         возвращается nil 
*    Примеры вызова: 
(_kpblc-ent-to-vla (entlast)) 
(_kpblc-ent-to-vla (vlax-ename->vla-object (entlast))) 
=============================================================================|;
(defun _kpblc-ent-to-vla (ent_value)
  (cond
    ((= (type ent_value) 'vla-object) ent_value)
    ((= (type ent_value) 'ename) (vlax-ename->vla-object ent_value))
    ((= (type ent_value) 'list)
     (if
       (not (vl-catch-all-error-p
	      (vl-catch-all-apply
		(vlax-ename->vla-object (_kpblc-ent-to-ename ent_value))
	      ) ;_ end of VL-CATCH-ALL-APPLY 
	    ) ;_ end of VL-CATCH-ALL-ERROR-P 
       ) ;_ end of not 
	nil
     ) ;_ end of if 
    )
    (t nil)
  ) ;_ end of cond 
) ;_ end of defun 


;|============================================================================= 
*    Функция преобразования полученного значения в ename 
*    Параметры вызова: 
*   ent_value   значение, которое надо преобразовать в примитив. Может 
*         быть именем примитива, vla-указателем или просто 
*         списком. 
*         Если не принадлежит ни одному из указанных типов, 
*         возвращается nil 
*    Примеры вызова: 
(_kpblc-ent-to-ename (entlast)) 
(_kpblc-ent-to-ename (vlax-ename->vla-object (entlast))) 
=============================================================================|;
(defun _kpblc-ent-to-ename (ent_value)
  (cond
    ((= (type ent_value) 'vla-object)
     (vlax-vla-object->ename ent_value)
    )
    ((= (type ent_value) 'ename) ent_value)
    ((= (type ent_value) 'list) (cdr (assoc -1 ent_value)))
    (t nil)
  ) ;_ end of cond 
) ;_ end of defun

Вообще это все горе от ума, порочная практика понатыкивать "библиотечный" хлам, куда не надо. Происходит отчасти от лени, отчасти от параноидальности программиста... Приводит к тому, что программа на больших объемах данных начинает жутко тормозить вплоть до фаталэрррора...

[АлексЮстасу]

Сообщение от Кулик Алексей aka kpblc http://autolisp.ru/2010/06/09/no-fun...t-acad-object/

Там про функции vl:

сообщение может меняться, но начало всегда одно: не определена функция vl…

Но у меня после добавления (vl-load-com) ругается на тип аргумента

(or stringp symbolp): nil

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

Сообщение от gomer Приводит к тому, что программа на больших объемах данных начинает жутко тормозить вплоть до фаталэрррора...

Пример, пожалуйста. Потому как у меня пока такого не было.

Сообщение от АлексЮстасу Но у меня после добавления (vl-load-com) ругается на тип аргумента

Остается только одно: проходить пошагово выполнение.

[gomer]

Сообщение от АлексЮстасу Но у меня после добавления (vl-load-com) ругается на тип аргумента Цитата: (or stringp symbolp): nil

Сколько можно объяснять? эта ошибка возникает потому что не определена *kpblc-appname*

Сообщение от Кулик Алексей aka kpblc Пример, пожалуйста.

Ну, не знаю что даст вырванный из контекста фрагмент кода... Суть в том, что при сортировке списка с помощью vl-remove-if, vl-remove-if-not я заменил лямбду на функцию и получил нехилое проседание по быстродействию.
Может я чего-то не додумал, но неприятный осадок остался

[VVA]

Сообщение от АлексЮстасу (or stringp symbolp): nil

Скорее всего не объявлен "dictionary key". У Алексея сделано через глобальную переменную. См. #32 1-ю строчку

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

Сообщение от gomer Суть в том, что при сортировке списка с помощью vl-remove-if, vl-remove-if-not я заменил лямбду на функцию и получил нехилое проседание по быстродействию.

Так... Ты ж говорил про Fatal Error - а теперь про низкое быстродействие. Встречные вопросы - функция определена глобально или локально? Что показывает benchmark? Что будет при компиляции кода в fas? А в vlx с отдельным именным пространством?

[АлексЮстасу]

Сообщение от gomer Сколько можно объяснять? эта ошибка возникает потому что не определена *kpblc-appname*

Сообщение от gomer Для тех, кто в танке: Код: 01 (setq *kpblc-appname* "DWGRU") 02 03 (vl-load-com)

Почему-то только сейчас отобразилось это сообщение #32. Заработало:

Команда: (_kpblc-ent-ldata-add (vlax-ename->vla-object (car (entsel))) '(("block" . "data2")) T) Выберите объект: (("block" . "data2"))

Offtop: Вместо сообщений #19-37 написать непрограммисту, что нужно добавить строку (setq *kpblc-appname* "DWGRU") - выше нечеловеческих сил?

[Сергей812]

[Offtop: quote=АлексЮстасу;1319801]Offtop: Вместо сообщений #19-37 написать непрограммисту, что нужно добавить строку (setq *kpblc-appname* "DWGRU") - выше нечеловеческих сил?[/quote]
терпите - вы уже начинающий программист)

[gomer]

Сообщение от Кулик Алексей aka kpblc Ты ж говорил про Fatal Error - а теперь про низкое быстродействие.

Fatal Error - это отдельная мистическая тема, но я замечал, после долгих циклов его вероятность увеличивается. Возможно это с нехваткой памяти связано.
Насчет быстродействия: да, быстродействие кода проверялось после компиляции в fas.
По теме: При написании кода нужно сразу определиться либо мы используем для выбора объектов ssget и entsel, либо activex. В первом случае получаем всегда примитив, во втором случае - vla-object. Иного не дано. Как следствие все эти фокусы с конвертацией нужны только тогда, когда понатыкано много чужого кода с разными методами получения объектов. В своей практике я не использую даже элементарную проверку на примитивность объекта, и как-то не замечал проблем.
ну ладно, это все лирика, мне вот интересно, куда автор дальше будет двигаться, не имея ни пользовательского интерфейса, ни обработчика данных...