[vladimirr_b]

Здравствуйте! Пишу программу, которая должна записать в некую переменную координаты базовых точек всех блоков в слое "Штамп" в чертеже. Хотелось бы, чтобы данные хранились в переменной примерно как в массиве Паскаля, т.е. в ячейке 1 координаты первого блока, в ячейке n координаты n-го блока. Сам код нахождения координат базовых точек блоков я написал, а вот как теперь эти данные записать в один структурированный список/массив/вектор/коллекцию не знаю. Подскажите пожалуйста.

Код:

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

 (setq sdel (ssget "X" '((0 . "INSERT")(8 . "Штамп"))))
(setq n (sslength sdel)) 
(setq i 0)
(while (> n i)
  (setq name_obj (ssname sdel i))
  (setq list_obj (entget name_obj))
  (setq p_i (cdr(assoc 10 list_obj)))
  (setq x_i (car p_i))
  (setq y_i (car (cdr p_i)))
  (setq i (+ i 1))
)

----- добавлено через ~3 ч. -----
Задача решилась функцией Cons

[gomer]

Используя библиотеки можно было бы записать

Код:

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

 (mapcar 'dxf10 (sslist sdel))

[ProPeller]

Попробуйте так.
Для трёхмерных координат.

Код:

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

 (setq
 CoorLst
 (mapcar
  '(lambda (l1)
    (cdr (assoc 10 (entget l1)))
   )
  (mapcar 'cadr
	  (ssnamex (ssget "_X" '((0 . "INSERT") (8 . "Штамп"))))
  )
 )
)

Для двухмерных координат.

Код:

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

 (setq
 CoorLst
 (mapcar
  '(lambda (l1)
    (reverse (cdr (reverse (cdr (assoc 10 (entget l1))))))
   )
  (mapcar 'cadr
	  (ssnamex (ssget "_X" '((0 . "INSERT") (8 . "Штамп"))))
  )
 )
)

[vladimirr_b]

----- добавлено через ~16 мин. -----

Сообщение от gomer Используя библиотеки можно было бы записать

Надо подключать эти библиотеки?
Лисп выдал такое сообщение " ошибка: no function definition: SSLIST"

Попробовал код ProPeller'a, все работает! Спасибо большое. На этом примере я разобрался с функцией mapcar. Код гораздо оптимальнее того, который разработал я))

----- добавлено через 8 сек. -----
----- добавлено через ~1 ч. -----

Сообщение от ProPeller Попробуйте так. Для трёхмерных координат. Код: [Выделить все] (setq CoorLst (mapcar '(lambda (l1) (cdr (assoc 10 (entget l1))) ) (mapcar 'cadr (ssnamex (ssget "_X" '((0 . "INSERT") (8 . "Штамп")))) ) ) ) Для двухмерных координат. Код: [Выделить все] (setq CoorLst (mapcar '(lambda (l1) (reverse (cdr (reverse (cdr (assoc 10 (entget l1)))))) ) (mapcar 'cadr (ssnamex (ssget "_X" '((0 . "INSERT") (8 . "Штамп")))) ) ) )