明经通道 Visual LISP 函数	明经通道 Visual LISP 函数
vlax-safearray-put-element

给 Safearray 中的某元素赋值

(vlax-safearray-put-element var index... value)

参数

var

变量，其数据类型为 SafeArray。

index...

索引值的集，指向要指定值的元素。对于一维数组，应指定一个索引值。对于二维数组，则指定两个索引值，依此类推。

value

要指定给 SafeArray 元素的值。

返回值

指定给数组元素的值 value。

示例

创建由双精度数构成的一维数组：

_$ (setq point (vlax-make-safearray vlax-vbDouble '(0 . 2)))

#<safearray...>

使用 vlax-safearray-put-element 填满数组：

_$ (vlax-safearray-put-element point 0 100)

100

_$ (vlax-safearray-put-element point 1 100)

100

_$ (vlax-safearray-put-element point 2 0)

0

创建由字符串构成的二维数组：

_$ (setq matrix (vlax-make-safearray vlax-vbString '(1 . 2) '(1 . 2) ))

#<safearray...>

使用 vlax-safearray-put-element 填满数组：

_$ (vlax-safearray-put-element matrix 1 1 "a")

"a"

_$ (vlax-safearray-put-element matrix 1 2 "b")

"b"

_$ (vlax-safearray-put-element matrix 2 1 "c")

"c"

_$ (vlax-safearray-put-element matrix 2 2 "d")

"d"

请注意，也可以使用 vlax-safearray-fill 函数来填满数组。下面的函数调用与三个 vlax-safearray-put-element 调用的作用相同：

(vlax-safearray-fill matrix '(("a" "b") ("c" "d")))

参阅

vlax-safearray-get-element、vlax-safearray-fill 和 vlax-safearray-type 函数。