Could anyone help me? I use function GetPtL in script and i have a problem. If start and end points are equal then i have artefact - thin line from end point to the point (0,0). Now I use VW 10.01 for PC. In version 8.5 there is no such problem. I think this is problem of VW10.
Procedure WireTool;
VAR
x,y,x1,y1 : REAL;
Procedure Lines;
BEGIN
MoveTo(x,y);
LineTo(x1,y1);
SetDSelect(LNewObj);
ReDraw;
END;
BEGIN
DSelectAll;
GetLine(x,y,x1,y1);
Lines;
i:=0;
Repeat
x:=x1;
y:=y1;
GetPtL(x,y,x1,y1);
Lines;
i:=i+1;
Until (x=x1) and (y=y1);
END;
RUN(WireTool);
Help me please!