• APS
  • Восстановленный участник
  • На форуме с 25 февраля 2005г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Interface not supported

Не знаю, что делать
выскакивает Interface not supported
а код такой
procedure TForm1.Button3Click(Sender: TObject);
var
L    : IAcadPolyline;
IDE   : IDispatch;
Point : OleVariant;
begin
AcadDocument1.Application.ActiveDocument.Utility.GetEntity(IDE, Point, 'Укажите объект');
L := IDE as IAcadPolyline; // <--ERROR ?!?!?!?!
Memo1.Lines.Add(vartostr(L.Coordinates));
end;
Помогите пожалуйста кто может!!! В чем проблема? (AutoCad 2004 & Delphi 7)

  • callisto
  • Восстановленный участник
  • На форуме с 17 июня 2004г.
  • Сообщений: 204
  • Спасибо: 0

Re: Interface not supported

а в доке как этот метод (GetEntity) расписан,
у меня 2002 и для него  IDE использовать надо как OLEVariant, а потом еще проверить что за объект был выбран (может это не Polyline)...
из доки:
object.GetEntity Object, PickedPoint[, Prompt]
Object   Utility The object or objects this method applies to.
Object  Object; output-only  The picked object. Can be one of any of the Drawing Objects.
PickedPoint  Variant (three-element array of doubles); output-only
A 3D WCS coordinate specifying the point that was selected.
Prompt  Variant (string); input-only; optional
The text to display to prompt the user for input.
а как в 2004 ???