[VBA程序]：VC调用ACAD类型库acad.tlb时，一个三维点怎样转换成VARIANT类型？

indal

非常感谢！
我在明经、VC知识库等里问了，都没有人解答对！
但晓东网站的速度有点慢，经常进不去！希望以后能有所改进！

r33d

怎么看不到答案了（主题有点老了？）。今天我这么解决了一下：你看行么：

void CEx24dView::OnAutocadLine()
{
        COleSafeArray saP1, saP2;
        double adblP1[3] = {0, 0, 0};
        double adblP2[3] = {5,5,0};
            saP1.CreateOneDim(VT_R8, 3,(void*)adblP1);
        saP2.CreateOneDim(VT_R8, 3,(void*)adblP2);

        LPDISPATCH pAcadDoc, pAcadModel, pAcadLine;
        CWnd* pWnd = CWnd::FromHandle((HWND)m_objAcadApp.get_HWND());
        pWnd->ShowWindow(SW_SHOWNORMAL);
        pWnd->UpdateWindow();
        pWnd->BringWindowToTop();
        pAcadDoc = m_objAcadApp.get_ActiveDocument();
        m_objAcadDoc.AttachDispatch(pAcadDoc);
        pAcadModel = m_objAcadDoc.get_ModelSpace();
        m_objAcadModel.AttachDispatch(pAcadModel);
        m_objAcadModel.AddLine(saP1, saP2);
}