Помогите разобраться с API

[TEM 0]

Определить, что создал польльзователь можно только исключениями. То есть запонимаешь все папки, что создает сам солид и те, что есть по умолчанию. Остальное будет считать созданно пользоваетелем

BSTR bFeatName,bFeatureTypeName;



hres = pFeature->get_Name( &bFeatName );	// считать имя feature 

CString featName( bFeatName );



hres = pFeature->GetTypeName(&bFeatureTypeName);   // считываем тип feature 

CString featureTypeName(bFeatureTypeName);

[IgRo 1]

А как поместить Деталь1-1 в Папку1?

Код

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swFeat = swModel.FeatureByName("Деталь1-1")

Set swFolder = swModel.FeatureByName("Папка1")

bRet = swModel.ReorderComponents(swFeat, swFolder, swReorderComponents_LastInFolder)
Debug.Print "bRet = " & bRet
End Sub

не работает

[Shvg 67]

А как поместить Деталь1-1 в Папку1?

......

не работает

По всей видимости и не будет работать. Эта функция использует в качестве первого аргумента указатель на массив компонентов, а не фьючерсов.

Этот код должен перемещать вашу деталь в папку. Но это как образец, полностью задачи я не знаю

Option Explicit



Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swAssembly As SldWorks.AssemblyDoc

Dim swSelMgr As SelectionMgr

Dim swFolder As SldWorks.Feature

Dim swComponent As SldWorks.Component2

Dim bres As Boolean



Sub main()



	Set swApp = Application.SldWorks

	Set swModel = swApp.ActiveDoc

	Set swSelMgr = swModel.SelectionManager

	Set swAssembly = swModel

	bres = swModel.Extension.SelectByID2("Деталь1-1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

	Set swComponent = swSelMgr.GetSelectedObject5(1)

	

	Set swFolder = swAssembly.FeatureByName("Папка1")

	bres = swAssembly.ReorderComponents(swComponent, swFolder, swReorderComponents_LastInFolder)



End Sub

[TEM 0]

В АПИ 2007 есть появилась в SW 2005

Этот метод перемещает выбранную характеристику или папку в Менеджере Характеристики Твердого проектого дерева структуры Тел в определенную папку в Менеджере Характеристики Твердого проектого дерева структуры Тел.

IFeatureManager	  pFeatureManager = NULL;



pModelDoc2->get_FeatureManager ( &pFeatureManager);

ASSERT(pFeatureManager!=NULL);



pFeatureManager->MoveToFolder ( MoveToFeat, MoveFromFeat, isFolder, &retval);

[IgRo 1]

Shvg, так тоже не работает

bres = swAssembly.ReorderComponents(swComponent, swFolder, swReorderComponents_LastInFolder)

возвращает False

TEM, функция MoveToFolder как я понял из справки работает только с Solid Bodies и не работает с компонентами

А мне нужно в сборке детали разложить по папкам

[Shvg 67]

Shvg, так тоже не работает

У меня прекрасно работал, правда в моей сборке. Проверь возвращенный результат из функции:

bres = swModel.Extension.SelectByID2("Деталь1-1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

Если False, то присмотрись к правильности имен деталей и папок.