Комментарии на: Использование словарных записей

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Wed, 24 Jan 2018 17:07:54 +0000

Андрей, я не сохранял в словарях сложноструктурированные списки. По-моему, подобное нереализуемо "в лоб". Можно создавать несколько словарей, можно еще как-то выкрутиться - но не записать "список в списке". Хотя нет, вру... Среди кодов Alaspher'a (лежат где-то в Download на dwg.ru) что-то было по поводу записей в словари, если не ошибаюсь. Евгений, так коды представлены - в чем собственно трудность?

От: Евгений

Евгений — Wed, 24 Jan 2018 06:22:24 +0000

У меня бональная хотелка:
писать/читать/изменять информацию в примитивы на постоянном хранении в чертеже.

Раньше пользовался атрибутами - надоело.

Как пользоваться X записями понимаю не до конца.

Кто поможет готовыми функциями? - писать/читать/изменять

От: Андрей

Андрей — Fri, 12 Jan 2018 20:20:08 +0000

Была задача - хранить в Х-записях чертежа определенную информацию.
В процессе работы считывать ее, записывать снова.
Информация представлена в виде списка, типа '((a1 b1 ... n1) ... (an bn ... nn)).
По представленным кодам так и не смог разместить ее.
Да простые списки добавляются без проблем, но необходимые мне - не получается.
Вопрос - возможно ли размещение подобных списков или стоит искать другой вариант работы с данными?

От: Алексей

Алексей — Fri, 01 Dec 2017 09:34:09 +0000

Для работы с переменными кое чего изменил...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

(vl-load-com)

(defun _lispru-ent-dictionary-add (ent datas / dict rec)
;|
* Запись в примитив словарных данных
* Параметры вызова:
ent указатель на примитив (графический или нет - неважно)
datas список записываемых данных
* Примеры вызова:
(_lispru-ent-dictionary-add (car (entsel "\nSelect entity : ")) '("string" 15 nil -16.85))
|;
(if (setq ent (cond ((= (type ent) 'vla-object) ent)
((= (type ent) 'ename) (vlax-ename->vla-object ent))
) ;_ end of cond
) ;_ end of setq
(progn
(setq dict (vla-getextensiondictionary ent)
rec (vla-addxrecord dict "lispru-dict")
datas (mapcar
(function
(lambda (x)
(cons 1 ;_ end of cond
(cond
((not x) "'0")
((= x t) "'1")
(t x)
) ;_ end of cond
) ;_ end of cons
) ;_ end of lambda
) ;_ end of function
datas
) ;_ end of mapcar
) ;_ end of setq
(vla-setxrecorddata
rec
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray vlax-vbinteger (cons 0 (1- (length datas))))
(mapcar (function car) datas)
) ;_ end of vlax-safearray-fill
) ;_ end of vlax-make-variant
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray vlax-vbvariant (cons 0 (1- (length datas))))
(mapcar 'eval (mapcar (function cdr) datas)
))) ;_ end of vlax-safearray-fill
) ;_ end of vlax-make-variant
) ;_ end of vla-SetXRecordData
) ;_ end of progn
) ;_ end of if
) ;_ end of defun[cc lang="lisp"]

От: Алексей

Алексей — Fri, 01 Dec 2017 08:43:01 +0000

Здравствуйте!

Возникает следующая ошибка!

ошибка: lisp-значение не может быть приведено к данному типу ВАРИАНТА:....

От: andrew.makhov

andrew.makhov — Tue, 08 Jul 2014 09:17:54 +0000

... (-2 . )... там имя объекта (должно было быть), его парсер при отправке сообщения уничтожил
Да, предположение, именно, на неверную обработку ObjectID, но здесь она внутри vla-GetXrecordData, так что, забыть придется весь метод целиком. Буду прикручивать Handle, он там лучше будет смотреться.

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Tue, 08 Jul 2014 08:10:50 +0000

Сугубо ИМХО:
1. Записывать указатель на объект бесполезно. ObjectID меняется от сессии к сесии, лучше бы использовать Handle. Правда, в таком случае возникает вопрос отслеживания корректности данных
- при копировании-вставке через буфер,
- после выполнения _.wblock
- при работе через xref
2. По результатам

((-1 . ) (0 . XRECORD) (5 . 123F) (102 . {ACAD_REACTORS) (330 . ) (102 . }) (330 . ) (100 . AcDbXrecord) (280 . 1) (-2 . ))

нормальной работы не видать

Я сильно подозреваю, что это ограничение следующего порядка: ObjectID (черт с ним, будем с ним воевать) - все же целое число, и записывается оно с использованием разрядности AutoCAD. Т.е. в х64 будет оно Int64. А лисп как был 32-битным, так и остался. Соответственно "лишние" разряды обрубаются.

Может быть, проблема кроется в неверной обработке получения ObjectID: http://autolisp.ru/2011/07/07/x32x64objectid/.

Сейчас времени на проведение экспериментов нет, сорри.

От: andrew.makhov

andrew.makhov — Tue, 08 Jul 2014 07:57:56 +0000

реанимирую немножко тему
Столкнулся с "недостатком" работы vla-GetXrecordData на 64 битных системах. Если нужен dbx, то нужен vla-SetXrecordData, а коли так, то и читать хочется с помощью vla-GetXrecordData. Но не тут-то было. Хотим записать в XRECORD указатель на объект. Пишем (с кодом, например, -2, и преобразованием (vlax-make-variant (vlax-ename->vla-object x)) ) с помощью vla-SetXrecordData. Все хорошо. ((-1 . ) (0 . XRECORD) (5 . 123F) (102 . {ACAD_REACTORS) (330 . ) (102 . }) (330 . ) (100 . AcDbXrecord) (280 . 1) (-2 . )) Имя объекта формируется правильно.
Читаем с помощью vla-GetXrecordData и видим, что вместо указателя на объект расположен массив LONG из двух отрицательных чисел. Похоже, это баг.
Единственное, что нашел в сети по этому поводу - это форум на французском, откуда и понял, что дело в разрядности системы. (http://cadxp.com/topic/38804-safearry-of-long-a-la-place-dun-objectid/)
Вариант теоретический, как сферический конь в вакууме: зачем нужно именно имя объекта в dbx - еще тот вопрос. Ну, например, в качестве библиотеки, которую можно пользовать в разных случаях. Думаю, исправить это нельзя. Только принять к сведению.

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Wed, 10 Oct 2012 05:30:35 +0000

Спасибо, возьму на вооружение

От: Евгений

Евгений — Tue, 09 Oct 2012 07:19:26 +0000

1. как вариант, почему не организовать список списков как словари в словарях
2. в Xrecord жеж вроде можно список влить, на мой взгляд даже предпочтительней

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

(defun kd:setxrecdata (xrec val / sa1 sa2)
(if (listp val)
(progn
(setq sa1 (vlax-safearray-fill
(vlax-make-safearray vlax-vbInteger (cons 0 (1- (length val))))
(mapcar '(lambda (x) (cond
((= (type x) 'STR) 301)
((= (type x) 'INT) 451)
((= (type x) 'REAL) 140)
)
) val)))
(setq sa2 (vlax-safearray-fill
(vlax-make-safearray vlax-vbvariant (cons 0 (1- (length val))))
val))
(vla-SetXRecordData xrec sa1 sa2)
)
(princ "\nkd:setxrecdata : value must be a list")
)
);defun