Move with previous

[ReachAndre]

Hey all,
Frequently I find I need to select Previous so I decided to add Previous as a default selection.
Any comments or simplifications are appreciated, so what do you think?

(defun c:m (/ ss1)
  (setq ss1 (ssget));specify selection set
  (if (= ss1 nil) (setq ss1 (ssget "_P")));if nothing selected use previous selection
  (if (/= ss1 nil) (command "move" ss1 ""));autocad move command with previous selection
  (princ))

Thanks,
Andre

[marko_ribar]

Andre, have look at his code...

http://www.theswamp.org/index.php?to...1693#msg481693

M.R.

[PaulLi_apa]

You would not need to use the ssget lisp call because AutoCAD has a built in command called: Select
Also I would not define a command with a single letter like m
Typically M would be the alias for AutoCAD's standard Move command.
You may want to call it mm?
So I would change the code to this:

(defun c:mm () ; define autolisp function called mm
  (command"_.Select") ; start AutoCAD's Select command
  (while (= 1 (logand 1 (getvar 'CMDACTIVE))) (command pause)) ; continue to pause till Select command is complete
  (command "_.Move" "_P" "") ; AutoCAD Move command with previous selection
  (princ)
)

Area Object Link | Attribute Modifier | Dwg Setup | Feet-Inch Calculator | Layer Apps | List on Steroids | VP Zoom Scales
Exchange App Store
Paul Li
Senior Associate
ALTOON PARTNERS LLP
Los Angeles • Amsterdam • Shanghai
617 West 7th Street • Suite 400 • Los Angeles • California • 90017-3889
D +1 213 225 1944 • T +1 213 225 1900 • www.altoonpartners.com

[BlackBox]

(defun c:FOO (/ ss)
  (command "._move" (if (setq ss (ssget "_:L")) ss "_p") "")
  (princ)
)

[Tom Beauford]

One more option.

From my ACADDOC.lsp file

(defun c:prev (/)(sssetfirst nil (ssget "P"))(princ))
(defun c:lastob (/)(sssetfirst nil (ssget "L"))(princ))

These visibility select so you can see what you're working with before starting a modify command.

I have a Select drop-down added to my "Object Snap Cursor Menu" with a variety of selection options.