【已解决】一个关于ACTION_TILE 函数的问题

wgl7212191 · 发表于 2018-10-17 21:27:37

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

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

×

本帖最后由 wgl7212191 于 2018-11-8 12:44 编辑

(DEFUN C:IMG( )
(SETQ DCL_ID (LOAD_DIALOG "D:\\Program Files\\CADtools/IMG.DCL") TMP 1)
(NEW_DIALOG "IMG" DCL_ID)
(ACTION_TILE "IMG1" "(setq tmp 1)")
(ACTION_TILE "IMG2" "(setq tmp 0)")
(START_DIALOG)(UNLOAD_DIALOG DCL_ID)
(IF (= TMP 1)(COMMAND "COLOR" "YELLOW")
(COMMAND "COLOR" "GREEN"))
(PRINC)
)

注意(ACTION_TILE "IMG1" "(setq tmp 1)")这两句。下面根据此两句设置的TMP变量设置颜色。如果改成下面为什么就执行死程序呢？

(DEFUN C:IMG( )
(SETQ DCL_ID (LOAD_DIALOG "D:\\Program Files\\CADtools/IMG.DCL") TMP 1)
(NEW_DIALOG "IMG" DCL_ID)
(ACTION_TILE "IMG1" "(COMMAND \"COLOR\" \"YELLOW\")")
(ACTION_TILE "IMG2" "(COMMAND \"COLOR\" \"GREEN\")")
(START_DIALOG)(UNLOAD_DIALOG DCL_ID)
(PRINC)
)

原地踏步 · 发表于 2018-10-17 21:34:08

在 action_tile 函数中不能调用 AutoLISP 的 Command 函数。

Lisphk · 发表于 2018-10-17 21:36:48

不要把COMMAND放到对话框里面，要关闭对话框，才能执行COMMAND

wgl7212191 · 发表于 2018-10-17 21:43:36

谢谢两位，教程上没这么说啊？

Lisphk · 发表于 2018-10-17 21:50:48

wgl7212191 发表于 2018-10-17 21:43
谢谢两位，教程上没这么说啊？

你看的教程没说，其他的说了呗

evayleung · 发表于 2018-10-17 21:59:22

wgl7212191 发表于 2018-10-17 21:43
谢谢两位，教程上没这么说啊？

难道教程说了可以执行COMMAND？

原地踏步 · 发表于 2018-10-18 08:55:49

为某一对话框控件指定一个动作表达式，用户在对话框中选中这个控件时，就会执行该动作表达式
(action_tile key action-expression)
由 action_tile 函数指定的动作将取代对话框的缺省动作，缺省动作是由 new_dialog 函数指定或该控件的 action 属性（在指定了这些属性的情况下）。该动作表达式可以通过变量 $value 引用控件的当前值（即它的 value 属性），通过变量 $key 引用控件的关键字，通过变量 $data 引用控件的特定应用数据（假如需要这样的数据，可以由函数 client_data_tile 设置），通过变量 $reason 引用控件的回调原因。如果该控件是图像按钮的话，还可以通过变量 $x 和 $y 引用控件的图像坐标。

参数

key

要触发动作的控件的操作名字符串（由控件的 key 属性指定），它是区分大小写的。

action-expression

指定选定控件时所要求值的动作表达式的字符串。

注意在 action_tile 函数中不能调用 AutoLISP 的 Command 函数。

返回值

T

wgl7212191 · 发表于 2018-10-24 22:49:44

原地踏步发表于 2018-10-18 08:55
为某一对话框控件指定一个动作表达式，用户在对话框中选中这个控件时，就会执行该动作表达式
(action_tile ...

谢谢讲解

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

[已解决] 【已解决】一个关于ACTION_TILE 函数的问题

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

点评