Sub Example_AppendOuterLoop()
    ' This example creates an associative hatch in model space.
    
    Dim hatchObj As AcadHatch
    Dim patternName As String
    Dim PatternType As Long
    Dim bAssociativity As Boolean
    
    ' Define the hatch
    patternName = "ANSI31"
    PatternType = 0
    bAssociativity = True
    
    ' Create the associative Hatch object
    Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)
    
    ' Create the outer loop for the hatch.
    ' An arc and a line are used to create a closed loop.
    Dim outerLoop(0 To 1) As AcadEntity
    Dim center(0 To 2) As Double
    Dim radius As Double
    Dim startAngle As Double
    Dim endAngle As Double
    center(0) = 5: center(1) = 3: center(2) = 0
    radius = 1
    startAngle = 0
    endAngle = 3.141592
    Set outerLoop(0) = ThisDrawing.ModelSpace.AddArc(center, radius, startAngle, endAngle)
    Set outerLoop(1) = ThisDrawing.ModelSpace.AddLine(outerLoop(0).startPoint, outerLoop(0).endPoint)
        
    ' Append the outer loop to the hatch object, and display the hatch
    hatchObj.AppendOuterLoop (outerLoop)
    hatchObj.Evaluate
    ZoomAll
    
End Sub

  // [14] Append loops to the hatch
  virtual HRESULT STDMETHODCALLTYPE AppendOuterLoop(VARIANT ObjectArray/*[in]*/) = 0;

 HRESULT hr;
 IAcadHatchPtr iHatch; //смарт-указатель, порожденный TComInterface

 //создаю объект Hatch, все работает верно
 hr = iModelSpace->AddHatch(acHatchPatternTypePreDefined,WideString("ANSI31"),0,&iHatch);
 if (FAILED(hr)) return;

 //пытаюсь сформировать массив
 Variant VarArr[1];
 VarArr[0] = (IAcadObject*)Contur; //Contur - объект типа IAcadPolylinePtr (смарт-указатель на полилинию)

 //формирую массив SAFEARRAY размером 1 на основе массива Variant и передаю в метод добавления контура
 //метод возвращает код ошибки, которому соответсвует сообщение "Invalid object Array"
 hr = iHatch->AppendOuterLoop(VarArrayOf(VarArr,0));
 if (FAILED(hr)) return; //выход по ошибке

А>  // [14] Append loops to the hatch
А>  virtual HRESULT STDMETHODCALLTYPE AppendOuterLoop(VARIANT ObjectArray/*[in]*/) = 0;
А>

А> Variant VarArr[1];
А> VarArr[0] = (IAcadObject*)Contur; //Contur - объект типа IAcadPolylinePtr (смарт-указатель на полилинию)
А>

STDMETHODIMP CArrayTest::ArrayTest(VARIANT* vararray)
{
    // TODO: Add your implementation code here
    CComSafeArray<BSTR> arr;

    arr.Add(::SysAllocString(L"1"));
    arr.Add(::SysAllocString(L"2"));
    arr.Add(::SysAllocString(L"3"));
    arr.Add(::SysAllocString(L"4"));

    CComVariant ret(arr);

    ret.Detach(vararray);
  
    arr.Detach();
    return S_OK;
}

А>    Dim outerLoop(0 To 1) As AcadEntity

А>    Set outerLoop(0) = ThisDrawing.ModelSpace.AddArc(center, radius, startAngle, endAngle)
А>    Set outerLoop(1) = ThisDrawing.ModelSpace.AddLine(outerLoop(0).startPoint, outerLoop(0).endPoint)
        
А>    ' Append the outer loop to the hatch object, and display the hatch
А>    hatchObj.AppendOuterLoop (outerLoop)

sa = SafeArrayCreateEx( VT_DISPATCH, 1, & sabound, & IID_IAcadEntity );
sa = SafeArrayCreateEx( VT_DISPATCH | FADF_HAVEIID, 1, & sabound, & IID_IAcadEntity );

Vi2>>sa = SafeArrayCreateEx( VT_DISPATCH, 1, & sabound, & IID_IAcadEntity );
Vi2>>sa = SafeArrayCreateEx( VT_DISPATCH | FADF_HAVEIID, 1, & sabound, & IID_IAcadEntity );

Vi2>>Я не знаю, какая строчка будет правильной — с или без FADF_HAVEIID.

PE>FADF_HAVEIID нужно, если передаешь IID. Т.е. второй вариант

vt
The base type or the VARTYPE of each element of the array. The FADF_RECORD flag can be set for a variant type VT_RECORD, The FADF_HAVEIID flag can be set for VT_DISPATCH or VT_UNKNOWN, and FADF_HAVEVARTYPE can be set for all other VARTYPEs.

pvExtra
Points to the type information of the user-defined type, if you are creating a safearray of user-defined types. If the vt parameter is VT_RECORD, then pvExtra will be a pointer to an IRecordInfo describing the record. If the vt parameter is VT_DISPATCH or VT_UNKNOWN, then pvExtra will contain a pointer to a GUID representing the type of interface being passed to the array.

Sub Main
    
Dim obj1 As New Class1
Dim arr(2) As Class2

Set arr(0) = New Class2
Set arr(1) = New Class2

obj1.TestArray(arr)
End Sub

interface IClass1 : IDispatch{
    [id(1), helpstring("method TestArray")] HRESULT TestArray([in] VARIANT array);
};

 //создаю массив
 SAFEARRAY* sa;
 sa = SafeArrayCreateVectorEx(VT_DISPATCH,0,1,(void*)&IID_IDispatch);

 //выставляю флаги
 sa->fFeatures = FADF_DISPATCH | FADF_HAVEIID | FADF_FIXEDSIZE;

 //получаю указатель на интерфейс IDispatch у смарт-указателя на IAcadPolyline
 IDispatch* pIAcadEntity;
 hr = Contur->QueryInterface(IID_IAcadEntity,(void **)&pIAcadEntity);
 if (FAILED(hr)) return;

 //добавляю в единственный элемент массива полученный указатель интерфейс
 long idx[1] = {0};
 hr = SafeArrayPutElement(sa,idx,pIAcadEntity);
 if (FAILED(hr)) return;

 //создаю Variant, в который надо обернуть SAFEARRAY для передачи в метод AppendOuterLoop
 VARIANT ConturArray;
 VariantInit(&ConturArray);
 ConturArray.vt = VT_ARRAY|VT_DISPATCH|VT_BYREF;
 ConturArray.pparray = &sa;

 //вызываю проблемный метод, который теперь отлично работает
 hr = iHatch->AppendOuterLoop(ConturArray);
 if (FAILED(hr)) return;

 //зачистка структур в памяти, дело до которой не доходит
 pIAcadEntity->Release();
 SafeArrayDestroy(sa);

А> //создаю Variant, в который надо обернуть SAFEARRAY для передачи в метод AppendOuterLoop
А> VARIANT ConturArray;
А> VariantInit(&ConturArray);
А> ConturArray.vt = VT_ARRAY|VT_DISPATCH|VT_BYREF;
А> ConturArray.pparray = &sa;

ConturArray.vt = VT_ARRAY|VT_DISPATCH;
ConturArray.parray = sa;

__uuidof(MSHTML::HTMLDocument)

__uuidof(MSHTML::IHTMLDocument2)

__uuidof(MSHTML::DispHTMLDocument)

__uuidof(MSHTML::__MSHTML)