AW: DXF und Flächeninhalt
Natürlich. Die hatten vermutlich nur keinen Bock dir das zu erläutern? Dort kriegst du alles was du willst. Daraus kannst du ggf. Flächeninhalte ermitteln. Dir auch frohe Weihnachten. :)
Delphi-Quellcode:
function TAutoCadImportierenForm.ReadCADEntities(Entity: TsgDXFEntity): Integer;
begin Result := 0; DoScale2D(FsgCADIterate); if Entity.EntType = ceViewport then begin Result := 1; ImportViewPortBegin(Entity); end else if Entity.Visibility then begin case Entity.EntType of ceLine: ImportLine(Entity); cePoint: ImportPoint(Entity); ceCircle: ImportCircle(Entity); ceArc: ImportArc(Entity); ceEllipse: ImportEllipse(Entity); cePolyline, cePath: ImportPolyLine(Entity); ceFlatPoly: ImportFlatPolyLine(Entity); ceSpline, ceLeader: ImportSpline(Entity); ceSolid: ImportSolid(Entity); end; end; end; procedure TAutoCadImportierenForm.ImportPolyLine(Sender: TObject); var sgDXFPolyLine: TsgDXFPolyLine; P: TFPoint; I: Integer; Vertex: TsgDXFVertex; begin sgDXFPolyLine := TsgDXFPolyLine(Sender); for I := 0 to sgDXFPolyLine.Count - 1 do begin Vertex := TsgDXFVertex(sgDXFPolyLine.Entities[I]); P := FPointXMat(Vertex.Point, FsgCADIterate.Matrix); AddSnapPoint(P); end; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:24 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz