Class Entity_List (unit DXF_structs)

Inherits from

TObject

Constructors


constructor create(l_name:string);

///////////////////////////////////////////////////////////////////////////// Entity_List class implementation /////////////////////////////////////////////////////////////////////////////


Functions

function add_entity_to_list(entity:DXF_Entity) : boolean;


function closest_vertex_square_distance_2D(p:Point3D; var cl:DXF_Entity) : double;


function count_lines : integer;


function count_points : integer;


function count_polys_closed : integer;


function count_polys_open : integer;


destructor destroy;


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


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


function find_bounding_object(p:Point3D) : DXF_Entity;


procedure max_min_extents(var emax,emin:Point3D);


function num_entities : integer;


function remove_entity(ent:DXF_Entity) : boolean;


procedure setcolour(col:integer);


function add_at_end(entity:DXF_Entity) : boolean;


function insert(entity:DXF_Entity) : boolean;


Properties

property name : string


Events

Variables

entities : TList;

see selection.

Kludge_layer : DXF_Layer;


list_name : string;


parent_layer : DXF_Layer;


sorted : boolean;



Constructors


constructor create(l_name:string);

///////////////////////////////////////////////////////////////////////////// Entity_List class implementation /////////////////////////////////////////////////////////////////////////////


Functions


function add_entity_to_list(entity:DXF_Entity) : boolean;


function closest_vertex_square_distance_2D(p:Point3D; var cl:DXF_Entity) : double;


function count_lines : integer;


function count_points : integer;


function count_polys_closed : integer;


function count_polys_open : integer;


destructor destroy;


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


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


function find_bounding_object(p:Point3D) : DXF_Entity;


procedure max_min_extents(var emax,emin:Point3D);


function num_entities : integer;


function remove_entity(ent:DXF_Entity) : boolean;


procedure setcolour(col:integer);


function add_at_end(entity:DXF_Entity) : boolean;


function insert(entity:DXF_Entity) : boolean;


Properties


property name : string


Events


Variables


entities : TList;

see selection.save...


Kludge_layer : DXF_Layer;


list_name : string;


parent_layer : DXF_Layer;


sorted : boolean;