下标越界

sieben

Sub Line_Equation(ByRef LParam() As Double, ByVal p1 As Variant, ByVal p2 As Variant)
    LParam(0) = p2(1) - p1(1)
    LParam(1) = p1(0) - p2(0)
    LParam(2) = -1# * LParam(0) * p1(0) - LParam(1) * p1(1)
End Sub

上面是VB代码,我生成DLL文件,然后在VIsual Lisp 中插入

代码如下

(setq dllfile (findfile "d:\\vb\\dll\\linecircle.dll"))
(vlax-import-type-library :tlb-filename dllfile :methods-prefix "LCM-"
  :Properties-prefix "LCM-"  :constants-prefix "LCM-" )
(setq lcobj (vlax-get-or-create-object "linecircle.calculate"))

(setq arr1 (vlax-make-safearray vlax-vbvariant '(0 . 1)))
(vlax-safearray-fill arr1 '(1.0 1.0 ))
(setq arr2 (vlax-make-safearray vlax-vbvariant '(0 . 1)))
(vlax-safearray-fill arr2 '(2.0 3.0 ))
(vlax-invoke-method  lcobj  "Line_Equation"  'line1 arr1  arr2)

错误如下:

error: Automation Error. 下标越界

其它在VB中没有用到ByRef 的可正常使用

请问是什么问题啊?怎么解决?

efan2000

line1没有定义，创建一个0-2的数组，不要赋值试试。

sieben

谢谢efan2000!!

(setq line1 (vlax-make-safearray vlax-vbvariant '(0 . 2)))
(setq line1 (vlax-make-safearray vlax-vbdouble '(0 . 2)))
(setq line1 (vlax-make-safearray vlax-vbempty '(0 . 2)))
(setq line1 (vlax-make-safearray vlax-vbobject '(0 . 2)))

我试了好多种数据类型,都不行,出错如下

error: Automation Error. 类型不匹配

后来我加了下面一句还是一样,请帮忙再想想会是什么原因!!!

(setq line1 (vlax-make-variant line1 ))