xiaoliang200 发表于 2008-11-25 19:32:00

请教vlax-make-safearray 的问题

在使用vlax-make-safearray 定义数组时总是要定义他的维数和索引值，我如果想定义一个不确定数组所含元素个数的数组该怎么做？

carrot1983 发表于 2008-11-25 19:49:00

<font color="#000000">(setq centerpnt(<font style="BACKGROUND-COLOR: #3399ff;">vlax-make-safearray vlax</font>-vbDouble'(0 . 2)))</font><p class="MsoNormal"><font color="#000000">(<font style="BACKGROUND-COLOR: #3399ff;">vlax</font>-<font style="BACKGROUND-COLOR: #3399ff;">safearray</font>-fill centerpnt'(50 30 0))</font></p><p class="MsoNormal"><font color="#000000">双精度浮点数。。。比如对点。。。</font></p><p class="MsoNormal"><font color="#000000"></font></p><p class="MsoNormal"><span lang="EN-US"><font color="#000000">(setq outerLoop(<font style="BACKGROUND-COLOR: #3399ff;">vlax-make-safearray vlax</font>-vbObject '(0 . 1)))</font></p><p class="MsoNormal"><font color="#000000">(<font style="BACKGROUND-COLOR: #3399ff;">vlax</font>-<font style="BACKGROUND-COLOR: #3399ff;">safearray</font>-fill outerLoop ( list outerLoop1 outerLoop2))</font></p><p class="MsoNormal"><font color="#000000">对象,比如region</font></p><p class="MsoNormal"></p><p class="MsoNormal"><font color="#ff0000">不确定数组,举个例子。。。</font></p><p class="MsoNormal"><span lang="EN-US"><font color="#3d11ee">(setq centerpnt (vlax-make-safearray vlax-vbdouble (cons 0&nbsp; (- (length lst) 1))))<br/>(vlax-safearray-fill centerpnt&nbsp; lst)</font><br/></span></p></span>

xiaoliang200 发表于 2008-11-25 22:05:00

谢谢兄弟！
页: [1]
查看完整版本: 请教vlax-make-safearray 的问题