Следующий параметр FilterData почему то надо передавать как VT_VARIANT := 12, не подскажете почему так, ведь в справке тип такой же указан. VBA это непонятно.
]]>
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
Если члены тоже Варианты, то это объявляется явным образом. Значит, они просто целые числа. Но Integer в VBA, как я нагулил, это 16-битные числа, а не 32-битные. Так что, наверно, надо так:
arr := ComObjArray(VT_I2 := 2, 1)
arr[0] := 62
ComObj.Method(arr)
Error: 0x80070057 - Параметр задан неверно.
Source: AutoCAD
Description: Недопустимый аргумент FilterType в Select
Не пойму из справки (параметр FilterType) что ему надо.
VBA программист пишет:
В таком виде 62 и 3 задавать нельзя. Это же массивы "завернутые" в Variant, а не просто целые числа.
arr := ComObjArray(VT_I4 := 3, 1)
arr[0] := 62
ComObj.Method(arr)
Код из второго поста передаёт тип VT_DISPATCH, т.е. объект.
Код от Malcev'a — ссылку на пустой вариант.
]]>ComObj.Method(arr.ref)
arr := ComVar()
arr[0] := 62
ComObj.Method(arr)
; ComVar: Creates an object which can be used to pass a value ByRef.
; ComVar[] retrieves the value.
; ComVar[] := Val sets the value.
; ComVar.ref retrieves a ByRef object for passing to a COM function.
ComVar(Type=0xC)
{
static base := { __Get: "ComVarGet", __Set: "ComVarSet", __Delete: "ComVarDel" }
; Create an array of 1 VARIANT. This method allows built-in code to take
; care of all conversions between VARIANT and AutoHotkey internal types.
arr := ComObjArray(Type, 1)
; Lock the array and retrieve a pointer to the VARIANT.
DllCall("oleaut32\SafeArrayAccessData", "ptr", ComObjValue(arr), "ptr*", arr_data)
; Store the array and an object which can be used to pass the VARIANT ByRef.
return { ref: ComObject(0x4000|Type, arr_data), _: arr, base: base }
}
ComVarGet(cv, p*) { ; Called when script accesses an unknown field.
if p.MaxIndex() = "" ; No name/parameters, i.e. cv[]
return cv._[0]
}
ComVarSet(cv, v, p*) { ; Called when script sets an unknown field.
if p.MaxIndex() = "" ; No name/parameters, i.e. cv[]:=v
return cv._[0] := v
}
ComVarDel(cv) { ; Called when the object is being freed.
; This must be done to allow the internal array to be freed.
DllCall("oleaut32\SafeArrayUnaccessData", "ptr", ComObjValue(cv._))
}
arr := ComObjArray(VT_VARIANT := 12, 1)
arr[0] := 62
ComObj.Method(arr)
Который ему требуется, судя по коду VBA.
Dim gpCode(0) As Integer
gpCode(0) = 62
Dim groupCode As Variant
groupCode = gpCode
' указываю groupCode как передаваемый параметрМожет вообще не туда копаю?
]]>