[求助]：各位高手,在lisp下如何能取得edit_box的值?

loner · 发表于 2002-9-24 11:22:59

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

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

×

如何取得key="j"的edit_box的输入的值?

XDSoft · 发表于 2002-9-24 18:54:40

"(action_tile "key" (setq val $value)")

$value 代表控件的内容。

loner · 发表于 2002-9-24 19:26:59

t1:dialog{
label="welcome......";
  :text{
label="请输入观测距离<m>";
}
  :edit_box{
   label="距  离";
   key="d";
   }
   ok_only;
   }

;;;;;;
(defun c:dcl(/ c)
  (setq pt (getpoint "\nwhere:"))
  (new_dialog "t1" (load_dialog "te1"))
  (start_dialog)
(action_tile "j" "(setq c $value)")
  (command "text" "c" pt 5 0.0 c )
)

ll_j · 发表于 2002-9-24 19:56:27

最初由 loner 发布
t1:dialog{
label="welcome......";
  :text{
label="请输入观测距离<m>";
}
  :edit_box{
   label="距  离";
   key="d";
   }
   ok_only;
   }

;;;;;;
(defun c:dcl(...

将(star_dialog)一句移到(action_...)后面。

aeo · 发表于 2002-9-26 17:48:11

(defun c:dcl(/ c)
(setq pt (getpoint "\nwhere:"))
(new_dialog "t1" (load_dialog "te1"))
(action_tile "d" "(setq c $value)")
(start_dialog) (done_dialog .....) ;好象还要结束吧
(command "text" "c" pt 5 0.0 c )
)

XDSoft · 发表于 2002-9-26 18:35:12

最初由 aeo 发布
[B](defun c:dcl(/ c)
(setq pt (getpoint "\nwhere:"))
(new_dialog "t1" (load_dialog "te1"))
(action_tile "d" "(setq c $value)")
(start_dialog) (done_dialog .....) ;好象... [/B]

一个考虑周全的对话框控制结构应该下面这样：

[FONT=courier new]
(if (or
(and
dcl_Id
(> dcl_Id 0)
)
(> (setq dcl_Id (load_dialog "te1"))
0
)
)
(progn
(if (new_dialog "dclName" dcl_Id)
(progn
(action_tile ....)
(setq what_next (start_dialog))
(cond
((= what_next 0)
...
)
((= what_next 1)
...
)
)
)
)
)
)
...................
...................
[/FONT]

如果不考虑是否加载过，每次都重新加载DCL到内存，也可以下面：

[FONT=courier new]
(if (> (setq dcl_Id (load_dialog "te1"))
0
)
(progn
(if (new_dialog "dclName" dcl_Id)
(progn
(action_tile ....)
(setq what_next (start_dialog))
(cond
((= what_next 0)
...
)
((= what_next 1)
...
)
)
)
)
)
)
.................
.................
[/FONT]

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

[求助] [求助]：各位高手,在lisp下如何能取得edit_box的值?

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

相关帖子

浏览过的版块