第一，你这也不是旗舰版语法，旗舰版没有那么多begin end  只有一对

第二，旗舰版没有plothorzline这个函数，也没有if then这种写法，你说旗舰版能用，我严重怀疑。

水平线在quant版本是由作图课程里说过的，直播过怎么画，可以看一下学习。

用DeepSeek AI 回答的。我只是转抄，你自己验证。老师看这个回到如何。

----------------------------------------------------

你的代码逻辑基本正确，但在语法和逻辑细节上存在一些问题，导致无法正常编译或运行。以下是修正后的代码，并附上问题分析和改进建议：

修正后的代码

pascal

复制

Vars:
    Bool drawn(False);          // 标记是否已绘制
    NumericArray highs[6](0);   // 存储6个高点
    Numeric i;                  // 循环变量
    Numeric today(0);           // 当前交易日

Begin
    today = GetTradingDay();    // 获取当前交易日

    // 新交易日重置标记
    If (today != today[1]) Then
    Begin
        drawn = False;
    End;

    // 开盘30分钟后且Bar已结束时执行
    If (Not drawn And Time >= 093000 And BarStatus == 2) Then
    Begin
        // 获取前6根K线的高点
        For i = 0 To 5
        Begin
            highs[i] = High[i];
        End;
        drawn = True; // 标记为已绘制
    End;

    // 绘制水平线（持续绘制）
    If (drawn) Then
    Begin
        For i = 0 To 5
        Begin
            PlotHorzLine(
                highs[i],                   // Y轴数值
                "HL_" + Text(today) + "_" + Text(i), // 唯一名称
                ColorRed,                   // 颜色
                1,                          // 线宽
                0,                          // 线型（实线）
                False,                      // 不延长
                "HighLines"                 // 分组名称
            );
        End;
    End;
End

问题分析与改进

1. BarStatus 的使用：BarStatus == 2 表示当前K线已经结束，这是一个正确的判断条件。但需要注意，BarStatus 的值在不同平台中可能有所不同，确保你的平台支持该变量。
2. highs[i] = High[i] 的索引问题：High[i] 表示当前K线往前第 i 根K线的高点。确保数据足够，否则 High[i] 可能返回无效值。可以在代码中加入数据长度检查。
3. PlotHorzLine 的参数问题：PlotHorzLine 的参数顺序和类型需要与平台API一致。修正后的代码已调整参数顺序。确保 Text() 函数能够正确将数值转换为字符串。
4. drawn 的重置逻辑：你的逻辑是在新交易日重置 drawn 为 False，这是正确的。但需要注意 today[1] 的使用，确保平台支持对历史数据的访问。
5. 时间判断 Time >= 093000：Time 是当前K线的时间，格式为 HHMMSS。确保 Time 的值是整数类型，且 093000 表示 9:30:00。
6. 水平线的唯一名称：使用 "HL_" + Text(today) + "_" + Text(i) 作为唯一名称，确保每条水平线的名称唯一。如果 today 或 i 的值过大，可能会导致名称过长，建议限制长度。

进一步优化建议

1. 增加数据长度检查：在获取 High[i] 之前，检查数据长度是否足够：pascal复制If (BarCount > 5) Then Begin For i = 0 To 5 Begin highs[i] = High[i]; End; End;
2. 动态调整水平线：如果需要动态更新水平线，可以在每次满足条件时清除旧的水平线，重新绘制：pascal复制If (drawn) Then Begin // 清除旧的水平线 DeleteHorzLine("HighLines"); // 绘制新的水平线 For i = 0 To 5 Begin PlotHorzLine( highs[i], "HL_" + Text(today) + "_" + Text(i), ColorRed, 1, 0, False, "HighLines" ); End; End;
3. 日志输出：添加日志输出，便于调试：pascal复制If (Not drawn And Time >= 093000 And BarStatus == 2) Then Begin Print("绘制水平线，时间: ", Time); For i = 0 To 5 Begin highs[i] = High[i]; Print("高点", i, ": ", highs[i]); End; drawn = True; End;

总结

修正后的代码可以正常编译和运行，能够实现开盘30分钟后绘制前6根K线高点的水平线。如果仍有问题，请检查平台API的兼容性，并确保数据足够。

自己如果看不懂建议不要发上来了。