How to get this lisp accept numbers like 0.5 15.5 etc

[Anonymous]

in this lisp any of above numbers gifs a error "Requires an integer value." 

but I want the option to put in half meters of les like 0.2 ore 15.1 etc

I think the problem is in the getint but don't know what tot replace it with

(defun C:pld ()
            
            (setq segmentlengte (getint "\nput in distance: "))
            (setq lijn (getpoint "\nClick a line: "))
 	            
            (command "measure" lijn "b" blocknaam "y" segmentlengte)
		(setq blocknaam "rkaFF")) 
(while (/= lijn nill)
            (setq lijn (getpoint "\nclick line or enter to close: "))
            (if (/= lijn nill)(command "measure" lijn "b" blocknaam "y" segmentlengte)())
   )(princ)
)

[Moshe-A · Accepted solution]

@Anonymous hi,

replace (getint) with (getreal)

[_gile · Accepted solution]

Hi

Or, better, replace (getint ...) with (getdist ...) so that the user can also specify the distance by clicking two points on screen.

[ВeekeeCZ · Accepted solution]

The code, as it is, doesn't work du toe extra right parenthesis, nill should be spelled as just nil... or you could omit at all.

(defun c:PLD (/ len blk ent)
  
  (setq len (getdist "\nput in distance: ")
	blk "rkaFF")
  (while (setq ent (entsel "\nselect line or <close>: "))
    (command "_.measure" ent "_block" blk "_yes" len))
  (princ)
)

[dbhunia]

What I get from your code.......... You want to play with two blocks ("blocknaam" and "rkaFF") .......If so then your code should be like.....

(defun C:pld ()
            
        (setq segmentlengte (getdist "\nput in distance: "))
        ;(setq lijn (getpoint "\nClick a line: "))
	(setq lijn (car(entsel "\nClick a line: ")))

        (command "measure" lijn "b" "blocknaam" "y" segmentlengte)
	(setq blocknaam "rkaFF")

	(while (/= lijn nill)
            ;(setq lijn (getpoint "\nclick line or enter to close: "))
	    (setq lijn (car(entsel "\nclick line or enter to close: ")))
            (if (/= lijn nill)
		(command "measure" lijn "b" blocknaam "y" segmentlengte)
	    )
   	)
(princ)
)

[Anonymous]

(defun c:PLD (/ len blk ent)
  
  (setq len (getdist "\nput in distance: ")
	blk "rkaFF")
  (while (setq ent (entsel "\nselect line or <close>: "))
    (command "_.measure" ent "_block" blk "_yes" len))
  (princ)
)

above code is what BeekeeCZ made from it.   Perfect.

This is what I like, even shorter code and it works perfect.
I accept the others also as solution because that was what i was asking for.
But you made the code perfect

thx
Remo