Select previous

[barristann]

Anyone knows how long do I have to wait for my confirmation email from augi.com? It's been 24 hours. I'm trying to access this lisp

 

https://forums.augi.com/showthread.php?81175-select-result-lisp-modification&p=1310162&viewfull=1#post1310162

Edited February 8, 2023 by barristann

[Emmanuel Delay]

Can you describe what exactly you want?  Maybe we can help

[pBe]

5 hours ago, barristann said:

Anyone knows how long do I have to wait for my confirmation email from augi.com? It's been 24 hours. I'm trying to access this lisp

 

https://forums.augi.com/showthread.php?81175-select-result-lisp-modification&p=1310162&viewfull=1#post1310162

 

We could download it for you, but that wouldn't be proper is it. Be patient @barristann.

Let us know what you need and we will build the code for you from ground up, otherwise wait for the confirmation.

 

Cheers

 

[barristann]

I've ended up paying the fee. Thank you for your reply Emmanuel and pBe.

[tombu]

More explanation about using that routine at: https://www.cadtutor.net/forum/topic/59755-create-last-select-amp-previous-by-lisp-can-be-done/

 

[mhupp]

This is what I use. this gives me the option to select something or right click/enter to select the last thing modified. tho its kind of backwards with copied items it will select what you made a copy of rather then the copied items made.

 

;;----------------------------------------------------------------------------;;
;; Select or Previous
(defun SoP ()
  (prompt "\nSelect Objects or [Previous]:")
  (if (not (setq SS (ssget)))
    (setq SS (ssget "_P"))
  )
)

 

-Edit

This is my move command using it.

 

;;----------------------------------------------------------------------------;;
;; Move Previous if nothing is slected.
(defun C:M (/ SS)
  (SoP)
  (if SS 
    (vl-cmdf "._Move" SS "")
    (princ "\nNo previous selection set!")
  )
  (princ)
)

 

Edited February 11, 2023 by mhupp

[barristann]

Wonderful codes as always mhupp! Those are explanations are very helpful on how to get that working tombu. Thank you mhupp and tombu!

[barristann]

Nice mhupp. I will do the same with mine! Thank you again mhupp