lisp Multiplying a number to a inputbox value

[GLORY]

Hello,

 

I just want to ask regarding the program I want to make cause I am having a problem on how to multiply the two values ( a real number and value from an input box):

 

Part of my DCL;

 : edit_box  {     
      key = "sc";     
             label = "ENTER SCALE :";
    alignment = centered;    
      width = 10;     
      fixed_width = true;
    is_enabled = false;}

 

Part in my LISP;

 (set_tile "sc" "500")
 (mode_tile "sc" 2)

 (action_tile "en" "(progn (setq en $value)(mode_tile \"sc\" 0))")
 (action_tile "accept"
   "(setq scale (get_tile \"sc\")
      (done_dialog 1)
    )"
 )

 

(defun Styles()
 (setq size (* 0.00225 scale))

….)

 

but after running the program just exit.

 

Hope someone can have time to help with this. Thank you!

[Tharwat]

(setq size (* 0.00225 (distof scale)))

 

[GLORY]

@ Tharwat Thank you so much.

[Tharwat]

57 minutes ago, GLORY said:

@ Tharwat Thank you so much.

You're welcome.