[Qir]

как выделить только что скопированный набора объектов для дальнейшего редактирования...(mirror, rotate, move,,,,)??
опция _p (previous) для команд выделяет исходник для копии.. ((

по сайту нашёл лишь чудесный лисп от TararykovDG в теме "LISP. Повтор предыдущего выбора элементов". вариация на тему select_p

и лисп от Krieger: _RotateCopy. (вращение копии). где-то рядом, но узко специализированно и без опции не удалять копию..

весьма востребованная возможность вроде..
допетрил только до следующего алгоритма:
копировать в буфер, вставлять блоком, выделять блок, редактировать, разбивать.. но много лишних движений.

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

Перед выполнением копирования вставки через (entlast) запомнить последний примитив; выполнить команду; через (entnext) после entlast пройтись по всем примитивам. Или вообще выполнять свои действия через ActiveX

[Qir]

это всё уже высшая математика!! )..
мои познания в лиспе -- быстрый вызов команд с набором опций с клавиатуры.. )

думал коллективный разум уже что-то сообразил на тему ). по сути ведь действие: выбрать (высветить) только-что созданное. ведь набор копируемых объектов как-то запоминается в процессе, где-то хранится. и небольшим лиспом его можно вызволить из акадовских недр )

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

Как пример:

Код:

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

 (defun copy-with-select-last (/ _entlast lastsel)
  (setq _entlast (entlast))
  (if ((lambda ()
         (vl-cmdf "_.copy")
         (while (/= (getvar "cmdactive") 0)
           (vl-cmdf pause)
           ) ;_ end of while
         ) ;_ end of lambda
       )
    (progn
      (while (setq _entlast (entnext _entlast))
        (setq lastsel (cons _entlast lastsel))
        ) ;_ end of while
      ) ;_ end of progn
    ) ;_ end of if
  (reverse lastsel)
  ) ;_ end of defun

[TararykovDG]

На основе идеи Кулик Алексей aka kpblc, плюс ректоры, чтобы можно было штатной командой копирования пользоваться

Код:

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

 
; ------------------------------------------------------------------------------------------------
(defun commandWillStart(reac data / ) ; старт какой-то комады ACad
  (if (member (car data) (list "COPY" "_COPY")) ; если это была команда копирования
    (setq *current_last_ent* (entlast)
          *last_select_selection* (ssadd)
          )
    )
)
(defun commandEnded(reac data / ) ; конец какой-то комады ACad
  (if (member (car data) (list "COPY" "_COPY")) ; если это была команда копирования
    (while (setq *current_last_ent* (entnext *current_last_ent*))
      (setq *last_select_selection* (ssadd *current_last_ent* *last_select_selection*))
      )
    )
)
; ------------------------------------------------------------------------------------------------

; ------------------------------------------------------------------------------------------------
(setq Cmnd_Reac (vlr-command-reactor "Реактор команд: "
		  (list '(:VLR-commandWillStart . commandWillStart)
			'(:VLR-commandEnded . commandEnded)
			)
		  )
      )
; -------------------------------------------------------------------------------------------------

; -------------------------------------------------------------------------------------------------
(defun c:gls() (c:get-last-select))
(defun c:get-last-select()
  (if (= (type *last_select_selection*) 'PICKSET)
    (if (> (sslength *last_select_selection*) 0)
      (progn
	(sssetfirst nil *last_select_selection*)
	(prompt "\n Последний сформированный набор восстановлен в переменной *last_select_selection*")
	)
      (prompt "\n Последний сформированный набор пустой")
      )
    (prompt "\n На чертеже еще не было сформировано ни одного набора")
    )
  (princ)
  )
; -------------------------------------------------------------------------------------------------

P.S. Добавить лисп в автозагрузку, после копирования набрать команду gls

[VVA]

http://forum.dwg.ru/showthread.php?t=85733
Похожая тема