vb在cad编程出现：运行时错误“440”：自动化错误，是怎么一回事？新手求教！

Question

结果就提示了错误，新手请教各位高手了！谢谢！

Answer 1

看你的程序好像接了两个程序，但从代码来看，你的程序没接好
在VB中，不能像VBA中直接用ThisDrawing

调用CAD的方法
Dim AcadApp as Object
Set AcadApp = GetObject(, "AutoCad.Application")
代码后面中的ThisDrawing 需要改成 AcadApp.ActiveDocument

同样，你的TrackingDictionary也需要更改，实际按你引用程序的方法！

另外提一点习惯的问题；
你的程序变量整得太复杂了，本身dim XXX 要方便写，看；你的整得好长，以前我有朋友有因为太长而出错过，所以这个习惯建议你整短点；只是个人意见，供参考！