getreal

[Ajmal]

if I press enter without typing anything why getting "nil"

actually, if I need to set the same value showing what there showing what i must do???

(if (null tmp)
    (setq tmp 25))
  (initget 6)
  (and (setq tmp (getreal (strcat "\nSpecify the  psize <" (vl-princ-to-string tmp)"> : ")))
       (setq psize tmp))

 

[Steven P]

Yes, enter on its own will produce nil. 

[Ajmal]

How can i set if there is already an value. with out typing just pressing enter or space set the same vale 

[marko_ribar]

(if (null tmp)
    (setq tmp 25))
  (initget 6)
  (and (setq tmp (cond ( (getreal (strcat "\nSpecify the  psize <" (vl-princ-to-string tmp)"> : ") ) ( tmp ) ))
       (setq psize tmp))

 

[BIGAL]

Another 

(if (null psize)(setq psize 25.0))
(setq tmp (getreal (strcat "\nSpecify the  psize <" (rtos psize 2 2) "> : ")))
(if (null tmp)(princ))

You can use my Multigetvals can save the last value for re-use. 

 

The initget has advantage of forcing a number.

Edited July 30, 2023 by BIGAL

[Ajmal]

 

16 hours ago, marko_ribar said:

(if (null tmp)
    (setq tmp 25))
  (initget 6)
  (and (setq tmp (cond ( (getreal (strcat "\nSpecify the  psize <" (vl-princ-to-string tmp)"> : ") ) ( tmp ) ))
       (setq psize tmp))

 

 

Error: bad function: 25

 

(if (null tmp)
    (setq tmp 25))
  (initget 6)
  (and (setq tmp (cond ( (getreal (strcat "\nSpecify the pipe size <" (vl-princ-to-string tmp)"> : ")) ( tmp ))))
       (setq pipesize tmp))
  (setq dia (/ pipesize 2.0)
        start 0)

 

 

[Tsuky]

(if (zerop (getvar "USERR1"))
	(setvar "USERR1" 25.0)
)
(initget 6)
(setq pipesize (getreal (strcat "\nSpecify the  pipesize <" (vl-princ-to-string (getvar "USERR1"))"> : ")))
(if (not pipesize) (setq pipesize (getvar "USERR1")) (setvar "USERR1" pipesize))

 

[BIGAL]

Tsuky as USERR1 is a variable any code can get at and change I have started using LDATA it resides in the dwg, you provide the container name and a key then value.

(vlax-ldata-put "AlanH" "Ahscale" 100)

(setq ahsc (vlax-ldata-get "AlanH" "Ahscale"))
(setq  layname (vlax-ldata-get "AlanH" "Layoutname" ) )