高手请不吝指教

超然

这是置顶的帖子里MCCAD达人写的求交点的程序，我想问一下
(vlax-safearray-get-u-bound intpoints 1)
(vlax-safearray-get-l-bound intpoints 1)
和
vlax-safearray-get-element

这几个函数都是什么意思？
原程序如下：

2. (defun c:GIP ()
3.     (c:getinterpoint)
4.   )
5.   (defun C:GetInterPoint (/        ent1     ent2     ent_1    ent_2
6.                           ax_ent_1 ax_ent_2 intpoints         i
7.                           j        k        disp
8.                          )
9.     (setq ent1 (entsel "\n选择第一条曲线:"))
10.     (setq ent2 (entsel "\n选择第二条曲线:"))
11.     (setq ent_1 (car ent1)
12.           ent_2 (car ent2)
13.     )
14.     (setq ax_ent_1 (vlax-ename->vla-object ent_1)
15.           ax_ent_2 (vlax-ename->vla-object ent_2)
16.     )
17.     (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
18.     (setq intpoints (vlax-variant-value intpoints))
19.     (if (> (vlax-safearray-get-u-bound intpoints 1) 0)
20.       (progn
21.         (setq i 0)
22.         (setq j 0)
23.         (setq k 0)
24.         (setq disp "")
25.         (repeat
26.           (/ (+ 1
27.                 (- (vlax-safearray-get-u-bound intpoints 1)
28.                    (vlax-safearray-get-l-bound intpoints 1)
29.                 )
30.              )
31.              3
32.           )
33.            (setq
34.              disp (strcat
35.                     disp
36.                     "\n交点"
37.                     (itoa (+ k 1))
38.                     "坐标为:"
39.                     (rtos (vlax-safearray-get-element intpoints j))
40.                     " , "
41.                     (rtos (vlax-safearray-get-element intpoints (+ 1 j)))
42.                     " , "
43.                     (rtos (vlax-safearray-get-element intpoints (+ 2 j)))
44.                   )
45.            )
46.            (setq i (+ 2 i)
47.                  j (+ 3 j)
48.                  k (+ 1 k)
49.            )
50.         )
51.         (princ disp)
52.       )
53.       (princ "\n两曲线没有交点")
54.     )
55.     (princ "\n明经通道LISP示例-求两曲线交点")
56.     (princ)
57.   )

(defun c:GIP ()     (c:getinterpoint)   )   (defun C:GetInterPoint (/        ent1     ent2     ent_1    ent_2                           ax_ent_1 ax_ent_2 intpoints         i                           j        k        disp                          )     (setq ent1 (entsel "\n选择第一条曲线:"))     (setq ent2 (entsel "\n选择第二条曲线:"))     (setq ent_1 (car ent1)           ent_2 (car ent2)     )     (setq ax_ent_1 (vlax-ename->vla-object ent_1)           ax_ent_2 (vlax-ename->vla-object ent_2)     )     (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))     (setq intpoints (vlax-variant-value intpoints))     (if (> (vlax-safearray-get-u-bound intpoints 1) 0)       (progn         (setq i 0)         (setq j 0)         (setq k 0)         (setq disp "")         (repeat           (/ (+ 1                 (- (vlax-safearray-get-u-bound intpoints 1)                    (vlax-safearray-get-l-bound intpoints 1)                 )              )              3           )            (setq              disp (strcat                     disp                     "\n交点"                     (itoa (+ k 1))                     "坐标为:"                     (rtos (vlax-safearray-get-element intpoints j))                     " , "                     (rtos (vlax-safearray-get-element intpoints (+ 1 j)))                     " , "                     (rtos (vlax-safearray-get-element intpoints (+ 2 j)))                   )            )            (setq i (+ 2 i)                  j (+ 3 j)                  k (+ 1 k)            )         )         (princ disp)       )       (princ "\n两曲线没有交点")     )     (princ "\n明经通道LISP示例-求两曲线交点")     (princ)   )

citykunan

语法

      (vlax-safearray-get-element var element...)

功能

       返回 Safearray 中的元素

　

说明

1）参数 var 为变量，其数据类型为 SafeArray。

2）参数 element... 为整数型，指定要检索的元素的索引。对于一维数组，应指定一个整数，对于多维数组，指定的索引数应与数组的维数相等。

返回值：

元素的值。

范例

创建二维数组，其中每个维都从索引 1 开始：

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

#<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 1 3 "c")

"c"

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

"d"

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

"e"

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

" f "

使用 vlax-safearray-get-element 检索数组第二维中的第二个元素：

$ (vlax-safearray-get-element matrix 2 2)

"e"

请参见 vlax-make-safearray、vlax-safearray-get-dim、vlax-safearray-get-l-bound、vlax-safearray-get-u-bound 和 vlax-safearray-put-element 函数。

 

 

语法

      (vlax-safearray-get-l-bound var dim)

功能

       返回 Safearray 某一维的下界（开始索引）。

　

说明

1）参数 var 为变量，其数据类型为 SafeArray。

2）参数 dim 为数组的维数。第一维为 1。

返回值：

整数，表示维的下界（开始索引）。如果 var 不是数组或 dim 无效（如设置为 0 或大于数组维数的数值），则返回错误信息。

范例

1）对如下定义的 SafeArray 求值：

_$ (vlax-make-safearray vlax-vbString '(1 . 2) '(3 . 4) )

2）获取数组第一维的开始索引值：

_$ (vlax-safearray-get-l-bound tmatrix 1)

1

第一维以索引 1 开始。

3）获取数组第二维的开始索引值：

_$ (vlax-safearray-get-l-bound tmatrix 2)

3

第二维以索引 3 开始。

请参见 vlax-make-safearray、vlax-safearray-get-dim 和 vlax-safearray-get-u-bound 函数。

 

语法

      (vlax-safearray-get-u-bound var dim)

功能

       返回 Safearray 某一维的上界（结束索引）。

　

说明

1）参数 var 为变量，其数据类型为 SafeArray。

2）参数 dim 为数组的维数。第一维为 1。

返回值：

整数，表示维的上界（结束索引）。若 var 不是数组或 dim 无效（如设置为 0 或大于数组维数的数值），则返回错误信息。

范例

1）对如下定义的 SafeArray 求值：

_$ (vlax-make-safearray vlax-vbString '(1 . 2) '(3 . 4) )

#<safearray...>

2）获取数组第一维的结束索引值：

_$ (vlax-safearray-get-u-bound tmatrix 1)

2

第一维以索引 2 结束。

3）获取数组第二维的结束索引值：

$ (vlax-safearray-get-u-bound tmatrix 2)

4

第二维以索引 4 结束。

请参见 vlax-make-safearray、vlax-safearray-get-dim 和 vlax-safearray-get-l-bound 函数。

超然

谢谢楼上的。