利用while和存好的数据文件实现连续画直线

shirleyklove

(defun C:b()
  (setq filepath(findfile "test7.txt"))
  (setq f (open filepath "r"))
  (setq str (read-line f))
  
  (while str
     (setq pt (read str))
     (command "line" pt )
     (setq str (read-line f))

   )
  (close f)

)  
想法：例如存好的文件，想通过程序把这些点依次连起来。上面是我自己的代码，划线部分不知道怎么弄，求大神指教
(0 1)
(1 4)
(2 6)
(3 12)
(4 5)

shirleyklove

自己先顶一下

鱼与熊掌

2. ;读取文件夹里面的字符串生成表
   
3. (defun cx-read (txt_str / str_lst ff data)
   
4.   (setq str_lst nil)
   
5.   (if (setq ff (open txt_str "r"))
   
6.     (progn
   
7.       (while (setq data (read-line ff))
   
8.                                 (setq str_lst (cons data str_lst))
   
9.       )
   
10.       (close ff)
    
11.     )
    
12.   )
    
13.   str_lst
    
14. )

;读取文件夹里面的字符串生成表<br /> (defun cx-read (txt_str / str_lst ff data)<br />   (setq str_lst nil)<br />   (if (setq ff (open txt_str "r"))<br />     (progn<br />       (while (setq data (read-line ff))<br />                                 (setq str_lst (cons data str_lst))<br />       )<br />       (close ff)<br />     )<br />   )<br />   str_lst<br /> )

shirleyklove

鱼与熊掌 发表于 2015-4-25 21:52

thanks,主要是怎么画多段线

xyp1964

2. (defun c:tt ()
   
3.   (if (setq fl (findfile "test7.txt"))
   
4.     (progn
   
5.       (setq fp (open fl "r"))
   
6.       (command "line")
   
7.       (while (setq pt (read-line fp))
   
8.         (command (read pt))
   
9.       )
   
10.       (command "")
    
11.       (close f)
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

(defun c:tt ()<br />   (if (setq fl (findfile "test7.txt"))<br />     (progn<br />       (setq fp (open fl "r"))<br />       (command "line")<br />       (while (setq pt (read-line fp))<br />         (command (read pt))<br />       )<br />       (command "")<br />       (close f)<br />     )<br />   )<br />   (princ)<br /> )

shirleyklove

xyp1964 发表于 2015-4-25 23:16

非常感谢，我也慢慢学习

shirleyklove

shirleyklove 发表于 2015-4-25 22:05
thanks,主要是怎么画多段线

line也可以画，