还是while好呀

/db_自贡黄明儒_

无意发现一个2016下一段代码不能用了，出现错误VVC: Internal Error也没想好怎么弄，临时改为while,神奇出现了，一切恢复正常。

1. ;;;    (mapcar
   
2. ;;;      '(lambda (u x y z)
   
3. ;;;         (setq L (list u x y z))
   
4. ;;;         (setq i (1+ i))
   
5. ;;;         (cond ((= i 0) (setq p0 L))
   
6. ;;;               ((= i (/ (read key7) 2)) (setq p1 L))
   
7. ;;;               (T
   
8. ;;;                (setq k (1+ k))
   
9. ;;;                (apply 'vl-cmdf (list "_.UCS" "_N" "_3p" u x y))
   
10. ;;;                (setq L (mapcar '(lambda (x) (trans x 0 1)) L))
    
11. ;;;                (command "._ucs" "_W")
    
12. ;;;                (setq L (mapcar '(lambda (m) (mapcar '+ (list (* k p) 0) m)) L))
    
13. ;;;                (_EntmakeLWPOLYLINE L)
    
14. ;;;               )
    
15. ;;;         )
    
16. ;;;       )
    
17. ;;;      pts
    
18. ;;;      pts1
    
19. ;;;      pts2
    
20. ;;;      pts3
    
21. ;;;    )
    
22.     (while (car pts)
    
23.       ((lambda (u x y z)
    
24.          (setq L (list u x y z))
    
25.          (setq i (1+ i))
    
26.          (cond ((= i 0) (setq p0 L))
    
27.                ((= i (/ (read key7) 2)) (setq p1 L))
    
28.                (T
    
29.                 (setq k (1+ k))
    
30.                 (apply 'vl-cmdf (list "_.UCS" "_N" "_3p" u x y))
    
31.                 (setq L (mapcar '(lambda (x) (trans x 0 1)) L))
    
32.                 (command "._ucs" "_W")
    
33.                 (setq L (mapcar '(lambda (m) (mapcar '+ (list (* k p) 0) m)) L))
    
34.                 (_EntmakeLWPOLYLINE L)
    
35.                )
    
36.          )
    
37.        )
    
38.         (car pts)
    
39.         (car pts1)
    
40.         (car pts2)
    
41.         (car pts3)
    
42.       )
    
43.       (setq pts         (cdr pts)
    
44.             pts1 (cdr pts1)
    
45.             pts2 (cdr pts2)
    
46.             pts3 (cdr pts3)
    
47.       )
    
48.     )

;;;    (mapcar<br /> ;;;      '(lambda (u x y z)<br /> ;;;         (setq L (list u x y z))<br /> ;;;         (setq i (1+ i))<br /> ;;;         (cond ((= i 0) (setq p0 L))<br /> ;;;               ((= i (/ (read key7) 2)) (setq p1 L))<br /> ;;;               (T<br /> ;;;                (setq k (1+ k))<br /> ;;;                (apply 'vl-cmdf (list "_.UCS" "_N" "_3p" u x y))<br /> ;;;                (setq L (mapcar '(lambda (x) (trans x 0 1)) L))<br /> ;;;                (command "._ucs" "_W")<br /> ;;;                (setq L (mapcar '(lambda (m) (mapcar '+ (list (* k p) 0) m)) L))<br /> ;;;                (_EntmakeLWPOLYLINE L)<br /> ;;;               )<br /> ;;;         )<br /> ;;;       )<br /> ;;;      pts<br /> ;;;      pts1<br /> ;;;      pts2<br /> ;;;      pts3<br /> ;;;    )<br />     (while (car pts)<br />       ((lambda (u x y z)<br />          (setq L (list u x y z))<br />          (setq i (1+ i))<br />          (cond ((= i 0) (setq p0 L))<br />                ((= i (/ (read key7) 2)) (setq p1 L))<br />                (T<br />                 (setq k (1+ k))<br />                 (apply 'vl-cmdf (list "_.UCS" "_N" "_3p" u x y))<br />                 (setq L (mapcar '(lambda (x) (trans x 0 1)) L))<br />                 (command "._ucs" "_W")<br />                 (setq L (mapcar '(lambda (m) (mapcar '+ (list (* k p) 0) m)) L))<br />                 (_EntmakeLWPOLYLINE L)<br />                )<br />          )<br />        )<br />         (car pts)<br />         (car pts1)<br />         (car pts2)<br />         (car pts3)<br />       )<br />       (setq pts         (cdr pts)<br />             pts1 (cdr pts1)<br />             pts2 (cdr pts2)<br />             pts3 (cdr pts3)<br />       )<br />     )

kqqt6236

还是你厉害，知道换成while

newer

问题不在那，是mapcar里面，2015以上，不能用command, 用command-s替换command 再试试。

wowan1314

newer 发表于 2017-6-8 00:29

还有这么一说。那vl-cmdf也不行？
晕。我最喜欢command了。

newer

wowan1314 发表于 2017-6-8 01:34

2015以上版本新增的 command-s , 看看帮助，对他的介绍。

q3_2006

也可以换成foreach

Linhay

学习了 谢谢

longer1000

学习了 谢谢

原地踏步

还没用2015，不知道有此限制。学习了。

Michael527

换成command-s确实好用，谢谢了