[原创]动态添加DCL窗体下拉菜单（提供接口）

nonsmall · 发表于 2009-9-8 09:50:00

本帖最后由 nonsmall 于 2013-5-13 10:55 编辑

程序的初型由Excel Home大虾CasBoy编写

AutoCAD部分的VBA修改由明经超版lzh741206完成

VB的移植封装和接口函数由我完成。

在此感谢两位，尤其是我们的超版！

=======================================

有些朋友无法使用程序已经更新并且增强了功能

请大家重新测试调用代码稍作了修改

若注册不成功可在开始-运行输入

regsvr32 F:\temp\下拉菜单Lisp调用-nonsmall\Drop_Down_Menu.dll /u

对之前的进行卸载然后覆盖新的DLL后执行

regsvr32 F:\temp\下拉菜单Lisp调用-nonsmall\Drop_Down_Menu.dll

进行新的注册

完成Lisp调用接口可以使用lisp动态生成菜单，自定义需要调用的Lisp函数

  ;这个部分可以完全DIY，只需按照这种格式写即可
  ;核心调用代码：
  ;===========================================
   (setq Menu (Vlax-Get-Or-Create-Object "nonsmall.drop" ))
   (Vlax-Invoke-Method Menu 'Make_Menu_Start (Vlax-Get-Acad-Object))
   (Vlax-Invoke Menu 'Make_Drop_Menu "第一步" "Call1" "Call2");第一个是标题后面的都是下拉按钮
   (Vlax-Invoke Menu 'Make_Drop_Menu "第二步" "Call3")
   (Vlax-Invoke Menu 'Make_Drop_Menu "第三步" "Call4" "Call5" "Call6")
   (Vlax-Invoke Menu 'Make_Drop_Menu "第四步" "Call7")
   (Vlax-Invoke Menu 'LispFuncCall "test1" "test2" "test3" "test4" "test5" "test6" "test7");对应下拉按钮的lisp函数
   (Vlax-Invoke-Method Menu 'Make_Menu_End )
  ;============================================

修正的接口程序下载：

*****

备用的一个

*****

之前的演示=====================

测试程序：

测试命令：TT

解压到一个文件夹会自动注册

VBA部分程序源码（lzh741206修改）

生活丨好无奈 · 发表于 2020-7-1 02:52:09

这个工具非常实用，谢谢

hzh2000 · 发表于 2009-9-8 10:21:00

好！！！！！！！！

5061220 · 发表于 2009-9-8 11:22:00

好东西，下载学习

liuyj · 发表于 2009-9-8 13:59:00

看到实现的结果，但不知如何实现，就和那个动态输入感知一样，眼馋吃不到！

明经网友 *发表于 2009-9-9 07:41:00* · 发表于 2009-9-9 07:41:00

建议牛人不要把源码捂着。。。。

它山之石 · 发表于 2009-9-9 08:48:00

印象中好象在哪见过此功能

nonsmall · 发表于 2009-9-9 09:17:00

正在尝试做一个接口

提供给Lisp动态调用

允许使用Lisp自定义下拉菜单项和点击动作回调Lisp函数

caoyin · 发表于 2009-9-9 11:19:00

好东东，nonsmall，有没有带下拉列表的编辑框！

nonsmall · 发表于 2009-9-9 13:43:00

下拉列表的编辑框我现在还不会写，理论上可以吧？

花了一上午终于倒腾出一个lisp可以动态调用的接口

可以自定义接口回调函数！

雪山飞狐_lzh · 发表于 2009-9-9 14:24:00

菜单实现部分改成从文件中读入，这样使用者会觉得简单些吧

文件的格式规定一下就OK了

然后Dll里直接去读文件分析菜单

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

[【不死猫】] [原创]动态添加DCL窗体下拉菜单（提供接口）

本帖子中包含更多资源

评分