Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

OleVariant (AutoCAD) 


Андре   (2002-03-11 10:25) [0]

Возникла необходимость построения в AutoCad из моей программы нескольких фигур. Я импортировал Type Library и все бы хорошо, но возникли трудности при вызове функции GetPoint.
В AutoCad_TLB она объявлена следующим образом:

function GetPoint(Point: OleVariant; Prompt: OleVariant): OleVariant; safecall;

Я пробую делать так:

var Acad : IAcadApplication;
ActiveDocument : IAcadDocument;
ModelSpace : IAcadBlock;
InsertPoint,Promt, Pnt : OLEVariant;
V : variant;
Utility : IAcadUtility;

Acad:=GetActiveOLEObject("AutoCAD.Application") as AcadApplication;
ActiveDocument:=Acad.ActiveDocument;
ModelSpace:=ActiveDocument.ModelSpace;

InsertionPoint:=VarArrayCreate([0,2],varVariant);
InsertionPoint[0]:=100; InsertionPoint[1]:=100; InsertionPoint[2]:=0;

Utility:=ActiveDocument.Utility;
Promt:="dsfa";

Pnt:=Utility.GetPoint(InsertPoint, Promt);

При выполнении последней команды возникает ошибка:

Invalid argumentPoint in GetPoint.

Как я понял, я не правильно задаю InsertPoint.

В VBA это выглядело следующим образом:

Dim basePnt(0 To 2) As Double
basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0#
returnPnt = ThisDrawing.Utility.GetPoint(basePnt, "Enter a point: ")

А как это сделать в Delphi ?



Milz   (2002-03-11 10:49) [1]

Скорее всего проблема в том, что ты работаешь с IAcadDocument и т.п., а нада с IAcadDocumentDisp и т.п. ведь ты работаешь через OLE ... по крайней мере у меня часто акад вылетал и глючил именно из-за этого.
Причём обрати внимание, что Mcad.ActiveDocument возвращает IMcadDocument, а надо IMcadDocumentDisp и т.п. ...
См. пример для МДТ


uses comobj,McadAuto_TLB,AutoCAD_TLB;

var Acad:IAcadApplicationDisp;
Mcad:IMcadApplicationDisp;
McadDoc:IMcadDocumentDisp;

procedure TForm1.Button1Click(Sender: TObject);
var MPart:IMcadPartDisp;
begin
try
// связываемся с запущенным автокадом
acad:=GetActiveOleObject("AutoCAD.Application") as IAcadApplicationDisp;
except
// возникла ошибка EOleSysError, значит с автокадом не удалось связаться - создаём объект - автокад
acad:=CreateOLEObject("AutoCAD.Application") as IAcadApplicationDisp;
end;
acad.Visible:=true; // иначе мы ничего не увидим ...
// связываемся с мдт через автокад
Mcad:=acad.GetInterfaceObject("Mcad.Application") as IMcadApplicationDisp;
// текущий документ мдт
McadDoc:=mcad.ActiveDocument as IMcadDocumentDisp;

// для примера добавим парт
MPart:=McadDoc.AddNewPart("MainPart") as IMcadPartDisp;
end;



ShaggyDoc   (2002-03-11 11:44) [2]

>Андре ©
acad:=IAcadApplication(GetActiveOLEObject("AutoCAD.Application"));
ActiveDocument:=Acad.ActiveDocument;

....
Точки надо описывать так
InsertionPoint:=VarArrayCreate([0,2],VT_R8);
// VT_R8 = 5; 8-байтовое действительное
// определение в ActiveX.Pas
InsertionPoint[0]:=100; InsertionPoint[1]:=100; InsertionPoint[2]:=0;

pnt:=ActiveDocument.Utility.GetPoint(InsertionPoint,"Укажи точку, зараза:")



Андре   (2002-03-11 12:35) [3]

2 Milz: Что такое IAcadApplicationDisp ? Я не нашел его объявления в импортированной библиотеке типов(AutoCAD 2002) ?


2 ShaggyDoc: Спасибо. Это помогло.


Еще один вопрос: все это работало дома, принес на работу и на строке:

ModelSpace:=ActiveDocument.ModelSpace;

появляется ошибка:

EOleException with message "No database".

Никто не знает в чем дело ? Причем тут database ?




ShaggyDoc   (2002-03-11 13:52) [4]

Он базарит про графическую базу данных документа. Возможно сейчас вообще нет открытого документа и, соотвественно, ModelSpace. Именно здесь и обрабатываются ощибки, то есть как бы добавлен скрытый try except.

Milz выше написал пример обработки



Milz   (2002-03-11 15:41) [5]

2 Андре
Не люблю много цитировать, но вижу придётся. Кто-то кому-то это уже объяснял следующим одразом:

--------------------------------------------------------
IDispatch - это не класс, а интерфейс объекта, генерируемого фабрикой класса.
Все диспинтерфейсы унаследованы от IDispatch. Для доступа к методам и свойствам конкретного интерфейса (наследника IDispatch) необходимо наличие библиотеки типов (TLB - Type Library) интерфейсных объектов, создаваемых классом (в дан.случае - компонентом класса WebBrowser).

Например, где-то в TLB объекта, реализуемого классом WebBrowser, имеется примерно такая декларация:

IWebDocument = interface(IDispatch)
... здесь объявлены методы интерфейса IWebDocument
end;

IWebDocumentDisp = dispinterface (соответствующий ему диспинтерфейс)
... а здесь соотв-но объявлены одноименные методы и public-св-ва интерфейса IWebDocument, доступ к которым возможен через механизм OLE Automation
end;

тогда обращение к интерфейсу объекта Document может выглядеть в твоем коде след.образом:

var
WebDocDispIntf: IWebDocumentDisp; // заметь - соотв.диспинтерфейс, а не просто интерфейс !!!!!
...
WebDocDispIntf := WebBrowser.Document as IWebDocumentDisp;

приведенный пример реализует раннее связывание (как более эффективное) и требует при компиляции наличия файла-прототипа библ-ки типов объекта WebBrowser. Файл-прототип или уже есть среди исходников компонента, либо его можно получить ср-вами Делфи в меню Import Type Library, указав в кач-ве источника файл, содержащий саму библку типов (например, WebBrowser.tlb).
В рез-те успешного импорта Делфи создаст файл, например, WebBrowser_TLB.pas, который необходимо подключить к проекту в соотв.модулях в разделах USES. По инф-ции в *.tlb и *_TLB.pas можно уже судить о методах и св-вах (и их типах) интересующих интерфейсов и применять их осознанно.
Многие *.tlb-файлы содержат и краткие описания всех объектов (методов, св-в, идентификаторов) в их составе. Делфи содержит встроенные ф-ции просмотра/модификации *.tlb-файлов.

--------------------------------------------------------

Т.е. твой пример может и работать, но более вероятно, что далее полезут ошибки, что вроде уже и начинается: дома работает, а на работе нет, а отличие всего-лишь в подверсии ОС, русификации акада и т.п. мелочах ...




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.015 c
7-80709           Kirill                2001-12-21 20:26  2002.03.25  
Format Date


1-80518           Nuce                  2002-03-13 02:53  2002.03.25  
TPagecontrol?


1-80467           kull                  2002-03-11 17:42  2002.03.25  
Помогите найти программные инструменты для анализа кода!


1-80481           spp211                2002-03-12 08:39  2002.03.25  
Преобразование приложений под Web.


3-80436           wicked                2002-02-27 12:05  2002.03.25  
join в 8