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

Тема: Изменение радиуса окружностей.

Доброго времени суток!
подскажите пожалста что сдесь не так?
взялся за дельфи не давно..... не судите строго ;)

var
   cirObj:     IAcadCircle;
   selset:     iacadselectionset;
    FilterType: OleVariant;
   FilterData: OleVariant;
   acdoc:iAcadDocument;
   i:integer;
        begin
   acdoc:=AcadD1.Application.ActiveDocument;
   selset:=acdoc.SelectionSets.Add('uyoukklui') ;
   FilterType:=VarArrayCreate([0,0],VT_I2);
   FilterData:=VarArrayCreate([0,0],VT_VARIANT);
   FilterType[0]:=0;
   FilterData[0]:='Circle';
   //FilterType[1]:=8;
  // FilterData[1]:=adoc.ActiveLayer.Name;
   selset.Select ( acSelectionSetAll,EmptyParam, EmptyParam,FilterType, FilterData);
    for i:=0 to selset.Count - 1 do
   begin
    selset.Item(i)
       end;
   for i:=0 to selset.Count-1 do
   cirObj(i).Radius:=cirObj(i).Radius+1 ;        <----в этом цикле пишет обшибку замучился уже
  selset.Delete;
end;

заранее благодарен

  • На форуме с 21 июня 2004г.
  • Сообщений: 31
  • Спасибо: 0

Re: Изменение радиуса окружностей.

var
   IAcad:IAcadApplication;
   AcDoc:IAcadDocument;
   cirObj:     IAcadCircle;
   SelSet:     iacadselectionset;
   FilterType: OleVariant;
   FilterData: OleVariant;
   i:integer;
begin
  IAcad:=GetActiveOleObject('AutoCAD.Application') as IAcadApplication;
  AcDoc:=IAcad.ActiveDocument;
  SelSet:=AcDoc.SelectionSets.Add('uyoukklui') ;
  FilterType:=VarArrayCreate([0,0],varSmallint);
  FilterData:=VarArrayCreate([0,0],varVariant);
  FilterType[0]:=0;
  FilterData[0]:='Circle';
  //FilterType[1]:=8;
  // FilterData[1]:=adoc.ActiveLayer.Name;
  SelSet.Select(acSelectionSetAll,EmptyParam, EmptyParam,FilterType, FilterData);
  for i:=0 to selset.Count - 1 do
    begin
      with (SelSet.Item(i) as IAcadCircle) do
        begin
          Radius:=Radius+1;
          Update;
        end;
      {//или так
      cirObj:=(SelSet.Item(i) as IAcadCircle);
      cirObj.Radius:=cirObj.Radius+1;
      cirObj.Update;}
    end;
  SelSet.Delete;
  AcDoc:=nil;
  IAcad:=nil;
end;

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

Re: Изменение радиуса окружностей.

Леприкон
Огромнейшее спасибо вам :)