[求助]：我搞不定了，哪位高人能指点一下！

yybu

我想写一个程序，能把所选中的直线和圆弧的两个端点全都加到一个表里，但折腾了半天没搞定（plst的返回值始终不对）！谁能帮我瞧瞧到底哪里出错了？

2. 
   
3. (defun c:ptlist (/     plst  bl          ss  i     n            ssn          entdata
   
4.         p1    p2    dta          n a1    a2    cen          rad ang  ang1  ang2  arclen )
   
5. 
   
6.    (setq ss (ssget))
   
7.   (setq i 0)
   
8.   (setq n (sslength ss))
   
9.   (while (< i n)
   
10.     (setq ssn (ssname ss i))
    
11.     (setq entdata (entget ssn))
    
12.     (cond ((= "LINE" (cdr (assoc 0 entdata)))
    
13.            (setq p1 (cdr (assoc 10 entdata))
    
14.                  p2 (cdr (assoc 11 entdata))
    
15.            )
    
16.           )
    
17.           ((= "ARC" (cdr (assoc 0 entdata)))
    
18.            (setq
    
19.              a1         (cdr (assoc 50 entdata))
    
20.              a2         (cdr (assoc 51 entdata))
    
21.              cen (cdr (assoc 10 entdata))
    
22.              rad (cdr (assoc 40 entdata))
    
23.            )
    
24.            (if (< a1 a2)
    
25.              (left)
    
26.              (right)
    
27.            )
    
28.            (setq p1 (polar cen (cdr (assoc 50 entdata)) rad)
    
29.                  p2 (polar cen (cdr (assoc 51 entdata)) rad)
    
30.            )
    
31.           )
    
32.     )
    
33.     (setq plst (cons p2 (cons p1 plst)))
    
34.     (setq i (1+ i))
    
35.   )
    
36. 
    
37.   (prin1)
    
38. )
    

<br /> (defun c:ptlist (/     plst  bl          ss  i     n            ssn          entdata<br />         p1    p2    dta          n a1    a2    cen          rad ang  ang1  ang2  arclen )<br /> <br />    (setq ss (ssget))<br />   (setq i 0)<br />   (setq n (sslength ss))<br />   (while (< i n)<br />     (setq ssn (ssname ss i))<br />     (setq entdata (entget ssn))<br />     (cond ((= "LINE" (cdr (assoc 0 entdata)))<br />            (setq p1 (cdr (assoc 10 entdata))<br />                  p2 (cdr (assoc 11 entdata))<br />            )<br />           )<br />           ((= "ARC" (cdr (assoc 0 entdata)))<br />            (setq<br />              a1         (cdr (assoc 50 entdata))<br />              a2         (cdr (assoc 51 entdata))<br />              cen (cdr (assoc 10 entdata))<br />              rad (cdr (assoc 40 entdata))<br />            )<br />            (if (< a1 a2)<br />              (left)<br />              (right)<br />            )<br />            (setq p1 (polar cen (cdr (assoc 50 entdata)) rad)<br />                  p2 (polar cen (cdr (assoc 51 entdata)) rad)<br />            )<br />           )<br />     )<br />     (setq plst (cons p2 (cons p1 plst)))<br />     (setq i (1+ i))<br />   )<br /> <br />   (prin1)<br /> )<br />

另外,在上面程序中的表"plst" 中,如何才能使每两个距离最小的点组成一个点对.

fsxm

上面的程序可以的啊！
可能是你将plst 做成了局部变量又没有返回它就看不出效果了！
还有就是用
vlax-curve-getStartPoint
vlax-curve-getEndPoint
这两个函数要好一点啦·

oyxx_1023

(left)
(right)
没贴上来.
还有,(setq plst (cons p2 (cons p1 plst)))这句肯定有问题,对你的情况应该用 (APPEND (LIST....))

yybu

2楼的朋友
我是在CAD2006中调试的,
但"plst"的返回值始终不对."plst"的返回值不能得到所有端点所组成的表!
你多选几条直线试一下,看看对不对!

oyxx_1023

兄弟,cons是做点对表用的,你的要求肯定不是做那种点对表.
只是普通 的list.
你再仔细琢磨琢磨你的(setq plst (cons p2 (cons p1 plst)))这一句.

yybu

TO三楼的朋友:

2. 
   
3. (defun right ()
   
4.   (setq        ang1   (angle ep cen)
   
5.         ang2   (angle ep1 cen)
   
6.         ang    (- ang1 ang2)
   
7.         arclen (abs (* rad ang))
   
8.   )
   
9. )
   
10. 
    
11. (defun left ()
    
12.   (setq ang (- a1 a2))
    
13.   (setq arclen (abs (* rad ang)))
    
14. )

<br /> (defun right ()<br />   (setq        ang1   (angle ep cen)<br />         ang2   (angle ep1 cen)<br />         ang    (- ang1 ang2)<br />         arclen (abs (* rad ang))<br />   )<br /> )<br /> <br /> (defun left ()<br />   (setq ang (- a1 a2))<br />   (setq arclen (abs (* rad ang)))<br /> )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
cons语法

    (cons new-first-element list)

功能及参数

    它是“构造”(construct) 表的最基本函数, 它将一个元素 (new-first-element) 与一个表 (list) 接合起来, 并返回以此新元素为首的新表。
  我觉得"CONS"可以这么用啊!

oyxx_1023

;;;修改后的.经测试可以.

2. 
   
3. (defun c:ptlist        (/     bl    ss           i         n     ssn   entdata         p1
   
4.                  p2    dta   n           a1         a2    cen   rad   ang         ang1
   
5.                  ang2  arclen
   
6.                 )
   
7. 
   
8.   (setq ss (ssget))
   
9.   (setq i 0)
   
10.   (setq n (sslength ss))
    
11.   (repeat n
    
12.     (setq ssn (ssname ss i))
    
13.     (setq entdata (entget ssn))
    
14.     (cond ((= "LINE" (cdr (assoc 0 entdata)))
    
15.            (setq p1 (cdr (assoc 10 entdata))
    
16.                  p2 (cdr (assoc 11 entdata))
    
17.            )
    
18.           )
    
19.           ((= "ARC" (cdr (assoc 0 entdata)))
    
20.            (setq
    
21.              a1         (cdr (assoc 50 entdata))
    
22.              a2         (cdr (assoc 51 entdata))
    
23.              cen (cdr (assoc 10 entdata))
    
24.              rad (cdr (assoc 40 entdata))
    
25.            )
    
26.            (if (< a1 a2)
    
27.              (left)
    
28.              (right)
    
29.            )
    
30.            (setq p1 (polar cen (cdr (assoc 50 entdata)) rad)
    
31.                  p2 (polar cen (cdr (assoc 51 entdata)) rad)
    
32.            )
    
33.           )
    
34.     )
    
35.     (setq plst (append plst (list p2 p1)))
    
36.     (setq i (1+ i))
    
37.   )
    
38.   (princ plst)
    
39.   (prin1)
    
40. )
    
41. 
    

<br /> (defun c:ptlist        (/     bl    ss           i         n     ssn   entdata         p1<br />                  p2    dta   n           a1         a2    cen   rad   ang         ang1<br />                  ang2  arclen<br />                 )<br /> <br />   (setq ss (ssget))<br />   (setq i 0)<br />   (setq n (sslength ss))<br />   (repeat n<br />     (setq ssn (ssname ss i))<br />     (setq entdata (entget ssn))<br />     (cond ((= "LINE" (cdr (assoc 0 entdata)))<br />            (setq p1 (cdr (assoc 10 entdata))<br />                  p2 (cdr (assoc 11 entdata))<br />            )<br />           )<br />           ((= "ARC" (cdr (assoc 0 entdata)))<br />            (setq<br />              a1         (cdr (assoc 50 entdata))<br />              a2         (cdr (assoc 51 entdata))<br />              cen (cdr (assoc 10 entdata))<br />              rad (cdr (assoc 40 entdata))<br />            )<br />            (if (< a1 a2)<br />              (left)<br />              (right)<br />            )<br />            (setq p1 (polar cen (cdr (assoc 50 entdata)) rad)<br />                  p2 (polar cen (cdr (assoc 51 entdata)) rad)<br />            )<br />           )<br />     )<br />     (setq plst (append plst (list p2 p1)))<br />     (setq i (1+ i))<br />   )<br />   (princ plst)<br />   (prin1)<br /> )<br /> <br />

yybu

to :oyxx_1023  
"(princ plst)"返回值是对的.
但为什么我在命令行用"!plst"显示出的表却不对呢?

oyxx_1023

你把它设成局部变量却又没返回值.肯定是不行的.

yybu

哦!谢谢指点!
我用"cons"也可以了!

另外,在上面程序中的表"plst" 中,如何才能使每两个距离最小的点组成一个点对?

我在武汉呆过几年!