nonsmall
发表于 2009-9-8 09:50:00
[原创]动态添加DCL窗体下拉菜单（提供接口）
本帖最后由 nonsmall 于 2013-5-13 10:55 编辑 <br /><br /> <p>程序的初型由Excel Home大虾CasBoy编写</p><p>AutoCAD部分的VBA修改由明经超版<strong><font face="Verdana" color="#da2549">lzh741206</font></strong>完成</p><p>VB的移植封装和接口函数由我完成。</p><p>在此感谢两位，尤其是我们的超版！</p><p>=======================================</p><p>有些朋友无法使用 程序已经更新 并且增强了功能</p><p>请大家重新测试 调用代码稍作了修改</p><p></p><p>若注册不成功可在 开始-运行 输入</p><p>regsvr32 F:\temp\下拉菜单Lisp调用-nonsmall\Drop_Down_Menu.dll /u</p><p>对之前的进行卸载 然后覆盖新的DLL后执行</p><p>regsvr32 F:\temp\下拉菜单Lisp调用-nonsmall\Drop_Down_Menu.dll</p><p>进行新的注册</p><p>完成Lisp调用接口 可以使用lisp动态生成菜单，自定义需要调用的Lisp函数</p><p> ;这个部分可以完全DIY，只需按照这种格式写即可<br/> ;核心调用代码：<br/> ;===========================================<br/> (setq Menu (Vlax-Get-Or-Create-Object "nonsmall.drop" ))<br/> (Vlax-Invoke-Method Menu 'Make_Menu_Start (Vlax-Get-Acad-Object))<br/> (Vlax-Invoke Menu 'Make_Drop_Menu "第一步" "Call1" "Call2");第一个是标题 后面的都是下拉按钮<br/> (Vlax-Invoke Menu 'Make_Drop_Menu "第二步" "Call3")<br/> (Vlax-Invoke Menu 'Make_Drop_Menu "第三步" "Call4" "Call5" "Call6")<br/> (Vlax-Invoke Menu 'Make_Drop_Menu "第四步" "Call7")<br/> (Vlax-Invoke Menu 'LispFuncCall "test1" "test2" "test3" "test4" "test5" "test6" "test7");对应下拉按钮的lisp函数<br/> (Vlax-Invoke-Method Menu 'Make_Menu_End )<br/> ;============================================</p><p> </p><p></p><p>修正的接口程序下载：</p><p>*****</p><p></p><p>备用的一个</p><p></p><p>*****</p><p></p><p></p><p>之前的演示=====================</p><p></p><p>测试程序：</p><p>测试命令：TT</p><p>解压到一个文件夹会自动注册</p><p></p><p>VBA部分程序源码（<strong><font face="Verdana" color="#da2549">lzh741206</font></strong>修改）</p><p></p>
生活丨好无奈
发表于 2020-7-1 02:52:09
这个工具非常实用，谢谢
hzh2000
发表于 2009-9-8 10:21:00
<p>好！！！！！！！！</p>
5061220
发表于 2009-9-8 11:22:00
<p>好东西，下载学习</p>
liuyj
发表于 2009-9-8 13:59:00
<p>看到实现的结果，但不知如何实现，就和那个动态输入感知一样，眼馋吃不到！</p>
客人
发表于 2009-9-9 07:41:00
建议牛人不要把源码捂着。。。。
它山之石
发表于 2009-9-9 08:48:00
印象中好象在哪见过此功能
nonsmall
发表于 2009-9-9 09:17:00
<p>正在尝试做一个接口</p><p>提供给Lisp动态调用</p><p>允许使用Lisp自定义下拉菜单项和点击动作回调Lisp函数</p>
caoyin
发表于 2009-9-9 11:19:00
好东东，nonsmall，有没有带下拉列表的编辑框！
nonsmall
发表于 2009-9-9 13:43:00
<p>下拉列表的编辑框我现在还不会写，理论上可以吧？</p><p>花了一上午终于倒腾出一个lisp可以动态调用的接口</p><p>可以自定义接口回调函数！</p>
雪山飞狐_lzh
发表于 2009-9-9 14:24:00
<p>菜单实现部分改成从文件中读入，这样使用者会觉得简单些吧</p><p>文件的格式规定一下就OK了</p><p>然后Dll里直接去读文件分析菜单</p>