如何让当前文档设置的按钮动作运用到所有当前打开文档

ludaweb · 发表于 2014-12-11 20:34:33

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

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

×

想制作一个自己的工具箱，可是只会简单的代码，在这里请教大家。

程序是在论坛里下载自己修改的，左边的是分类按钮，右边的是命令按钮，点击分类按钮之后，命令按钮会重新定义。
QQ截图20141211203258.jpg

在多文档的工作环境下，如何实现在当前文档点击分类按钮后，命令按钮的定义在多文档下都起作用。

ludaweb · 发表于 2014-12-11 20:36:48

请点击此处下载

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

您的用户组是：游客

文件名称:Ltools.odcl
下载次数:11 文件大小:1.6 KB
下载权限: 不限以上 [免费赚D豆]

请点击此处下载

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

您的用户组是：游客

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

这里是源程序。

newer · 发表于 2014-12-11 20:45:34

你试试加载LSP时候，用 VL-LOAD-ALL加载到所有文档看看。

st788796 · 发表于 2014-12-11 21:06:19

仅加载 Lisp 是不行的,还需要将 ODCL 加载到所有文档，同时ODCL 的事件定义也需要加载到所有文档，可以看看 eachy 写的那个菜单，里面有部分代码可以参考

ludaweb · 发表于 2014-12-11 21:59:12

加载到所有文档还是不行:(

newer · 发表于 2014-12-11 22:15:26

ludaweb 发表于 2014-12-11 21:59
加载到所有文档还是不行

你把ODCL也加载到所有文档了吗？

st788796 · 发表于 2014-12-12 06:36:26

本帖最后由 st788796 于 2014-12-12 06:40 编辑

ludaweb 发表于 2014-12-11 21:59
加载到所有文档还是不行

分析了下 xdtb_menutool.lsp 可以看到有几句

(vl-load-all "xdtb_menu.lsp") 菜单定义文件
(vl-load-all "xdtb_autoload.lsp") 命令的自动加载文件
(vl-load-all "xdtb_menucontrol.vlx") 菜单控制

对 palette 控件实际在多文档下都会显示，但 load 仅对当前文档有效，所以使用 palette 作为菜单想在多文档下都能使用，odcl 控制文件必须使用 vl-load-all 加载，同时 包含菜单命令的Lisp文件也需要使用 vl-load-all 加载或采用自动加载，如xdtb_mentool.lsp 定义的xdtb_autoload 才能保证后续文件点击按钮执行相应命令

ludaweb · 发表于 2014-12-12 12:21:49

我觉得应该不是加载到所有文档的问题，因为我在CAD里设置了加载启动，肯定都加载了，不行。
用(vl-load-all)加载菜单数据和控制程序还是不行，下面是程序代码。

请点击此处下载

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

您的用户组是：游客

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

请点击此处下载

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

您的用户组是：游客

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

请点击此处下载

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

您的用户组是：游客

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

st788796 · 发表于 2014-12-12 15:31:14

ludaweb 发表于 2014-12-12 12:21
我觉得应该不是加载到所有文档的问题，因为我在CAD里设置了加载启动，肯定都加载了，不行。
用(vl-load-al ...

还没有看代码，有几个问题
1 单文档是否没问题
2 多文档时是odcl本身还是event函数问题
3 按钮定义的send 是事件原因还是自己加载原因

这三个弄明白基本就都解决了

ludaweb · 发表于 2014-12-12 17:57:29

1 单文档没问题
2 多文档时odcl每个文档也没有问题，event函数应该也没有问题
3 按钮定义的send应该是事件原因，因为仅对当前文档起作用，不能应用到其他文档。

不知道我理解的对不对

所以我认为应该是这个问题
在多文档的工作环境下，如何实现在当前文档点击分类按钮后，命令按钮的定义在多文档下都起作用

newer · 发表于 2014-12-12 18:12:27

ludaweb 发表于 2014-12-12 17:57
1 单文档没问题
2 多文档时odcl每个文档也没有问题，event函数应该也没有问题
3 按钮定义的send应该是事 ...

你说了这么多没问题，那你的问题是什么？

你点击按钮，当然是在当前文档下操作啊，难道你想点击按钮，在其他文档操作图形？

ludaweb · 发表于 2014-12-12 18:24:54

我想在当前文档点击左侧的竖向分类按钮后，对右侧的命令按钮动作的定义能够应用到其他所有当前打开文档。也就是右侧命令按钮的onclick事件的定义能够应用到其他文档。
目前程序是切换过分类按钮后，命令按钮的onclick事件仅修改了当前文档。

newer · 发表于 2014-12-12 18:29:35

ludaweb 发表于 2014-12-12 18:24
我想在当前文档点击左侧的竖向分类按钮后，对右侧的命令按钮动作的定义能够应用到其他所有当前打开文档。也 ...

你想做什么，需要这样做？详细说说。你思路有点走歪了。你点ACAD的菜单，他们是操作别的文档的吗？

ludaweb · 发表于 2014-12-12 20:54:25

st788796 · 发表于 2014-12-12 22:12:01

ludaweb 发表于 2014-12-12 20:54

OnClicked 事件定义了啥就执行啥，而且执行前必须是加载了，drawing1 下是 break ，drawing2 下是 move，那就要在 drawing2 下加载 move 定义的函数

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

[研讨] 如何让当前文档设置的按钮动作运用到所有当前打开文档

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

相关帖子

点评

点评

点评