|
把光标激活就可以任意显示了^_^
另一个上升角度线和下降角度线 同时显示的原码如下,调整参数可以切换显示方式:
参数:
点方位(1,1,2)
线方向(1,1,2)
k:=(SYSPARAM(4)-SYSPARAM(5))/
(SYSPARAM(3)-SYSPARAM(2));
if 点定位=1 then
begin
if 线方向=1 then
begin
DRAWSL(filter(h=SYSPARAM(4),(sysparam(3)-sysparam(2))),h, -30*k/120 ,0,0),COLORyellow;
DRAWSL(filter(h=SYSPARAM(4),(sysparam(3)-sysparam(2))),h, -40*k/120 ,0,0),COLORyellow;
DRAWSL(filter(h=SYSPARAM(4),(sysparam(3)-sysparam(2))),h, -60*k/120 ,0,0),COLORyellow;
DRAWSL(filter(h=SYSPARAM(4),(sysparam(3)-sysparam(2))),h, -120*k/120 ,0,0),COLORGREEN,LINETHICK2;
DRAWSL(filter(h=SYSPARAM(4),(sysparam(3)-sysparam(2))),h, -240*k/120 ,0,0),COLORyellow;
DRAWSL(filter(h=SYSPARAM(4),(sysparam(3)-sysparam(2))),h, -360*k/120 ,0,0),COLORyellow;
DRAWSL(filter(h=SYSPARAM(4),(sysparam(3)-sysparam(2))),h, -480*k/120 ,0,0),COLORyellow;
end;
if 线方向=1 then
begin
DRAWSL(filter(l=SYSPARAM(5),(sysparam(3)-sysparam(2))),l,30*k/120,0,0),COLORWHITE;
DRAWSL(filter(l=SYSPARAM(5),(sysparam(3)-sysparam(2))),l,40*k/120,0,0),COLORWHITE;
DRAWSL(filter(l=SYSPARAM(5),(sysparam(3)-sysparam(2))),l,60*k/120,0,0),COLORWHITE;
DRAWSL(filter(l=SYSPARAM(5),(sysparam(3)-sysparam(2))),l,120*k/120,0,0),COLORRED,linethick2,;
DRAWSL(filter(l=SYSPARAM(5),(sysparam(3)-sysparam(2))),l,240*k/120,0,0),COLORWHITE;
DRAWSL(filter(l=SYSPARAM(5),(sysparam(3)-sysparam(2))),l,360*k/120,0,0),COLORWHITE;
DRAWSL(filter(l=SYSPARAM(5),(sysparam(3)-sysparam(2))),l,480*k/120,0,0),COLORWHITE;
end ;
end;
if 点定位=2 then
begin
if 线方向=1 then
begin
DRAWSL(barpos=SYSPARAM(1),h,-30*k/120,0,0),COLORyellow;
DRAWSL(barpos=SYSPARAM(1),h,-40*k/120,0,0),COLORyellow;
DRAWSL(barpos=SYSPARAM(1),h,-60*k/120,0,0),COLORyellow;
DRAWSL(barpos=SYSPARAM(1),h,-120*k/120,0,0),COLORGREEN,LINETHICK2;
DRAWSL(barpos=SYSPARAM(1),h,-240*k/120,0,0),COLORyellow;
DRAWSL(barpos=SYSPARAM(1),h,-360*k/120,0,0),COLORyellow;
DRAWSL(barpos=SYSPARAM(1),h,-480*k/120,0,0),COLORyellow;
end;
if 线方向=1 then
begin
DRAWSL(barpos=SYSPARAM(1),l,30*k/120,0,0),COLORWHITE;
DRAWSL(barpos=SYSPARAM(1),l,40*k/120,0,0),COLORWHITE;
DRAWSL(barpos=SYSPARAM(1),l,60*k/120,0,0),COLORWHITE;
DRAWSL(barpos=SYSPARAM(1),l,120*k/120,0,0),COLORRED,linethick2;
DRAWSL(barpos=SYSPARAM(1),l,240*k/120,0,0),COLORWHITE;
DRAWSL(barpos=SYSPARAM(1),l,360*k/120,0,0),COLORWHITE;
DRAWSL(barpos=SYSPARAM(1),l,480*k/120,0,0),COLORWHITE;
end ;
end; |
|