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
Vytvořit téma
Koncepty
Seznam oblíbených
Soukromé zprávy
Pravidla
Live CHAT
VIP žádost
Základy Catia
Ke stažení
Doporučujeme
Pracovní příležitosti
Reklama a kampaně
O fóru
Nápověda

Zmena offset plane

UživatelPříspěvek
Pavel Krsek

Poslat zprávu | Profil
Datum: 20.7. 2012 | Zobrazeno: 10489x
Konfigurace CATIA:

Text dotazu:
Ahoj,

potrebuji prosim v prubehu makra zmenti offest plane (vytvorena pres funkci AddNewPlaneOffset).
Plane ma napr. nazev PLANE_LIMIT.

Zkousel jsem radek: 

PLANE_LIMIT.Offset.Dimension.Value = 50


,ale to nefunguje

Pokud dam zaznam makra tak vysledek je: 

Dim parameters1 As Parameters

Set parameters1 = part1.Parameters

Dim length1 As Parameter

Set length1 = parameters1.Item("Part1\POMOC\LIMITY\PLANE_LIMIT\Offset")


, ale zde nevim jak nahradit cestu k Offset v zavorce.

Dekuji predem za radu.

Michal

Poslat zprávu | Profil 		[#3100] | Publikováno: 20.07. 2012 - 13:05
Zdravím,
nejsem si jistý, jestli to pomůže, ale jestli máte part a referenci na plane tak se dá udělat něco takového
dim oPlaneParameters as Parameters
set oPlaneParameters = oPart.Parameters.Sublist(oPlane, true)

výsledkem je podmnožina atributů, které se vztahují k plane a v ní by mel být parametr offset. Nedokážu říct jak moc to bude použitelné v tomto případě, ale už mi to párkrát pomohlo.
Psal jsem to z hlavy, takže syntax se může lišit.
Michal
Pavel Krsek

Poslat zprávu | Profil 		[#3101] | Publikováno: 20.07. 2012 - 13:31
Diky za typ.
Bohuzel mi to nefunguje. Dostanu hlasku:
"The method SubList failed"

Pripada mi, zda-li se tato funkce nepouziva jen pro objemova telesa (pad, hole, ...).

Diky predem za dalsi typy.
Ing Jan Cinert

Poslat zprávu | Profil 		[#3103] | Publikováno: 20.07. 2012 - 15:23
Tu rovinu máte vytvořenou jako objekt typu HybridShapePlaneOffset, tak přece stačí jenom změnit její vlastnost OffsetValue. Všechno je to popsané v dokumentaci, jen se podívat... 

' vytvoreni roviny

oPlaneOffSet = oHybridShapeFactory.AddNewPlaneOffset(oRef, oDir, 100)



' zmena

oPlaneOffset.OffsetValue = 200


Pavel Krsek

Poslat zprávu | Profil 		[#3104] | Publikováno: 21.07. 2012 - 06:30
V napovede jsem samozrejmne hledal a nasel jsem asi stejnou syntaxi.
V kazdem pripade mi nefunguje.

Abych nedostal chybové hlaseni u prvniho radku, tak musim pridat SET: 

Set oPlaneOffSet = oHybridShapeFactory.AddNewPlaneOffset(oRef, oDir, 100)



' zmena

oPlaneOffset.OffsetValue = 200


a pak po spusteni makra dostanu hlasku u radku "zmena", ze makro nepodporuje danou methodu.

Mne se nakonec podarilo danou zmenu offsetu provest nasledovne: 

Set parameters1 = oPart.Parameters

    Set Length = parameters1.Item(oPart.Name & "\POMOC\oPlaneOffset\Offset")

    Length.Value = 200
Ing Jan Cinert

Poslat zprávu | Profil 		[#3105] | Publikováno: 22.07. 2012 - 20:03
Já se pořád pohybuju v .NET, takže přidání Set do kódu je pak ve VBA samozřejmost. :-)

Vlastnost objektu HybridPlaneOffset je jen Offset, ne OffsetValue - zřejmě jsem se přehlédnul na jiný typ objektu. Každopádně je ta vlastnost jen ReadOnly, takže to stjně nepůjde.

Způsob který uvádíte je v zásadě správný, ale pozor na jedinečnost názvu. Pokud byste takto hledal parametr a bylo jich v modelu více se stejným názvem, metoda Item selhává.


Uživatel nepřihlášen

Pro zobrazení obsahu stránky / provedení akce (vytvoření nového téma, napsání odpovědi do diskuse apod.) musíte být přihlášeni.