ARX function exposure within a separate namespace VLX

newer

问题：
I built a separate namespace vlx from firstasi.lsp, but I cannot connect to
the database with the functions in the loaded asilisp.arx. Why?

解答：
In order to expose a function defined in a loaded ARX application to AutoLISP
code contained in a separate namespace vlx, use the (vl-arx-import) function.

The following AutoLISP code demonstrates how you can use this in a compiled
separate namespace VLX:

1. (if (member "asilisp.arx" (arx))
   
2.   (vl-arx-import "asilisp.arx")
   
3.   (setq
   
4.     ASI_LISPVERSION nil
   
5.   )
   
6. )
   
7. 
   
8. (defun TestSnspc ()
   
9. 
   
10.   (if (and (null ASI_LISPVERSION)
    
11.            (null (member "asilisp.arx" (arx)))
    
12.       )
    
13.     (progn
    
14.       (arxload "asilisp.arx")
    
15.       (vl-arx-import "asilisp.arx")
    
16.     )
    
17.   )
    
18. 
    
19.   (if (null ASI_LISPVERSION)
    
20.     (princ "\nASILisp.ARX was NOT loaded.")
    
21.     (princ
    
22.       (strcat "\nASI Version (Printing From Separate Namespace) = "
    
23.               (ASI_LISPVERSION)
    
24.               "\n"
    
25.       )
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )
    
30. 
    
31. (vl-doc-export 'TestSnspc)
    
32. 
    
33. (princ "\nTestSnspc loaded, type (TestSnspc) to Run.\n")
    
34. (princ)
    

(if (member "asilisp.arx" (arx))<br />   (vl-arx-import "asilisp.arx")<br />   (setq<br />     ASI_LISPVERSION nil<br />   )<br /> )<br /> <br /> (defun TestSnspc ()<br /> <br />   (if (and (null ASI_LISPVERSION)<br />            (null (member "asilisp.arx" (arx)))<br />       )<br />     (progn<br />       (arxload "asilisp.arx")<br />       (vl-arx-import "asilisp.arx")<br />     )<br />   )<br /> <br />   (if (null ASI_LISPVERSION)<br />     (princ "\nASILisp.ARX was NOT loaded.")<br />     (princ<br />       (strcat "\nASI Version (Printing From Separate Namespace) = "<br />               (ASI_LISPVERSION)<br />               "\n"<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> (vl-doc-export 'TestSnspc)<br /> <br /> (princ "\nTestSnspc loaded, type (TestSnspc) to Run.\n")<br /> (princ)<br />

You can find additional documentation for vl-arx-import in the AutoCAD 2000
readme file. Also refer to the function description in the AutoLISP Reference:

AutoCAD 2000 Readme -> AutoCAD 2000 Documentation Corrections and Additions
-> VL-ARX-IMPORT Required to Access External ObjectARX Functions from a
Separate-Namespace VLX

Visual LISP Developer's Guide -> Appendix A -- AutoLISP Function Synopsis ->
VLX Namespace Functions