[求助]：请教xyp1964老师一个问题?

glmyyy

我用pline画折线，用entget能得到每个点的的坐标且组码都是10,但我用assoc 10 只能得到一个点的坐标，请问我怎样才能把每个点的坐标都列出?
谢谢

xyp1964

未考虑重合点：

2. [FONT=courier new](defun c:test ()
   
3.   (setq        ss (ssget '((0 . "*POLYLINE")))
   
4.         i  -1
   
5.   )
   
6.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
7.     (setq e (entget s1))
   
8.     (while (setq pt (cdr (assoc 10 e)))
   
9.       (setq e (vl-remove (cons 10 pt) e))
   
10.       (princ "\n")
    
11.       (princ pt)
    
12.     )
    
13.   )
    
14. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        ss (ssget '((0 . "*POLYLINE")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq e (entget s1))<br />     (while (setq pt (cdr (assoc 10 e)))<br />       (setq e (vl-remove (cons 10 pt) e))<br />       (princ "\n")<br />       (princ pt)<br />     )<br />   )<br /> )[/FONT]

glmyyy

多谢了*-*4

雨箭风刀

最初由 xyp1964 发布
[B]未考虑重合点：
[CODE](defun c:test ()
  (setq        ss (ssget '((0 . "*POLYLINE")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq e (entget s1))
    (while (se... [/B]

polyline和lwpolyline数据结构是不同的，所以用
((0 . "*POLYLINE")) 过滤是不应该的