[Скандербег]

Покажите, пожалуйста, как выделить две (или больше) полилинии, нарисованных последними.
Последний добавленный на чертеж объект получаем командой entlast,
а большее число объектов каким образом получить в список?
Нужно для последующего применения к этим двум объектам команды COPY.

P.S. Из особенностей чертежа, лини не могут быть объединены в одну.

[Дима_]

"запомнить" entlast до выполнения команды и "пробежаться" по нему entnext'ом до nil
з.ы. командные методы "в процессе" обрастают такой "оберткой" что в итоге их "лекгость и удобство" сходят на нет - чем раньше от них отказаться тем лучше.

[Vladimir_Sergeevich]

Если отрисовываются программно - записывать их в набор ssadd

[Скандербег]

Спасибо.
Т.е. чтобы занести в список отмеченных объектов последние два нужно взять один командой entlast, а другой entnext?

...чем раньше от них отказаться тем лучше.

А отказываются от командных методов обычно в пользу чего?

Offtop: P.S. Автокадом и лиспом занимался более 15 лет назад и сейчас пытаюсь что-то вспомнить (крепко плаваю).

[Дима_]

если в разрезе лиспа то есть dxf и vla

[TararykovDG]

Скандербег, если все-таки нужно получить список N-последных объектов на чертеже, попробуйте так

Код:

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

 
; Пример вызова: (entlast_multi <кол-во объектов>)
(defun entlast_multi(count / lst_all lst)
  ((lambda(ent)
     (while ent
       (setq lst_all (cons ent lst_all)
	     ent (entnext ent)
	     )
       )
     (setq nbr (ssadd))
     (if lst_all
       (repeat (min count (length lst_all))
	 (setq lst (cons (car lst_all) lst)
	       lst_all (cdr lst_all)
	       )
	 )
       )
     lst
     )
    (entnext)
    )
  );end entlast_multi

[Дима_]

Сообщение от Скандербег Т.е. чтобы занести в список отмеченных объектов последние два нужно взять один командой entlast, а другой entnext?

нет - читай справку что возращают entnext и entlast.

[Эдуард]

Всем привет.
Вариант 1
примитивы(из одного пространства) в ssget сортируются по порядку их создания , начиная с последнего. Т.е. первый элемент (ssget "x") это и есть entlast.
Т.е.

Код:

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

 
(vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "x"))))

и выбирайте из списка какой хотите примитив по счету.

Вариант 2.
Пространство модели(листа) само по себе является блоком.
Получите его из таблицы блоков как обычный блок и переберите его элементы. Они тоже идут в порядке создания.

[VVA]

Сообщение от Дима_ запомнить" entlast до выполнения команды и "пробежаться" по нему entnext'ом до nil

Пару примеров в развитие
Отслеживание объектов появившихся после pasteclip пост #2 Там же и пример использования