如何批量画一排线

bigzhang

我需要画一排平行的线，其间隔固定，用了下面的指令：

1. GridNumber = 5;
   
2. MidLine = OpenD(0);
   
3. GridSize = 10;
   
4. 
   
5. for  i = 0 To GridNumber
   
6.     {
   
7.          DrawLine = MidLine + GridSize * i;
   
8.          PlotNumeric(“Line",DrawLine,0,LightGray);
   
9.         }

复制代码

原以为可以画出6根线，结果只有最后一根画出来了。
于是试图改下面的指令：

1. for  i = 0 To GridNumber
   
2.     {
   
3.          DrawLine = MidLine + GridSize * i;
   
4.          PlotNumeric(“Line"+Text(i),DrawLine,0,LightGray);
   
5.         }

复制代码

被拒绝。
一定要第一个是个字符串常量。
请问我如何快速的画出一排平行线？
前提是我的线的数量是可以变动的，就是那个GridNumber。
如果要每根线做个指令，那要是上下各画10根线，每根线写一句代码，这太夸张了吧。

zzzlondon

帮忙顶，同问

Ransoros

好像只能这样哦，plotnumeric线条名字不允许使用变量。

lh948

回复 1# bigzhang


PlotNumeric第一个参数是字符常量，不能用变量。