vb aparece en programación CAD: Error de tiempo de ejecución "440": Error de automatización, ¿qué está pasando? Novato pidiendo consejo!
Al observar su programa, parece que está seleccionando ambos programas, pero según el código, no puede captar
En VB, no puede usar ThisDrawing como puede hacerlo en VBA
Método para llamar a CAD
Dim AcadApp as Object
Set AcadApp = GetObject(, "AutoCad.Application")
Necesitas cambiar ThisDrawing detrás del código a AcadApp .ActiveDocument
Del mismo modo, su TrackingDictionary debe cambiarse, ¡en realidad por la forma en que hace referencia al programa! !
También hay un problema de hábito;
Las variables de su programa son demasiado complicadas y el XXX en sí es oscuro. Para facilitar la escritura, lea todo el artículo; de largo, tengo uno antes. Mi amigo cometió un error allí porque era demasiado largo, por lo que este hábito sugiere que acortes el artículo completo. Es solo una opinión personal, ¡solo como referencia!