相同群码值怎么获得元素

a4587332

这个是 leader （引线标注）
使用assoc函数 只能 获得第 一个 关于10的群码的元素~

请问 怎么样 获得其他的元素~

a4587332

自己顶一下~~~~

vlisp2012

忘记是哪位大侠的源码了？
(defun get-pl-ptlst (plent / ptlst);;;取得多段线顶点的最短代码
   (vl-load-com)
   (setq        ptlst (vl-remove-if
                '(lambda (x)
                   (/= 10 (car x))
                 )
                (entget plent)
              )
   )
   (mapcar 'cdr ptlst)
)

a4587332

vlisp2012 发表于 2014-9-17 19:58
忘记是哪位大侠的源码了？
(defun get-pl-ptlst (plent / ptlst);;;取得多段线顶点的最短代码
   (vl-loa ...

这个好晦涩难懂阿

Gu_xl

a4587332 发表于 2014-9-17 21:16
这个好晦涩难懂阿

先练基本功，打好基础！

a4587332

Gu_xl 发表于 2014-9-17 21:27
先练基本功，打好基础！

哈哈~~ 目前还在lisp 没接触vlisp的层面
谢谢
但是一定会看懂它的

llsheng_73

1. (defun lwplxy(e)(vl-remove'nil(mapcar'(lambda(x)(if(=(car x)10)(cdr x)))(entget e))))

(defun lwplxy(e)(vl-remove'nil(mapcar'(lambda(x)(if(=(car x)10)(cdr x)))(entget e))))

1. (defun lwplxy(e)(mapcar'cdr(vl-remove-if'(lambda(x)(/=(car x)10))(entget e))))

(defun lwplxy(e)(mapcar'cdr(vl-remove-if'(lambda(x)(/=(car x)10))(entget e))))

两个办法没本质区别,也没测试过哪一种会更快或者没多大出入

1. ((defun Plinexy(e / p a b n ob q et d d1 en et) ;;多线段节点坐标(滤掉了多余点，未处理假闭合)
   
2.    (setq a(entget e)ob(vlax-ename->vla-object e)et(cdr(assoc 0 a))n 0 p nil d nil)
   
3.    (cond((="LWPOLYLINE"et)
   
4.          (repeat(length a)(setq b (nth n a) n (+ n 1))
   
5.            (if (= 10 (car b))(progn
   
6.                                (setq q(list (cadr b) (caddr b))d1(vlax-curve-getDistAtPoint ob q))
   
7.                                (if p (if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))
   
8.                                  (setq p (list q))))
   
9.              )))
   
10.         ((="POLYLINE"et)
    
11.          (SETQ EN (ENTGET (SETQ E (ENTNEXT E))))
    
12.          (WHILE (/= (CDR (ASSOC 0 EN)) "SEQEND")
    
13.            (SETQ q (CDR (ASSOC 10 EN))d1(vlax-curve-getDistAtPoint ob q)q(reverse(cdr(reverse q))))
    
14.            (if p(if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))
    
15.              (setq p (list q)))
    
16.            (SETQ EN (ENTGET (SETQ E (ENTNEXT E)))))
    
17.          (setq p(reverse p))))
    
18.    P)

((defun Plinexy(e / p a b n ob q et d d1 en et) ;;多线段节点坐标(滤掉了多余点，未处理假闭合)<br />    (setq a(entget e)ob(vlax-ename->vla-object e)et(cdr(assoc 0 a))n 0 p nil d nil)<br />    (cond((="LWPOLYLINE"et)<br />          (repeat(length a)(setq b (nth n a) n (+ n 1))<br />            (if (= 10 (car b))(progn<br />                                (setq q(list (cadr b) (caddr b))d1(vlax-curve-getDistAtPoint ob q))<br />                                (if p (if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))<br />                                  (setq p (list q))))<br />              )))<br />         ((="POLYLINE"et)<br />          (SETQ EN (ENTGET (SETQ E (ENTNEXT E))))<br />          (WHILE (/= (CDR (ASSOC 0 EN)) "SEQEND")<br />            (SETQ q (CDR (ASSOC 10 EN))d1(vlax-curve-getDistAtPoint ob q)q(reverse(cdr(reverse q))))<br />            (if p(if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))<br />              (setq p (list q)))<br />            (SETQ EN (ENTGET (SETQ E (ENTNEXT E)))))<br />          (setq p(reverse p))))<br />    P)

如果不考虑去除相邻点完全重合的话简单很多

1. (defun Plinexy(e / p a ltype )
   
2.    (setq a(entget e)ltype(cdr(assoc 0 a)))
   
3.   (if(assoc 90 a)(vl-remove'nil(mapcar'(lambda(x)(if(=(car x)10)(cdr x)))(entget e)))
   
4.     (progn(while(/=(cdr(assoc 0(setq p(cons(cdr(assoc 10 a))p)e(entnext e)a(entget e))))"SEQEND"))
   
5.       (cdr(reverse p)))))

(defun Plinexy(e / p a ltype )<br />    (setq a(entget e)ltype(cdr(assoc 0 a)))<br />   (if(assoc 90 a)(vl-remove'nil(mapcar'(lambda(x)(if(=(car x)10)(cdr x)))(entget e)))<br />     (progn(while(/=(cdr(assoc 0(setq p(cons(cdr(assoc 10 a))p)e(entnext e)a(entget e))))"SEQEND"))<br />       (cdr(reverse p)))))

a4587332

llsheng_73 发表于 2014-9-17 22:25
两个办法没本质区别,也没测试过哪一种会更快或者没多大出入

努力查书在~估计看懂还需要点时间
不过谢谢热心解答

a4587332

a4587332 发表于 2014-9-17 22:42
努力查书在~估计看懂还需要点时间
不过谢谢热心解答

谢谢你的学习方法~~~

ZZXXQQ

另一种方式：
;...
(setq ent (entget e))
(setq plst (list))
(foreach x ent (if (= (car x) 10) (setq plst (cons (cdr x) plst))))
(setq plst (reverse plst))
;...