[求助]：用LISP如何调用DLL文件？

ahlzl · 发表于 2004-5-1 21:29:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我用VB.NET开发CAD，作了个DLL文件。在CAD2005中，用NETLOAD命令加载，再打TEST命令可调出一个对话框。为使其他版本的CAD也能使用DLL文件，恳请高手写一段LISP代码，以便能调用DLL文件。谢谢！

lsjjm · 发表于 2004-5-5 15:24:45

请参考:
下面是一个调用ACTIVEX DLL 中函数的例子:
(defun c:test ()
  (vl-load-com)
  (setq cad (vlax-get-acad-object))
  (setq cls (vla-getinterfaceobject cad "windowstuff.class1"))
  (setq cap (vla-get-caption cad))
  (vlax-invoke cls "maximizeit" cap)
  (vlax-release-object cls)
  (setq cls nil)
  (princ)
)

LUCAS · 发表于 2004-5-5 15:41:05

;;其他版本沒有NETLOAD????
(defun C:TT ()
(command "_.NETLOAD" (findfile "2.DLL"))
(command "TEST")
)

把你的vb.net 程序貼上來看看好嗎?

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

[求助] [求助]：用LISP如何调用DLL文件？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子