[求助]获取图元坐标信息

candy-jhl

现在能够得到图元的信息 ((-1 . <图元名: 7ef4fd68>) (0 . "LWPOLYLINE") (330 . <图元名:
7ef4fd08>) (5 . "2D") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDbPolyline") (90 . 4) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10
122.324 115.89) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 203.136 223.115) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 593.91 88.2551) (40 . 0.0) (41 . 0.0) (42 . 0.0)
(10 758.854 220.904) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

我想得到其中坐标点的信息，即开头为10的数据组，请问有人知道哪个函数可以用么？

xshrimp

(cdr (assoc 10 (entget (car (entsel)))))

lenlenq

 (cdr (assoc 10 (entget (car (entsel)))))--提取一个顶点坐标

xshrimp

(defun massoc (key alist / x nlist)

  (foreach x alist

    (if (eq key (car x))

      (setq nlist (cons (cdr x) nlist))

    )

  )

  (reverse nlist)

)