怎么得到多义线各顶点相对应的水平线的各点

有一条多义线，在其上方或下方有一水平线，怎么能得到多义线各顶点相对应的水平线上的点，即沿各顶点垂直向上或向下与水平线的交点？lisp里面怎么实现？

比较好做的：
1、构造选择集、获取图元数据
(setq ss (ssget))
...
(setq ent   (entget (ssname ss n)))
2、判断、读取各顶点的坐标和拱度
(= (cdr (assoc 0 ent)) "LWPOLYLINE")
...
(setq m 0)
(repeat (length ent)
     (if (= (car (nth m ent)) 10)
　　　　(setq pt(cdr (nth m ent))       　　 ;端点
　　　　　　　ar(cdr (nth (+ m 3) ent))  ;拱度
              ff (cons (list pt ar) ff)
        )
...
　　)
  )
...
3、处理FF，通过前后两点拱度可以知道两点间线型(直线或弧)，直线就很好处理，如果是圆弧先可以得到圆心角((* 4.0 (atan (abs 拱度)))) ...