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

eobser · 发表于 2006-1-4 19:18:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我看了下书，找了个程序套了一下，不成
请高手帮我看一下，错了或者不好的多多指点
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在两个函数中这样是否有效？
烦请高手指点
谢谢！

似水无痕 · 发表于 2006-1-4 20:03:37

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

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

应改为：

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

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

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

dcl文件：

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

eobser · 发表于 2006-1-4 20:32:17

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

似水无痕 · 发表于 2006-1-5 13:11:33

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

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

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子