数组画直线

jiandan321

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


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


QQ:24004936

ZZXXQQ

试一下下面的程序，看是否能满足楼主的要求（程序未经调试）。 (DEFUN C:MYLINE ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(IF (SETQ F (OPEN "DATATABE" "r")) (PROGN
(COMMAND ".UNDO" "BE")
(WHILE (SETQ DT (READ-LINE F))
(SETQ DT (READ (STRCAT "(" (READ-LINE" F) ")")))
(SETQ DL (/ (LENGTH DT) 2))
(SETQ I 1)
(SETQ PT (LIST (NTH 0 DT) (NTH 1 DT)))
(COMMAND "PLINE" PT)
(REPEAT (- DL 1)
(SETQ PT (LIST (NTH (+ I I) DT) (NTH (+ 1 I I) DT)))
(COMMAND PT)
(SETQ I (1+ I))
)
(COMMAND "")
)
(CLOSE F)
(COMMAND ".UNDO" "E")
))
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)

jiandan321

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


       


       


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

雪山飞狐_lzh

直接创建多段线不简单些么？