[求助]：请教怎么给文字编辑对话框加个高度项

eobser

我看了下书，找了个程序套了一下，不成
请高手帮我看一下，错了或者不好的多多指点
bjwz.dcl如下：
bjwz:dialog {label="编辑文字";
             :row{
                  :edit_box{label="内容：";key="wz_c";edit_width=40;}
                  :edit_box{label="字高：";key="wz_h";edit_width=8;}
                  }
             spacer_1;
             ok_cancel;
             }
bjwz.lsp如下：
(defun c:dhwz()
       (setvar "cmdecho" 0)
       (dcl_bjwz)
       (prin1)
)

(defun dcl_bjwz()
       (setq entlist (entget (car (entsel "\nPlease select a Text:"))))      
       (setq dcl_id (load_dialog "bjwz"))
       (new_dialog "bjwz" dcl_id)
       (set_tile "edit_c" (cdr (assoc 1 entlist)))
       (set_tile "edit_h" (rtos (cdr (assoc 40 entlist))))
       (action_tile "accept" "(ok_bjwz)(done_dialog 1)")
       (start_dialog)
)

(defun ok_bjwz()
       (setq dt_c (list (cons 1 (get_tile "edit_c"))))
       (setq dt_h (list (cons 40 (atof (get_tile "edit_h")))))
       (setq entlist (subst dt_c (assoc 1 entlist) entlist))
       (setq entlist (subst dt_h (assoc 40 entlist) entlist))
       (entmod entlist)
)
还请教对话框中edit_box的高度怎么指定？
还有变量entlist在两个函数中 这样是否有效？
烦请高手指点
谢谢！

似水无痕

edit_box高度用height=**来表示，另外程序中有几处错误，均以更改过来！
1、set_tile 后所跟的key都不对，你对照以下dcl文件和lsp文件就可以看出来；
2、

2. (setq dt_c (list (cons 1 (get_tile "edit_c"))))
   
3. (setq dt_h (list (cons 40 (atof (get_tile "edit_h")))))

(setq dt_c (list (cons 1 (get_tile "edit_c"))))<br /> (setq dt_h (list (cons 40 (atof (get_tile "edit_h")))))

应改为：

2. (setq dt_c (cons 1 (get_tile "wz_c")))
   
3.   (setq dt_h (cons 40 (atof (get_tile "wz_h"))))

(setq dt_c (cons 1 (get_tile "wz_c")))<br />   (setq dt_h (cons 40 (atof (get_tile "wz_h"))))

3、书写格式，一般在加载对话框文件时都要先加上一个判断语句！当然，这个可能不算大问题，没有它也可以正常运行，但这是一个良好的书写习惯！
我把更改后的文件传上来：
lisp文件：

2. (defun dcl_bjwz        ()
   
3.   (setq entlist (entget (car (entsel "\nPlease select a Text:"))))
   
4.   (if (> 0 (setq dcl_id (load_dialog "bjwz")))
   
5.     (progn
   
6.       (princ "\n 未能加载对话框")
   
7.     )
   
8.   )
   
9.   (if (= null (new_dialog "bjwz" dcl_id))
   
10.     (progn
    
11.       (princ "\n未能显示输入对话框")
    
12.       (exit)
    
13.     )
    
14.     (progn
    
15.       (set_tile "wz_c" (cdr (assoc 1 entlist)))
    
16.       (set_tile "wz_h" (rtos (cdr (assoc 40 entlist))))
    
17.       (action_tile "accept" "(ok_bjwz)(done_dialog 1)")
    
18.       (start_dialog)
    
19.       (unload_dialog dcl_id)
    
20.     )
    
21.   )
    
22. )
    
23. 
    
24. (defun ok_bjwz ()
    
25.   (setq dt_c (cons 1 (get_tile "wz_c")))
    
26.   (setq dt_h (cons 40 (atof (get_tile "wz_h"))))
    
27.   (setq entlist (subst dt_c (assoc 1 entlist) entlist))
    
28.   (setq entlist (subst dt_h (assoc 40 entlist) entlist))
    
29.   (entmod entlist)
    
30. )

(defun dcl_bjwz        ()<br />   (setq entlist (entget (car (entsel "\nPlease select a Text:"))))<br />   (if (> 0 (setq dcl_id (load_dialog "bjwz")))<br />     (progn<br />       (princ "\n 未能加载对话框")<br />     )<br />   )<br />   (if (= null (new_dialog "bjwz" dcl_id))<br />     (progn<br />       (princ "\n未能显示输入对话框")<br />       (exit)<br />     )<br />     (progn<br />       (set_tile "wz_c" (cdr (assoc 1 entlist)))<br />       (set_tile "wz_h" (rtos (cdr (assoc 40 entlist))))<br />       (action_tile "accept" "(ok_bjwz)(done_dialog 1)")<br />       (start_dialog)<br />       (unload_dialog dcl_id)<br />     )<br />   )<br /> )<br /> <br /> (defun ok_bjwz ()<br />   (setq dt_c (cons 1 (get_tile "wz_c")))<br />   (setq dt_h (cons 40 (atof (get_tile "wz_h"))))<br />   (setq entlist (subst dt_c (assoc 1 entlist) entlist))<br />   (setq entlist (subst dt_h (assoc 40 entlist) entlist))<br />   (entmod entlist)<br /> )

dcl文件：

2. bjwz:dialog {label="编辑文字";
   
3.         :row{
   
4.                 :edit_box{
   
5.                 label="内容：";
   
6.                 key="wz_c";
   
7.                 edit_width=40;
   
8.                 height=1.5;
   
9.                 }
   
10.                 :edit_box{
    
11.                 label="字高：";
    
12.                 key="wz_h";
    
13.                 edit_width=8;
    
14.                 height=1.5;
    
15.                 }
    
16.         }
    
17. spacer_1;
    
18. ok_cancel;
    
19. }

bjwz:dialog {label="编辑文字";<br />         :row{<br />                 :edit_box{<br />                 label="内容：";<br />                 key="wz_c";<br />                 edit_width=40;<br />                 height=1.5;<br />                 }<br />                 :edit_box{<br />                 label="字高：";<br />                 key="wz_h";<br />                 edit_width=8;<br />                 height=1.5;<br />                 }<br />         }<br /> spacer_1;<br /> ok_cancel;<br /> }

eobser

十分感谢 无痕兄 这么详尽的解答
打包好好学习下
介意给个QQ么？

似水无痕

最初由 eobser 发布
[B]十分感谢 无痕兄 这么详尽的解答
打包好好学习下
介意给个QQ么？ [/B]

不要客气！
昨天晚上已经给你发送悄悄话了，不知收到没有！也不知道你的QQ是多少，所以没有能够加你！我经常隐身，主要是怕一些无聊的骚扰而已！加我时可以先表明身份！其实在论坛里就有我的号！