[讨论]：foreach函数的用法

yjtdkj

我有一个程序用到了这个函数，但是不知道哪里不对了，是不是我用的不对？

2. 
   
3.   [FONT=courier new]
   
4. ;;;以下是一个读文本文件，并将内容写到CAD里
   
5. (defun c:10test4 (/ data data_list dat_file ff hh pt)
   
6.   (setq data_list '())
   
7.   (setq        dat_file
   
8.          (getfiled
   
9.            "展点范例"
   
10.            "C:\\Documents and Settings\\cw\\桌面\\lsp练习\\note1"
    
11.            "txt"
    
12.            2
    
13.          )
    
14.   )                                        ;提示用户选取文件名
    
15.   (setq        pt (getpoint "请选择文字的插入点")
    
16.         hh (getreal "请输入字高：")
    
17.   )
    
18.   (setq        ff   (open dat_file "r")        ;读取文件
    
19.         data (read-line ff)
    
20.   )                                        ;读取文件的第一行
    
21.   (while data
    
22.     (setq data_list (cons data data_list))
    
23.     (setq data (read-line ff))
    
24.   )                                        ;读取文件的每一行直到DATA为NIL
    
25.   (setq data_list (reverse data_list))
    
26.   (command "text"
    
27.            "j"
    
28.            "c"
    
29.            pt
    
30.            hh
    
31.            0
    
32.            (foreach txt data_list (command txt ""))
    
33.           
    
34.   )                                        ;画
    
35.   (close ff)                                ;关闭文件
    
36.   (prin1)
    
37. )
    
38. (prompt "<<10test4>>程序")
    
39. (prin1)
    
40.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;以下是一个读文本文件，并将内容写到CAD里<br /> (defun c:10test4 (/ data data_list dat_file ff hh pt)<br />   (setq data_list '())<br />   (setq        dat_file<br />          (getfiled<br />            "展点范例"<br />            "C:\\Documents and Settings\\cw\\桌面\\lsp练习\\note1"<br />            "txt"<br />            2<br />          )<br />   )                                        ;提示用户选取文件名<br />   (setq        pt (getpoint "请选择文字的插入点")<br />         hh (getreal "请输入字高：")<br />   )<br />   (setq        ff   (open dat_file "r")        ;读取文件<br />         data (read-line ff)<br />   )                                        ;读取文件的第一行<br />   (while data<br />     (setq data_list (cons data data_list))<br />     (setq data (read-line ff))<br />   )                                        ;读取文件的每一行直到DATA为NIL<br />   (setq data_list (reverse data_list))<br />   (command "text"<br />            "j"<br />            "c"<br />            pt<br />            hh<br />            0<br />            (foreach txt data_list (command txt ""))<br />            <br />   )                                        ;画<br />   (close ff)                                ;关闭文件<br />   (prin1)<br /> )<br /> (prompt "<<10test4>>程序")<br /> (prin1)<br />   [/FONT]<br />

狂刀

(command "text"
           "j"
           "c"
           pt
           hh
           0
           (foreach txt data_list (command txt ""))
          
  )       

命令里面有命令

yjtdkj

但是下面这段是成立的呀
(command "pline" (foreach pt data_list (command pt)))

xyp1964

试试：

2. [FONT=courier new](defun c:test ()
   
3.   (setq        data_list '()
   
4.         dat_file  (getfiled "" "C:\\111" "txt" 2)
   
5.         pt          (getpoint "\n请选择文字的插入点 : ")
   
6.         hh          (getreal "\n请输入字高 : ")
   
7.         ff          (open dat_file "r")
   
8.   )
   
9.   (while (setq data (read-line ff))
   
10.     (setq data_list (cons data data_list))
    
11.   )
    
12.   (setq data_list (reverse data_list))
    
13.   (foreach txt data_list
    
14.     (progn
    
15.       (setq pt (polar pt (* pi 1.5) (* hh 1.5)))
    
16.       (command "text" "j" "c" pt hh 0 txt)
    
17.     )
    
18.   )
    
19.   (close ff)
    
20.   (princ)
    
21. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        data_list '()<br />         dat_file  (getfiled "" "C:\\111" "txt" 2)<br />         pt          (getpoint "\n请选择文字的插入点 : ")<br />         hh          (getreal "\n请输入字高 : ")<br />         ff          (open dat_file "r")<br />   )<br />   (while (setq data (read-line ff))<br />     (setq data_list (cons data data_list))<br />   )<br />   (setq data_list (reverse data_list))<br />   (foreach txt data_list<br />     (progn<br />       (setq pt (polar pt (* pi 1.5) (* hh 1.5)))<br />       (command "text" "j" "c" pt hh 0 txt)<br />     )<br />   )<br />   (close ff)<br />   (princ)<br /> )[/FONT]

eachy

(command txt "") & (command pt) 是不同的，没有第一个用法。

yjtdkj

感谢各位的帮助，有各位的支持，不愁学不好LISP呀！！＾＿＾