求指导，求驱动

L12196 · 发表于 2014-10-18 23:46:22

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

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

×

本帖最后由 yularna 于 2014-12-31 22:15 编辑

以下是我写的DCL文件，日期是直接读取电脑时间的，文本时可以下拉选择的，但是驱动我不知道怎么去下手！求各位大侠指导指导！

不胜感激！！！

[pcode=lisp,ture]
cl_demo : dialog
{
label = "编辑框示例";
      : popup_list       //定义编辑框
         {
         key = "text";
         label = "文本：";
list=" \n李白\n杜甫\n白居易\n"; }

:edit_box
{label="日期: ";

width=25;
fixed_width=true;
  }
ok_cancel;
}
[/pcode]

iLisp · 发表于 2014-10-19 08:23:11

准备干啥用，没猜出来

L12196 · 发表于 2014-10-19 09:20:27

本帖最后由 L12196 于 2014-10-19 09:21 编辑

就是用来签名用的，免得老去修改签名和时间！！:)

iLisp · 发表于 2014-10-19 12:28:56

时间用字段可以自动更新，名字不会经常变化吧

L12196 · 发表于 2014-10-24 20:46:08

有大虾指导指导不？？:'(

L12196 · 发表于 2014-10-26 21:22:41

没人知道不？顶起:)

zxq0220 · 发表于 2014-10-27 07:53:45

本帖最后由 zxq0220 于 2014-10-27 07:54 编辑

;cl_demo驱动
(defun c:de ()
(setq txtlst '("李白" "杜甫" "白居易"))
(if (> (setq dcl_id (load_dialog "cl_demo")) 0) (progn
(if (new_dialog "cl_demo" dcl_id) (progn
(set_tile "dat" (rtos (fix(getvar "CDATE")) 2))
(action_tile "cancel" "(done_dialog 0)")
(action_tile "accept" "(readata) (done_dialog 1)")
(setq re (start_dialog))
) (princ "\n无法显示对话框！"))
(unload_dialog dcl_id)
) (princ "\n无法加载对话框！"))
(if (= re 1) (progn
;要运行程序加在这
))
(princ)
)
(defun readata ()
(setq txt (nth (atoi(get_tile "text")) txtlst))
(setq dat (get_tile "dat"))
)

对话框

cl_demo:dialog{
label="编辑框示例";
:popup_list{ //定义编辑框
key="text";
label = "文本：";
list="\n李白\n杜甫\n白居易\n";
}
:edit_box{key="dat";label="日期: ";width=25;fixed_width=true;}
ok_cancel;
}

L12196 · 发表于 2014-10-28 22:36:56

本帖最后由 L12196 于 2014-10-28 22:38 编辑

请教zxq0220，我按照你上面写的程序测试了，在选择好后按确定没有任何的提示，文字与日期也显示不出来

求教！谢谢！
ps：日期能否用逗号或者空格隔开，按照你那样在编辑框显示出来时基本是挨在一起的，能否隔开？

zxq0220 · 发表于 2014-10-29 07:41:17

L12196 发表于 2014-10-28 22:36
请教zxq0220，我按照你上面写的程序测试了，在选择好后按确定没有任何的提示，文字与日期也显示不出来

...

程序中有中文注释，没看吗？
另：不知道你要的格式是什么样的；想要如何处理所得到的日期数据；处理后要如何在图上表示出来。

L12196 · 发表于 2014-11-14 21:04:13

本帖最后由 L12196 于 2014-12-28 16:26 编辑

11111111111111111111111

L12196 · 发表于 2014-11-14 21:06:14

本帖最后由 yularna 于 2014-12-31 22:17 编辑

zxq0220 发表于 2014-10-29 07:41
程序中有中文注释，没看吗？
另：不知道你要的格式是什么样的；想要如何处理所得到的日期数据；处理后要 ...

[pcode=lisp,true]
mypopup_list:dialog
  {label="签名助手";
  spacer;
  :boxed_column
  {label="图纸检查";
  width=25;
fixed_width=true;
:popup_list
{label="检查1:";
list="\n张三\n李四\n陈胜\n吴广\n";
value="0";
width=25;
fixed_width=true;
}
:popup_list
{label="检查2:";
list="\n张三\n李四\n陈胜\n吴广\n";
value="0";
width=25;
fixed_width=true;
}
:popup_list
{label="检查3:";
list="\n张三\n李四\n陈胜\n吴广\n";
value="0";
width=25;
fixed_width=true;
}
}
[/pcode]

zxq0220 · 发表于 2014-11-15 08:33:05

本帖最后由 yularna 于 2014-12-31 22:22 编辑

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:签名.lsp
下载次数:14 文件大小:1.08 KB
下载权限: 不限以上 [免费赚D豆]

[pcode=lisp,true]
mypopup_list:dialog{
label="签名助手";
spacer;
:boxed_column{
  label="图纸检查";
  :popup_list{
key="ch1";
label="检查1:";
list="\n张三\n李四\n陈胜\n吴广\n";
value="0";
width=25;
fixed_width=true;
  }
  :popup_list{
key="ch2";
label="检查2:";
list="\n张三\n李四\n陈胜\n吴广\n";
value="1";
width=25;
fixed_width=true;
  }
  :popup_list{
key="ch3";
label="检查3:";
list="\n张三\n李四\n陈胜\n吴广\n";
value="2";
width=25;
fixed_width=true;
  }
}
:edit_box{key="dat";label="审核日期:";width=25;fixed_width=true;}
ok_cancel;
}
[/pcode]

L12196 · 发表于 2014-11-15 22:08:52

本帖最后由 L12196 于 2014-12-16 22:13 编辑

zxq0220 发表于 2014-11-15 08:33

刚试了一下

zxq0220 · 发表于 2014-11-16 08:17:37

程序在2004下调试通过
这是对话框
签名.JPG

这是图中的签名

L12196 · 发表于 2014-11-20 21:05:23

本帖最后由 L12196 于 2014-12-16 22:14 编辑

是我搞混了，

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

[求助] 求指导，求驱动

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

点评

点评

点评

评分

点评

点评