Dobrý den,
přečetl jsem si základy a je mi to hned jasnější. Také jsem si přečetl článek zde o Design table a máte pravdu, je to pro mě výhodnější - respektive přehlednější.

Přesto, jak pokračuji dále, narazil jsem na problém, který už mě už pár dnů trápí a rád bych se zeptal standardní otázkou, proč to nefunguje, jak bych chtěl. Nebudu zakládat nové téma, i když se to už netýká Excel - Catia.

Nejdříve script, který funguje (Mění názvy Geometrical Setů)

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set parameters1 = part1.Parameters

Set Relations1 = part1.Relations

Set PocetGS = parameters1.Item("PocetGS")



For i = 1 To PocetGS.value



	Set hybridBodies1 = part1.HybridBodies

	Set hybridBody1 = hybridBodies1.Item("CrossSection." & i)

	hybridBody1.name ="RezCislo." &  i

	part1.Update ' Updates part

next



End sub

Nyni trochu slozitejsi kod, ktery uz nefunguje. Popis funkce:
V Catia tree existuje nekolik Geometrical Setu nazvanych CrossSection.X kde X je cislo od 1 do n. V kazdem z nich je krivka vytvorena ze Splitu a nazev je Split.X a dale na ni umisten bod Point.Ref.
Nasledujici cast kodu ma za ukol pridat pomoci cyklu for na kazdou tuto krivku dany pocet bodu. Nicmene se toto stane pouze v prvnim Geometrical Setu a v dalsich uz se body nepridaji.

Napadlo me, zda je vubec mozne prepisovat v kazdem cyklu objekty Set hybridBodies1 atd... nebo je nutne mit pro kazdou smycku novy objekt.

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set parameters1 = part1.Parameters

Set Relations1 = part1.Relations

Set PocetBodu = parameters1.Item("PocetBodu")

Set Old_PocetBodu = parameters1.Item("Old_PocetBodu")

Set New_nr_css = parameters1.Item("New_Nr_Of_CrossSections")



For j = 1 To New_nr_css.value



	Set hybridBodies1 = part1.HybridBodies

	Set hybridBody1 = hybridBodies1.Item("CrossSection." & j)

	Set hybridShapes1 = hybridBody1.HybridShapes

	Set hybridShapeSplit1 = hybridShapes1.Item("Split." & j)

	Set reference1 = part1.CreateReferenceFromObject(hybridShapeSplit1)

	Set hybridShapePointOnCurve1 = hybridShapes1.Item("Point.Ref")

	Set reference2 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

	Set hybridShapeFactory1 = part1.HybridShapeFactory



	If Old_PocetBodu.value <PocetBodu.value then



		For i = 1 To PocetBodu.value

			Set hybridShapePointOnCurve2 = hybridShapeFactory1.AddNewPointOnCurveWithReferenceFromPercent(reference1, reference2, i/(PocetBodu.value+1), False)

			hybridBody1.AppendHybridShape hybridShapePointOnCurve2

			part1.InWorkObject = hybridShapePointOnCurve2

			hybridShapePointOnCurve2.name ="Point." &  i

			part1.Update 

		Next



		Old_PocetBodu.Value =  PocetBodu.Value

		part1.Update ' Updates part



	End if



	If Old_PocetBodu.value > PocetBodu.value then



		For i = 1 To Old_PocetBodu.value



			Set hybridShapePointOnCurve3 = hybridShapes1.Item("Point." &  i)

			selection1.Add hybridShapePointOnCurve3

			selection1.Delete 

		Next



		Old_PocetBodu.Value =  PocetBodu.Value

		part1.Update ' Updates part



	End if

next



End sub

Omlouvam se za slozitost prispevku i kodu, ale verte, ze kazda pomoc me posune ohromny kus dopredu.

Diky

Jan Sponer