AutoLISP Program to select the newly created objects!

Hi,

Will somebody help me in writing a customized AutoLISP program to select the newly created objects? (those objects which are created afetr using Array, copy, mirror, offset.... commands) The command should be transparent & should be able to run under any "Select objects" prompt.

The option "Last " will be useful only for single object.

Rgds,
H P Hebbar

 

Depending on how your code is written, you could just add the new objects to
a selection set as each is created with (settq ss (ssadd (entlast) ss)) ...
or

Before creating the new objects, set a variable to the last existing object:
(setq lastobj (entlast))
Then after the objects are created, step through them with (entnext ...)
starting with
(entnext lastobj)
and go from there.

Once the selection set is created, there are several ways to assign it to
the "Previous" selection option [e.g., (command "_.select" ss "")] for use
from the keyboard, if that's what you want.
___

the newly created objects? (those objects which are created afetr using
Array, copy, mirror, offset.... commands) The command should be transparent
& should be able to run under any "Select objects" prompt.

 

.... that's (setq ...) obviously.
___

....

 

Looks like you need a reactor to gather a selection set ---
Bob

 

or redefine a slew of commands to reset a global pointer before the command,
and then reset the selection set after the command.


Jamie Duncan

 

Here is something I wrote to start you on your way. This is NOT a
transparent command, but it may give you something to think about. The SL
command is used to set a point as the last entity in the drawing. The GL
command is used to save all entities after the point to a selection set !SS,
then erase the point.

To test -
type SL at the command prompt
type Copy, Array, Mirror, etc. command at perform command
type GL at the command prompt
type COPY !SS to copy new last entities


(defun C:SL (/ CURLAY)
(command "POINT" (getvar "viewctr"))
(setq EL1 (entget (entlast)))
(princ)
)
(defun C:GL (/ EL2 EN)
(setq EL2 (entget (entlast)))
(entdel (cdr (assoc -1 EL1)))
(setq SS (ssadd))
(if (not (equal EL1 EL2))
(progn
(setq EN (entget (entnext (cdr (assoc -1 EL1)))))
(while (and EN (not (equal EN EL2)))
(ssadd (cdr (assoc -1 EN)) SS)
(setq EN (entget (entnext (cdr (assoc -1 EN)))))
)
(ssadd (cdr (assoc -1 EN)) SS)
)
)
(princ)
)