TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: Hangman on September 08, 2006, 02:28:52 PM

Title: Getpoint func
Post by: Hangman on September 08, 2006, 02:28:52 PM

OK, for some reason unbeknownst to me, I have a mental blockage (called thinking).

How do I get a point from a move command ??

Code: [Select]

  (setvar "orthomode" 0)
  (setvar "osmode" 2)
  (princ "\nMove ...")
  (command "._move" ss1 "" pt3 pause)
  (setvar "orthomode" 1)
  (princ "\nRotate ...")
  (command "._rotate" ss1 "" <??> pause)

So I'm moving an object from a point previously specified, "pt3".  The object is then moved by "pt3" to a new point, <??>.  I then want to rotate the object from that new point <??>.
How do I get the point <??> ?

Thank you.

Title: Re: Getpoint func
Post by: T.Willey on September 08, 2006, 02:34:44 PM

After your first move command, use this to get the point used.
(setq pt4 (getvar "lastpoint"))