jiandan321 发表于 2005-4-18 15:25:00

数组画直线

知道一个一维数组(偶数个元素,即0,1号元素为一号点,2,3号元素为二号点,依次类推),如何把这些点连成一条直线?


知道的高手请帮忙,跪谢!


QQ:24004936

ZZXXQQ 发表于 2005-4-20 08:54:00

本帖最后由 作者 于 2005-4-21 8:47:51 编辑 <br /><br /> 试一下下面的程序，看是否能满足楼主的要求（程序未经调试）。



(DEFUN C:MYLINE ()<BR>        (SETVAR "CMDECHO" 0)<BR>        (SETQ OLDOS (GETVAR "OSMODE"))<BR>        (SETVAR "OSMODE" 0)<BR>        (IF (SETQ F (OPEN "DATATABE" "r")) (PROGN<BR>       (COMMAND ".UNDO" "BE")<BR>       (WHILE (SETQ DT (READ-LINE F))<BR>               (SETQ DT (READ (STRCAT "(" (READ-LINE" F) ")")))<BR>               (SETQ DL (/ (LENGTH DT) 2))<BR>               (SETQ I 1)<BR>               (SETQ PT (LIST (NTH 0 DT) (NTH 1 DT)))<BR>               (COMMAND "PLINE" PT)<BR>               (REPEAT (- DL 1)<BR>                       (SETQ PT (LIST (NTH (+ I I) DT) (NTH (+ 1 I I) DT)))<BR>                       (COMMAND PT)<BR>                       (SETQ I (1+ I))<BR>               )<BR>               (COMMAND "")<BR>       )<BR>       (CLOSE F)<BR>       (COMMAND ".UNDO" "E")<BR>        ))<BR>        (SETVAR "OSMODE" OLDOS)<BR>        (SETVAR "CMDECHO" 1)<BR>        (PRINC)<BR>)

jiandan321 发表于 2005-4-21 16:43:00

首先谢谢您回帖!我只会VBA,看不懂您的代码，麻烦您重新给我发一个。


       


       


还有一点要强调的是：数组内的元素，连直线时，要分析怎么连起来是一条折线（尽量是最短的），但不是来回画成的折线

雪山飞狐_lzh 发表于 2005-4-21 18:02:00

直接创建多段线不简单些么？
页: [1]
查看完整版本: 数组画直线