（XD::LIST:Group-n）表按指定长度组成子表

marting

1. ;|
   
2. 函数名称:        XD::LIST:Group-n
   
3. 调用格式:        (XD::LIST:Group-n lst n)
   
4. 参数说明:        lst --------- 表
   
5. n --------- 整数
   
6. 返回值:        表
   
7. 函数简介:        表按指定长度组成子表
   
8. 函数来源:        原创
   
9. 函数作者:        marting
   
10. 适用版本:        不限
    
11. 最后更新时间:        2017-05-17
    
12. 备注:        ;( XD::LIST:Group-n '("A" "B" "C" "D" "E" "F") 2)
    
13. ;(("A" "B") ("C" "D") ("E" "F"))
    
14. ;( XD::LIST:Group-n '(0 1 2 3 4 5) 4)
    
15. ;((0 1 2 3) (4 5 nil nil))
    
16. |;
    
17. (defun XD::LIST:Group-n ( l n / a b )
    
18.     (while l
    
19.         (repeat n
    
20.             (setq a (cons (car l) a)
    
21.                   l (cdr l)
    
22.             )
    
23.         )
    
24.         (setq b (cons (reverse a) b)
    
25.               a nil
    
26.         )
    
27.     )
    
28.     (reverse b)
    
29. )
    

;|<br /> 函数名称:        XD::LIST:Group-n<br /> 调用格式:        (XD::LIST:Group-n lst n)<br /> 参数说明:        lst --------- 表<br /> n --------- 整数<br /> 返回值:        表<br /> 函数简介:        表按指定长度组成子表<br /> 函数来源:        原创<br /> 函数作者:        marting<br /> 适用版本:        不限 <br /> 最后更新时间:        2017-05-17<br /> 备注:        ;( XD::LIST:Group-n '("A" "B" "C" "D" "E" "F") 2)<br /> ;(("A" "B") ("C" "D") ("E" "F"))<br /> ;( XD::LIST:Group-n '(0 1 2 3 4 5) 4)<br /> ;((0 1 2 3) (4 5 nil nil))<br /> |;<br /> (defun XD::LIST:Group-n ( l n / a b )<br />     (while l<br />         (repeat n<br />             (setq a (cons (car l) a)<br />                   l (cdr l)<br />             )<br />         )<br />         (setq b (cons (reverse a) b)<br />               a nil<br />         )<br />     )<br />     (reverse b)<br /> )<br />

下面代码求两个实体的交点

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq e1 (car (entsel)))
   
4.         (setq o1 (vlax-ename->vla-object e1))
   
5.         (setq e2 (car (entsel)))
   
6.         (setq o2 (vlax-ename->vla-object e2))
   
7.       )
   
8.     (if (setq ints (xd::vla:catchapply 'vla-intersectwith (list o1 o2 2)))
   
9.       (progn
   
10.         (setq ints (xd::vla:variant->value ints) ;;(1766.25 628.674 0.0 1685.59 214.876 0.0)
    
11.               ints (XD::LIST:Group-n ints 3)  ;; ((1766.25 628.674 0.0) (1685.59 214.876 0.0))
    
12.         )
    
13.       )
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )
    

(defun c:tt ()<br />   (if (and<br />         (setq e1 (car (entsel)))<br />         (setq o1 (vlax-ename->vla-object e1))<br />         (setq e2 (car (entsel)))<br />         (setq o2 (vlax-ename->vla-object e2))<br />       )<br />     (if (setq ints (xd::vla:catchapply 'vla-intersectwith (list o1 o2 2)))<br />       (progn<br />         (setq ints (xd::vla:variant->value ints) ;;(1766.25 628.674 0.0 1685.59 214.876 0.0)<br />               ints (XD::LIST:Group-n ints 3)  ;; ((1766.25 628.674 0.0) (1685.59 214.876 0.0))<br />         ) <br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

qingchao

非常好用，谢谢啦