oyxx1023 发表于 2009-1-12 14:47:00

窗体文件放哪?放外面那不是要有两个文件?

nonsmall 发表于 2009-1-12 14:58:00

oyxx1023发表于2009-1-12 14:47:00static/image/common/back.gif窗体文件放哪?放外面那不是要有两个文件?

<p>frm 是文本格式 直接包进VLX或者用Lisp生成出来</p><p>frx&nbsp; 还没想到怎么处理打包 一起商量商量吧 (实在不行也写个安装包出来?)</p><p>要想一个文件的话就打包成DVB了</p><p>上面的文件可以用Lisp在启动程序时进行加载</p><p>程序退出时再卸载掉工程</p><p></p>

oyxx1023 发表于 2009-1-12 15:22:00

如果有好的方法解决对话框问题的话,LISP那不是堪称完美了?

tyxdd 发表于 2009-1-12 17:51:00

<p>是啊,要把这个搞定了,nonsmall对lisp的贡献真是功不可没啊!还有nonsmall搞的那个lisp-win.api 。</p><p>nonsmall真是太伟大了!划时代的贡献啊!</p>

XD168 发表于 2009-1-13 08:10:00

<p>好东西,谢谢楼主</p>

nonsmall 发表于 2009-1-13 11:32:00

<p>现在已经初步完成</p><p>请大家测试1楼的代码(lisp里面的路径改改啊)</p><p>可以的话我就要去opendcl专区踢馆啦(呵呵开个玩笑哈)</p><p>--------------------</p><p>楼上几位太夸张了</p><p>我一后学晚辈 都是靠前辈们的知识东拼西凑</p><p>水平还不够</p><p>PS:我的很多想法虽然是自己想的 但是到网上一找 经常有人研究过</p><p>只是没细玩吧</p><p>--------------------</p><p>那个API的 实用价值不是很高啦(写函数超麻烦啊) 仅供研究</p><p>要用API还是用VBA正规</p>

tyxdd 发表于 2009-1-13 12:56:00

本帖最后由 作者 于 2010-2-1 15:45:29 编辑 <br /><br /> <p>猫兄,汇报一下:</p><p>1楼代码已测试,效果非常好!多少人想弄这样的非模态对话框啊,现在在你这里实现了。很伟大,我个人谨向您致敬!我之前在网上看到过,有人说用VBA做对话框,用lisp写主程序并与VBA对话框之间传递数据,他个人用得很爽,但他没有公布方法,我不知他是如何实现的,也没有时间去深究,后来自己做的好些东西都是用dcl做的,痛苦啊,效率又低。谢谢你,真的很感谢。</p><p>猫兄,闻道固有先后,但学识无先后,只有大小,高低之分。真的很仰慕你,我不知你真实年龄,但是你绝对值得我,也值得大家尊称你为“猫兄”,你也真正无愧于“侠之大者”这个等级。明经有你,实乃明经之幸,lisp之幸,lisper们之幸也。</p><p>最近很忙,等闲下来有空一点,再跟你好好学习研究!有机会跟您请教的话,望不吝赐教啊!:)</p><p>--貌似,还是得研究。不是那么简单哦。</p><p></p>

oyxx1023 发表于 2009-1-13 19:14:00

能不能把"Initializing VBA System..."这个提示去掉.

jxlsp 发表于 2009-1-14 09:20:00

nonsmall发表于2009-1-12 14:58:00static/image/common/back.giffrm 是文本格式 直接包进VLX或者用Lisp生成出来frx&nbsp; 还没想到怎么处理打包 一起商量商量吧 (实在不行也写个安装包出来?)要想一个文件的话就打包成DVB了上面的文件可以用Lisp在启动程序时进

<p>DVB可以在应用程序加载,</p><p>请问frm文本格式文件怎么加载呢?</p>

nonsmall 发表于 2009-1-14 09:32:00

jxlsp发表于2009-1-14 9:20:00static/image/common/back.gifDVB可以在应用程序加载,请问frm文本格式文件怎么加载呢?

<p></p><p>问题很好 刚开始是这么做的 但是卸载Global实在费劲(因为无法保存) 所以后来改成了dvb</p><p>&nbsp;</p><p>(command "_.vbanew");不影响其他宏<br/>(vlax-invoke-method (vlax-get (vlax-get (vlax-get (vlax-get-acad-object) 'VBE) 'ActiveVBProject) 'VBComponents) 'Import "D:\\VBA_开发研究\\nonsmall_20090110.frm");Load_Dialog<br/>&nbsp;(vlax-invoke-method acad 'Eval "nonsmall_20090110.Show 0");Start_Dialog</p><p></p>
页: 1 [2] 3 4 5 6 7 8 9
查看完整版本: [不死猫出品] Lisp 使用 VBA 对话框 第二版(发完整实例+思路+源代码)