Polyline2d怎样转换成Polyline

songcf

Polyline2d转换成Polyline，怎样能获取Polyline2d上的点

LONGXIN

(defun POL_coord (E1 / dxf XY E2 count_xy pd)
      (setq count_xy nil
            dxf
             (entget e1)
            DXF
             (MEMBER (ASSOC 330 DXF) DXF)
            E2
             (ENTNEXT E1)
            DXF
             (ENTGET E2)
      )

      (setq e1 (cdr (assoc 0 dxf)))
      (while (= e1 "VERTEX")
        (setq e1 (cdr (assoc 10 dxf)))
        (setq pd (cdr (assoc 70 dxf)))
        (if (/= pd 16)
          (setq count_xy (cons e1 count_xy))
        )
        (setq e1 e2)
        (SETQ E2  (ENTNEXT E1)
              DXF (ENTGET E2)
              e1  (cdr (assoc 0 dxf))
        )
      )
      (setq COUNT_XY (reverse count_xy))
    )