Jump to content
GLORY

Multiplying a number to a inputbox value

Recommended Posts

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!

Share this post


Link to post
Share on other sites
Tharwat
(setq size (* 0.00225 (distof scale)))

 

Share this post


Link to post
Share on other sites
GLORY

@ Tharwat Thank you so much.

Share this post


Link to post
Share on other sites
Tharwat
57 minutes ago, GLORY said:

@ Tharwat Thank you so much.

You're welcome.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×