FILLETRAD not setting

[Ajmal]

What is the problem? FILLETRAD not setting 

(defun c:test()
(setq der(getstring(strcat "\test <" (vl-princ-to-string der)"> : ")))
(setvar "FILLETRAD" der ))

i give "500"

 

then it will come

 

AutoCAD variable setting rejected: "FILLETRAD" "500"

[hanhphuc]

11 minutes ago, Ajmal said:

What is the problem? FILLETRAD not setting 

AutoCAD variable setting rejected: "FILLETRAD" "500"

 

should be real number not string

(defun c:test (/ r)
  (initget 7)
  (setq r (getreal (strcat "\nTest  <" (rtos (getvar 'filletrad) 2) "> ? :  ")	)
  )
  (setvar 'filletrad r)
  (princ)
)

 

[BIGAL]

Another just down load multi getvals.lsp from download area.

 

(defun c:test ( )
(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(setvar 'filletrad (atof  (nth 0 (AH:getvalsm (list "Enter radius " "Current radius " 12 11 (rtos (getvar 'filletrad)))))))
)

[hanhphuc]

On 5/6/2020 at 8:02 AM, BIGAL said:

Another just down load multi getvals.lsp from download area.

 

(defun c:test ( )
(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(setvar 'filletrad (atof  (nth 0 (AH:getvalsm (list "Enter radius " "Current radius " 12 11 (rtos (getvar 'filletrad)))))))
)

 

 

nice, i remember something similar, LISPED how it looks like?

(LISPED "Your string here")

in Briscad it does not exist 

[BIGAL]

All the multi xxx .lsp work in Briscad there are 4 in "Downloads" Grrr has some nice ones also as library dcl's. Have as many entries as required limited by screen size.