Комментарии на: Палитры инструментов через лисп + xml

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

Кулик Алексей aka kpblc — Thu, 11 Dec 2014 13:16:45 +0000

Попробуй применить append - по типу (apply 'append (mapcar (function _kpblc-xml-attribute...

От: Михаил

Михаил — Thu, 11 Dec 2014 07:52:29 +0000

Приведенная у тебя функция почему-то у меня не пошла...
Поскольку мне нужны только ID палитр, применил такую конструкцию:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(setq list_atr (mapcar
(function _kpblc-xml-attribute-get-name-and-value
)
(mapcar
(function _kpblc-xml-nodes-get-child)
(_kpblc-xml-nodes-get-child
(car (_kpblc-xml-nodes-get-child-by-tag
xml_main
"Palettes"
) ;_ end of _kpblc-xml-nodes-get-child-by-tag
)
) ;_ end of _kpblc-xml-nodes-get-child
) ;_ end of mapcar
) ;_ end of mapcar
);end of setq

Но есть одна странность. Нужные мне данные оказываются во вложенном (двойном) списке:
((((idvalue . {CE1AF905-1E75-49BC-A71A-50A2832C9ED8})) ((href . Palettes\4-1_Оформление_CE1AF905-1E75-49BC-A71A-50A2832C9ED8.atc)) nil nil) ...)
В чем тут дело-не подскажешь?
Не очень удобно обрабатывать. Да и есть сомнения - будет ли структура всегда такой.

От: Михаил

Михаил — Mon, 08 Dec 2014 10:45:12 +0000

Если загрузить lispru-xml-collection.lsp а потом приведенный листинг, то выходит ошибка
; ошибка: no function definition: _KPBLC-DIR-PATH-NO-SPLASH
нельзя ли еще и функции _KPBLC-DIR-PATH... в архив добавить
А то именно _KPBLC-DIR-PATH-NO-SPLASH в исходниках не увидел...
Заранее благодарен