Delphi и Скечер

[rokstar]

Приветствую господа!

Встал в ступор, а именно функция GetCoordinates не возвращает значение.

Сыть задачи заключается в проходе по элементам скечера и получения ряда параметров.
Получаю активный документ, получаю необходимый примитив, затем скечер, и уже потом иду циклом по его элементам.

Код: Выделить всё

                for kLoop := 1 to Sketch.GeometricElements.Count do
                  begin
                      Ge := Sketch.GeometricElements.Item(kLoop);
                      case integer(Ge.GeometricType) of
                        catGeoTypePoint2D : // объявлены как константы (0..12)
                          begin
                              aPoint := VarArrayCreate([0,1], varVariant);
                              Ge.GetCoordinates(aPoint); // после вызова этой функции aPoint не заполняется нужными
                                                                            значениями, а должен!
                              str := 'X = ' + VarToStr(aPoint[0]) + '; Y = ' + VarToStr(aPoint[1]) + ';';
                          end;
                      end;
                      // тут использую полученную str в своих целях
                  end;


не пойму почему GetCoordinates не срабатывает , люди помогите кто чем сможет!

Заранее спасибо!

[booSter]

1. Попробуй "aPoint" объявить просто VARIANT, а не как SAFEARRAY<VARIANT>[0..1]
2. -//- "aPoint" объявить как SAFEARRAY<VARIANT>[0] (нулевая длинна)
3. Объяви "Pt : Point2D", затем в теле цикла выполни присвоение "Pt := Ge", а уже после вызови Pt.GetCoordinates(aPoint)

[rokstar]

2 booSter спасибо за ответ!

Решение было найдено. Видимо при работе с ActiveX Delphi имеет недочеты. Чтобы решить проблему пришлось заюзать MSScriptControl. Сгенерил скрипт на VBA, запустил его, все получилось влет!