[求助]：请教：数组的运用？

kgd4510

请问定义数组的命令是什么？如何使用数组命令？
比如我有一列点的点，如何把他们以数组的形式积存起来？
谢谢各位。

Job_ho

(setq vlr_ditch_point_list (vlax-make-safearray vlax-vbdouble '(0 . 27)))
  (vlax-safearray-fill vlr_ditch_point_list (append vlr_ditch_point0
                                 vlr_ditch_point1
                                 vlr_ditch_point2
                                 vlr_ditch_point3
                                 vlr_ditch_point4
                                 vlr_ditch_point5
                                 vlr_ditch_point6
                                 vlr_ditch_point7
                                 vlr_ditch_point8
                                 vlr_ditch_point9
                                 vlr_ditch_point10
                                 vlr_ditch_point11
                                 vlr_ditch_point12
                                 vlr_ditch_point13
                                            ) ; _ end of append
  ) ; _ vlax-safearray-fill
  (setq vla_vlr_ditch (vla-addlightweightpolyline mspace vlr_ditch_point_list))

kgd4510

谢谢大侠的帮助，不过我有点看不懂，请问能否帮解释一下吗？

Job_ho

(setq vlr_ditch_point_list (vlax-make-safearray vlax-vbdouble '(0 . 27)))
建構一個一維數組,數組型式為double(倍精變量),數組共有28個元素
(vlax-safearray-fill vlr_ditch_point_list (append vlr_ditch_point0
vlr_ditch_point1
vlr_ditch_point2
vlr_ditch_point3
vlr_ditch_point4
vlr_ditch_point5
vlr_ditch_point6
vlr_ditch_point7
vlr_ditch_point8
vlr_ditch_point9
vlr_ditch_point10
vlr_ditch_point11
vlr_ditch_point12
vlr_ditch_point13
) ; _ end of append
) ; _ vlax-safearray-fill
填充這個一維數組,vlr_ditch_pointx每一個為2個元素的表,故共有28個元素
(setq vla_vlr_ditch (vla-addlightweightpolyline mspace vlr_ditch_point_list))
這就把它畫出來了

kgd4510

谢谢，经阁下的解释，基本上明白了思路啦，但是问题有来啦。请问怎么把数值赋给数组的每一个元素呢？
再有，我运行的时候为何显示说：“ 错误: vlax-safearray-fill 失败。初始化列表无效”还请解释。
不好意思啊，我没有使用过数组，帮还得麻烦高手您帮帮忙。