Itoa...

Perfect example of what I'm looking for is: if you type in -insert it will remember the last block you've inserted and if you hit enter the routine continues with that block.

I can't figure it out

(defun c:test (/)
 (setq prmpt (getstring (strcat "\nWhat would you like to say? <" prmpt "> : ")))
 (alert prmpt)
 (princ)
 )

I think that this is what you are looking for (take care that a neutral answer - - for GETSTRING function is an empty string):

(defun c:test ( / LastUsed ToUse )
(setq LastUsed "LastUsedBlock")                 ;name of last used block

;test is user answer by string or by <ENTER>
(if (= (setq ToUse (getstring (strcat "\nWhat would you like to say? <" LastUsed "> : "))) "")
 (setq ToUse LastUsed)                          ;use default value
)

(alert ToUse)
(princ)
)

Regards,

PS. I’m afraid that thread’s title is not appropriate for your request…

You might want to look into the sysvar "INSNAME". -David

When I started this thread I was looking at a routine lee mac made for me. counting routine

Maybe that's why I wasn't getting my result!

Thank you for the response. I'll check this in a few minutes

actually this is what I was looking for. Just needed to take my eyes off it for a while and look back

(defun c:test (/ p prmpt)
 (if (NOT (setq p prmpt))
   (SETQ P "\NTESTING"))
 (setq prmpt (getstring (strcat "\nWhat would you like to say? <" p "> : ")))
 (if (eq "" prmpt)
   (setq prmpt p))
 (alert prmpt)
 (princ)
 )

When I started this thread I was looking at a routine lee mac made for me. counting routine

 

Maybe that's why I wasn't getting my result!

 

Thank you for the response. I'll check this in a few minutes

Let me reword that because it sounds like I'm blaming Lee for my problem..

I was looking at a LISP that Lee wrote and it had to do with numbering. I was looking at the wrong part of the routine to manipulate it. Thats why my title is itoa.

Sorry Lee

Let me reword that because it sounds like I'm blaming Lee for my problem..

 

I was looking at a LISP that Lee wrote and it had to do with numbering. I was looking at the wrong part of the routine to manipulate it. Thats why my title is itoa.

 

 

Sorry Lee

No worries man

Another way to code it (I don't like the empty string return of getstring )

(defun c:test ( / tmp )
 (alert
   (setq *x*
     (cond
       (
         (eq ""
           (setq tmp
             (getstring t
               (strcat "\nAlert with <"
                 (setq *x*
                   (cond ( *x* ) ( "LeeMac" ))
                 )
                 "> : "
               )
             )
           )
         )
        *x*
       )
       ( tmp )
     )
   )
 )
 (princ)
)