Форум: "Основная";
Текущий архив: 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 ?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c
