Тема: Операции с selectionset

в Visual Basic

for each entity in selectionset
           * * *
         (ent.move, ent.scaleentity и др.
         next ent

Как это будет в Delphi?

Re: Операции с selectionset

procedure TForm1.Button1Click(Sender: TObject);
var ssSet:IAcadSelectionSet;
    i:integer;
begin
  ssSet:=IAcad.ActiveDocument.SelectionSets.Add('My ssSet');
  ssSet.SelectOnScreen(EmptyParam,EmptyParam);
  for i:=0 to ssSet.Count-1 do
    begin
      ssSet.Item(i).ScaleEntity(...);
    end;
  ssSet.Delete;
end;

Re: Операции с selectionset

Спасибо за подсказку . Работает вроде нормально, но выдает неопознанную ошибку.

Re: Операции с selectionset

Что, и даже так?

procedure TForm1.Button1Click(Sender: TObject);
var IAcad:IAcadApplication;
    ssSet:IAcadSelectionSet;
    i:integer;
    Point:OleVariant;
begin
  IAcad:=GetActiveOleObject('AutoCAD.Application') as IAcadApplication;
  if IAcad=nil then Exit;
  ssSet:=IAcad.ActiveDocument.SelectionSets.Add('My ssSet');
  ssSet.SelectOnScreen(EmptyParam,EmptyParam);
  Point:=IAcad.ActiveDocument.Utility.GetPoint(EmptyParam,'Укажите точку');
  for i:=0 to ssSet.Count-1 do
    begin
      ssSet.Item(i).ScaleEntity(Point,1.5);
      ssSet.Item(i).Update;
    end;
  ssSet.Delete;
  IAcad:=nil;
end;

Re: Операции с selectionset

Я понял свою ошибку:
надо

for i:=0 to ssSet.Count-1 do

а я написал:

for i:=0 to ssSet.Count do

поэтому и выдавало ошибку.
Большое спасибо.

Re: Операции с selectionset

> Kostya
Кеды в магазине тоже будешь брать в количестве 3-х штук? :)))
(шутка)