[求助]：edit_box的合法性和当前怎么设置？

贱人 · 发表于 2005-8-9 21:32:10

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

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

×

比如这个程序：

怎么一打开对话框，光标就在edit_box里，直接可以修改了？

控制edit_box只能输入1-255的正整数，该如何修改？

ys:dialog{label="颜色";
:edit_box{label="颜色代码:";key="yy";edit_width=8;}
spacer_1;
ok_cancel;
}

；；；；

(defun c:ys()
(setvar "cmdecho" 0)
(setq dcl_id (load_dialog "ys.dcl"))
(new_dialog "ys" dcl_id)
(if (= yc nil)
(setq yc 1)
)
(set_tile "yy" (itoa yc))
(action_tile "accept" "(xxx)(done_dialog 1)")
(setq dd (start_dialog))
(if (= dd 1)
(command "color" yc )
)
(setvar "cmdecho" 1)
(princ)
)
;;;;;
(defun xxx()
(setq yc (atoi(get_tile "yy")))
)

qjcpj · 发表于 2005-8-9 23:07:45

一打开对话框，光标就在edit_box，只需在(new_dialog "ys" dcl_id)后添加：
(if yy
(set_tile "yy" yy)
)
(mode_tile "yy" 2)

贱人 · 发表于 2005-8-9 23:37:15

添加了(mode_tile "yy" 2)果然可以，但在edit_box输入了数字为什么不能用回车确定？

qjcpj · 发表于 2005-8-10 00:24:06

在edit_box输入了数字须添加判断模块，不需要输入回车，只要鼠标离开编辑框，如果非数字则给出提示，并且将光标锁定在编辑框要求重输入。

贱人 · 发表于 2005-8-10 00:31:14

最初由 qjcpj 发布
[B]在edit_box输入了数字须添加判断模块。 [/B]

哦，谢谢，
要判断输入的数不可以超过3位（超过3位喇叭会“咚咚……”的叫），不可以大于255或小于1，必须是正整数
有没有这样的例子可以帖上来？
那在edit_box里写完，直接用回车确定(像编辑单行文本那样)，怎么改？点确定按钮有点麻烦

zhynt · 发表于 2005-8-10 01:22:56

ys:dialog{label="颜色";
:edit_box{label="颜色代码:";key="yy";edit_width=8;allow_accept = true;}
spacer_1;
ok_cancel;
}
在控件中增加allow_accept = true;

贱人 · 发表于 2005-8-10 07:32:53

谢谢斑竹，问题解决了

哪位有判断合法性的代码让我参考一下

qjcpj · 发表于 2005-8-10 12:22:27

这两天比较忙，改天写一个贴上来。

精装马甲 · 发表于 2005-8-11 11:51:01

编辑框“lwcolor”的回调函数写成
(action_tile "lwcolor" "(ClEditAct $reason)")
调用检验程序如下：

[FONT=courier new]
;;;颜色设定编辑框对应程序,检查输入数值是否合法。
(defun ClEditAct (ClWhy / ClVal)
(if (or (= ClWhy 2) (= ClWhy 4))
(progn (setq ClVal (get_tile "lwcolor"))
(if (or (< (atoi ClVal) 1)
(> (atoi ClVal) 255)
(wcmatch ClVal "*.*")
)
(alert "只能输入1-255之间的整数")
)
)
)
[/FONT]

还可以在后面再加入比如自动调用标准CAD选色卡acad_colordlg等，就看楼主自己的想法了。

eachy · 发表于 2005-8-11 12:56:52

xdtoolbox -> dcl_lib.lsp

($xdrx_load "xdlsp.lsp")
(defun $XDDCL_AddList (key val item)
(start_list key)
(foreach n val
(add_list n)
)
(end_list)
(set_tile key (itoa item))
)
(defun $XDDCL_SlideImage (key sldname color / x y)
(setq x (dimx_tile key)
y (dimy_tile key)
)
(start_image key)
(fill_image 0 0 x y color)
(slide_image 0 0 x y sldname)
(end_image)
)
(defun $XDDCL_ImageFillColor (key color)
(setq x (dimx_tile key)
y (dimy_tile key)
)
(start_image key)
(fill_image 0 0 x y color)
(slide_image 0 0 x y key)
(end_image)
(mode_tile key 1)
)
(defun $XDDCL_ImageCrlDisable (key)
(mapcar
'(lambda (x)
($XDDCL_ImageFillColor x 253)
)
key
)
)
(defun $XDDCL_CtrlEnable (clist)
(mapcar
'(lambda (x)
(mode_tile x 0)
)
clist
)
)
(defun $XDDCL_CtrlDisable (clist)
(mapcar
'(lambda (x)
(mode_tile x 1)
)
clist
)
)

($xdrx_load "xdlsp.lsp") 
(defun $XDDCL_AddList (key val item) 
  (start_list key) 
  (foreach n val 
    (add_list n) 
  ) 
  (end_list) 
  (set_tile key (itoa item)) 
) 
(defun $XDDCL_SlideImage (key sldname color / x y) 
  (setq x (dimx_tile key) 
        y (dimy_tile key) 
  ) 
  (start_image key) 
  (fill_image 0 0 x y color) 
  (slide_image 0 0 x y sldname) 
  (end_image) 
) 
(defun $XDDCL_ImageFillColor (key color) 
  (setq x (dimx_tile key) 
        y (dimy_tile key) 
  ) 
  (start_image key) 
  (fill_image 0 0 x y color) 
  (slide_image 0 0 x y key) 
  (end_image) 
  (mode_tile key 1) 
) 
(defun $XDDCL_ImageCrlDisable (key) 
  (mapcar 
    '(lambda (x) 
       ($XDDCL_ImageFillColor x 253) 
     ) 
    key 
  ) 
) 
(defun $XDDCL_CtrlEnable (clist) 
  (mapcar 
    '(lambda (x) 
       (mode_tile x 0) 
     ) 
    clist 
  ) 
) 
(defun $XDDCL_CtrlDisable (clist) 
  (mapcar 
    '(lambda (x) 
       (mode_tile x 1) 
     ) 
    clist 
  ) 
)

(defun $DCL_Rs_Error ()
(set_tile "error" "")
)
(defun $DCL_do_set_error (val)
($DCL_Rs_Error)
(set_tile "error" val)
)
;;检查输入格式
(defun $DCL_CheckIn (input format kk /)
(if (and (distof input 2) (> (atof input) 0));_自定义检查格式
(progn ($DCL_Rs_Error) input)
(progn
($DCL_do_set_error (strcat "无效的" format "输入"))
(mode_tile kk 2)
nil
)
)
)

精装马甲 · 发表于 2005-8-11 13:50:35

斑竹的distof用在这确实比我的atoi好，因为用atoi的化如果输入的是字符串返回的就是0，而在CAD中0应该是“随块”。
可问题是如果用户输入“1.0”，这在CAD里是不能作为颜色代码的，而斑竹的程序并没有过滤掉啊。小弟不才，只想到了用(wcmatch ClVal "*.*")这种笨方法，不知高手门有什么好方法，更简单的进行“只能为0-256之间的整数”的过滤。

eachy · 发表于 2005-8-11 19:41:29

最初由精装马甲发布
[B]斑竹的distof用在这确实比我的atoi好，因为用atoi的化如果输入的是字符串返回的就是0，而在CAD中0应该是“随块”。
可问题是如果用户输入“1.0”，这在CAD里是不能作为颜色代码的，而斑竹的程序并没有过滤掉啊。小?... [/B]

上面的只是一个例子，应该针对自己的 edit_box 来单独写测试函数。比如还可以使用 fix type 等函数测试

zhynt · 发表于 2005-8-13 01:26:49

其实关于颜色的设置可以直接调用CAD的标准颜色对话框：
如：
(defun lcolor ()  　
(setq hidecol (acad_colordlg obscco))
(if (= hidecol nil)
   (setq hidecol obscco)
   )
  )
以上是从我的一个程序中节录的一段

注：调用前obscco变量必须有值（默认颜色）
可用(getvar "cecolor")获得

jsnghost · 发表于 2014-5-28 17:32:34

真的太给力了，从中学习了不少知识~~~

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

[求助] [求助]：edit_box的合法性和当前怎么设置？

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

相关帖子