[求助]：如何取得老式多段线的各顶点

tgh56

LWPOLYLINE多段线拟合后变成POLYLINE
再用函数entget获得对象（图元）的定义数据后,不能再从数据中获取顶点数据了
这个问题各位高手们一般怎么解决?

cy956

2. 
   
3. (defun get_pl-pb0(e / en pl openmod enp p enp);;;取得lwpl和pl线顶点表(p p ...)
   
4.   (setq en(entget e) pl nil openmod (dxf 70 en)
   
5.         ty(dxf 0 en) ep e)
   
6.   (cond
   
7.     ((= ty "POLYLINE")
   
8.       (setq ep (ENTNEXT ep))
   
9.       (while (= (dxf 0 (setq en (entGET ep))) "VERTEX")
   
10.         (setq p (dxf 10 en) pl (cons p pl))
    
11.         (setq ep (ENTNEXT ep))
    
12.       );while
    
13.       (if (= openmod 1)
    
14.         (setq pl (cons (nth (- (length pl) 1) pl) pl)))
    
15.       (setq plist(reverse pl)))
    
16.     ((= ty "LWPOLYLINE")
    
17.       (setq lst (assoc 10 en) lst (member lst en) p0 nil i 0)
    
18.       (while (= (car (nth i lst)) 10)
    
19.         (setq p (cdr (nth i lst)) i (+ i 4))
    
20.         (if (or (and p0 (> (distance p p0) 0.01))
    
21.                 (not p0))
    
22.           (setq pl (cons p pl))
    
23.         )
    
24.       );while
    
25.       (if (= openmod 1)
    
26.         (setq pl (cons (nth (- (length pl) 1) pl) pl)))
    
27.       (setq plist(reverse pl)))
    
28.     (t (setq plist nil))
    
29.   )
    
30.   plist
    
31. )
    
32. 
    
33. 
    

<br /> (defun get_pl-pb0(e / en pl openmod enp p enp);;;取得lwpl和pl线顶点表(p p ...)<br />   (setq en(entget e) pl nil openmod (dxf 70 en) <br />         ty(dxf 0 en) ep e)<br />   (cond <br />     ((= ty "POLYLINE")<br />       (setq ep (ENTNEXT ep))<br />       (while (= (dxf 0 (setq en (entGET ep))) "VERTEX")<br />         (setq p (dxf 10 en) pl (cons p pl))<br />         (setq ep (ENTNEXT ep))<br />       );while<br />       (if (= openmod 1)<br />         (setq pl (cons (nth (- (length pl) 1) pl) pl)))<br />       (setq plist(reverse pl)))<br />     ((= ty "LWPOLYLINE")<br />       (setq lst (assoc 10 en) lst (member lst en) p0 nil i 0)<br />       (while (= (car (nth i lst)) 10)<br />         (setq p (cdr (nth i lst)) i (+ i 4))<br />         (if (or (and p0 (> (distance p p0) 0.01))<br />                 (not p0))<br />           (setq pl (cons p pl))<br />         )<br />       );while<br />       (if (= openmod 1)<br />         (setq pl (cons (nth (- (length pl) 1) pl) pl)))<br />       (setq plist(reverse pl)))<br />     (t (setq plist nil))<br />   )<br />   plist<br /> )<br /> <br /> <br />

狂刀

[php]

(defun getdxf10 (e / ent en a lst)
  (setq ent(entget e)
        en (cdr(assoc 0 ent)))
  (cond
    ((= en "POLYLINE")(while(and(setq e (entnext e))
                                 (setq a (cdr(assoc 10 (entget e)))))                        (setq lst (cons a lst))
                      )lst)
    ((= en "LWPOLYLINE")(mapcar 'cdr (vl-remove-if '(lambda(x)(/= 10 (car x))) ent)))
  )
)
[/php]

2. 
   
3. ;测试:
   
4. (defun c:ttt ()
   
5.   (setq el (entsel))
   
6.   (if el (mapcar 'print (getdxf10 (car el))))
   
7.   (princ)
   
8. )

<br /> ;测试: <br /> (defun c:ttt ()<br />   (setq el (entsel))<br />   (if el (mapcar 'print (getdxf10 (car el))))<br />   (princ)<br /> )

kgd4510

程序能加上注释就好啦。

tgh56

谢楼上两位高手!!使我了解了entnext 函数