si.lsp

用cad进行二次开发

(defun si()

  (defun cl()
    (set_tile "real" "")
    (set_tile "remain" "")
    (set_tile "result" "")
    (mode_tile "real" 2)
   )

  (defun ca()
    (setq x (read (get_tile "real")))
    (setq n (read (get_tile "remain")))
    (setq d (rtos (/ (fix (+ (* x (expt 10 n) ) 0.5)) (expt 10.0 n))2 n))
    (set_tile "result" d)
   )
  
  (if (< (setq dcl_id (load_dialog "si")) 0)
    (progn (princ "error")
           (exit)     )
  )
  (if (not (new_dialog "si" dcl_id))
    (progn (princ "error")
          (exit)      )
  )

(action_tile "clear" "(cl)")
(action_tile "cal" "(ca)")
(start_dialog)
(unload_dialog)
  )