Class DXF_Entity (unit DXF_structs)

Inherits from

TObject

///////////////////////////////////////////////////////////////////////////// DXF_Entity - abstract base class - override where neccessary All DXF objects will become sub classes of this /////////////////////////////////////////////////////////////////////////////

Constructors


constructor create;

///////////////////////////////////////////////////////////////////////////// DXF_Entity - abstract base class - override where neccessary /////////////////////////////////////////////////////////////////////////////


Functions

function closest_vertex(p:Point3D) : Point3D;


function closest_vertex_square_distance_2D(p:Point3D) : double;


function count_lines : integer;


function count_points : integer;


function count_polys_closed : integer;


function count_polys_open : integer;


destructor destroy;


function details : string;


procedure Draw(acanvas:TCanvas; map_fn:coord_convert; OCS:pM);


procedure DrawVertices(acanvas:TCanvas; map_fn:coord_convert; OCS:pM);


procedure init_OCS_WCS_matrix(OCSaxis:Point3D);


function is_point_inside_object2D(p:Point3D) : boolean;


procedure max_min_extents(var emax,emin:Point3D);


function Move_point(p,newpoint:Point3D) : boolean;


function proper_name : string;


procedure quantize_coords(epsilon:double; mask:byte);


procedure setcolour(col:TColor);


procedure setcolour_index(col:integer);


procedure translate(T:Point3D);


procedure update_block_links(blist:TObject);


procedure write_DXF_Point(var IO:textfile; n:integer; p:Point3D);


procedure write_to_DXF(var IO:textfile; layer:string);


Properties

Events

Variables

colinx : integer;


colour : TColor;


OCS_axis : Point3D;


OCS_WCS : pMatrix;



Constructors


constructor create;

///////////////////////////////////////////////////////////////////////////// DXF_Entity - abstract base class - override where neccessary /////////////////////////////////////////////////////////////////////////////


Functions


function closest_vertex(p:Point3D) : Point3D;


function closest_vertex_square_distance_2D(p:Point3D) : double;


function count_lines : integer;


function count_points : integer;


function count_polys_closed : integer;


function count_polys_open : integer;


destructor destroy;


function details : string;


procedure Draw(acanvas:TCanvas; map_fn:coord_convert; OCS:pM);


procedure DrawVertices(acanvas:TCanvas; map_fn:coord_convert; OCS:pM);


procedure init_OCS_WCS_matrix(OCSaxis:Point3D);


function is_point_inside_object2D(p:Point3D) : boolean;


procedure max_min_extents(var emax,emin:Point3D);


function Move_point(p,newpoint:Point3D) : boolean;


function proper_name : string;


procedure quantize_coords(epsilon:double; mask:byte);


procedure setcolour(col:TColor);


procedure setcolour_index(col:integer);


procedure translate(T:Point3D);


procedure update_block_links(blist:TObject);


procedure write_DXF_Point(var IO:textfile; n:integer; p:Point3D);


procedure write_to_DXF(var IO:textfile; layer:string);


Properties


Events


Variables


colinx : integer;


colour : TColor;


OCS_axis : Point3D;


OCS_WCS : pMatrix;