|
|
1. 启动Visual Basic 5 or 6；
2. 在New Project Wizard中选择ActiveX DLL；
3. 把工程名改为"MyProject"；
4. 在工程中有一个缺省的类模块，把它的名称改为"MyClass"；
5. 添加一个函数或者子例程到类模块中。例如：
' This function takes two arguments, and will return a list of data to the calling function
Public Function MyFn(ByRef arg1 as Integer, ByRef arg2 as Double) As Variant
myForm.Show vbModal
' Create a list of items to return to the caller (the items are in this case purely arbitrary)
MyFn = Array(1.0,"Arbitrary string",2)
End Function
（这里，myForm是一个你必须添加到工程中的表格。同时切记MyFn是一个函数，它将返回一个值或者一组值给调用例程。）
6. 点取File -
Make MyProject.dll。这就会生成一个DLL并且把它注册为COM。（如果你想在其他机器上运行此DLL，你需要首先确认在所有的机器上安装并注册了这个DLL。这通常需要你用Visual Basic生成一个安装包。）
7. 如果你想从Visual LISP中使用此DLL,你需要定义一个简单的函数，并且把他加载到中：
(defun showDialog (/ acadApp vbApp retVal retList)
;; required in AutoCAD 2000, not R14
(if (car (atoms-family 1 '("vl-load-com"))) (vl-load-com))
;; get the main AutoCAD application object
(setq acadApp (vlax-get-acad-object))
;; load VB ActiveX DLL into AutoCAD's address space (either line will work)
;;(setq vbApp (vlax-invoke acadApp "GetInterfaceObject" "MyProject.MyClass")
(setq vbApp (vla-GetInterfaceObject acadApp "MyProject.MyClass"))
(if (not vbApp)
(princ "\nError loading ActiveX DLL.")
(vlax-invoke vbApp "MyFn"
7 ; arg1, an integer
1.5 ; arg2, a 'double'
)
)
)
以上是用vb5编的dll文件,其中有些部分看不懂,请赐教:
1 "如果你想在其他机器上运行此DLL，你需要首先确认在所有的机器上安装并注册了这个DLL。这通常需要你用Visual Basic生成一个安装包。"是什么意思,具体怎样做?
2 这个dll怎样用visual lisp调用,命令是什么?我照上面所说的编了一个lisp文件,在cad2000中也加载了,但是不知怎样激活它.请哪位高手根据dll源文件告知如何用lisp文件调用,最好是源程序(我对lisp一窍不通). |
|
置顶卡
