Text dotazu:
Když rekurzi procházím strom celé sestavy a zjišťuji (jen načítám) constraints v jednotlivých úrovních tak na nejnižší úrovni partu dojde k tomu, že všechny party se tváří jako modifikované a dožadují se uložení změn. Přitom jen načítám jejich stav, nic nezapisuji ani nemodifikuji. Přijde mi, že ve chvíli dotazu na constrants v partu Catie v onom partu něco vytvoří nebo změní, ale proč?

Jak ošetřím aby se to nedělo? Napadá mne podmínkou u každého Itemu z kolekce "prods" kontrolovat zda se jedná o part/sestavu a načítat constrainty jen u sestav. Určitě ale existuje lepší řešení. Poradíte? Děkuji.

Sub CATMain()

	Dim constraints1

	Set constraints1 = CATIA.ActiveDocument.Product.Connections("CATIAConstraints")

	For j=1 to constraints1.count

		'msgbox constraints1.Item(j).Name

	Next

	Posun (CATIA.ActiveDocument.Product)

End Sub

'---------------------------------

Sub Posun (P)

	Dim constraints1

	Set prods = P.Products

	i=0

 	Do While  i < prods.count

    		i=i+1

		Set constraints1 = prods.Item(i).Connections("CATIAConstraints")

		For j=1 to constraints1.count

			msgbox constraints1.Item(j).Name

		Next

		Posun (prods.Item(i))

	Loop

End Sub