Class Line_ (unit DXF_structs)

Inherits from

Point_

///////////////////////////////////////////////////////////////////////////// Line Definition /////////////////////////////////////////////////////////////////////////////

Constructors


constructor create(p_1,p_2:Point3D; col:integer);

///////////////////////////////////////////////////////////////////////////// Line /////////////////////////////////////////////////////////////////////////////


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 details : string;


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


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


procedure max_min_extents(var emax,emin:Point3D);


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


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


procedure translate(T:Point3D);


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


Properties

Events

Variables

p2 : Point3D;



Constructors


constructor create(p_1,p_2:Point3D; col:integer);

///////////////////////////////////////////////////////////////////////////// Line /////////////////////////////////////////////////////////////////////////////


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 details : string;


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


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


procedure max_min_extents(var emax,emin:Point3D);


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


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


procedure translate(T:Point3D);


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


Properties


Events


Variables


p2 : Point3D;