[0526]lambda函数结束处理问题?

xyz518mm

[0526]lambda函数结束处理问题?

请教个问题程序如下
;;;*******************************
;;选取物件
(setq edata (entget (CAR (ENTSEL "\N SELECT"))))
(setq e_id (CDR(assoc 90 edata))) ;取出顶点数量

;;;*******************************
;;提出10的资料成字串
(setq ptlst (mapcar 'cdr
     (vl-remove-if-not
     '(lambda (x) (= (car x) 10)) edata
     ) )
)

;;;*******************************
;;求出距离成为串列
(setq di_lst (mapcar '(lambda (x y) (distance x y))
      ptlst (append (cdr ptlst) (list (car ptlst))) )
)

_$
(856.942 523.874 809.425)

;;;*******************************
;;将两点相加成为新的串列
(setq di_ptall
(mapcar '(lambda (x y) (mapcar '+ x y )) ptlst
(append (cdr ptlst) (list (car ptlst))) )
)

_$
((718.412 755.629) (1520.57 863.88) (906.125 266.541))

;;;*******************************
;;将上段两点相加的串列除2產生新的中点串列,
;;段不知道该怎样写,
;;我只会写出一个,但另外两组不知道该怎样写.
(mapcar
  '(lambda (x) (/ x 2.0 ))
  (mapcar '+ (car di_ptall) (cadr di_ptall))
)

_$
(1119.49 809.755)
;;;*******************************

请高手解答一下
谢谢~

aeo

给你搞复杂了
lambda就是一函数,就是没有名称而已.

2. 
   
3. 求两点p1 p2中点
   
4. 
   
5. (defun midpoint(p1 p2 / a b)
   
6.    (mapcar '(lambda(a b)(* (+ a b)0.5))  p1 p2)
   
7. )
   
8. 
   
9. 如果是表的表
   
10. (list (list p1 p2)(list p3 p4) ...)
    
11. 相当于 (list (midpoint p1 p2)(midpoint p3 p4) ...)
    
12. 如果有了midpoint
    
13. (mapcar '(lambda(p1_p2) (midpoint (car p1_p2)(cadr p1_p2)))   ptlst_ptlst)
    
14. 
    
15. 更方便的是
    
16. (mapcar '(lambda(p1_p2)(apply 'midpoint p1_p2)) ptlst_ptlst)
    
17. 
    
18. 
    
19. 如果要一起写,代入就可以.
    
20. (mapcar '(lambda(p1_p2 )
    
21.                    (mapcar   '(lambda(a b)(* 0.5(+ a b))  (car p1_p2)(cadr p1_p2))
    
22.                )
    
23.               ptlst_ptlst
    
24. )
    
25. 
    
26. 
    
27. 
    
28. 
    

<br /> 求两点p1 p2中点<br /> <br /> (defun midpoint(p1 p2 / a b)<br />    (mapcar '(lambda(a b)(* (+ a b)0.5))  p1 p2)<br /> )<br /> <br /> 如果是表的表<br /> (list (list p1 p2)(list p3 p4) ...)<br /> 相当于 (list (midpoint p1 p2)(midpoint p3 p4) ...)<br /> 如果有了midpoint<br /> (mapcar '(lambda(p1_p2) (midpoint (car p1_p2)(cadr p1_p2)))   ptlst_ptlst)<br /> <br /> 更方便的是<br /> (mapcar '(lambda(p1_p2)(apply 'midpoint p1_p2)) ptlst_ptlst)<br /> <br /> <br /> 如果要一起写,代入就可以.<br /> (mapcar '(lambda(p1_p2 )<br />                    (mapcar   '(lambda(a b)(* 0.5(+ a b))  (car p1_p2)(cadr p1_p2))<br />                )<br />               ptlst_ptlst<br /> )<br /> <br /> <br /> <br /> <br />

程序是用来用的,很多x y,搞的自己都搞不懂,那就没意思了.
有人定义编程:把复杂的问题,分成一个个简单的问题.

xyz518mm

版主的解答真是详细阿~
另外请问该怎样处理两组座标表转成一组呢?
如
A表为 ((20 30) (40 50) (60 70) )
B表为 ((25 35) (45 55) (65 75) )
结合后须为 ((20 30) (25 35) (40 50) (45 55) (60 70) (65 75) )

HuaiYu

(defun test ()
  (setq        a '((20 30) (40 50) (60 70))
        b '((25 35) (45 55) (65 75))
  )
  (vl-sort (append a b) '(lambda (x y) (< (car x) (car y))))
)

xyz518mm

谢谢您的解答,不过我那例子可能有点错误,
因为不是要排序再来一个例子
A表为 ((82 32) (42 52) (62 72) )
B表为 ((35 25) (73 35) (55 45) )
结合后须为 ((82 32) (35 25) (42 52) (73 35) (62 72) (55 45) )
我是想将 A 跟 B的表作交叉组合
麻烦各位在帮忙解答一下了
谢谢

xyp1964

2. [FONT=courier new](defun lst1&2 (lst1 lst2 / lst3 a1 b1)
   
3.   (while (setq a1 (car lst1))
   
4.     (setq lst1 (cdr lst1)
   
5.           lst3 (cons a1 lst3)
   
6.     )
   
7.     (if        (setq b1 (car lst2))
   
8.       (setq lst2 (cdr lst2)
   
9.             lst3 (cons b1 lst3)
   
10.       )
    
11.     )
    
12.   )
    
13.   (setq lst3 (reverse lst3))
    
14.   lst3
    
15. )[/FONT]

[FONT=courier new](defun lst1&2 (lst1 lst2 / lst3 a1 b1)<br />   (while (setq a1 (car lst1))<br />     (setq lst1 (cdr lst1)<br />           lst3 (cons a1 lst3)<br />     )<br />     (if        (setq b1 (car lst2))<br />       (setq lst2 (cdr lst2)<br />             lst3 (cons b1 lst3)<br />       )<br />     )<br />   )<br />   (setq lst3 (reverse lst3))<br />   lst3<br /> )[/FONT]

测试：
Command: (lst1&2 '((82 32) (42 52) (62 72) ) '((35 25) (73 35) (55 45) ))
((82 32) (35 25) (42 52) (73 35) (62 72) (55 45))

eachy

1. 
   
2. (apply 'append
   
3.        (mapcar '(lambda (a b) (list a b))
   
4.                '((82 32) (42 52) (62 72))
   
5.                '((35 25) (73 35) (55 45))
   
6.        )
   
7. )

复制代码

xyz518mm

谢谢两位版主的出手解答

再请问一个排法为
(setq pt '(20 10 0))
(setq pts '((30 31 0) (22 15 0) (20 18 0)) )
(setq ll (vl-sort
         (mapcar '(lambda (x) (list (distance x pt) pt x)) pts)
                 '(lambda (e1 e2) (< (car e1) (car e2))) ;最近距离
) )
出来结果为  
((5.38516 (20 10 0) (22 15 0)) (8.0 (20 10 0) (20 18 0)) (23.2594 (20 10 0) (30 31 0)))

该怎样转变为  
((22 15 0)(20 18 0)(30 31 0))

麻烦各位在帮忙解答一下了
谢谢