如何才能提取到所有坐标pts

ywx2020

2. (setq ss (ssget '((0 . "LWPOLYLINE,LINE"))))
   
3.    (setq i 0)
   
4. 
   
5.    (setq pts nil)
   
6.       (repeat (sslength ss)
   
7.         (setq pt (cdr (assoc 10(entget(ssname ss i)))))
   
8.         (setq pts(append pts (list pt)))
   
9.         (setq i (1+ i))
   
10.       )

(setq ss (ssget '((0 . "LWPOLYLINE,LINE"))))<br />    (setq i 0)<br /> <br />    (setq pts nil)<br />       (repeat (sslength ss)<br />         (setq pt (cdr (assoc 10(entget(ssname ss i)))))<br />         (setq pts(append pts (list pt)))<br />         (setq i (1+ i))<br />       )

pts提取坐标点，为什么矩形只提取到左下角的坐标，直线也有部分提取不到

caddog

直线的起点组码是10，终点组码是11
可以这样写

1. (setq ss (ssget '((0 . "LWPOLYLINE,LINE"))))
   
2. (setq i 0)
   
3. (setq pts nil)
   
4. (repeat (sslength ss)
   
5.   (setq pt (vl-remove-if-not '(lambda(x) (or (= (car x) 11) (= (car x) 10))) (entget (ssname ss i))))
   
6.   (setq pt (mapcar 'cdr pt))
   
7.   (setq pts(append pts pt))
   
8.   (setq i (1+ i))
   
9.   )
   

(setq ss (ssget '((0 . "LWPOLYLINE,LINE"))))<br /> (setq i 0)<br /> (setq pts nil)<br /> (repeat (sslength ss)<br />   (setq pt (vl-remove-if-not '(lambda(x) (or (= (car x) 11) (= (car x) 10))) (entget (ssname ss i))))<br />   (setq pt (mapcar 'cdr pt))<br />   (setq pts(append pts pt))<br />   (setq i (1+ i))<br />   )<br />