[求助]：分析源代码

knight928

2. (defun c:get2entinters (fst nxt k / mode intlst pntlst);;;k=0,1,2,3
   
3.   (setq intlst (vla-intersectwith (vlax-ename->vla-object fst) (vlax-ename->vla-object  nxt) (eval k)));;;本行有问题
   
4.    (if intlst     
   
5.     (progn
   
6.       (setq intlst(vlax-safearray->list(vlax-variant-value intlst)))
   
7.       (repeat (/ (length intlst) 3)
   
8.       (setq pntlst (cons (list (car intlst) (cadr intlst) (caddr intlst))
   
9.                pntlst
   
10.              )
    
11.           intlst (cdddr intlst)
    
12.     )
    
13.       )
    
14.       (reverse pntlst)
    
15.     )
    
16.   )
    
17. )

(defun c:get2entinters (fst nxt k / mode intlst pntlst);;;k=0,1,2,3<br />   (setq intlst (vla-intersectwith (vlax-ename->vla-object fst) (vlax-ename->vla-object  nxt) (eval k)));;;本行有问题<br />    (if intlst     <br />     (progn<br />       (setq intlst(vlax-safearray->list(vlax-variant-value intlst)))<br />       (repeat (/ (length intlst) 3) <br />       (setq pntlst (cons (list (car intlst) (cadr intlst) (caddr intlst)) <br />                pntlst <br />              ) <br />           intlst (cdddr intlst) <br />     ) <br />       ) <br />       (reverse pntlst) <br />     ) <br />   )<br /> )

以上代码不能正常运行

eachy

2. 
   
3. (setq intlst (vla-intersectwith
   
4.                (vlax-ename->vla-object first-object)
   
5.                (vlax-ename->vla-object next-object)
   
6.                k
   
7.              )
   
8. )
   
9. (if intlst
   

<br /> (setq intlst (vla-intersectwith<br />                (vlax-ename->vla-object first-object)<br />                (vlax-ename->vla-object next-object)<br />                k<br />              )<br /> )<br /> (if intlst<br />

改为

2. 
   
3. (setq intlst (safearray-value
   
4.                (variant-value
   
5.                  (vla-intersectwith
   
6.                    (vla-intersectwith
   
7.                      (vlax-ename->vla-object first-object)
   
8.                      (vlax-ename->vla-object next-object)
   
9.                      k
   
10.                    )
    
11.                  )
    
12.                )
    
13.              )
    
14. )
    
15. (if intlst

<br /> (setq intlst (safearray-value<br />                (variant-value<br />                  (vla-intersectwith<br />                    (vla-intersectwith<br />                      (vlax-ename->vla-object first-object)<br />                      (vlax-ename->vla-object next-object)<br />                      k<br />                    )<br />                  )<br />                )<br />              )<br /> )<br /> (if intlst

knight928

谢谢哟

雨箭风刀

改的都不够爽，我来帮你真正精简一下

2. 
   
3. (defun c:get2entinters (fst nxt k / intlst pntlst);;k=0,1,2,3
   
4.     (setq intlst (vlax-invoke (vlax-ename->vla-object fst) 'intersectwith (vlax-ename->vla-object nxt) k))
   
5.    (while  intlst
   
6.      (setq pntlst (cons (list (car intlst) (cadr intlst) (caddr intlst)) pntlst)
   
7.             intlst (cdddr intlst)
   
8.       )
   
9.     )
   
10.   (reverse pntlst)
    
11. )
    

<br /> (defun c:get2entinters (fst nxt k / intlst pntlst);;k=0,1,2,3<br />     (setq intlst (vlax-invoke (vlax-ename->vla-object fst) 'intersectwith (vlax-ename->vla-object nxt) k))<br />    (while  intlst<br />      (setq pntlst (cons (list (car intlst) (cadr intlst) (caddr intlst)) pntlst)<br />             intlst (cdddr intlst)<br />       )<br />     )<br />   (reverse pntlst)<br /> )<br />