Vítejte !   Přihlášení | Registrace
Hledat
Hlavní menu
CATIA fórum.cz
Novinky
Seriál CATIA
Obecně o CAD
Novinky ze světa DS
Makra pro CATIA V5
Diskuse
Základy Catia
Ke stažení
Doporučujeme
Pracovní příležitosti
Reklama a kampaně
O fóru
Vznik a historie
Statistiky
Přehledy
Hledat na fóru
Nápověda

Seznam příspěvků uživatele

V tabulce jsou všechny příspěvky uživatele Jan Šponer (Flyer) řazené podle témat. Kliknutím na název téma se zobrazíte celou diskusi.

TémaZaloženoOdpověď
Vložení dat EXCEL do CATIA Parameters 17.11. 2013 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
 
The CATScript scripting engine in not properly installed 8.5. 2013 A zde je výše zmiňovaná příloha
The CATScript scripting engine in not properly installed 8.5. 2013 Dobrý den,

Porovnal jsem záložku macros v Options s kolegou a jeví se to být totožné. Viz příloha.
Přeinstaloval jsem Catii, stále to samé.
Zkusil jsem nainstalovat VB pomocí souboru, který jsem nalezl v instalačním adresáři Catie:
C:\programy instalacky\CATIA Home Installation\64bit\V5R21_CATIA_P2.win_b64\CATIA_P2.win_b64\1\VBA\vba6.msi
stále nic.
Řízení uživatelských účtů jsem stáhl na minimum - bez kladného výsledku.
Zkusil jsem pro celý instalační adresář: C:\Program Files\Dassault Systemes nastavit v zabezpečení pro uživatele (mě) úplné řízení, a stále ta samá hláška.

Ano, používám Windows 7, 64bit.
Je zvláštní, že i google je na toto krátký. Nikde jsem nenašel, že by někdo řešil stejný problém.

Kdyby Vás ještě cokoliv napadlo, budu jedině rád.
Díky
The CATScript scripting engine in not properly installed 7.5. 2013 Tak nefunguje ani jedno. Dále jsem zkoušel nahrát jednoduché makro pomoci Tools/Macro/Start Recording... a při jeho spuštění se objeví chybová hláška, kterou jsem nahrál do přílohy této zprávy.
Nevím jak zjistit, zda je chyba v Catii nebo ve Windows.
The CATScript scripting engine in not properly installed 7.5. 2013 Samotnému mi je to záhadou, protože na školních počítačích se stejnou instalací Catia V5R21, tento kód funguje (takže předpokládám, že je napsán správně), kamarádovi na jeho notebooku ten samý soubor také funguje, jen mně ne. Takže jsem předpokládal, jestli chyba nemůže být někde ve Windows nastavení (čárky, tečky), pokud to vůbec má nějakou spojitost s Windows.

Pokus 2 vyzkouším ASAP a ozvu se.