[LISP程序]：谁能把这个以DCL

zenghonglove

;;;以下LISP中的数，我想以对话框的形式输入：数A ，B， C，

;;;高手能做一个给小弟试试，(觉得简单的话就帮小弟一下)

(defun c:err ()
(setq AA (getreal"\n数A"))
(setq BB (getreal"\n数B"))
(setq CC (getreal"\n数C"))
(setq DD (+(* AA BB) CC ))
(print (strcat "="(rtos DD 2 5)))
)

zhynt

[php]
(defun C:err ()
  ;;;定义计算函数
  (defun jisuan        ()
    (setq aa1 (atof aaa)
          bb1 (atof bbb)
          cc1 (atof ccc)
    )
    (setq dd1 (rtos (+ (* AA1 BB1) CC1) 2 5))
    (set_tile "dd" dd1)
  )
  ;;;加载对话框
  (setq dia_id (load_dialog "aa"))
  (if (not (new_dialog "AA" dia_id))
    (exit)
  )
  ;;;定义动作
  (action_tile "aa" "(SETQ aaa $VALUE))")
  (action_tile "bb" "(SETQ bbb $VALUE)")
  (action_tile "cc" "(SETQ ccc $VALUE))")
  (action_tile "denyu" "(jisuan)")
  (action_tile "accept" "(done_dialog 1)")
  (start_dialog);显示对话框
  
  (atof dd1);;用来返回计算结果，可用于长度的输入
)
[/php]
或者：
[php]
(defun C:err ()
  ;;;定义计算函数
  (defun jisuan        ()
    (setq aa1 (atof (get_tile "aa"))
          bb1 (atof (get_tile "bb"))
          cc1 (atof (get_tile "cc"))
          )             
    (setq dd1 (rtos (+ (* AA1 BB1) CC1) 2 5))
    (set_tile "dd" dd1)
  )
  ;;;加载对话框
  (setq dia_id (load_dialog "aa"))
  (if (not (new_dialog "AA" dia_id))
    (exit)
  )
  ;;;定义动作  
  (action_tile "denyu" "(jisuan)")
  (action_tile "accept" "(done_dialog 1)")
  (start_dialog);显示对话框
  
  (atof dd1);;用来返回计算结果，可用于长度的输入
)
[/php]
对话框，请保存为AA.dcl
[php]
AA: dialog {
label = "计算";
    :column {
: edit_box {
   key = "aa";
   label = "数AA";
   }
: edit_box {
   key = "bb";
   label = "数BB";
   }
: edit_box {
   key = "cc";
   label = "数CC";
   }
   : edit_box {
   key = "dd";
   label = "等于";
   }}
   : button {
         key = "denyu" ;
         label = "等于" ;
      }
         ok_only;
}
[/php]

命令：err

实际应用如：

命令: l LINE 指定第一点:
指定下一点或 [放弃(U)]: (c:err)
464.0

指定下一点或 [放弃(U)]:

zenghonglove

谢谢了，
　　　　　　　　　　　-----愚弟