An untested example
Code: Select all
var
laddr : lyraddr;
ent : entity;
begin
ent_init(ent, entcrc);
ent.color := 15;{any color index from 1 to 255}
ent.crcrad := 3 * onefoot; { 3 foot radius}
{Circles center is initialized at 0,0,0 with base and height at 0. Change other paramters}
ent_add(ent);
{ All entities gets added to current layer}
if lyr_find('Layer2Find',laddr) then
begin
if not lyr_islocked(laddr) then
begin { programmer should make sure layer is not locked otherwise entity will not update}
ent.layer := laddr;
ent_update(ent);
end;
end;
end;
Devinder S Verman
DATACAD LLC
DATACAD LLC