萌新求助关于foreach的用法

1121443108qaz

首先我获得一个plist顶点列表，我想用这个顶点列表创建一个多段线，(foreach n plist (command "polyline" n))我是这样写的哪里有问题呢。有时我的顶点列表并不是首尾一个循环的（正常点列表 12341，我的顶点列表是1234，那么多段线闭合不了），那么我就应该在多段线画完用pedit 闭合一下，用foreach怎么表示。还有就是,用mapcar可以实现吗？

marting

1121443108qaz 发表于 2018-3-26 00:46
感谢啊，另外，foreach到底是不是我那样用啊，目前没用成功过foreach

foreach没什么难的啊，就是一个循环结构啊

1. (defun c:tt ()
   
2.   (setq lst '(1 2 3 4 5 6 7 8 9))
   
3.   (setq i 0)
   
4.   (foreach n lst
   
5.     ;;依次把lst的每个元素赋值给n
   
6.     (princ (strcat "\n表lst第 " (itoa (setq i (1+ i))) " 个元素是:"))
   
7.     (princ n)
   
8.   )
   
9.   (princ)
   
10. )
    
11. 
    

(defun c:tt ()<br />   (setq lst '(1 2 3 4 5 6 7 8 9))<br />   (setq i 0)<br />   (foreach n lst<br />     ;;依次把lst的每个元素赋值给n<br />     (princ (strcat "\n表lst第 " (itoa (setq i (1+ i))) " 个元素是:"))<br />     (princ n)<br />   )<br />   (princ)<br /> )<br /> <br />

相当于repeat的下面代码：

1. (defun c:tt ()
   
2.   (setq lst '(1 2 3 4 5 6 7 8 9))
   
3.   (setq i -1)
   
4.   (repeat (length lst)
   
5.     (setq v (nth (setq i (1+ i)) lst))
   
6.     (princ (strcat "\n表lst第 " (itoa (1+ i)) " 个元素是:"))
   
7.     (princ v)
   
8.   )
   
9.   (princ)
   
10. )
    
11. 
    

(defun c:tt ()<br />   (setq lst '(1 2 3 4 5 6 7 8 9))<br />   (setq i -1)<br />   (repeat (length lst)<br />     (setq v (nth (setq i (1+ i)) lst))<br />     (princ (strcat "\n表lst第 " (itoa (1+ i)) " 个元素是:"))<br />     (princ v)<br />   )<br />   (princ)<br /> )<br /> <br />

相当于while循环的下面代码

1. (defun c:tt ()
   
2.   (setq lst '(1 2 3 4 5 6 7 8 9))
   
3.   (setq i 0)
   
4.   (while (setq v (car lst))
   
5.     (princ (strcat "\n表lst第 " (itoa (setq i (1+ i))) " 个元素是:"))
   
6.     (princ v)
   
7.     (setq lst (cdr lst))
   
8.   )
   
9.   (princ)
   
10. )
    
11. 
    

(defun c:tt ()<br />   (setq lst '(1 2 3 4 5 6 7 8 9))<br />   (setq i 0)<br />   (while (setq v (car lst))<br />     (princ (strcat "\n表lst第 " (itoa (setq i (1+ i))) " 个元素是:"))<br />     (princ v)<br />     (setq lst (cdr lst))<br />   )<br />   (princ)<br /> )<br /> <br />

相当于mapcar循环的下面：

1. (defun c:tt ()
   
2.   (setq lst '(1 2 3 4 5 6 7 8 9))
   
3.   (setq i 0)
   
4.   (mapcar '(lambda (x)
   
5.              (princ (strcat "\n表lst第 " (itoa (setq i (1+ i))) " 个元素是:"))
   
6.              (princ x)
   
7.            )
   
8.           lst
   
9.   )
   
10.   (princ)
    
11. )
    
12. 
    

(defun c:tt ()<br />   (setq lst '(1 2 3 4 5 6 7 8 9))<br />   (setq i 0)<br />   (mapcar '(lambda (x)<br />              (princ (strcat "\n表lst第 " (itoa (setq i (1+ i))) " 个元素是:"))<br />              (princ x)<br />            )<br />           lst<br />   )<br />   (princ)<br /> )<br /> <br />

上面四种循环结构的代码执行的结果都是下面：

命令: tt

表lst第 1 个元素是:1
表lst第 2 个元素是:2
表lst第 3 个元素是:3
表lst第 4 个元素是:4
表lst第 5 个元素是:5
表lst第 6 个元素是:6
表lst第 7 个元素是:7
表lst第 8 个元素是:8
表lst第 9 个元素是:9

iLisp

foreach 后面加上(command "c")

1121443108qaz

1. (defun c:tt ()
   
2.   (setq ss (ssget)
   
3. i  0
   
4. j  0
   
5.   )
   
6.   (while (< i (sslength ss))
   
7.     (setq ename (ssname ss i)
   
8.    ent (entget ename)
   
9.     )
   
10.     (setq plist (mapcar 'cdr
    
11.    (vl-remove-if '(lambda (x) (/= (car x) 10)) ent)
    
12.   )
    
13.    lth (length plist)
    
14.     )
    
15.     (if (= (rem lth 2) 0)
    
16.       (setq half (/ lth 2))
    
17.       (setq half (/ (+ lth 1) 2))
    
18.     )
    
19.     (while (< j half)
    
20.       (setq plist1 (cons (nth j plist) plist1))
    
21.       (setq j (+ j 1))
    
22.     )
    
23.     (while (< j lth)
    
24.       (setq plist2 (cons (nth j plist) plist2))
    
25.       (setq j (+ j 1))
    
26.     )
    
27.     (setq j  0
    
28.    fstpt1 (car plist1)
    
29.    fstpt2 (car plist2)
    
30.     )
    
31.     (setq plist1 (cons fstpt1 (reverse plist1))
    
32.    plist2 (cons fstpt2 (reverse plist2))
    
33.     )
    
34.     (foreach n (command "polyline" n))
    
35.     (foreach m (command "polyline" m))
    
36.     (setq i (+ i 1))
    
37.   )
    
38. )
    

(defun c:tt ()<br />   (setq ss (ssget)<br /> i  0<br /> j  0<br />   )<br />   (while (< i (sslength ss))<br />     (setq ename (ssname ss i)<br />    ent (entget ename)<br />     )<br />     (setq plist (mapcar 'cdr<br />    (vl-remove-if '(lambda (x) (/= (car x) 10)) ent)<br />   )<br />    lth (length plist)<br />     )<br />     (if (= (rem lth 2) 0)<br />       (setq half (/ lth 2))<br />       (setq half (/ (+ lth 1) 2))<br />     )<br />     (while (< j half)<br />       (setq plist1 (cons (nth j plist) plist1))<br />       (setq j (+ j 1))<br />     )<br />     (while (< j lth)<br />       (setq plist2 (cons (nth j plist) plist2))<br />       (setq j (+ j 1))<br />     )<br />     (setq j  0<br />    fstpt1 (car plist1)<br />    fstpt2 (car plist2)<br />     )<br />     (setq plist1 (cons fstpt1 (reverse plist1))<br />    plist2 (cons fstpt2 (reverse plist2))<br />     )<br />     (foreach n (command "polyline" n))<br />     (foreach m (command "polyline" m))<br />     (setq i (+ i 1))<br />   )<br /> )<br />

为什么我这段代码,plist2没有问题，!plist1却陷入无限循环，我的原意是取一多段线顶点集，把这顶点集分为两半，再对分出的两个顶点集画多段线，这样一个多段线就变成了两个，然后他们合起来和之前的多段线面积是一样的，foreach也有问题，谁能帮我改改呢。尤其是plist1那里，我觉得不会无限循环的啊，要是无限循环了plist2就出不来了，求大神解答

1121443108qaz

iLisp 发表于 2018-3-24 12:22
foreach 后面加上(command "c")

懂了，谢谢，你看看楼下我代码哪里出了问题

Lisphk

在循环里面，ptlist1,ptlist2用之前要

1. (setq ptlist1 nil ptlist2 nil)
   

(setq ptlist1 nil ptlist2 nil)<br />

否则，你处理多个多段线时候，后面多段线就包括前面多段线的数据了。

还有，求后半个表，不比用循环了了，前面半个求出后，用 (cdr (member (last ptlist1) ptlist) 就得到后面的了.

1121443108qaz

Lisphk 发表于 2018-3-24 13:14
在循环里面，ptlist1,ptlist2用之前要

感谢啊，另外，foreach到底是不是我那样用啊，目前没用成功过foreach

sicky111

学习一下。