[求助]关于entnext对lwpolyline不起作用

tchen

(defun lkn (/ e en in)
(setq e(car (entsel)) in 0
en(entget e))
(princ "\n主实体数据为:")(princ en)(princ)
(while (and (setq e(entnext e)) (/=  (cdr (assoc 0 en)) "SEQEND") )

(setq en(entget e (list "*")) in(1+ in))
(princ (strcat "\n次实体 " (itoa in) " 数据为:" ))(princ en)
) (princ)
)

为什么只对POLYLINE起作用，对于LWPOLYLINE确不能提取点坐标出来，请解释！

ZZXXQQ

LWPOLYLINE无子实体！

Andyhon

3. ;;; by Michael Puckett
4. (defun cdrs (key lst / pair rtn)
5.   (while (setq pair (assoc key lst))
6.     (setq lst (cdr (member pair lst))
7.           rtn (cons (cdr pair) rtn)
8.   ) )
9.   (reverse rtn)
10. )
11. (defun lkn (/ e en in)
12.   (setq e  (car (entsel))
13. in 0
14. en (entget e)
15.   )
16.   (princ "\n主实体数据为:")
17.   (princ en)
18.   (princ)
19.   :|
20.   (while (and (setq e (entnext e)) (/= (cdr (assoc 0 en)) "SEQEND"))
21.     (setq en (entget e (list "*"))
22.    in (1+ in)
23.     )
24.     (princ (strcat "\n次实体 " (itoa in) " 数据为:"))
25.     (princ en)
26.   )
27.   |;
28.   (setq pts (cdrs 10 en))    ; vertices
29.   (princ)
30. )

;;; by Michael Puckett (defun cdrs (key lst / pair rtn)   (while (setq pair (assoc key lst))     (setq lst (cdr (member pair lst))           rtn (cons (cdr pair) rtn)   ) )   (reverse rtn) ) (defun lkn (/ e en in)   (setq e  (car (entsel)) in 0 en (entget e)   )   (princ "\n主实体数据为:")   (princ en)   (princ)   :|   (while (and (setq e (entnext e)) (/= (cdr (assoc 0 en)) "SEQEND"))     (setq en (entget e (list "*"))    in (1+ in)     )     (princ (strcat "\n次实体 " (itoa in) " 数据为:"))     (princ en)   )   |;   (setq pts (cdrs 10 en))    ; vertices   (princ) )

tchen

哦   知道了 看了这个方法不能提取LWPOLYLINE的顶点坐标了