topic Re: I reqd. point of insertion and as well as undo command in Visual LISP, AutoLISP and General Customization Forum

I reqd. point of insertion and as well as undo command

avinash00002002 — Thu, 16 Dec 2021 09:53:03 GMT

I Don't know where I am wrong. with this program will continuously asking for point of block and If put it at wrong point then undo pressing will undone previous insert block.

Code:

(Defun c:afb(/ cccen)
(initget 128 "Undo U u")
(setq res (getpoint "\nGetPoint[Undo] <Cancel> :"))
(while
;(setq cccen (getpoint "\nCentre Point of Hole: ")))
(command "_-Insert" "AFB" res "1" "1" 0)
(cond ((= res "Undo") (command "_.UNDO" "1"))))
(setvar "cmdecho" 0)
;(command "_Circle" cccen "D" "17.5")
(setvar "cmdecho" 1)
)

Thanks,

Avcinash

Re: I reqd. point of insertion and as well as undo command

ВeekeeCZ — Thu, 16 Dec 2021 11:04:58 GMT

Like this:

(defun c:AFB (/ res)

  (setvar 'cmdecho 0)
  
  (while (progn									; we need to wrap initget and getpoint
	   (initget 128 "Undo")							; this is not a test expression, we just need this placed prior to (getpoint)    ; "UndoL already covers "U" and "u"
	   (setq res (getpoint "\rSpecify insertion point or [Undo] <exit>: ")))  	; this is a real test expression for while
    (if (= res "Undo")
      (command "_.undo" 1)
      (command "_-insert" "AFB" "_s" 1 "_r" 0 "_non" res)))
  (setvar 'cmdecho 1)
  (princ)
)

Re: I reqd. point of insertion and as well as undo command

john.uhden — Fri, 17 Dec 2021 00:13:03 GMT

Yo, Beekee,

Maybe I missed something. Does he really want to Undo the previous command as an option in the current command?