关于安全数组的问题之二

kellyyang1

我写了如下一段代码，(defun c:yww3()//////n1 n2 ss1
(setq xdim (- lenofpoint 1))
(setq n1 0)
(setq amatrix (vlax-make-safearray vlax-vbinteger (cons 0 xdim)(cons 0 xdim)))/////定义初分流量时用到的A数组
(repeat lenofpoint
(setq p1 (nth n1 totalpoint))
(setq ss1 (ssget "x" (list (cons -4 "<or")
(cons -4 "<and")
(cons 0 "line")(cons 10 p1)
(cons -4 "and>")
(cons -4 "<and")
(cons 0 "line")(cons 11 p1)
(cons -4 "and>")
(cons -4 "or>")
)
)
)
(setq main (sslength ss1))

(vlax-safearray-put-element amatrix n1 (1+ n1) main)
(setq n1 (1+ n1))
)
)加载运行后总是提示：：：错误: ActiveX 服务器返回错误: 无效索引。请教各位是什么原因呢

alin

Where about [I]lenofpoint[/I] and        [I]totalpoint[/I]? paste all your code.

kellyyang1

就是如下的代码：


(vl-load-com)


（defun c:kk()


(setq len1 2)


(setq len2 4)


(setq cf (vlax-make-safearray vlax-vbdouble (cons 1 len1)(cons 1 len2)))


(setq ll '((1 2 3 4)(5 6 7 8)))


(setq arr (vlax-safearray-fill cf ll))


）运行的时候是没有错误的，可是在VLISP编译器中检验CF值的时候总是提示：：错误: ActiveX 服务器返回错误: 无效索引。，请教各位是为什么呢

alin

It's strange! but if len1 = len2, you have no problem to inspect it!

kellyyang1

呵呵，兄台真是厉害啊，我也试过了你说的那样是可以，真是太奇怪了，为什么呢

无痕

看来只能是bug了

龙龙仔

刚开始有那错误,后来就没有了!!奇怪?? (vl-load-com)
(defun C:KK ()
(setq LEN1 2)
(setq LEN2 4)
(setq CF (vlax-make-safearray
vlax-vbdouble
(cons 1 LEN1)
(cons 1 LEN2)
)
)
(setq LL '((1 2 3 4) (5 6 7 8)))
(setq ARR (vlax-safearray-fill CF LL))
)