得到多段线去掉DXF码的顶点坐标表

GTJ116600

得到一条多段线去掉DXF码的顶点坐标表

1. 
   
2. (defun c:t1()
   
3.        (while (not (setq ent (car (entsel "\n选择要提取顶点坐标表的多段线")))))
   
4.        (setq ptlist (mapcar 'cdr
   
5.      ;;ptlist为一个pline包含的点表
   
6.      (vl-remove-if
   
7.           '(lambda (x) (/= (car x) 10))
   
8.           (entget ent)      
   
9.      )
   
10.     )
    
11.      )
    
12. )
    

<br /> (defun c:t1()<br />        (while (not (setq ent (car (entsel "\n选择要提取顶点坐标表的多段线")))))<br />        (setq ptlist (mapcar 'cdr<br />      ;;ptlist为一个pline包含的点表<br />      (vl-remove-if<br />           '(lambda (x) (/= (car x) 10))<br />           (entget ent)      <br />      )<br />     )<br />      )<br /> )<br />

GTJ116600

提取N条多段线去掉DXF码的顶点坐标

1. (defun c:ttt()
   
2.        (princ "\n选择要提取顶点坐标的多段线")
   
3.        (while (not (setq ss (ssget ":s" '((0 . "*POLYLINE"))))))
   
4.        (setq i -1)
   
5.        (repeat (sslength ss)
   
6.                (setq ent (ssname ss (setq i (1+ i))))
   
7.                (setq ptlist (mapcar 'cdr                        
   
8.                                  (vl-remove-if
   
9.                                  '(lambda (x) (/= (car x) 10))
   
10.                                  (entget ent)            
    
11.                                        )))
    
12.                                        (setq lst (cons ptlist lst))
    
13.                (princ "\n换行")
    
14.                (princ ptlist)
    
15.      )
    
16.      (princ)
    
17. 
    
18. )
    

(defun c:ttt()<br />        (princ "\n选择要提取顶点坐标的多段线")<br />        (while (not (setq ss (ssget ":s" '((0 . "*POLYLINE"))))))<br />        (setq i -1)<br />        (repeat (sslength ss)<br />                (setq ent (ssname ss (setq i (1+ i))))<br />                (setq ptlist (mapcar 'cdr                         <br />                                  (vl-remove-if<br />                                  '(lambda (x) (/= (car x) 10))<br />                                  (entget ent)             <br />                                        )))<br />                                        (setq lst (cons ptlist lst))<br />                (princ "\n换行")<br />                (princ ptlist)<br />      )<br />      (princ)<br /> <br /> )<br />

ll_j

这是提取顶点坐标的代码，是“得到”，不是“去掉”。

GTJ116600

ll_j 发表于 2013-6-27 15:58
这是提取顶点坐标的代码，是“得到”，不是“去掉”。

前辈说的极是，是得到去掉多段线DXF码的顶点坐标

st788796

用 xdrx_entity_getstretchpoint 就都有了

1. (defun c:tt (/ ss e)
   
2.   (if (setq ss (ssget '((0 . "*polyline"))))
   
3.       (progn
   
4.          (xdrx_setsstodb ss 0)
   
5.          (while (setq e (xdrx_getentdata 0))
   
6.             (princ (xdrx_entity_getstretchpoint e))
   
7.             (princ "\n")
   
8.          )
   
9.     )
   
10.    (princ)
    
11. )

(defun c:tt (/ ss e)<br />   (if (setq ss (ssget '((0 . "*polyline"))))<br />       (progn<br />          (xdrx_setsstodb ss 0)<br />          (while (setq e (xdrx_getentdata 0))<br />             (princ (xdrx_entity_getstretchpoint e))<br />             (princ "\n")<br />          )<br />     )<br />    (princ)<br /> )

newer

st788796 发表于 2013-6-27 17:18
用 xdrx_entity_getstretchpoint 就都有了

这个xdrx_entity_getStretchPoint 这么多应用。

st788796

newer 发表于 2013-6-27 18:44
这个xdrx_entity_getStretchPoint 这么多应用。

另类应用:lol

davide888

GTJ116600 发表于 2013-6-27 15:40
提取N条多段线去掉DXF码的顶点坐标

非常感谢         

xvjiex

感谢楼主分享得到多段线去掉DXF码的顶点坐标表！

bright516

感谢楼主分享