Здраствуйте, уважаемые дамы и господа.
В этой статье я опишу как подключиться к интерфейсу Autocad через variant и создать простой 2D документ
//для начала объявим библиотеку
uses comobj;
…
//объявляем перенные
var Acad,docs,doc:variant;
…
// подключаемся или создаем интерфейс AutoCAD
// try except end — исключаем ошибки
try
//подключаемся в AutoCAD
acad:=getactiveoleobject(‘AutoCAD.application’);
except
try
//если нет AutoCAD, создаем сами
acad:=createoleobject(‘AutoCAD.application’);
except
//если не можем создать, значит не можем найти
showmessage(‘Не найден AutoCAD’);
//выходим из программы
exit;
end;
end;
…
//создаем новый документ
//создаем коллекцию документов
docs:=acad.documents;
//добавляем новый пустой докуиент
doc:=docs.add(‘Primer’);
//сохраняем его в папке по умолчанию
doc.save;