求大神指导，一直各种报错

kunwuzi

(princ "\bh调用程序")
(defun c:bh()
        (vl-load-com)
        (setvar "cmdecho" 0)
        (setq s (getstring "输入过滤属性序号 \n[(1)块名/(2)颜色/(3)实体/(4)图层/(5)线型/(6)选取/(7)样式/(8)厚度/(9)向量/(10)编码]\n"))
        (command "mssx" s pause "")
        (setq ss0 (ssget))
        (setq i 0)
        (setq xh 0)
          (setq mm (sslength ss0))
        (repeat mm
                (setq ssn (ssname ss0 i))
                ;(setq vssn (vlax-ename->vla-object ssn))
                  (setq mmm (vlax-curve-isClosed ssn))
                (if mmm
                (progn
                (command "region" ssn "")
                (setq vssn (vlax-ename->vla-object (entlast)))
                (setq Centriod (vla-get-Centroid vssn))
               
                (setq ptx (vlax-safearray-get-element (vlax-variant-value Centriod) 0))
                (setq pty (vlax-safearray-get-element (vlax-variant-value Centriod) 1))
                (setq ptz (vlax-safearray-get-element (vlax-variant-value Centriod) 2))
                (setq pt (list pty ptx ptz))
                (setq mjj (vla-get-Area vssn))
                (setq st (strcat "\n编号=" (itoa (1+ xh)) "\n面积=" (rtos mjj 2)))
                (command "TEXT" "s" "HZ" "j" "m" pt 2 0 st)
                (command "layer" "s" "0" "")
                (setq xh (+ xh 1))
                (setq i (+ i i))
                )
                )
               
        )
)

kunwuzi

CAD返回提示：
当前过滤条件: ((8 . "0"))
找到 5 个实体找到 5 个
已提取 1 个环。
已创建 1 个面域。
; 错误: ActiveX 服务器返回错误: 无效索引。

lovezp

                (setq ptx (vlax-safearray-get-element (vlax-variant-value Centriod) 0))
                (setq pty (vlax-safearray-get-element (vlax-variant-value Centriod) 1))
                (setq ptz (vlax-safearray-get-element (vlax-variant-value Centriod) 2))
                (setq pt (list pty ptx ptz))
替换成(setq pt (vlax-safearray->list (vlax-variant-value Centriod)))试试