加载多个.NET DLL文件

marting

1. ;;;--------------------------------------------------------------------;
   
2. ;;; Load multiple .NET assemblies from ACAD.lsp
   
3. ((lambda (loadList)
   
4.    (terpri)
   
5.    (foreach dll loadList
   
6.      (if (findfile dll)
   
7.        (command "._netload" dll)
   
8.      )
   
9.    )
   
10.    (terpri)
    
11. )
    
12.   '(
    
13.     "Test\\mytest.dll"
    
14. 
    
15.     ;; <- Other assemblies here
    
16. 
    
17.    )
    
18. )
    

;;;--------------------------------------------------------------------;<br /> ;;; Load multiple .NET assemblies from ACAD.lsp<br /> ((lambda (loadList)<br />    (terpri)<br />    (foreach dll loadList<br />      (if (findfile dll)<br />        (command "._netload" dll)<br />      )<br />    )<br />    (terpri)<br /> )<br />   '(<br />     "Test\\mytest.dll"<br /> <br />     ;; <- Other assemblies here<br /> <br />    )<br /> )<br />