TsgDXFPolyline.Arrows

TsgDXFPolyline

  Classes Reference > CAD Database structure > Entities > TsgDXFPolyline > TsgDXFPolyline Properties >

TsgDXFPolyline.Arrows

TsgDXFPolyline

Previous pageReturn to chapter overviewNext page

property Arrows: TFPointList;

Description

Indicates the list that contains coordinates of dimension line arrowheads.

Example

The following example displays how to find item of the Arrows list by coordinates.

 

function IsArrowExist(APoly: TsgDXFPolyline; const ArrowCoord: TFPoint): Boolean;

var

 I: Integer;

 Pt: TFPoint;

begin

 Result := False;

 I := 0;

while I <= APoly.Arrows.Count - 3 do

begin

   Pt := FPoint(Single(APoly.Arrows[I]), Single(APoly.Arrows[I + 1]),

     Single(APoly.Arrows[I + 2]));

   Result := (Pt.X = ArrowCoord.X) and (Pt.Y = ArrowCoord.Y)

    and (Pt.Z = ArrowCoord.Z);

  if Result then

     Break;

   Inc(I, 3);

end;

end;

Go to CAD VCL Enterprise