看你的程序好像接了两个程序，但从代码来看，你的程序没接好
在VB中，不能像VBA中直接用ThisDrawing
调用CAD的方法
Dim AcadApp as Object
Set AcadApp = GetObject(, "AutoCad.Application")
代码后面中的ThisDrawing 需要改成 AcadApp.ActiveDocument
同样，你的TrackingDictionary也需要更改，实际按你引用程序的方法！
另外提一点习惯的问题；
你的程序变量整得太复杂了，本身dim XXX 要方便写，看；你的整得好长，以前我有朋友有因为太长而出错过，所以这个习惯建议你整短点；只是个人意见，供参考！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024