Lisp调用VB.net生成的TLB

guohq

 

1.打开visual studio 2005,新建一个项目，模板选择"类库"；

2.在解决方案资源管理器里删除class1.vb

3.添加新建项

4.模板里选择"com类",然后输入名字，假定为TestDLL

5.添加代码
    Public Sub SayHello(ByVal str As String)
        MsgBox("Hello VB.NET For Lisp" & str)
    End Sub
 

6.生成DLL，为了调用方便，到创建项目那个目录下找到生成的DLL文件，拷到D盘下

7.生成TLB文件，供lisp调到

打开Visual Studio 2005 命令提示,输入regasm d:\testforlisp.dll /tlb ,确定后会在同样的位置生成一个tlb文件(第六步已经将生成

的testforlisp.DLL复制到D盘了)
8.打开CAD，进入lisp编辑器，编写这样的一段代码
(defun c:dll(/ obj  )
  (vl-load-com)
  (vlax-import-type-library :tlb-filename  "d:/testforlisp.tlb");导入TLB文件
  (setq obj (vlax-create-object "testforlisp.testdll"));创建对象，Testforlisp是命名空间，不是文件名，TestDll是创建的类名,

具体在VB编辑器下查看
  (vlax-invoke obj 'SayHello "tttttt") ;sayhello是testdll类下的一个方法，"ttttt"就是对应str的那个参数
  (vlax-release-object obj);做完释放对象
  )
9.加载代码，在命令行里输入DLL
 

 

 

 

通过这种方法可以将大量的代码编写工作转到VB里去，而且可以写出功能多样的程序。

 

问题:通过这种方法生成的TLB，复制到其它电脑里，不能调用了。请高手支招，帮忙解决这个问题，谢谢！

 

wylong

没有必要生成TLB的，只调用dll就行。

(vlax-import-type-library :tlb-filename  "d:/testforlisp.tlb");导入TLB文件

这句没有必要，完全可以去掉。

 

至于在其它电脑里不能调用的问题解决方法是把testforlisp.DLL复制到其它电脑并注册此dll
注册dll方法：在“运行”中使用 regsvr32 X:\testforlisp.DLL

guohq

直接生成的DLL没有办法导入，如下

Command: (vlax-import-type-library :tlb-filename  "d:/testforlisp.dll")
; error: bad argument type: VLA-OBJECT nil

 

且将此DLL拷到别人电脑上，用regser32也无法注册

guohq

无人解答？

guohq

迟到的回复： regasm d:\testforlisp.dll /tlb /codebase d:\testforlisp.dl 这样即可！

senvic001

厉害