Api Sw

[Shvg 67]

Уважаемые спецы! Просьба объяснить в чем моя ошибка?

Код на VB6

Dim swApp As SldWorks.SldWorks

Dim Model As SldWorks.ModelDoc2

Dim Drawing As SldWorks.DrawingDoc

Dim SelMgr As SldWorks.SelectionMgr

Dim Note As SldWorks.Note

Sub Main()

Set swApp = CreateObject("SldWorks.Application")

Set Model = swApp.ActiveDoc

Set Drawing = Model

Set SelMgr = Model.SelectionManager

Dim SelType As Long, PickPoint As Variant

SelType = SelMgr.GetSelectedObjectType2(1)

PickPoint = SelMgr.GetSelectionPoint(1)

If IsEmpty(PickPoint) Then Exit sub

Dim X1, Y1 As Double

' получаем координаты точки щелчка мыши в Drawing

X1 = PickPoint(0) ' Set line startpoint

Y1 = PickPoint(1)

' дальше рабочий код

End Sub

Код на VB работает нормально, начиная с SW99

Код на VC++, EXE-file

void CMaingDlg::OnOK()

{

HRESULT hres;

CoInitialize(NULL); //Initialize COM

CComPtr<ISldWorks> swApp; //Use ATL smart pointers

hres = swApp.CoCreateInstance(__uuidof(SldWorks), NULL, CLSCTX_LOCAL_SERVER); //Create an instance of SolidWorks

CComPtr<IModelDoc2> pModel;

hres = swApp->get_IActiveDoc2(&pModel);

long SelType;

hres = pModel->GetType(&SelType);

CComQIPtr<IDrawingDoc>pDrawing(pModel);

CComQIPtr<ISelectionMgr> pSelMgr(pDrawing);

hres = pModel->get_ISelectionManager(&pSelMgr);

long CountObj = 0;

hres = pSelMgr->GetSelectedObjectCount(&CountObj);

if (CountObj != 1)

return;

double PickPoint[3];

double *pPoint;

pPoint = PickPoint;

// пока проходит нормально

hres = pSelMgr->GetSelectionPoint(CountObj, pPoint); // вот здесь ошибка

// hres не равен 0, значения элементов массива какие-то дурные

// даже близко нет к значеним на VB

// дальше код

pModel = NULL; //release COM references

swApp = NULL;

CoUninitialize();

return;

}

Прошу извинений, если это моя тупость, но в VC++ я не очень давно сижу

Изменено 3 февраля 2005 пользователем Shvg

[TEM 0]

double PickPoint[3] = {0};

hres = pSelMgr->IGetSelectionPoint(CountObj,PickPoint);

так попробуй

[Shvg 67]

double PickPoint[3] = {0};

hres = pSelMgr->IGetSelectionPoint(CountObj,PickPoint);

так попробуй

<{POST_SNAPBACK}>

Не проходит. hres = -2147023898. Значения элементов массива равны 0

В VB6 я использую дальше функцию:

retval = DrawingDoc.CreateText2 ( textString, textX, textY, textZ, textHeight, textAngle )

для вставки текста, все проходит

В VC++

status = DrawingDoc->ICreateText2 ( textString, textX, textY, textZ, textHeight, textAngle, &retval )

она тоже вставляет текст, только в левый нижний угол Drawing_а, а не там, где я щелкнул мышкой

За совет спасибо!

[Lyvra 0]

Здрям

---SW help

The COM interface is recommended for all add-in DLL projects. For separate executable (.exe) implementations, you can use the COM interface unless the method or property passes an array. In this case, use the equivalent Dispatch method that uses a VARIANT to encapsulate the array.

---

чтобы не путаться - используйте только IDispatch

VARIANT vPt;

::VariantInit(&vPt);

if(FAILED(pSelMgr->GetSelectionPoint(1, &vPt)))

return;

...

::VariantClear(vPt);