VB调用LISP程序

chpmould · 发表于 2010-6-8 00:04:00

请教各位高手，首先当我们打开CAD之后，然后运行一个VB程序来调用一个LISP程序如何实现！！！

飞诗(fsxm) · 发表于 2010-6-8 00:24:00

利用vl.application可以实现~！

chpmould · 发表于 2010-6-8 17:47:00

谢谢fsxm大哥的提示能否稍具体一点

liu_kunlun · 发表于 2010-6-9 13:23:00

本帖最后由作者于 2010-6-9 13:47:29 编辑

;例如
(defun c:ttt ( )
(command "line" (getpoint "点1:") (getpoint "点2:") "")
)
方法1:
(vla-eval (vlax-get-acad-object) "sendkeys \"ttt \"" )
方法2:
(vla-sendcommand (vla-get-ActiveDocument (vlax-get-acad-object)) "(c:ttt) " )

xiaowen · 发表于 2010-6-9 14:48:00

多谢分享,正在学习过程中...

liu714 · 发表于 2010-7-5 21:22:00

哈哈哈哈哈哈哈

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

[基础] VB调用LISP程序