variable value in getdist function

[4o4osan]

Hi,

 

I am trying something very simple, but I am out of ideas already

 

(setq interval 5)

(setq dist (getdist "\nEnter Interval :"))

 

Chavdar

[hmsilva]

Hi Chavdar,

if you mean the interval value in the prompt, perhaps something like this

 

(setq interval 5) 
(setq dist (getdist (strcat "\nEnter Interval < " (itoa interval)" >:")))

 

 

EDIT: If your goal is to force the user to enter a number divisible by 5, maybe something like this

(setq interval 5)
(while (not
        (progn
          (initget 7)
          (setq dist (getreal (strcat "\nEnter Interval < " (itoa interval) " >:")))
          (= (fix (/ dist 5)) (/ dist 5))
        )
      )
)

 

 

Henrique

Edited February 1, 2015 by hmsilva

[Lee Mac]

To check for divisibility, you could also use:

(zerop (rem dist 5))

[hmsilva]

To check for divisibility, you could also use:

(zerop (rem dist 5))

 

 

More concise.

Thank you Lee!

 

 

Henrique

[Lee Mac]

No worries!

[aswad]

what is it means by rem dist ?

[Lee Mac]

what is it means by rem dist ?

 

The expression returns the remainder when dividing the numerical value held by the variable 'dist' by 5.