求LISP与VBA交叉编程的例子，完整，能运行

革天明

chpmould 发表于 2012-3-11 19:48
当然可以,但这样写的程序不利于维护...

LISP转成VLX，VBA中只写一些调用
或者使用LISP来调用VBA的界面，放弃DCL界面

qcw911

[原创] █ 直接将VBForm转DCL 程序【VB2DCL】【含截图及演示】█
http://bbs.mjtd.com/forum.php?mo ... &fromuid=342850

老猫有个Visual DCL 没有公布

革天明

qcw911 发表于 2012-3-12 16:43
[原创] █ 直接将VBForm转DCL 程序【VB2DCL】【含截图及演示】█
http://bbs.mjtd.com/forum.php?mod=view ...

这个我也试用过了，还是稍有些问题的，不过这个软件的作用很大，我只了解LISP，对DCL和VBA了解都不多，同时DCL有个缺陷，DCL是静态的，在不按下确定键，界面上的数值什么都不能赋值。还是希望LISP与VBA交叉编译，今天成功地完成了VBA调用LISP，

VBALISPER

革天明 发表于 2012-3-11 18:04
我想研究一下如何来LISP和VBA交叉编程，使用VBA的界面，这样不比使用其它界面工具还得更好吗？

我已经用过这种方式了,效果很好.取长补短.

革天明

VBALISPER 发表于 2012-3-12 21:55
我已经用过这种方式了,效果很好.取长补短.

请问有例子吗？我今天就实现了一点，点一下VBA中的commandbutton，实现LIPS的程序
VBA中只有这样几句：
Private Sub CommandButton1_Click()
   ThisDrawing.SendCommand ("(load " & """" & "cx001.lsp" & """" & ")" & " ")
   ThisDrawing.SendCommand "cx001" & " "
   Me.Hide
End Sub
LISP的代码是：
(defun c:cx001()
   (setq os_mode(getvar "osmode"))
   (setvar "osmode" 0)
   (command "_line" '(0 0) '(100 100) "")
   (command "_circle" '(0 0) 15)
   (command "_circle" '(100 100) 30)
   (sevar "osmode" os_mode)
   (princ)
)
这个属于VBA调用LISP，如果想改写成LISP调用VBA的界面该如何写？

VBALISPER

LISP调用VBA的
(defun c:zzt()
(vl-vbarun "钻孔柱状图工具.dvb!test")
)

江湖远人

太好了，多谢楼主分享这么多好资料啊！慢慢学习

孙晶zxl

谢谢分享            

VBALISPER

革天明 发表于 2012-3-12 22:00
请问有例子吗？我今天就实现了一点，点一下VBA中的commandbutton，实现LIPS的程序
VBA中只有这样几句：
...

还没搞定吗?就用这个就能LISP调用VBA:
LISP调用VBA的
(defun c:zzt()
(vl-vbarun "钻孔柱状图工具.dvb!test")
)

注,TEST是VBA里的宏名称.前面是工程文件名.你懂的.

革天明

VBALISPER 发表于 2012-3-17 15:47
还没搞定吗?就用这个就能LISP调用VBA:
LISP调用VBA的
(defun c:zzt()

已经搞定了一个小例子了，目前DCL的动态化也实现了，目前自己的程序使用DCL，使用VBA的界面以后有时间再研究吧，