请帮忙看一看,关于DCL.

wengsg

这是我的原程序,我想用对话框的形式来输入数据,请问高手应如何在lisp里实现这个对话框,请指教. (defun c:pw ()
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setvar "TEXTEVAL" 1)
(SETQ base (getpoint "指定文字左上角位置\n"))
(SETQ txt0 (getstring "\n输入矿体厚度:"))
(SETQ txt1 (getstring "\n请输入矿体品位:"))
(command "text" "j" "tr" base "2.5" "0" txt0)
(setq en0 (entlast))
(setq en (entget en0))
(setq p00 (list (cadr (assoc 10 en)) (caddr (assoc 10 en))))
(setq L (abs (- (cadr (assoc 11 en)) (cadr (assoc 10 en)))))
(command "move" en0 "" p00 base)
(setq base (mapcar '- base '(0.0 1.0)))
(setq base1 (polar base 0 L))
(command "line" base base1 "")
(setq base (mapcar '+ base '(0.0 -2.15)))
(command "TEXT" "j" "ml" base "2.5" "0" txt1)
(setvar "cmdecho" 1)
(setvar "osmode" 37)
(princ)
)

ZZXXQQ

程序：

2. (defun c:pw ()
3.    (setvar "osmode" 0)
4.    (setvar "cmdecho" 0)
5.    (setvar "TEXTEVAL" 1)
6.    (SETQ base (getpoint "指定文字左上角位置\n"))
7.    (IF (> (SETQ DCL_ID (LOAD_DIALOG "bhsr")) 0)
8.      (IF (NEW_DIALOG "bhsr" DCL_ID "") (PROGN
9.        (action_tile "accept"   "(GETVALOFDIA) (DONE_DIALOG 1)")
10.        (action_tile "cancel" "(DONE_DIALOG 0)")
11.        (SETQ RE (START_DIALOG))
12.      ) (PROGN
13.        (ALERT "Unable to display dialog box!\n无法显示对话框！")
14.        (UNLOAD_DIALOG DCL_ID)
15.      ))
16.      (ALERT "Unable to load dialog box!\n无法装载对话框！")
17.    )
18.    (IF (= RE 1) (PROGN
19.      (command "text" "j" "tr" base "2.5" "0" txt0)
20.      (setq en0 (entlast))
21.      (setq en (entget en0))
22.      (setq p00 (list (cadr (assoc 10 en)) (caddr (assoc 10 en))))
23.      (setq L (abs (- (cadr (assoc 11 en)) (cadr (assoc 10 en)))))
24.      (command "move" en0 "" p00 base)
25.      (setq base (mapcar '- base '(0.0 1.0)))
26.      (setq base1 (polar base 0 L))
27.      (command "line" base base1 "")
28.      (setq base (mapcar '+ base '(0.0 -2.15)))
29.      (command "TEXT" "j" "ml" base "2.5" "0" txt1)
30.    ))
31.    (setvar "cmdecho" 1)
32.    (setvar "osmode" 37)
33.    (princ)
34. )
35. (DEFUN GETVALOFDIA ()
36.   (SETQ txt0 (READ (GET_TILE "kthd"))
37.              txt1 (READ (GET_TILE "ktpw")))
38. )

(defun c:pw ()    (setvar "osmode" 0)    (setvar "cmdecho" 0)    (setvar "TEXTEVAL" 1)    (SETQ base (getpoint "指定文字左上角位置\n"))    (IF (> (SETQ DCL_ID (LOAD_DIALOG "bhsr")) 0)      (IF (NEW_DIALOG "bhsr" DCL_ID "") (PROGN        (action_tile "accept"   "(GETVALOFDIA) (DONE_DIALOG 1)")        (action_tile "cancel" "(DONE_DIALOG 0)")        (SETQ RE (START_DIALOG))      ) (PROGN        (ALERT "Unable to display dialog box!\n无法显示对话框！")        (UNLOAD_DIALOG DCL_ID)      ))      (ALERT "Unable to load dialog box!\n无法装载对话框！")    )    (IF (= RE 1) (PROGN      (command "text" "j" "tr" base "2.5" "0" txt0)      (setq en0 (entlast))      (setq en (entget en0))      (setq p00 (list (cadr (assoc 10 en)) (caddr (assoc 10 en))))      (setq L (abs (- (cadr (assoc 11 en)) (cadr (assoc 10 en)))))      (command "move" en0 "" p00 base)      (setq base (mapcar '- base '(0.0 1.0)))      (setq base1 (polar base 0 L))      (command "line" base base1 "")      (setq base (mapcar '+ base '(0.0 -2.15)))      (command "TEXT" "j" "ml" base "2.5" "0" txt1)    ))    (setvar "cmdecho" 1)    (setvar "osmode" 37)    (princ) ) (DEFUN GETVALOFDIA ()   (SETQ txt0 (READ (GET_TILE "kthd"))              txt1 (READ (GET_TILE "ktpw"))) )

对话框：

2. dcl_settings : default_dcl_settings { audit_level = 3; }
3. bhsr : dialog {
4.    key = "cs" ;
5.    label = "钻孔编号输入" ;
6.    : column {
7.        : edit_box { key="kthd"; label="请输入矿体厚度"; value="";}
8.        : edit_box { key="ktpw"; label="请输入矿体品位"; value="";}
9.    }
10.    ok_cancel ;
11. }

dcl_settings : default_dcl_settings { audit_level = 3; } bhsr : dialog {    key = "cs" ;    label = "钻孔编号输入" ;    : column {        : edit_box { key="kthd"; label="请输入矿体厚度"; value="";}        : edit_box { key="ktpw"; label="请输入矿体品位"; value="";}    }    ok_cancel ; }

wengsg

我试过了，结果小数点太多，我想要的是小数点保留二位如图2。


而且如图3的数字无法输入，请高手帮忙改进。

xyp1964

试试

wengsg

我在2005里没用，原程序可以分享吗?