[求助]：用VB写的程序，把大量数据库中的线条画到AutoCAD中，太慢？？

smarta

最近用VB写的程序，把大量数据库中的线条画到AutoCAD中，但是太慢，如果用AutoCAD内嵌的VBA很快，谁能帮我。谢谢

macula55

VBA应该会比VB快一点点！

小玩童

把你的代码发到我的信箱，我试试给你转换成VBA代码，：）

WHGF

VBA与VB是同一类的开发工具，不应的确有太大的区别，特别是运行速度上应该基本一至，我理解：VB要比VBA快，是否是你的程序算法上不合适或接口设计的不好。

smarta

谢谢楼上的支持，不过已经找到了答案
解决方法来自 http://discussion.autodesk.com/forum.jspa?forumID=33
Slow VB programm.
VB is slower because it is NOT running "in-process". So all the calls to
AutoCAD have a lot of overhead.

The solution is to put the critical code into an "ActiveX DLL". Create a
brand new project in VB6 of type "ActiveX DLL". It will start with an empty
class. Put a public subroutine in there like this:

Public Sub DrawX(App As AcadApplication)
Dim sp(0 to 2) as double, ep(0 to 2) as double
ep(1) = 5
App.ActiveDocument.ModelSpace.AddLine(sp,ep)
End Sub

Compile the project and it will create DLL and LIB files. Then you have to
install and register the files like this:

copy e:\projects\autocaddraw\autocaddraw.dll c:\windows\system32
copy e:\projects\autocaddraw\autocaddraw.lib c:\windows\system32
regsvr32 c:\windows\system32\autocaddraw.dll

Then you go back to your original VB project and add your ActiveX DLL as a
reference. In your VB application you would put some code like this:

Set AcadAPP = CreateObject("AutoCAD.Application")
Set AcadDRW = AcadAPP.GetInterfaceObject("AutoCADDraw.AcadDraw")
Call AcadDRW.DrawX(AcadAPP)

The first line starts AutoCAD running
The second line loads your ActiveX DLL into AutoCAD (ie. in-process)
The third line starts your code. Any code in the DLL will run as fast as
VBA.

god

5楼的方法很高明。
不过这句还没理解到
Set AcadDRW = AcadAPP.GetInterfaceObject("AutoCADDraw.AcadDraw")
这个是什么意思？AutoCADDraw.AcadDraw，尤其是AcadDraw，不知道怎么来的

smarta

AutoCADDraw，是DLL程序文件名，即AutoCADDraw.dll
AcadDraw,是这个DLL中定义的class类

god

这段代码编译不了，主要是这句错误App.ActiveDocument.ModelSpace.AddLine(sp,ep)，引用了acadl类型库也不行
你有没有调好的，让我也学习学习。

smarta

在这个工程中也要调用autoCAD引用

YXJ1666

很有用的

Jason0511

确实加快了

flydyt

哪儿有AutoCADDraw.dll这个文件？

yefeng1860

互相学习

秋麦子

感谢，我也觉得vb没有VBA快，通常绘制大量实体对象的时候我都是用ARX写，然后再调用，感觉原理是一样的，这是一个很好的解决办法

yfy2003

能传一个实例来学习吗？