还是矩形的问题，请教。

小妹丁

我在矩形的DXF数据中，发现四组（10         。         XXX）有一些规律，第一组是画矩形时第一点取点，第三组是对角点，四组是按逆时钟方向排列，问题是ASSOC只可以提取第一组，有没办法按序提出四组数据？应该是可以的，因为DXF文件是可以转DWG文件的。

spring

(while (/= (nth n ed) nil)
(if (= (car (nth n ed)) 10)
(setq listxy (append listxy
(list (list (cadr (nth n ed))
(caddr (nth n ed))
)
)
) )
)
(setq n (1+ n))
) ed 就是你已经提取的矩形 dxf 数据

小妹丁

我明白你的意思了，不过要改一下才能用。 执行结果： (defun c:jxg ()
(setq en (car (entsel "\n选取矩形对象：")))
(setq ed (entget en))
(setq n 0)
(while (/= (nth n ed) nil)
(if (= (car (nth n ed)) 10)
(progn
(setq listxy (append listxy
(list (list (cadr (nth n ed))
(caddr (nth n ed))
)
)
)
)
(princ listxy)
)
)
(setq n (1+ n))
) )
;ed 就是你已经提取的矩形 dxf 数据
命令: jxg
选取矩形对象：((76.3872 112.624) (141.301 112.624) (141.301 146.219) (76.3872
146.219) (76.3872 112.624) (141.301 112.624) (141.301 146.219) (76.3872
146.219) (76.3872 112.624))((76.3872 112.624) (141.301 112.624) (141.301
146.219) (76.3872 146.219) (76.3872 112.624) (141.301 112.624) (141.301
146.219) (76.3872 146.219) (76.3872 112.624) (141.301 112.624))((76.3872
112.624) (141.301 112.624) (141.301 146.219) (76.3872 146.219) (76.3872
112.624) (141.301 112.624) (141.301 146.219) (76.3872 146.219) (76.3872
112.624) (141.301 112.624) (141.301 146.219))((76.3872 112.624) (141.301
112.624) (141.301 146.219) (76.3872 146.219) (76.3872 112.624) (141.301
112.624) (141.301 146.219) (76.3872 146.219) (76.3872 112.624) (141.301
112.624) (141.301 146.219) (76.3872 146.219))31

spring

改什么??? (defun c:jxg (/ listxy en ed n)
(setq listxy nil)
(setq en (car (entsel "\n选取矩形对象：")))
(setq ed (entget en))
(setq n 0)
(while (/= (nth n ed) nil)
(if (= (car (nth n ed)) 10)
(progn
(setq listxy (append listxy
(list (list (cadr (nth n ed))
(caddr (nth n ed))
)
)
)
)
)
)
(setq n (1+ n))
)
(princ)
listxy
) ----------------------------------------------- 结果 命令: jxg
选取矩形对象：((3104.44 -1087.41) (3202.26 -1087.41) (3202.26 -1005.82)
(3104.44 -1005.82))

小妹丁

唔好意思，我有错。