[求助]：请问能在DCL文件中引用LISP文件中的变量吗

lzy9788 · 发表于 2004-5-25 17:25:53

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

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

×

小弟有个愚问：（以前没编过DCL）
请问能在DCL文件中引用LISP文件中的变量吗
有什么办法让提取的文字值变为对话框的默认值？

841594 · 发表于 2004-5-25 18:00:06

最初由 lzy9788 发布
[B]小弟有个愚问：（以前没编过DCL）
请问能在DCL文件中引用LISP文件中的变量吗
有什么办法让提取的文字值变为对话框的默认值？ [/B]

当然可以拉。
用这个函数：
(set_tile "tile" XXX)
注意一般XXX需要是字符串类型。

lzy9788 · 发表于 2004-5-25 19:57:28

怎么让它在编辑框显示
这样赋值后好像不能改
我想要有像ddedit编辑文字的效果
选文字后在对话框中默认的是文字值，
在编辑框中输入新值。

841594 · 发表于 2004-5-26 00:09:27

最初由 lzy9788 发布
[B]怎么让它在编辑框显示
这样赋值后好像不能改
我想要有像ddedit编辑文字的效果
选文字后在对话框中默认的是文字值，
在编辑框中输入新值。 [/B]

取得修改后的值可用：
(get_tile "tile")
这是最基本的dcl应用了。

lsjjm · 发表于 2004-5-26 08:53:17

最初由 lzy9788 发布
[B]怎么让它在编辑框显示这样赋值后好像不能改...[/B]

请参考"
...
  (if (findfile "dial.dcl")(setq index (load_dialog (findfile "dial.dcl"))))
  (if (not (new_dialog "dendd" index))(exit))
  (set_tile "etype" (strcat estyle "-" size))
  (set_tile "ecn" (last data))
  (set_tile "hex" (itoa hh))
  (set_tile "ac" (itoa (last (nth 4 data))))
  (set_tile "d1" (rtos (car (cadr data))))
  (action_tile "accept" "(setq hex (get_tile \"hex\")
                              dt (get_tile \"dt\")
                              dc (get_tile \"dc\")
                              ac (angtof (get_tile \"ac\"))
                              d1 (get_tile \"d1\")
                              dd (get_tile \"dd\")
                           idc (get_tile \"idc\")
                              lp 1)
(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 1)(setq lp 1)(exit)")
  (action_tile "idc" "(if (= $value \"1\")(collard))")
  (start_dialog)
  (unload_dialog index)
...

lzy9788 · 发表于 2004-5-26 08:57:04

谢长老,呵呵，本人刚学着用DCL。

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

[求助] [求助]：请问能在DCL文件中引用LISP文件中的变量吗

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

相关帖子

Re: [求助]：请问能在DCL文件中引用LISP文件中的变量吗