How to read Hatch entity ?
Posted: 17 Mar 2015, 19:00
Hello
i want read entity CurvePolygon ( Hatch circle in joint image ) in a DXF File, for a conversion in my software dessin.
i must read each boundaries, vertex, line...or other entity ( if presents off course ).
i can not / Can you help me ?
Note : i want joint a image: BMP: not allowed !
JPG or PNG : Could not upload attachment to ./files/8725_3e4e85547ddfefc241dd38713166138f. ??
DXF : not alloweed ??
Bug or ??????????????????????
thanks / Pascal
my ( bad ) code :
vPoly: Tsg2DPolyline;
xP1,xP2: TF2DPoint;
sgCADCurvePolygon:TsgCADCurvePolygon;
vHatch: TsgCADCurvePolygon;
vBoundaryList: Tsg2DBoundaryList;
begin
if Sender is TsgCADCurvePolygon then
begin
sgCADCurvePolygon := Sender as TsgCADCurvePolygon;
i := sgCADCurvePolygon.Boundaries.Count;
O := sgCADCurvePolygon.Boundaries.Items[0];;
vBoundaryList := sgCADCurvePolygon.BoundaryData.Items[0];
i := vBoundaryList.Count;
for i := 0 to vBoundaryList.Count - 1 do
begin
vPoly := vBoundaryList.Items;
for j := 0 to vPoly.Count - 1 do
begin
xP1 := vPoly.StartPoint;
xP2 := vPoly.EndPoint;
i want read entity CurvePolygon ( Hatch circle in joint image ) in a DXF File, for a conversion in my software dessin.
i must read each boundaries, vertex, line...or other entity ( if presents off course ).
i can not / Can you help me ?
Note : i want joint a image: BMP: not allowed !
JPG or PNG : Could not upload attachment to ./files/8725_3e4e85547ddfefc241dd38713166138f. ??
DXF : not alloweed ??
Bug or ??????????????????????
thanks / Pascal
my ( bad ) code :
vPoly: Tsg2DPolyline;
xP1,xP2: TF2DPoint;
sgCADCurvePolygon:TsgCADCurvePolygon;
vHatch: TsgCADCurvePolygon;
vBoundaryList: Tsg2DBoundaryList;
begin
if Sender is TsgCADCurvePolygon then
begin
sgCADCurvePolygon := Sender as TsgCADCurvePolygon;
i := sgCADCurvePolygon.Boundaries.Count;
O := sgCADCurvePolygon.Boundaries.Items[0];;
vBoundaryList := sgCADCurvePolygon.BoundaryData.Items[0];
i := vBoundaryList.Count;
for i := 0 to vBoundaryList.Count - 1 do
begin
vPoly := vBoundaryList.Items;
for j := 0 to vPoly.Count - 1 do
begin
xP1 := vPoly.StartPoint;
xP2 := vPoly.EndPoint;