Компоненты сборки

[hztp_serg 0]

Пишу COM-обьект на MS VS2008 ATL-проект C++. Пытаюсь создать метод который возвращает имена всех компонентов сборки. Насколько я понимаю метод IGetChildren должен вернуть масив указателей на IComponent2, количество элементов которого должно быть равно GetChildrenCount, почему-то у меня количество элементов масива всегда равно 1.

Вот мой пример на основе Traverse Assembly Example (C++ COM):

STDMETHODIMP CSwApp::GetFeature(BSTR* bFatName)

{

	LPCONFIGURATION pConfiguration = NULL;

	LPCOMPONENT2 pRootComponent2 = NULL;



	pSwModel->IGetActiveConfiguration(&pConfiguration);

	pConfiguration->IGetRootComponent2(&pRootComponent2);

	

	CString MyString;

	long RecurseLevel = 0;

	TraverseChildren(RecurseLevel, &MyString, pRootComponent2);

	*bFatName = MyString.AllocSysString();



	return S_OK;

}

функция TraverseChildren:

int CSwApp::TraverseChildren(long RecurseLevel, CString* MyString, LPCOMPONENT2 pComponent)

{

int nChildren;

int i;

BSTR Name;

HRESULT hres = S_OK;

if (RecurseLevel == 0)

{

hres = pSwModel->GetTitle(&Name);

}

else

{

hres = pComponent->get_Name(&Name);

}

if( S_OK == hres && Name != NULL )

{

CString tempstr;

for( i=1; i<=RecurseLevel; i++)

{

tempstr += " ";

}

CString Tmp(Name);

tempstr += Tmp;

tempstr += "\r\n";

*MyString = *MyString + tempstr;

}

RecurseLevel++;

hres = pComponent->IGetChildrenCount(&nChildren);

if ( S_OK == hres && nChildren > 0)

{

LPCOMPONENT2* pChildren = new LPCOMPONENT2 [nChildren];

hres = pComponent->IGetChildren(pChildren);

if(S_OK == hres)

{

for ( i=0; i<nChildren; i++)

{

TraverseChildren(RecurseLevel, MyString, pChildren);

pChildren->Release();

}

}

delete [] pChildren;

}

RecurseLevel--;

return nChildren;

}

проект компилится нормально, проблема только вот в этом месте

hres = pComponent->IGetChildrenCount(&nChildren);

if ( S_OK == hres && nChildren > 0)

{

LPCOMPONENT2* pChildren = new LPCOMPONENT2 [nChildren];

hres = pComponent->IGetChildren(pChildren);

if(S_OK == hres)

{

for ( i=0; i<nChildren; i++)

{

TraverseChildren(RecurseLevel, MyString, pChildren);

pChildren->Release();

}

}

delete [] pChildren;

}

как мне получить масив указателей IComponent2 с количеством элементов равным nChildren?

Большое спасибо!

[Shvg 68]

как мне получить масив указателей IComponent2 с количеством элементов равным nChildren?

Большое спасибо!

По всей видимости, вы используете exe-файл. Похожая проблема у одного из участников форума была здесь: http://fsapr2000.ru/index.php?showtopic=2...st&p=247862

[hztp_serg 0]

По всей видимости, вы используете exe-файл

Что имеется в виду, использую exe-файл или dll? Я на VisualStudio2008 C++ создал ATL-проект с своими методами и функциями:

STDMETHODIMP CSwApp::ConnectToSW(long* lErrors)

{

// ConnectToSW - з’єднання з COM-об’єктом SW

HRESULT hr = pSwApp.CoCreateInstance(L"SldWorks.Application", NULL, CLSCTX_LOCAL_SERVER);

if (hr != S_OK)

{

*lErrors = -1L;

return hr;

}

else

{

*lErrors = 0L;

return S_OK;

}

}

STDMETHODIMP CSwApp::DisconnectFromSW(void)

{

// DisconnectFromSW - закріває COM-об’єкт SW

pSwApp->ExitApp();

return S_OK;

}

STDMETHODIMP CSwApp::OpenDoc(BSTR sFileName, long iDocumentTypes, long* lErrors)

{

// OpenDoc - відкриває документ SW

// sFileName - повний шлях до файла

// iDocumentTypes - тип документа SW

// lErrors - флаг помилки відкриття документа SW

CComBSTR sDefaultConfiguration(L"Default");

long lWarnings;

IModelDoc2* swModelAssembly;

HRESULT hr = S_FALSE;

hr = pSwApp->OpenDoc6(sFileName, iDocumentTypes, swOpenDocOptions_Silent,

sDefaultConfiguration, lErrors, &lWarnings, &swModelAssembly);

if (FAILED(hr))

{

return hr;

}

pSwModel = swModelAssembly;

return S_OK;

}

STDMETHODIMP CSwApp::CloseDoc(BSTR sFileName)

{

// CloseDoc - закриття документа SW

pSwApp->CloseDoc(sFileName);

return S_OK;

}

скомпилил этот проект получил COM-обьект в виде dll-файла. Потом этот COM-обьект я использую в VFP9.0 как прослойку между SolidWorks и VFP. Так что я использую exe-файл или dll?

[hztp_serg 0]

Сделал тестовый пример который должен определять имя каждой компоненты:

HRESULT hres;

CoInitialize(NULL);

CLSID clsid;

CLSIDFromProgID(L"SldWorks.Application", &clsid);

ISldWorks *swApp;

CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, __uuidof(ISldWorks), (void**)&swApp);

if(swApp == NULL)

{

::CoUninitialize();

return 1;

}

IModelDoc2 *swModel;

hres = swApp->get_IActiveDoc2(&swModel);

if(swModel == NULL)

return 1;

int nChildren;

BSTR Name;

IConfiguration *pConfiguration = NULL;

IComponent2 *pRootComponent2 = NULL;

swModel->IGetActiveConfiguration(&pConfiguration);

pConfiguration->IGetRootComponent2(&pRootComponent2);

pRootComponent2->IGetChildrenCount(&nChildren);

IComponent2 **swArrayChildren = new IComponent2*[nChildren];

ZeroMemory(swArrayChildren, nChildren * sizeof(Component2*));

pRootComponent2->IGetChildren(swArrayChildren);

for (int i = 0; i < nChildren; i++)

{

IComponent2 *swComponent = swArrayChildren;

swComponent->get_Name(&Name);

}

я использую dll, а не exe-файл, описание своего проекта я привёл выше, пример должен быть рабочий, но у меня в swArrayChildren только один элемент. Где собака зарыта? Как заставить его работать? Помогите пожалуйста.

[hztp_serg 0]

Получить имена компонентов сборки мне удалось с помощью GetChildren :

STDMETHODIMP CSwApp::GetNames(BSTR* bFatName)

{

IConfiguration *pConfiguration = NULL;

IComponent2 *pRootComponent2 = NULL;

pSwModel->IGetActiveConfiguration(&pConfiguration);

pConfiguration->IGetRootComponent2(&pRootComponent2);

CString MyString;

long RecurseLevel = 0;

TraverseChildren(RecurseLevel, &MyString, pRootComponent2);

*bFatName = MyString.AllocSysString();

return S_OK;

}

функция TraverseChildren:

int CSwApp::TraverseChildren(long RecurseLevel, CString* MyString, IComponent2 *pComponent)

{

int nChildren;

int i;

BSTR Name;

HRESULT hres = S_OK;

if (RecurseLevel == 0)

{

hres = pSwModel->GetTitle(&Name);

}

else

{

hres = pComponent->get_Name(&Name);

}

if( S_OK == hres && Name != NULL )

{

CString tempstr;

for( i=1; i<=RecurseLevel; i++)

{

tempstr += " ";

}

CString Tmp(Name);

tempstr += Tmp;

tempstr += "\r\n";

*MyString = *MyString + tempstr;

}

RecurseLevel++;

hres = pComponent->IGetChildrenCount(&nChildren);

if ( S_OK == hres && nChildren > 0)

{

VARIANT vArrayChildren;

pComponent->GetChildren(&vArrayChildren);

SAFEARRAY *pSa = V_ARRAY(&vArrayChildren);

IDispatch **pChildren;

SafeArrayAccessData(pSa, (void**)&pChildren);

if(S_OK == hres)

{

for ( i=0; i<nChildren; i++)

{

IComponent2 *swComponent=NULL;

IDispatch *pDispatch = pChildren;

pDispatch->QueryInterface(&swComponent);

TraverseChildren(RecurseLevel, MyString, swComponent);

pChildren->Release();

}

}

SafeArrayUnaccessData(pSa);

SafeArrayDestroy(pSa);

}

RecurseLevel--;

return nChildren;

}

Так как задача стоит достать из сборки информацию для создания спецификации, то у меня есть ещё пару вопросов:

- как определить какое именно исполнение (детали или узла) должно заносится в спецификацию? SWR-спецификация показывает что в сборке 4 компоненты, а вышеприведеный пример даёт компонентов больше, я заметил что разница за счёт исполнений, тоесть среди множества исполнений мне нужно выбрать одно или может несколько, но те которые должны быть в спецификации;

- как определить количество конкретной детали или узла в сборке?

- свойства детали или узла как документа SW которые находятся в диалоговом окне Summary Information (Custom и Configuration Specific) я могу достать только после открытия документа или можtn просто имея указатель на IComponent2?

Большое спасибо!

[hztp_serg 0]

Может есть у кого опыт C++ получения информации из сборки для создания спецификации? Поделитесь пожалуйста, буду очень благодарен. Если есть реальный пример можно на e-mail hztp_serg ukr net. Зарание благодарен!

[Shvg 68]

Так как задача стоит достать из сборки информацию для создания спецификации, то у меня есть ещё пару вопросов:

- как определить какое именно исполнение (детали или узла) должно заносится в спецификацию? SWR-спецификация показывает что в сборке 4 компоненты, а вышеприведеный пример даёт компонентов больше, я заметил что разница за счёт исполнений, тоесть среди множества исполнений мне нужно выбрать одно или может несколько, но те которые должны быть в спецификации;

- как определить количество конкретной детали или узла в сборке?

- свойства детали или узла как документа SW которые находятся в диалоговом окне Summary Information (Custom и Configuration Specific) я могу достать только после открытия документа или можtn просто имея указатель на IComponent2?

Большое спасибо!

Все ниже сказанное, сугубо личное мнение. Я так работаю.

- Какая конфигурация детали должна быть в спецификации, определяет конструктор при создании сборки. Я придерживаюсь следующего. Если в сборке присутствуют детали разной конфигурации, то это отдельные компоненты спецификации. Есть правда исключения, например пружины с разными высотами. Я их включаю, в так называемый "список исключений". То есть разные конфигурации детали интерпретируются как, относящиеся к одной детали. Решаю это введением определенного свойства в свойства детали.

- Просто подсчитать програмно.

- Если открыта сборка, и компонент не погашен или не сокращенный то можно. Функцией status = Component2->IGetModelDoc ( &retval ) получаем указатель на объект ModelDoc2, а функцией status = ModelDocExtension->get_CustomPropertyManager ( ConfigName, &Retval ) получаем указатель на объект CustomPropertyManager и имеем доступ к свойствам и функциям для работы со свойствами модели.

И нескромный вопрос. А зачем VFP?

P.S. Указывайте версию SW. API разных версий SW отличаются (вводят новые интерфейсы, прекращают поддерживать функции и т.д.)

[hztp_serg 0]

И нескромный вопрос. А зачем VFP?

У нас есть свой софт, данные хранятся на сервере MS SQL, клиентские модули написаны на VFP. На сервре у нас хранится информация о составе изделий (что куда входит), маршрут, норма расхода материала и т.д. Руководство поставило задачу создать электронный архив конструкторско-технологической документации. Для конструкторский документов это как минимум:

-модель SW или документ AutoCAD

-документ СП

С документами AutoCAD проще один файл и всё. При сохранении модели SW, если это сборка, нужно сохранить в архиве не один файл а несколько, и не просто скопом, а последовательно что куда входит (таблица соответствий). Это мы уже получаем с помощью dll написаной на C++ которая обращается к API SW IComponent2.GetChildren() и передает данные софту VFP. Что касается СП, то было предложение что конструктора будут в полуручном режиме вбивать СП в нашем софте написаном на VFP. Часть конструкторов, которые работают с AutoCAD согласилась, конструктора которые работают с SW заявили что СП должна формироватся автоматом из модели, по принципу SWR-спецификации. По этому счас стоит задача из модели читать данные и формировать СП в нашем редакторе СП.

Заканчиваю написание обработки сохранения сборки SW, всех её компонентов и таблицы соответствий в заводском архиве. Дальше буду приступать к переносе данных о СП из модели в наш редакторе СП. В перспективе наверное придётся и обратную связ реализовывать.