Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
ВнизРабота с autuCAD через Delphi6 Найти похожие ветки
← →
andreyDAN (2002-03-23 11:03) [0]Помогите кто может! Как создать приложения для управлениия AutoCAD 2000 из под D6
Я пытался создать ComObject, прописывал его в разделе uses, ну и далее как в песне
...
uses ComObj, ...
...
var
Form1: TForm1;
Acad: Variant;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
acad := CreateOleObject("AutoCAD.application");
acad.viziblt := true;//
except
Exception.create("Error");
...
end;
Вся проблемма в том, что при создании объекта, происходит сбой, что делать ???
end.
← →
ShaggyDoc (2002-03-25 07:12) [1]Надо так
try
// Проверяем, запущен ли Автокад
Acad := GetActiveOleObject("AutoCAD.Application");
except
// если не запущен - запускаем его
Acad:= CreateOleObject("AutoCAD.Application");
end;
// делаем Автокад видимым
Acad.visible:= True;
Но лучше импортировать библиотеку типов, чем работать вслепую. Сейчас ты можешь написать и "acad.viziblt" и "acad.MustDie" и компилятор все пропустит.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c