[不死猫出品] Lisp 使用 VBA 对话框 第二版（发完整实例+思路+源代码）

oyxx1023

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

nonsmall

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

frm 是文本格式 直接包进VLX或者用Lisp生成出来

frx  还没想到怎么处理打包 一起商量商量吧 (实在不行也写个安装包出来?)

要想一个文件的话就打包成DVB了

上面的文件可以用Lisp在启动程序时进行加载

程序退出时再卸载掉工程

oyxx1023

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

tyxdd

是啊，要把这个搞定了，nonsmall对lisp的贡献真是功不可没啊！还有nonsmall搞的那个lisp-win.api 。

nonsmall真是太伟大了！划时代的贡献啊！

XD168

好东西,谢谢楼主

nonsmall

现在已经初步完成

请大家测试1楼的代码(lisp里面的路径改改啊)

可以的话我就要去opendcl专区踢馆啦(呵呵开个玩笑哈)

--------------------

楼上几位太夸张了

我一后学晚辈 都是靠前辈们的知识东拼西凑

水平还不够

PS:我的很多想法虽然是自己想的 但是到网上一找 经常有人研究过

只是没细玩吧

--------------------

那个API的 实用价值不是很高啦(写函数超麻烦啊) 仅供研究

要用API还是用VBA正规

tyxdd

猫兄，汇报一下：

1楼代码已测试，效果非常好！多少人想弄这样的非模态对话框啊，现在在你这里实现了。很伟大，我个人谨向您致敬！我之前在网上看到过，有人说用VBA做对话框，用lisp写主程序并与VBA对话框之间传递数据，他个人用得很爽，但他没有公布方法，我不知他是如何实现的，也没有时间去深究，后来自己做的好些东西都是用dcl做的，痛苦啊，效率又低。谢谢你，真的很感谢。

猫兄，闻道固有先后，但学识无先后，只有大小，高低之分。真的很仰慕你，我不知你真实年龄，但是你绝对值得我，也值得大家尊称你为“猫兄”，你也真正无愧于“侠之大者”这个等级。明经有你，实乃明经之幸，lisp之幸，lisper们之幸也。

最近很忙，等闲下来有空一点，再跟你好好学习研究！有机会跟您请教的话，望不吝赐教啊！：）

--貌似，还是得研究。不是那么简单哦。

oyxx1023

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

jxlsp

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

DVB可以在应用程序加载,

请问frm文本格式文件怎么加载呢?

nonsmall

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

问题很好 刚开始是这么做的 但是卸载Global实在费劲(因为无法保存) 所以后来改成了dvb

[Post=10] 

(command "_.vbanew");不影响其他宏
(vlax-invoke-method (vlax-get (vlax-get (vlax-get (vlax-get-acad-object) 'VBE) 'ActiveVBProject) 'VBComponents) 'Import "D:\\VBA_开发研究\\nonsmall_20090110.frm");Load_Dialog
 (vlax-invoke-method acad 'Eval "nonsmall_20090110.Show 0");Start_Dialog

[/Post]