写简单的DCL

zenghong

;;;小弟刚学，问题多多，烦请高教教，

;;;以下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)))
)

ZZXXQQ

3. dcl_settings : default_dcl_settings { audit_level = 3; }
4. err : dialog {
5. label = "参数输入";
6. : edit_box { label="数A:"; key="mda";}
7. : edit_box { label="数B:"; key="mdb";}
8. : edit_box { label="数C:"; key="mdc";}
9. ok_cancel;
10. }

dcl_settings : default_dcl_settings { audit_level = 3; } err : dialog { label = "参数输入"; : edit_box { label="数A:"; key="mda";} : edit_box { label="数B:"; key="mdb";} : edit_box { label="数C:"; key="mdc";} ok_cancel; }

[/CODE]
(defun c:err ()
(IF (> (SETQ DCL_ID (LOAD_DIALOG "err")) 0) (PROGN
  (IF (NEW_DIALOG "err" DCL_ID) (PROGN
   (action_tile "accept" "(RDATA) (DONE_DIALOG 1)")
   (action_tile "cancel" "(DONE_DIALOG 0)")
   (SETQ RE (START_DIALOG))
  )
   (ALERT "Unable to display dialog box!")
  )
  (UNLOAD_DIALOG DCL_ID)
)
  (ALERT "Unable to load dialog box!")
)
(IF (= RE 1) (PROGN
  (SETQ D (+ (* AA BB) CC))
  (PRINC (STRCAT "=" (RTOS DD 2 5)))
))
(PRINC)
)
(DEFUN RDATA ()
(SETQ AA (GET_TILE "mda")
       BB (GET_TILE "mdb")
       CC (GET_TILE "mdc"))
)
[/CODE]

jyzas

不错，简单易学