Sw Api - разные конфигурации детали в сборке

6 октября 2009

С помощью SW API из под VS2008 C++ ATL-проект используя dll, читаю все компоненты сборки и их параметры. Вот как я полчаю ссылку на модель клмпоненты и активную конфигурацию:

IComponent2 *swComponent=NULL;

IModelDoc2 *swModelDoc=NULL;

IConfiguration *swCfg;

IDispatch *pDispatch;

hres = pComponent->GetModelDoc(&pDispatch);

pDispatch->QueryInterface(&swModelDoc);

swModelDoc->IGetActiveConfiguration(&swCfg);

если конфигурация в компоненте одна, то проблем нет. А если компонент имеет несколько конфигураций и входит в состав сборки в разных конфигурациях, то у меня получается, что я читаю одну и ту ж конфигурацию для всех вхождений компоненты в сборку. Как мне определять какая именно конфигурация компоненты используется в сборке?

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

6 октября 2009

С помощью SW API из под VS2008 C++ ATL-проект используя dll, читаю все компоненты сборки и их параметры. Вот как я полчаю ссылку на модель клмпоненты и активную конфигурацию:
IComponent2 *swComponent=NULL;

IModelDoc2 *swModelDoc=NULL;

IConfiguration *swCfg;

IDispatch *pDispatch;

hres = pComponent->GetModelDoc(&pDispatch);

pDispatch->QueryInterface(&swModelDoc);

swModelDoc->IGetActiveConfiguration(&swCfg);
если конфигурация в компоненте одна, то проблем нет. А если компонент имеет несколько конфигураций и входит в состав сборки в разных конфигурациях, то у меня получается, что я читаю одну и ту ж конфигурацию для всех вхождений компоненты в сборку. Как мне определять какая именно конфигурация компоненты используется в сборке?
Большое спасибо!

status = Component2->get_ReferencedConfiguration( &ConfigName) или, если используется IDispatсh, ConfigName = Component2.GetReferencedConfiguration ( )

На указатель IConfiguration можно выйти функцией status = ModelDoc2->IGetConfigurationByName ( name, &retval ), используя полученное ранее имя конфигурации

6 октября 2009

status = Component2->get_ReferencedConfiguration( &ConfigName) или, если используется IDispatсh, ConfigName = Component2.GetReferencedConfiguration ( )

На указатель IConfiguration можно выйти функцией status = ModelDoc2->IGetConfigurationByName ( name, &retval ), используя полученное ранее имя конфигурации

Спасибо большое! Всё получилось!

pComponent->get_ReferencedConfiguration(&ConfigName);

swModelDoc->IGetConfigurationByName(ConfigName, &swCfg);

if (swCfg == NULL)

{

	swModelDoc->IGetActiveConfiguration(&swCfg);

}

6 октября 2009

Спасибо большое! Всё получилось!

pComponent->get_ReferencedConfiguration(&ConfigName);

swModelDoc->IGetConfigurationByName(ConfigName, &swCfg);

if (swCfg == NULL)

{

	swModelDoc->IGetActiveConfiguration(&swCfg);

}

Немного не понял, а зачем тогда вызывать функцию: swModelDoc->IGetActiveConfiguration(&swCfg)? Не приведет ли это к ошибкам? Ведь этой функцией вы получаете указатель на IConfiguration активной конфигурации не компонента в сборке, а модели, которая к конкретному компоненту может не иметь никакого отношения по определенным свойствам.

3 декабря 2009

Немного не понял, а зачем тогда вызывать функцию: swModelDoc->IGetActiveConfiguration(&swCfg)? Не приведет ли это к ошибкам? Ведь этой функцией вы получаете указатель на IConfiguration активной конфигурации не компонента в сборке, а модели, которая к конкретному компоненту может не иметь никакого отношения по определенным свойствам.

Результат выполнения:

pComponent->get_ReferencedConfiguration(&ConfigName);

возвращает пустое значение ConfigName. Дальше выпонение:

swModelDoc->IGetConfigurationByName(ConfigName, &swCfg);

возвращает NULL-значение в swCfg. Что делать в этом случае?

Это на врерхнем уровне сборки. Сборака имеет одну конфигурацию. Если в доном случае делать так:

int CSwApp::TraverseChildren_path(long RecurseLevel, int Poz, CString* MyString, IComponent2 * pComponent, BSTR Path_parent)

{

	int nChildren;

	int i;

	BSTR Path;

	BSTR ConfigName;

	HRESULT hres = S_OK;



	IComponent2 *swComponent=NULL;

	IModelDoc2 *swModelDoc=NULL;

	IConfiguration *swCfg;

	IDispatch *pDispatch;



	//Определяем имя компонеты

	if (RecurseLevel == 0)

	{

		hres = pSwModel->GetPathName(&Path);

		swModelDoc = pSwModel;

	}

	else

	{

		hres = pComponent->GetPathName(&Path);

		hres = pComponent->GetModelDoc(&pDispatch);

		if (pDispatch != NULL)

		{	

			pDispatch->QueryInterface(&swModelDoc);

		}

		else

		{

			pComponent->IGetModelDoc(&swModelDoc);

			if (swModelDoc == NULL)

			{	

				return hres;

			}

		}

	}

	//Определяем конфигурацию компоненты

	pComponent->get_ReferencedConfiguration(&ConfigName);

	swModelDoc->IGetConfigurationByName(ConfigName, &swCfg);

	if (swCfg == NULL)

	{

		swModelDoc->IGetActiveConfiguration(&swCfg);

	}

	//Определяем параметры модели

	VARIANT CustomInfo, MassProperties;

	BSTR HUGEP *pBstrCustomInfo;

	double* pMassProp;

	pMassProp = 0;

	CString Designatio;

	CString Name;

	CString Format;

	CString Note;

	CString Type;

	CString Massa;

	CString Razdel;

	CString Level;

	CString cPoz;

	swModelDoc->GetCustomInfoNames(&CustomInfo);

	swModelDoc->GetMassProperties(&MassProperties);

	SafeArrayAccessData(CustomInfo.parray, (void HUGEP**)&pBstrCustomInfo);

	pMassProp = (double*)MassProperties.parray->pvData;

	Massa.Format(_T("%g"), pMassProp[6]);

	for ( i=0; i<CustomInfo.parray->rgsabound->cElements; i++)

	{

		BSTR InfoValue;

		std::wstring wsValue;

		CComBSTR InfoName = pBstrCustomInfo[i];

		swModelDoc->get_CustomInfo(InfoName, &InfoValue);

		wsValue = InfoName.Copy();

		

		if (InfoName == L"Обозначение")

		{

			Designatio = InfoValue;

		}

		else if (InfoName == L"Наименование")

		{

			Name = InfoValue;

		}

		else if (InfoName == L"Формат")

		{

			Format = InfoValue;

		}

		else if (InfoName == L"Примечание")

		{

			Note = InfoValue;

		}

		else if (wsValue.find(L"Раздел") != std::string.npos)

		{

			Razdel = InfoValue;

		}

	}

	//Определяем раздел СП модели

	VARIANT ParamNames, ParamValues;

	BSTR HUGEP *pBstrParamNames;

	BSTR HUGEP *pBstrParamValues;

	swCfg->GetParameters(&ParamNames, &ParamValues);

	SafeArrayAccessData(ParamNames.parray, (void HUGEP**)&pBstrParamNames);

	SafeArrayAccessData(ParamValues.parray, (void HUGEP**)&pBstrParamValues);

	if ((ParamNames.parray != NULL) & (ParamValues.parray != NULL))

	{

		for ( i=0; i<ParamNames.parray->rgsabound->cElements; i++)

		{

			std::wstring ParamName = pBstrParamNames[i];

			CComBSTR ParamValue = pBstrParamValues[i];

			if ((ParamName.find(L"$СВОЙСТВО@Раздел") != std::string.npos) & (Razdel.IsEmpty()))

			{

				Razdel = ParamValue.Copy();

			}

			else if ((ParamName.find(L"$СВОЙСТВО@Обозначение") != std::string.npos) & (Designatio.IsEmpty()))

			{

				Designatio = ParamValue.Copy();

			}

			else if ((ParamName.find(L"$СВОЙСТВО@Наименование") != std::string.npos) & (Name.IsEmpty()))

			{

				Name = ParamValue.Copy();

			}

		}

	}



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

	{

		CString tempstr;



		CString Tmp1(Path_parent);

		CString Tmp2(Path);

		Level.Format(_T("%ld"), RecurseLevel);

		cPoz.Format(_T("%ld"), Poz);

		tempstr += Tmp1 + "§" + Tmp2 + "§" + Designatio + "§" + Name + "§" + Format + "§" + 

			Razdel + "§" + Note + "§" + Massa + "§" + Level + "§" + cPoz;

		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++)

			{

				IDispatch *pDispatch = pChildren[i];

				pDispatch->QueryInterface(&swComponent);

				TraverseChildren_path(RecurseLevel, i+1, MyString, swComponent, Path);

				pChildren[i]->Release();

			}

		}

		SafeArrayUnaccessData(pSa);

		SafeArrayDestroy(pSa);

	}



	RecurseLevel--;

	return nChildren;



}

то в следующем рекурсивном вызове TraverseChildren получаем NULL вместо ссылки на модель компоненты:

hres = pComponent->GetModelDoc(&pDispatch);

		if (pDispatch != NULL)

		{	

			pDispatch->QueryInterface(&swModelDoc);

		}

		else

		{

			pComponent->IGetModelDoc(&swModelDoc);

			if (swModelDoc == NULL)

			{	

				return hres;

			}

		}

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

Проект делаю на VS2008 ATL-проект в виде dll-файла. SW2009.

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

3 декабря 2009

hztp_serg

Особо не вникал в ваш код, но мне кажется, что в цикле, где происходит рекурсивный вызов функции TraverseChildren_path, вы в нее передаете не тот указатель на IComponent2. Проще объявить в цикле локальный указатель на IComponent2 и уже его передавать в функцию. Примерно так:

#include "stdafx.h"

using namespace std;



void FindAllComponent(IComponent2*);



int _tmain(int argc, _TCHAR* argv[])

{

	CComBSTR strMessage;

	long lResult;

	::CoInitialize(NULL);



	HRESULT hres;

	CoInitialize(NULL);

	CLSID clsid;

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

	

	ISldWorks *swApp = NULL;

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

	if(swApp == NULL)

	{		

		::CoUninitialize();

		return 0;

	}

	hres = swApp->put_Visible(VARIANT_TRUE);



	IModelDoc2 *swModel = NULL;

	hres = swApp->get_IActiveDoc2(&swModel);

	if(swModel == NULL)

	{

		strMessage = L"Загрузите документ SolidWorks-a!";

		swApp->SendMsgToUser2(strMessage, swMbInformation, swMbOk, &lResult);

		::CoUninitialize();

		return 0;

	}

	long docType;

	hres = swModel->GetType(&docType);

	if(docType != swDocASSEMBLY)

	{

		strMessage = L"Функция работает только с документом сборки!";

		swApp->SendMsgToUser2(strMessage, swMbInformation, swMbOk, &lResult);

		::CoUninitialize();

		return 0;		

	}

	

	// далее код только для одной конфигурации сборки.

	IConfiguration *swConfigAsm = NULL;

	hres = swModel->IGetActiveConfiguration(&swConfigAsm);

	

	IComponent2 *swRootComponent = NULL;

	hres = swConfigAsm->IGetRootComponent2(&swRootComponent);

	FindAllComponent(swRootComponent);

	

	::CoUninitialize();

	return 0;

}



void FindAllComponent(IComponent2 *pComponent)

{

	HRESULT hres;

	int count;

	hres = pComponent->IGetChildrenCount(&count);

	VARIANT vArrayChildren;

	hres = pComponent->GetChildren(&vArrayChildren);

	SAFEARRAY *pSa = V_ARRAY(&vArrayChildren);

	IDispatch **pChildren = NULL;

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

	

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

	{

		IDispatch *pDispatch = pChildren[i];

		IComponent2 *swComponent = NULL; // объявляем локальный указатель на IComponent2

		hres = pDispatch->QueryInterface(IID_IComponent2, (void**)&swComponent); 

		if(swComponent == NULL)

			continue;

#if _DEBUG

		USES_CONVERSION;

		CComBSTR nameComp;

		hres = swComponent->get_Name2(&nameComp);

		OutputDebugString(CW2A(nameComp));

		OutputDebugString("\n");				

#endif				

		FindAllComponent(swComponent); // передаем его в рекурсивный вызов функции

		pChildren[i]->Release();			

	}

		

	SafeArrayUnaccessData(pSa);

	SafeArrayDestroy(pSa);

}

Код, естественно, упрощен, опущены многие проверки.

VS2003, консоль. SW2009SP3.0

4 декабря 2009

Пробую так:

int CSwApp::TraverseChildren_path(long RecurseLevel, int Poz, CString* MyString, IComponent2 * pComponent, BSTR Path_parent, IConfiguration * swCfg_parent)

{

	int nChildren;

	int i;

	BSTR Path;

	BSTR ConfigName;

	HRESULT hres = S_OK;



	IModelDoc2 *swModelDoc=NULL;

	IConfiguration *swCfg;

	IDispatch *pDispatch;



	//Определяю путь, конфигурацию и ссылку на маодель компоненты

	if (RecurseLevel == 0)

	{

		//Верхний уровень сборки

		Path = Path_parent;		//Путь к модели сборки

		swCfg = swCfg_parent;	//Конфигурация сборки

		swModelDoc = pSwModel;	//Указатель на модель сборки

	}

	else

	{

		//Подуровни сборки

		hres = pComponent->GetPathName(&Path);		//Путь к модели компоненты

		//Указатель на модель компоненты

		hres = pComponent->GetModelDoc(&pDispatch);

		pDispatch->QueryInterface(&swModelDoc);

		if (swModelDoc == NULL)

		{	

			return hres;

		}

		//Определяем конфигурацию компоненты

		pComponent->get_ReferencedConfiguration(&ConfigName);

		swModelDoc->IGetConfigurationByName(ConfigName, &swCfg);

		if (swCfg == NULL)

		{

			return 0;

		}

	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++)

			{

				IDispatch *pDispatch = pChildren[i];

				IComponent2 *swComponent = NULL; // объявляем локальный указатель на IComponent2

				hres = pDispatch->QueryInterface(IID_IComponent2, (void**)&swComponent); 

				TraverseChildren_path(RecurseLevel, i+1, MyString, swComponent, Path, swCfg);

				pChildren[i]->Release();

			}

		}

		SafeArrayUnaccessData(pSa);

		SafeArrayDestroy(pSa);

	}



	RecurseLevel--;

	return nChildren;



}

Проблема когда я на подуровнях сборки, имея указатель на IComponent2 пытаюсь определить указатель на модель компоненты:

//Указатель на модель компоненты

		hres = pComponent->GetModelDoc(&pDispatch);

		pDispatch->QueryInterface(&swModelDoc);

		if (swModelDoc == NULL)

		{	

			return hres;

		}

в результате получаю swModelDoc == NULL. Перед этим выполнение:

hres = pComponent->GetPathName(&Path);		//Путь к модели компоненты

завершается успешно, тоесть возвращает Путь к модели компоненты.

Почему я немогу получить указатель на модель компоненты?

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

4 декабря 2009

Пробую так:

[code...

Какой SW у Вас?

Вот смотрю сейчас HELP API SW2008 и вижу примеры:

1) Traverse Assembly Example (C++ COM)

This example shows how to traverse an assembly using the Component2 object. The method Component2::IGetChildren returns an array, so

this code must be used in an in-process DLL. Otherwise, use the method ...

2) Traverse Hierarchy of Configurations Example (VB)

This examples shows how to traverse a hierarchy of configurations...

И масса других примеров. В том же Helpe. В HELP API SW2009/10 ИМХО еще больще примеров в разных вариантах и на разных языках.

Также существует масса примеров с разных сайтов...

Может не стоит "изобретать велосипед" ?

Хочу надеяться, что без обид...

Конечно, если интерес чисто академический...

4 декабря 2009

У меня SW2009, я по примерам и советам на форуме писал обработку. Но не для всех сборок, я так понял работает только там где сборка состоит из одного уровня.

Спасибо и на том, буду искать.

4 декабря 2009

У меня SW2009, я по примерам и советам на форуме писал обработку. Но не для всех сборок, я так понял работает только там где сборка состоит из одного уровня.

Спасибо и на том, буду искать.

Сам когда-то изучал данный вопрос(но, я на VB6), так что по`C`почти ничего подсказать не могу.

НО, это:

"Но не для всех сборок, я так понял работает только там где сборка состоит из одного уровня"

- неверно, там можно задавать любой уровень вложенности! Там же рекурсия!

Причем и сканировать компонеты можно 2-мя способами: и по "типу вложенности" и просто по дереву построения.

Опять же с любым уровнем вложенности.

4 декабря 2009

Проблема когда я на подуровнях сборки, имея указатель на IComponent2 пытаюсь определить указатель на модель компоненты:
//Указатель на модель компоненты

		hres = pComponent->GetModelDoc(&pDispatch);

		pDispatch->QueryInterface(&swModelDoc);

		if (swModelDoc == NULL)

		{	

			return hres;

		}
в результате получаю swModelDoc == NULL. Перед этим выполнение:
hres = pComponent->GetPathName(&Path);		//Путь к модели компоненты
завершается успешно, тоесть возвращает Путь к модели компоненты.
Почему я немогу получить указатель на модель компоненты?

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

Если вы получили путь к модели компонента, а указатель на IModelDoc2 равен NULL, то большая вероятность, что компонент в сборке сокращенный или погашенный. В этом случае, да указатель на IModelDoc2 будет равен NULL. Введите проверку функцией status = Component2->GetSuppression( &Suppression ) или решите сборку перед использованием функции.

4 декабря 2009

Если вы получили путь к модели компонента, а указатель на IModelDoc2 равен NULL, то большая вероятность, что компонент в сборке сокращенный или погашенный. В этом случае, да указатель на IModelDoc2 будет равен NULL. Введите проверку функцией status = Component2->GetSuppression( &Suppression ) или решите сборку перед использованием функции.

Так оно и есть. Для сокращённых или погашенных компонентов указатель на IModelDoc2 NULL. Хотелось бы попробовать автоматизировать процес решений компонентов в процесе рабьоты моей функции, если компонент сокращённый, спросить пользователя "Компонент 8ВП.140.872-15 сокращён. Решить?". Я так понимаю это надо делать с помощью swComponent->SetSuppression2?

4 декабря 2009

Так оно и есть....

Ну на `C` я не знаю, вот на VB:

retSupp = component.IsSuppressed() ' TRUE if this component is suppressed; FALSE otherwise

retHide = component.IsHidden(True) ' If retSupp <> True And retHide <> True Then

If retSupp <> True And retHide <> True Then

NameOfComp = component.Name

4 декабря 2009

Так оно и есть. Для сокращённых или погашенных компонентов указатель на IModelDoc2 NULL. Хотелось бы попробовать автоматизировать процес решений компонентов в процесе рабьоты моей функции, если компонент сокращённый, спросить пользователя "Компонент 8ВП.140.872-15 сокращён. Решить?". Я так понимаю это надо делать с помощью swComponent->SetSuppression2?

Да, вы правильно понимаете. Функцией status = Component2->GetSuppression( &Suppression ) вы получаете состояние компонента. Анализируете. И функцией status = Component2->SetSuppression2 ( state, &retval) устанавливаете нужное значение. Если необходимо, то при погашенном состоянии компонента, можно функциями, которые указал ssv22 узнать его состояние. (погашен или погашен и скрыт).

4 декабря 2009

Пробую сделать если компонент скрытый или сокращённый сделать его видимым и решённым. несовсем получается:

long Suppression, lError;

	VARIANT_BOOL bSupp, bHide;

	VARIANT vConfig_names;

	pComponent->IsSuppressed(&bSupp);

	pComponent->IsHidden(TRUE, &bHide);

	if ( bSupp == TRUE )

	{

		pComponent->SetSuppression2(0, &lError);

	}

	if ( bHide == TRUE )

	{

		pComponent->SetVisibility(1, 1, vConfig_names);

	}

определить скрытый или сокращённый вроде получается, сделать решённым вроде тоже похоже, в вот SetVisibility, первый параметр 0- скрытый, 1- видимый, вроди так; второй - выбрал swThisConfiguration - 1, только для этой конфигурации, вроди так; а вот третий параметр - Config_names для меня непонятен, зачем масив имён конфигураций? Подскажите пожалуйста, как правелно эта задачу решить? Большое спасибо!

4 декабря 2009

определить скрытый или сокращённый вроде получается, сделать решённым вроде тоже похоже, в вот SetVisibility, первый параметр 0- скрытый, 1- видимый, вроди так; второй - выбрал swThisConfiguration - 1, только для этой конфигурации, вроди так; а вот третий параметр - Config_names для меня непонятен, зачем масив имён конфигураций? Подскажите пожалуйста, как правелно эта задачу решить? Большое спасибо!

Зачем Config_names? А хрен его знает. Надо у разработчиков спрашивать, зачем они его ввели. Родственная ей функция status = Component2->IGetVisibility ( config_opt, config_count, config_names, states ) тоже странно работает. Только когда первый аргумент равен swThisConfiguration. В этом случае возвращается указатель на массив типа long. При передаче swAllConfiguration возвращается нулевой указатель.

Хотя мне не совсем понятно, зачем вам делать видимым компонент, если он был скрыт. Если он скрытый, но не сокращенный и не погашенный, то доступ ко всем свойствам и функциям модели этого компонента имеется. А так, вот рабочая тестовая функция, где используется SetVisibility.

void SetVisibleComponent(IComponent2 *swComponent)

{

	HRESULT hres;

	IModelDoc2 *swModel = NULL;

	hres = swComponent->IGetModelDoc(&swModel);

	if(swModel == NULL)

		return;

	long countConfig;

	hres = swModel->GetConfigurationCount(&countConfig);

	BSTR *vNames = new BSTR[countConfig];

	hres = swModel->IGetConfigurationNames(&countConfig, vNames);

	long *states = new long[countConfig];

	hres = swComponent->IGetVisibility(swThisConfiguration, countConfig, vNames, states);

	

	for(int j = 0; j < countConfig; j++)

	{

		long state = states[j];

		if(state == swComponentVisible)

			state = swComponentHidden;

		else

			state = swComponentVisible;

		hres = swComponent->ISetVisibility(state, swThisConfiguration, countConfig, vNames);

	}

	delete[] states;

	delete[] vNames;

}

Желаю удачи...

Войти

Sw Api - разные конфигурации детали в сборке

Рекомендованные сообщения

hztp_serg 0

Ссылка на сообщение

Поделиться на других сайтах

Shvg 67

Ссылка на сообщение

Поделиться на других сайтах

hztp_serg 0

Ссылка на сообщение

Поделиться на других сайтах

Shvg 67

Ссылка на сообщение

Поделиться на других сайтах

hztp_serg 0

Ссылка на сообщение

Поделиться на других сайтах

Shvg 67

Ссылка на сообщение

Поделиться на других сайтах

hztp_serg 0

Ссылка на сообщение

Поделиться на других сайтах

ssv22 16

Ссылка на сообщение

Поделиться на других сайтах

hztp_serg 0

Ссылка на сообщение

Поделиться на других сайтах

ssv22 16

Ссылка на сообщение

Поделиться на других сайтах

Shvg 67

Ссылка на сообщение

Поделиться на других сайтах

hztp_serg 0

Ссылка на сообщение

Поделиться на других сайтах

ssv22 16

Ссылка на сообщение

Поделиться на других сайтах

Shvg 67

Ссылка на сообщение

Поделиться на других сайтах

hztp_serg 0

Ссылка на сообщение

Поделиться на других сайтах

Shvg 67

Ссылка на сообщение

Поделиться на других сайтах

Присоединяйтесь к обсуждению

Сейчас на странице 0 пользователей

Сообщения