ADN Club > VBA
Обсуждение видеоуроков AutoCAD VBA
ediczr2012:
Добрый день.
При выполнении скрипта VBA Вставка блока
Возникает ошибка:
Run-time error ‘-2147418113 (8000ffff)’
Automation error
Catastrophic failure
В чем причина ошибки ?
Алексей Кулик:
Для начала - текстом указать версию и разрядность AutoCAD. Далее - код в студию (и, возможно, проект). Также текстом описать место ошибки. Просматривать непонятные ролики на ресурсе, к которому у меня на работе заблокирован доступ, я не стану.
У меня в ACAD2009x64 (другой сейчас использовать не могу - это последняя версия, на которую у меня установлен VBA) прекрасно сработал код
--- Код - Visual Basic [Выбрать] ---Option Explicit Public Sub InsBlock()Dim blkRef as AcaBlockReferenceDim pt as VariantDim sName as String sName = "testblock" pt = ThisDrawing.Utility.GetPoint(, "Insertion point : ") Set blkRef = ThisDrawing.ModelSpace.InsertBlock(pt, sName, 1, 1, 1, 0)End Sub
Максим Маркевич:
Алексей Кулик, я не на работе, посмотрел с ютубчика.
В общем, AutoCAD 2012 (разрядность не смог определить по видео :) ).
Код взят из поста #4 данной темы.
Текст ошибки:
Run-time error ‘-2147418113 (8000ffff)’
Automation error
Catastrophic failure
Ошибка в строке:
--- Код - Visual Basic [Выбрать] ---pp = ThisDrawing.Utility.GetPoint(, "Укажите точку вставки блока:")
Я не совсем понимаю, с чем она связана.
ediczr2012, напиши разрядность AutoCAD и прикрепи проект .dvb.
ediczr2012:
autoCAD 2012 разрядность 32 версия продукта F107.0.0 SP1
Алексей Кулик:
ediczr2012, задавай вопросы текстом, а не видеороликами.
Навигация
Перейти к полной версии