LISP 动态加载DLL

yaojing38

lisp  改文件地址方便  结合了下大佬们的结晶 ，分享一下 把动态DLL和你要加载的DLL的地址替换成你的就行。

2. (defun c:aa ()
   
3.   (setvar "cmdecho" 0)
   
4.         (vl-load-com)
   
5.   (if (null (getcname "AA_W"))
   
6.   (vl-cmdf "netload" "D:\\lib\\动态加载22\\动态加载22\\obj\\Debug\\net40\\动态加载22.dll"))
   
7.   (princ "\n")
   
8.   (princ "\rD:\\lib2023\\myjob\\Project4\\Project4\\obj\\Debug\\net48\\Project4.dll") ;注意此处/r不能删了
   
9.   (princ "\n")
   
10.   (vl-cmdf "AA_W")
    
11.   (princ)
    
12. )

(defun c:aa ()<br />   (setvar "cmdecho" 0)<br />         (vl-load-com)<br />   (if (null (getcname "AA_W"))<br />   (vl-cmdf "netload" "D:\\lib\\动态加载22\\动态加载22\\obj\\Debug\\net40\\动态加载22.dll"))<br />   (princ "\n")<br />   (princ "\rD:\\lib2023\\myjob\\Project4\\Project4\\obj\\Debug\\net48\\Project4.dll") ;注意此处/r不能删了<br />   (princ "\n")<br />   (vl-cmdf "AA_W")<br />   (princ)<br /> )

。。

wangsr

能给新人讲细点怎么用吗谢谢。

Bao_lai

这是那个NetLoadX.dll么，写一个lisp先加这个dll，然后再从这个netloadx中加载自己的dll就不会文件占用了。

yaojing38

wangsr 发表于 2023-12-26 17:43
能给新人讲细点怎么用吗谢谢。

1. 
   
2. (vl-cmdf "netload" "D:\\lib\\动态加载22\\动态加载22\\obj\\Debug\\net40\\动态加载22.dll")) ；这里填附件的DLL地址
   
3. (princ "\rD:\\lib2023\\myjob\\Project4\\Project4\\obj\\Debug\\net48\\Project4.dll") ;注意此处/r不能删了 ；；这里填你要加载测试的DLL文件地址 使用LISP命令就可以实现动态加载你要测试的DLL文件

复制代码

yaojing38

Bao_lai 发表于 2023-12-26 20:19
这是那个NetLoadX.dll么，写一个lisp先加这个dll，然后再从这个netloadx中加载自己的dll就不会文件占用了。

是的，，只是改成用lisp获取地址

nuan1989

但是怎么调用dll里面方法呢

yaojing38

nuan1989 发表于 2024-5-10 20:58
但是怎么调用dll里面方法呢

？一个是要调试DLL地址，一个是动态加载的DLL文件的地址

nuan1989

yaojing38 发表于 2024-5-11 09:34
？一个是要调试DLL地址，一个是动态加载的DLL文件的地址

你知道有没有法子让autolisp异步调用不, 类似线程调用. 不卡cad.  想要弄个异步监测其他进程的消息.

yaojing38

nuan1989 发表于 2024-5-12 12:43
你知道有没有法子让autolisp异步调用不, 类似线程调用. 不卡cad.  想要弄个异步监测其他进程的消息.

这个不懂。。。