Feed default value to the variable

[wimal]

(setq A "100")

(setq B (getstring "\n Bar Spacing <"A"> "))

Please help me to correct this code.

[David Bethel]

 

 

(setq B (getstring (strcat "\n Bar Spacing <" A "> ")))

 

 

And Then

(if (= B "") (setq B A))

Edited October 3, 2019 by David Bethel

[Lee Mac]

You may find my tutorial: Prompting with a Default Option a useful read.

[BIGAL]

Something like this it can be re-set to remember last entry. getvals multi.lsp is in the download area at Cadtutor.

 

(if (= barsz nil)(setq barsz "100"))
(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
……...
……...
(setq barsz (atof  (AH:getvalsm (list "Input bar spacing" "Bar space" 5 4 barsz ))))

 

 

Edited October 4, 2019 by BIGAL

[wimal]

On 10/3/2019 at 10:22 PM, Lee Mac said:

You may find my tutorial: Prompting with a Default Option a useful read.

Thanks Mr Lee for your kind help. In my new office I have to work with Auto cad Mac. So I cant use Vall. and  DCL applications 

So your guidance are mostly welcome and highly appreciated.  

 

[BIGAL]

Open DCL does mention mac so it may be a way around the dcl problem. Will have  a look further later going out for beer now my birthday.

[wimal]

Wish you Happy birthday Mr Bigal