请教各位高手

独孤星流云

如何利用AutoLISP函数entnext得到多义线的各顶点信息?

cy956

2. 
   
3. (defun cy_lwpl-pb1( e / en pl openmod enp p p0 enp a i lst)
   
4. ;;;取得带圆弧的 LWPOLYLINE 线上顶点表,((p a)(p a)...)
   
5.   (setq en (entget e) pl nil openmod (dxf 70 en))
   
6.   (if (= (dxf 0 en) "LWPOLYLINE") (progn
   
7.     (setq lst (assoc 10 en) lst (member lst en) p0 nil i 0)
   
8.     (while (= (car (nth i lst)) 10)
   
9.       (setq p (cdr (nth i lst))
   
10.             a (cdr (nth (+ i 3) lst)))
    
11.       (setq i (+ i 4))
    
12.       (if (or (and p0 (> (distance p p0) 0.01))
    
13.               (not p0))
    
14.         (setq pl (cons (list p a) pl))
    
15.       )
    
16.     );while
    
17.   ) )
    
18.   (if (= openmod 1)
    
19.     (setq pl (cons (nth (- (length pl) 1) pl) pl)))
    
20.   (reverse pl)
    
21. )
    
22. 
    
23. (defun cy_pl-pb(e / en pl openmod enp p enp);;;取得POLYLINE线顶点表
    
24.   (setq en(entget e) pl nil openmod (dxf 70 en) ep e)
    
25.   (if (= (dxf 0 en) "POLYLINE") (progn
    
26.     (setq ep (ENTNEXT ep))
    
27.     (while (= (dxf 0 (setq en (entGET ep))) "VERTEX")
    
28.       (setq p (dxf 10 e) pl (cons p pl))
    
29.       (setq ep (ENTNEXT ep))
    
30.     );while
    
31.   ) )
    
32.   (if (= openmod 1)
    
33.     (setq pl (cons (nth (- (length pl) 1) pl) pl)))
    
34.   (reverse pl)
    
35. )
    

<br /> (defun cy_lwpl-pb1( e / en pl openmod enp p p0 enp a i lst)<br /> ;;;取得带圆弧的 LWPOLYLINE 线上顶点表,((p a)(p a)...)<br />   (setq en (entget e) pl nil openmod (dxf 70 en))<br />   (if (= (dxf 0 en) "LWPOLYLINE") (progn<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))<br />             a (cdr (nth (+ i 3) lst)))<br />       (setq i (+ i 4))<br />       (if (or (and p0 (> (distance p p0) 0.01))<br />               (not p0))<br />         (setq pl (cons (list p a) pl))<br />       )<br />     );while<br />   ) )<br />   (if (= openmod 1)<br />     (setq pl (cons (nth (- (length pl) 1) pl) pl)))<br />   (reverse pl)<br /> )<br /> <br /> (defun cy_pl-pb(e / en pl openmod enp p enp);;;取得POLYLINE线顶点表<br />   (setq en(entget e) pl nil openmod (dxf 70 en) ep e)<br />   (if (= (dxf 0 en) "POLYLINE") (progn<br />     (setq ep (ENTNEXT ep))<br />     (while (= (dxf 0 (setq en (entGET ep))) "VERTEX")<br />       (setq p (dxf 10 e) pl (cons p pl))<br />       (setq ep (ENTNEXT ep))<br />     );while<br />   ) )<br />   (if (= openmod 1)<br />     (setq pl (cons (nth (- (length pl) 1) pl) pl)))<br />   (reverse pl)<br /> )<br />

独孤星流云

多谢!
(dxf 70 en)是什么意思?:6

XDSoft

最初发表由 独孤星流云
[B]多谢!
(dxf 70 en)是什么意思?:6 [/B]

获得组码70的值，定义如下：

2. 
   
3. (defun dxf (no ent)
   
4.    (cdr (assoc no ent))
   
5. )
   

<br /> (defun dxf (no ent)<br />    (cdr (assoc no ent))<br /> )<br />