lisp与dll

qazllqaz

请问一下,lisp与dll如何连接???

alin

getinterfaceobject and then invoke the methods in your DLL

qazllqaz

我初学这一部分内容,能否给个范例

alin

用法：_$ (vlax-variant-value (vbStrCat "Hello " "World!"))
"Hello World!"

2. ;;;************************************************************
3. ;;; Filename: vbStringClass.LSP
4. ;;; Author:     David M. Stein
5. ;;; Date:         3/2/02
6. ;;; Purpose:   Demonstrates use of imported DLL functions within
7. ;;;                     Visual LISP functions
8. ;;;************************************************************(vl-load-com)(defun vbStrCat (string1 string2 / acad vbstrcls out)
9.    (setq acad (vlax-get-acad-object))
10.    (setq vbstrcls
11.        (vlax-invoke-method acad
12.          "getInterfaceObject" "vbStringClass.vbStrings"
13.        )
14.    )
15.    (setq out
16.      (vlax-invoke-method vbstrcls
17.        "StrConcat" string1 string2
18.      )
19.    )
20.   (vlax-release-object vbstrcls)
21.   (vlax-release-object acad)
22.   out
23. )(defun vbStrRev (string / acad vbstrcls out)
24.    (setq acad (vlax-get-acad-object))
25.    (setq vbstrcls
26.        (vlax-invoke-method acad
27.          "getInterfaceObject" "vbStringClass.vbStrings"
28.        )
29.    )
30.    (setq out
31.      (vlax-invoke-method vbstrcls
32.        "StrRev" string
33.      )
34.    )
35.   (vlax-release-object vbstrcls)
36.   (vlax-release-object acad)
37.   out
38. )(defun vbStrVer ( / acad vbstrcls out)
39.    (setq acad (vlax-get-acad-object))
40.    (setq vbstrcls
41.        (vlax-invoke-method acad
42.            "getInterfaceObject" "vbStringClass.vbStrings"
43.        )
44.    )
45.    (setq out
46.        (vlax-invoke-method vbstrcls "StrVer")
47.    )
48.   (vlax-release-object vbstrcls)
49.   (vlax-release-object acad)
50.   out
51. )(defun vbmathadd ( int1 int2 / acad vbstrcls out)
52.    (setq acad (vlax-get-acad-object))
53.    (setq vbstrcls
54.        (vlax-invoke-method acad
55.            "getInterfaceObject" "vbStringClass.vbStrings"
56.        )
57.    )
58.    (setq out
59.        (vlax-invoke-method vbstrcls "mathadd" int1 int2)
60.    )
61.   (vlax-release-object vbstrcls)
62.   (vlax-release-object acad)
63.   out
64. )

;;;************************************************************ ;;; Filename: vbStringClass.LSP ;;; Author:     David M. Stein ;;; Date:         3/2/02 ;;; Purpose:   Demonstrates use of imported DLL functions within ;;;                     Visual LISP functions ;;;************************************************************(vl-load-com)(defun vbStrCat (string1 string2 / acad vbstrcls out)    (setq acad (vlax-get-acad-object))    (setq vbstrcls        (vlax-invoke-method acad          "getInterfaceObject" "vbStringClass.vbStrings"        )    )    (setq out      (vlax-invoke-method vbstrcls        "StrConcat" string1 string2      )    )   (vlax-release-object vbstrcls)   (vlax-release-object acad)   out )(defun vbStrRev (string / acad vbstrcls out)    (setq acad (vlax-get-acad-object))    (setq vbstrcls        (vlax-invoke-method acad          "getInterfaceObject" "vbStringClass.vbStrings"        )    )    (setq out      (vlax-invoke-method vbstrcls        "StrRev" string      )    )   (vlax-release-object vbstrcls)   (vlax-release-object acad)   out )(defun vbStrVer ( / acad vbstrcls out)    (setq acad (vlax-get-acad-object))    (setq vbstrcls        (vlax-invoke-method acad            "getInterfaceObject" "vbStringClass.vbStrings"        )    )    (setq out        (vlax-invoke-method vbstrcls "StrVer")    )   (vlax-release-object vbstrcls)   (vlax-release-object acad)   out )(defun vbmathadd ( int1 int2 / acad vbstrcls out)    (setq acad (vlax-get-acad-object))    (setq vbstrcls        (vlax-invoke-method acad            "getInterfaceObject" "vbStringClass.vbStrings"        )    )    (setq out        (vlax-invoke-method vbstrcls "mathadd" int1 int2)    )   (vlax-release-object vbstrcls)   (vlax-release-object acad)   out )