请高手指点：非模态对话框重复运行的问题

wdmzslw · 发表于 2017-4-9 18:35:51

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

×

我用OPENDCL写了一个非模态对话框，在CAD命令行执行命令运行后，有时不小心按空格键对话框又重复运行，将之前运行的对话框替换了，获得一些数据也丢失了，怎么解决这个问题？

newer · 发表于 2017-4-9 19:38:44

搜索这个论坛，找下判断非模式对话框是否已经激活的函数，你在你的代码里面加上判断，如果激活了就不继续运行下面代码了。

wdmzslw · 发表于 2017-4-9 20:21:38

本帖最后由 wdmzslw 于 2017-4-9 20:28 编辑

newer 发表于 2017-4-9 19:38

登录/注册后可看大图
(defun XD::DCL:GetCurActiveForm (/ _forms _formsl)
登录/注册后可看大图
(setq _forms (vl-remove-if-not 'dcl_form_isactive (apply
登录/注册后可看大图
'append
登录/注册后可看大图
(mapcar
登录/注册后可看大图
'dcl_project_getforms
登录/注册后可看大图
(dcl_getprojects)
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
(foreach n _forms
登录/注册后可看大图
(if (member "VarName" (dcl_Control_GetProperties n))
登录/注册后可看大图
(setq _formsl (cons (list (strcase (dcl_Control_GetProperty n "VarName")) n) _formsl))
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
(reverse _formsl)
登录/注册后可看大图
)

命令: (XD::DCL:GetCurActiveForm)
(("" <图元名: 3a5795c0>))

运行后出现这个结果，怎么回事，没有对话框名字

newer · 发表于 2017-4-9 20:37:25

wdmzslw 发表于 2017-4-9 20:21

你对话框设置了名字了吗？变量名

wdmzslw · 发表于 2017-4-9 20:48:47

本帖最后由 wdmzslw 于 2017-4-9 20:51 编辑

newer 发表于 2017-4-9 20:37

是指form1这个名字么？还是别的名字，在哪里设置？

newer · 发表于 2017-4-9 20:55:18

wdmzslw 发表于 2017-4-9 20:48

第一个，变量名

wdmzslw · 发表于 2017-4-9 21:16:26

本帖最后由 wdmzslw 于 2017-4-9 21:19 编辑

newer 发表于 2017-4-9 20:55

初学者不懂啊，流汗啊。
我写了一个变量名如下，但是执行时出错了。顺便问一句，每个控件都要有一个变量名字么？

newer · 发表于 2017-4-9 21:35:15

wdmzslw 发表于 2017-4-9 21:16

变量名是识别每个控件的，你有需求的时候就要定义他们了。

你加了变量名后，回调函数那就变了，你重新点下事件下面的回调函数，重新拷贝粘贴下回调代码。

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

[求助] 请高手指点：非模态对话框重复运行的问题