vla-put-coordinates为什么对二维多段线不起作用

changyiran

(defun ddxhx(en / ZBB el);多段线换向
  (if(/="POLYLINE"(cdr(assoc 0(entget en))))
    (setq zbb(fjdb en))
    (progn
          (setq en(entnext en)ddzb'())
            (setq el(entget en))
            (while(/=(cdr(assoc 0 el))"SEQEND")
                  (setq ddzb(cons(cdr(assoc 10 el))ddzb));去掉z值
                      (setq en(entnext en))
                      (setq el(entget en))
            )
            (setq zbb(reverse ddzb))
    )       
  )
  (setq zbb(append(car zbb)(apply'append(reverse(cdr zbb)))))
  (vla-put-coordinates(vlax-ename->vla-object en)(vlax-safearray-fill(vlax-make-safearray vlax-vbDouble(cons 0(1-(length zbb))))zbb))
)

上面是我写的一个多段线换向的一个函数，但是为什么对象为二维多段线时老是出错呢？错误信息为：“ActiveX 服务器返回错误: 未知名称: Coordinates",请高手帮忙分析下。