[求助]：[0602]如何PLINE删除串列中相同的值呢?

xyz518mm

[求助]：[0602]如何PLINE删除串列中相同的值呢?
请问如何删除串列中相同的值呢?
串列如 ((324 278 0)(363 277 0)(363 277 0 )(279 348 0))
其中 2 3 笔相同,该怎样删除这其中一笔资料?

另外一个问题就是,如果PLINE 线段没有闭合,
为何取出的顶点资料,该怎样包含线段的端点跟终点呢?
DXF 70 是判断是否闭合,但端点跟顶点该怎样看呢?

以上问题烦请各位高手解答一下~
谢谢~

eachy

提问之前，先搜索下，论坛早有过这方面的讨论和代码！

xyz518mm

版主说的是终于找到些关键写下了以下这段程序
我用这程序是要计算线长用的,现在已经解决了,现再请各位大师再指导一下吧~

2. 
   
3. (setq en (car (entsel "\n select")))
   
4. (setq vlaclose (vla-get-Closed (vlax-ename->vla-object en)))
   
5. (setq pist (vl-remove-if
   
6.              '(lambda (x) (not (= 10 (car x))))
   
7.              (entget en)
   
8.            )
   
9. )
   
10. ;;;删除dxf.10群码
    
11. (setq plist (mapcar '(lambda (x) (cdr x)) pist))
    
12. ;;;排列表
    
13. (if (= vlaclose :vlax-false)
    
14.   ;;假如为未闭合型
    
15.   (progn ;;处里未闭合型
    
16.          (REPEAT (- tq 1)
    
17.            (setq pt-a (nth n plist))
    
18.            (setq pt-b (nth (+ n 1) plist))
    
19.            (setq leng1 (/ (distance pt-a pt-b) 100))
    
20.            (setq ll1 (append ll1 (list leng1)))
    
21.            (setq n (1+ n))
    
22.          ) ;_REPEAT
    
23.   ) ;_progn
    
24.   (progn ;;处里闭合型
    
25.          (REPEAT tq
    
26.            (setq pt-a (nth n plist))
    
27.            (setq pt-b (nth (if (>= n (- tq 1))
    
28.                              (- tq tq)
    
29.                              (+ n 1)
    
30.                            )
    
31.                            plist
    
32.                       )
    
33.            )
    
34.            (setq leng1 (/ (distance pt-a pt-b) 100))
    
35.            (setq ll1 (append ll1 (list leng1)))
    
36.            (setq n (1+ n))
    
37.          ) ;_REPEAT
    
38.   ) ;_progn
    
39. ) ;_if

<br /> (setq en (car (entsel "\n select")))<br /> (setq vlaclose (vla-get-Closed (vlax-ename->vla-object en)))<br /> (setq pist (vl-remove-if<br />              '(lambda (x) (not (= 10 (car x))))<br />              (entget en)<br />            )<br /> )<br /> ;;;删除dxf.10群码<br /> (setq plist (mapcar '(lambda (x) (cdr x)) pist))<br /> ;;;排列表<br /> (if (= vlaclose :vlax-false)<br />   ;;假如为未闭合型<br />   (progn ;;处里未闭合型<br />          (REPEAT (- tq 1)<br />            (setq pt-a (nth n plist))<br />            (setq pt-b (nth (+ n 1) plist))<br />            (setq leng1 (/ (distance pt-a pt-b) 100))<br />            (setq ll1 (append ll1 (list leng1)))<br />            (setq n (1+ n))<br />          ) ;_REPEAT<br />   ) ;_progn<br />   (progn ;;处里闭合型<br />          (REPEAT tq<br />            (setq pt-a (nth n plist))<br />            (setq pt-b (nth (if (>= n (- tq 1))<br />                              (- tq tq)<br />                              (+ n 1)<br />                            )<br />                            plist<br />                       )<br />            )<br />            (setq leng1 (/ (distance pt-a pt-b) 100))<br />            (setq ll1 (append ll1 (list leng1)))<br />            (setq n (1+ n))<br />          ) ;_REPEAT<br />   ) ;_progn<br /> ) ;_if

eachy

你问的和你的应用没有什么关系

2. 
   
3. (defun c:tt (/ e i endpam p1 p2 ll d)
   
4.   (if (setq e (car (entsel)))
   
5.     (progn
   
6.       (setq i           0
   
7.             endpam (vlax-curve-getendparam e)
   
8.       )
   
9.       (while (< i endpam)
   
10.         (setq p1 (vlax-curve-getpointatparam e i)
    
11.               p2 (vlax-curve-getpointatparam e (1+ i))
    
12.         )
    
13.         (if (not (equal (setq d (distance p1 p2)) 0. 1e-6))
    
14.           (setq ll (cons d ll))
    
15.         )
    
16.         (setq i (1+ i))
    
17.       )
    
18.     )
    
19.   )  
    
20.   (princ ll)
    
21.   (princ)
    
22. )

<br /> (defun c:tt (/ e i endpam p1 p2 ll d)<br />   (if (setq e (car (entsel)))<br />     (progn<br />       (setq i           0<br />             endpam (vlax-curve-getendparam e)<br />       )<br />       (while (< i endpam)<br />         (setq p1 (vlax-curve-getpointatparam e i)<br />               p2 (vlax-curve-getpointatparam e (1+ i))<br />         )<br />         (if (not (equal (setq d (distance p1 p2)) 0. 1e-6))<br />           (setq ll (cons d ll))<br />         )<br />         (setq i (1+ i))<br />       )<br />     )<br />   )  <br />   (princ ll)<br />   (princ)<br /> )

xyz518mm

看完版大的程序,
才发现原来我的做法多做了那么多动作,
又学到了不少,
本想说要判断是否闭合,
及头尾重复的点问题,
现在看来都不用了

想请问版大这段程序表示的是否为
(equal (setq d (distance p1 p2)) 0. 1e-6))
比较距离的差量精度呢?
0. 是指 0.0 吗?
1e-6 是指差量的 1*10^-6 次方吗?

eachy

1 (equal (setq d (distance p1 p2)) 0. 1e-6)) ->  去掉近似 距离为 0 的段，就是重合点

2 0. = 0.0 是简写，Lisp 的规则

3 是科学计数法
A real is a number containing a decimal point. Numbers between -1 and 1 must contain a leading zero. Real numbers are stored in double-precision floating-point format, providing at least 14 significant digits of precision. Note that VLISP does not show you all the significant digits.

Reals can be expressed in scientific notation, which has an optional e or E followed by the exponent of the number (for example, 0.0000041 is the same as 4.1e-6). Numbers such as 3.1, 0.23, -56.123, and 21,000,000.0 are valid AutoLISP reals

xyz518mm

感谢版主的解答

另外请问一问题
如果pline带有弧,,那这部分的线长计算,
有现成的函数可以计算吗?
还是该搜寻哪些相关资料来处理呢?

烦请各位可以解答一下
谢谢~

eachy

这样计算太累了！

1 pline -> explode -> ssget p -> 逐个计算 -〉pedit 恢复原来

2 更好的是用 vlax-curve-getdistatparam


建议你看看 vlax-curve 部分的每一个函数，用 goolge 或者在本论坛搜索一些具体的例子，会对你有很大的帮助。

kohi

删除表中相同的元素可使用扩展函数:
(acet-list-remove-duplicates lst d)--d为允差 .