请大师帮我看下。线段INTERS交点,连线，重复了，不知道怎样清空表

434939575

2. 我的目的按顺序选线line,线的交点连接成新线。我这里重复了几次表。APPEND没有清空.请大师帮忙看看，谢谢！
   
3. 
   
4. (defun  c:tt()
   
5. (setq ss (ssget ))
   
6. ;(setq  inter_appen nil )；这样清空不行
   
7.    (setq lst(ss_ename-list  ss))
   
8. (setq car-lst (car lst))
   
9. (setq lst (append lst(list car-lst)));
   
10. (setq ii 0)
    
11.    (repeat (length lst)
    
12.        (setq  ename-lst-A (car lst )
    
13.       ename-lst-B(cadr lst)
    
14.      lst (cdr lst)
    
15.     ii (1+ ii))
    
16.   (setq pt1-001  (vlax-curve-getstartpoint ename-lst-A))
    
17.   (setq pt1-002  (vlax-curve-getendpoint ename-lst-A))
    
18.   (setq pt2-001  (vlax-curve-getstartpoint ename-lst-B))
    
19.   (setq pt2-002  (vlax-curve-getendpoint ename-lst-B))
    
20.       (setq inter (inters pt1-001 pt1-002  pt2-001  pt2-002 nil ))
    
21.     (setq inter_appen  (append   inter_appen (list inter)   ))
    
22.      (entmake_lst_pl-0012.LSP  inter_appen)
    
23.    
    
24.   );repeat
    
25.   
    
26. );end
    
27. (defun entmake_lst_pl-0012.LSP (lst / PT)
    
28.   (entmakeX
    
29.     (append
    
30.       (list '(0 . "LWPOLYLINE")
    
31.      '(100 . "AcDbEntity")
    
32.      '(100 . "AcDbPolyline")
    
33.      (cons 90 (length lst))
    
34.       )
    
35.       (mapcar '(lambda (pt) (cons 10 pt)) lst)
    
36.     )
    
37.   )
    
38. )
    
39. 
    
40. 
    
41. (defun ss_ename-list(ss1 / retu);ss-ename_lst
    
42.   (setq retu (apply 'append (ssnamex ss1)))
    
43.   (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))
    
44. )

我的目的按顺序选线line,线的交点连接成新线。我这里重复了几次表。APPEND没有清空.请大师帮忙看看，谢谢！<br /> <br /> (defun  c:tt()<br /> (setq ss (ssget ))<br /> ;(setq  inter_appen nil )；这样清空不行<br />    (setq lst(ss_ename-list  ss))<br /> (setq car-lst (car lst))<br /> (setq lst (append lst(list car-lst)));<br /> (setq ii 0)<br />    (repeat (length lst)<br />        (setq  ename-lst-A (car lst )<br />       ename-lst-B(cadr lst)<br />      lst (cdr lst)<br />     ii (1+ ii))<br />   (setq pt1-001  (vlax-curve-getstartpoint ename-lst-A))<br />   (setq pt1-002  (vlax-curve-getendpoint ename-lst-A))<br />   (setq pt2-001  (vlax-curve-getstartpoint ename-lst-B))<br />   (setq pt2-002  (vlax-curve-getendpoint ename-lst-B))<br />       (setq inter (inters pt1-001 pt1-002  pt2-001  pt2-002 nil ))<br />     (setq inter_appen  (append   inter_appen (list inter)   ))<br />      (entmake_lst_pl-0012.LSP  inter_appen)<br />     <br />   );repeat<br />   <br /> );end<br /> (defun entmake_lst_pl-0012.LSP (lst / PT)<br />   (entmakeX<br />     (append<br />       (list '(0 . "LWPOLYLINE")<br />      '(100 . "AcDbEntity")<br />      '(100 . "AcDbPolyline")<br />      (cons 90 (length lst))<br />       )<br />       (mapcar '(lambda (pt) (cons 10 pt)) lst)<br />     )<br />   )<br /> )<br /> <br /> <br /> (defun ss_ename-list(ss1 / retu);ss-ename_lst<br />   (setq retu (apply 'append (ssnamex ss1)))<br />   (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))<br /> )

lovezp

c:tt ( / inter_appen)
多段线画出来还有重线

434939575

恩。就是有重线啦！

lovezp

   ) ;_ repeat
     (entmake_lst inter_appen)

画线的那句话放在循环外面

lovezp

(defun c:tt (/ inter_appen ii jj inter inter_appen ss ename-lst-A
             ename-lst-B pt1-001 pt1-002 pt2-001 pt2-002 len
             )
     
     (setq ss (ssget))
     (setq len (sslength ss))

     (setq ii 0)
     (setq jj 1)
     (while (< jj len)

          (setq        ename-lst-A (ssname ss ii)

                ename-lst-B (ssname ss jj)


                ) ;_ setq


          (setq        ii (1+ ii)
                jj (1+ jj)
                ) ;_ setq
          (setq pt1-001 (vlax-curve-getstartpoint ename-lst-A))

          (setq pt1-002 (vlax-curve-getendpoint ename-lst-A))

          (setq pt2-001 (vlax-curve-getstartpoint ename-lst-B))

          (setq pt2-002 (vlax-curve-getendpoint ename-lst-B))

          (setq inter (inters pt1-001 pt1-002 pt2-001 pt2-002 nil))
          (setq inter_appen (append (list inter) inter_appen))

             
          ) ;_ while
     (entmake_lst inter_appen)

     (princ)
     ) ;end

(defun entmake_lst (lst / PT)

     (entmake
          (append (list
                       '(0 . "LWPOLYLINE")

                       '(100 . "AcDbEntity")

                       '(100 . "AcDbPolyline")
                       (cons 90 (length lst))

                       ) ;_ list

                  (mapcar '(lambda (pt) (cons 10 pt)) lst)

                  ) ;_ append
          ) ;_ entmake

     ) ;_ defun