[求助]：源码解析程序

knight928

2. (defun c:inters2()
   
3.   (get2entinters)
   
4.   (setq a (car (entsel "\nselect a pline")))
   
5.   (setq b (car (entsel "\nselect b pline")))
   
6.   (setq pt 0)
   
7.   (setq pt (get2entinters a b))
   
8.   (princ "输出坐标：")
   
9.   )
   
10. 
    
11. (defun get2entinters (fst nxt k / intlst pntlst);;k=0,1,2,3
    
12.     (setq intlst (vlax-invoke (vlax-ename->vla-object fst) 'intersectwith (vlax-ename->vla-object nxt) k))
    
13.    (while  intlst
    
14.      (setq pntlst (cons (list (car intlst) (cadr intlst) (caddr intlst)) pntlst)
    
15.             intlst (cdddr intlst)
    
16.       )
    
17.     )
    
18.   (reverse pntlst)
    
19. )

(defun c:inters2()<br />   (get2entinters)<br />   (setq a (car (entsel "\nselect a pline")))<br />   (setq b (car (entsel "\nselect b pline")))<br />   (setq pt 0)<br />   (setq pt (get2entinters a b))<br />   (princ "输出坐标：")<br />   )<br /> <br /> (defun 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 /> )

这个程序 不能运行的 问题在哪里？是不是函数有问题的 ？？

xyp1964

2. [FONT=courier new](defun c:inters2 ()
   
3.   (setq        a  (car (entsel "\nselect a pline"))
   
4.         b  (car (entsel "\nselect b pline"))
   
5.         pt (get2entinters a b 0)
   
6.   )
   
7.   (princ "输出交点坐标组: ")
   
8.   (princ pt)
   
9.   (princ)
   
10. )
    
11. 
    
12. (defun get2entinters (fst nxt k / intlst pntlst)
    
13.   ;;k=0,1,2,3
    
14.   (setq        intlst (vlax-invoke
    
15.                  (vlax-ename->vla-object fst)
    
16.                  'intersectwith
    
17.                  (vlax-ename->vla-object nxt)
    
18.                  k
    
19.                )
    
20.   )
    
21.   (while intlst
    
22.     (setq pntlst (cons (list (car intlst) (cadr intlst) (caddr intlst))
    
23.                        pntlst
    
24.                  )
    
25.           intlst (cdddr intlst)
    
26.     )
    
27.   )
    
28.   (reverse pntlst)
    
29. )[/FONT]

[FONT=courier new](defun c:inters2 ()<br />   (setq        a  (car (entsel "\nselect a pline"))<br />         b  (car (entsel "\nselect b pline"))<br />         pt (get2entinters a b 0)<br />   )<br />   (princ "输出交点坐标组: ")<br />   (princ pt)<br />   (princ)<br /> )<br /> <br /> (defun get2entinters (fst nxt k / intlst pntlst)<br />   ;;k=0,1,2,3<br />   (setq        intlst (vlax-invoke<br />                  (vlax-ename->vla-object fst)<br />                  'intersectwith<br />                  (vlax-ename->vla-object nxt)<br />                  k<br />                )<br />   )<br />   (while intlst<br />     (setq pntlst (cons (list (car intlst) (cadr intlst) (caddr intlst))<br />                        pntlst<br />                  )<br />           intlst (cdddr intlst)<br />     )<br />   )<br />   (reverse pntlst)<br /> )[/FONT]

knight928

非常非常感谢哟
程序可以正常运行了 ！！！

zjyxks

这个程序是做什么用的呢?