[eternalflame]

Помогите пожалуйста! Такая задача: В VFoxPro составленна таблица из трех столбцов (Box L x B; L; B). Далее выбирая в таблице (уже связана с AutoCAD'ом и открыта его средствами) определенную строку с нужным (Box L x B), нужно чтоб этот прямоугольник строился на чертеже! Можете подсказать как это лучше реализовать и (или) часть кода которая будет забирать данные из ячеек (L) и (B) при выборе определенной строки!

P.S.: Зарание извиняюсь если создал повтор или что-то не так написал. Я в этом деле новичек, поэтому даже не знаю толком что искать, полистал темы, поюзал поиск, но ничего толкового не нашел!

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

Через AdoLispLibrary выполняется запрос к БД; результат оформляется в список и дальше элементарной конструкцией

Код:

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

(start_list)
(mapcar 'add_list <...>)
(end_list)

заполняется popup_list в dcl-диалоге.

[eternalflame]

А как оформить результат запроса в виде списка? Когда делаю запрос, ACAD возвращает мне (("l") (10.0) (20.0) (40.0)). И как раз этот результат у меня никак не получается поместить в список. (((

[ShaggyDoc]

Этот "результат" и есть список из 4 элементов

[eternalflame]

Наверно я маленько не так выразился! =)) У меня никак не получается чтобы данные из этого списка, а именно 10, 20 и 40 заполняли popup_list в dcl-диалоге.
Когда содержимое окна жестко задано, то мы имеем:

Код:

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

(setq <...> (list " 10" " 20" " 40"))

А в моём случае у меня никак не получается результат запроса записать в popup_list!
Кучу вариантов уже перепробывал. С начала в голову пришёл такой вариант:

Код:

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

(setq <...> (list Result))

но он сразу же закончился ошибкой:
; ошибка: неверный тип аргумента: stringp (("l")
(10.0) (20.0) (40.0))
С другими вариантами как не мучался вообще ничего толкового не получалось! =(((
Может можно как- нибудь такой результат: (("l") (10.0) (20.0) (40.0)) привести к такому виду: " 10" " 20" " 40"

А ещё, если кто знает, подскажите пожалуйста каким образом на LISP можно организовать запись результатов sql-запроса в txt файл!

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

Код:

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

(setq lst '(("l") (10.0) (20.0) (40.0))) ;'(("l") (10.0) (20.0) (40.0))
(mapcar (function vl-princ-to-string) (apply (function append) lst)) ;'("l" "10.0" "20.0" "40.0")
(vl-remove nil
             (mapcar
               (function
                 (lambda (x)
                   (cond
                     ((= (type x) 'real) (strcat " " (rtos x)))
                     ((= (type x) 'int) (strcat " " (itoa x)))
                     ) ;_ end of cond
                   ) ;_ end of lambda
                 ) ;_ end of function
               (apply
                 (function append)
                 lst
                 ) ;_ end of apply
               ) ;_ end of mapcar
             ) ; '(" 10" " 20" " 40")

А зачем результаты выполнения SQL-запроса записывать в txt-файл? Медленно, неудобно и не всегда допустимо.