求助：用vla-setxdata是出现错误？？？

zxfzxf

程序如下：

         (setq startPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))
   (vlax-safearray-fill startPnt st_point)
   (setq endPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))
   (vlax-safearray-fill endPnt p3)
   (setq Line_Obj(vla-AddLine mSpace startPnt endPnt))

       (setq xtype (vlax-make-safearray vlax-vbvariant '(0 . 1)))
   (setq xdata (vlax-make-safearray vlax-vbvariant '(0 . 1)))
          (vlax-safearray-fill xtype '(1001 1000))
          (vlax-safearray-fill xdata '("loop" "loop"))
           (vla-setxdata line_obj xtype xdata)

运行后出现：错误: Automation 错误。未提供说明。

fools

(setq xtype (vlax-make-safearray vlax-vbvariant '(0 . 1)))

改为

(setq xtype (vlax-make-safearray vlax-vbInteger '(0 . 1)))