TsgDXFPolyline.Arrows
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