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 /////////////////////////////////////////////////////////////////////////////
constructor create;
- ///////////////////////////////////////////////////////////////////////////// DXF_Entity - abstract base class - override where neccessary /////////////////////////////////////////////////////////////////////////////
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);
colinx : integer;
colour : TColor;
OCS_axis : Point3D;
OCS_WCS : pMatrix;
constructor create;
///////////////////////////////////////////////////////////////////////////// DXF_Entity - abstract base class - override where neccessary /////////////////////////////////////////////////////////////////////////////
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);
colinx : integer;
colour : TColor;
OCS_axis : Point3D;
OCS_WCS : pMatrix;