|
用autocad调用外部dll文件的问题（vba方面）
用autocad调用外部dll文件的问题（vba方面）
www.dimcax.com 用autocad调用外部dll文件的问题（vba方面） 我先用visual basic创建了一个dll文件（“externalfunction.dll”），然后在系统中注册成功，在autocad vba中编写程序调用这个dll文件时出错： 错误信息：加载应用程序时出现问题 我是按照书上的步骤做的，看了半天也不知道是哪里出错了 private sub commandbutton1_click() dim vb6dll as object dim vb6functionreturnvalue as long dim xlength as double, ylength as double, zlength as double on error goto overflow if not (isnumeric(textbox1.text)) then msgbox "the x length must be numeric!", vbexclamation textbox1.setfocus exit sub end if xlength = cdbl(textbox1.text) if not (isnumeric(textbox2.text)) then msgbox "the y length must be numeric!", vbexclamation textbox2.setfocus exit sub end if ylength = cdbl(textbox2.text) if not (isnumeric(textbox3.text)) then msgbox "the z length must be numeric!", vbexclamation textbox3.setfocus exit sub end if zlength = cdbl(textbox3.text) on error goto errortrap set vb6dll = thisdrawing.application.getinterfaceobject("externalfunction.dll") vb6functionreturnvalue = vb6dll.cubevolume(xlength, ylength, zlength) textbox4.text = vb6functionreturnvalue exit sub errortrap: msgbox "an error was generated. the error description is:" & err.description, vbexclamation exit sub overflow: msgbox "one of the lengths entered is too large,please try again.", vbexclamation exit sub end sub （“externalfunction.dll”文件的代码： public function cubevolume(xlength as double, ylength as double, zlength as double) as double cubevolume = xlength * ylength * zlength end function 这是一个求立方体体积的函数。） 请各位老师帮忙看看是哪里的问题，我觉得是红字那部分有问题。谢谢！ 我把vb工程里的类名改成了myclass,又重新生成myclass.dll注册一次，还是不行，附件http://www.dimcax.com下载次数里是源...肜鲜Π锩纯础� 调用外部dll 把你的源程序传上来，我给你改一下不就得了 设置断点，步步调试不就知道错误在哪了？ dll我是经常用，但是你的红字部分我到是没用过 这个应该是是cad自带的sample的代码，楼主参考的时候可能没太注意 set vb6dll = thisdrawing.application.getinterfaceobject("externalfunction.dll") 这句写法不正确 原example中的代码是这样写的 set vb6dll = thisdrawing.application.getinterfaceobject("externalfunction.myclass") 调用时externalfunction工程名后还要跟上类名，myclass取决于你vb工程里的那个函数所在的类名，有可能是class1之类的（因为vb默认是这样命名的，要看你改成什么了），不知道这样说清楚了没... 你再试试吧！good luck！ 顺便说一下，这种调用方式是cad提供的，和vb/vba调用方式不太一样，楼主可以用用其他方法调用 支持楼上，externalfunction.类名称，你可以把activex目录下面的externalcall.dvb打开看一看就清楚啦。 没有必要这么用，先引用不就得了，如果不引用你是无法知道dll里都有哪些对象方法和属性的 谢谢各位老师指导。4楼“set vb6dll = thisdrawing.application.getinterfaceobject("externalfunction.myclass") 调用时externalfunction工程名后还要跟上类名，myclass取决于你vb工程里的那个函数所在的类名，有可能是class1之类的（因为vb默认是这样命名的，要看你改成什么了）” 我好像有点明白了，我再试一下。 看来入门要了解的东西还很多啊。以后还要多向各位老师讨教！ 我改了类名，还是不行，附上了源代码，请老师有空帮忙改改。 这个和autocad的版本有关系吗，我用的2008 : 我改了类名，还是不行，附上了源代码，请老师有空帮忙改改。 这个和autocad的版本有关系吗，我用的2008 不光是类名的问题，工程名和dll文件名得保持一致，也就是说dll文件的名称是不能随便改的，比如你现在的工程名是“工程1”，那么最后编译出来也得是“工程1.dll”，工程名、类名都对了，理论上就没什么问题了； 如果再不行，那你试试sample中提供的代码，这个代码肯定是没问题的，再它的基础上改改，对比下，容易找到问题 谢谢！都改了，似乎还是不行，我再琢磨琢磨吧。书没有配光盘，所以没办法，只能按书上的敲进去试了。 |
| 所有的时间均为北京时间。 现在的时间是 05:42 AM. |