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 PetrHH řazené podle témat. Kliknutím na název téma se zobrazíte celou diskusi.

TémaZaloženoOdpověď
Makro fixování dílů 5.11. 2012 No jo, jenže tisíckrát jedno kliknutí je už dlouhá doba :-). btw. těch kliknutí je tam víc (vybrat ->smazat staré ->vybrat fixnout znovu->vybrat schovat) a to by mělo udělat jeden příkaz.. no jo snad se k tomu někdy dostanu to naprogramovat, ja to jenom zkoušel kdyby jste to už někdo dělal.
 
řez ve stromě 2.8. 2012 Ano je to tak řez zůstal i po změně geometrie modelu. Tu licenci nemame ale u starsi verze catie nebyla potreba ted to vypada ze se bez ni neobejdu pokud chci editovat model v rezu nebot ostatni dily mi prekryvaji plochu na kterou se potrebuji dostat.
Kazdopadne dekuji za bleskove reakce.
řez ve stromě 2.8. 2012 no nyní máme verzi catie 5.21 service pack 3, (pro win64), Standart

jde o to že v dřívější verzi (už bohužel nevím o kterou verzi šlo) bylo možné řez který vytvořilo do stromu toto makro editovat a měnit roviny řezu a po kliknutí OK model zůstal zobrazen v tom řezu a bylo možné jednotlivé modely editovat. Což při samostatném vyvolání příkazu section z klasického menu po kliknutí na Ok řez zmizí. Bohužel v nové verzi Catie sice tohle makro proběhne-> vytvoří se řez ve stromě, ale po kliknutí na tento řez se nic neděje.Nelze ho editovat ani nic jiného.

 
posun pohledu 14.5. 2012 Dole na liště by měla být ikonka (čtvereček se žlutým kolečkem v levém rohu) pro aktivování orámování pohledu, pak by již mělo jít s tímto pohledem posunout.
 
Export stromu ze sestavy 19.4. 2012 Jinak co se týče stromu v sestavě, tak mnohem více mi vyhovuje ten vytvořený z kusovníku tj.

Analyza/Kusovnik/...

lze ulozit jak v excelu tak v txt a hlavne pokud si postup nahrajete do makra lze provest automaticky predeni do xls.
Export stromu ze sestavy 19.4. 2012 Děkuji Pavlovi Horackovi, za připomínku odmazání tohoto řádku opravdu pomohlo.


Děkuji za pomoc
 
Změna názvu pohledu 20.4. 2012 Postupně to prochází všechny pohledy. Msgbox vypisuje postupne nazvy vsech pohledu nachazejicich se v sestave, ale vymaže akorát "Vorderansicht".

Změna názvu pohledu 19.4. 2012 OK upraveno. Skript probehne bez chybove hlasky ale vymaze pouze prvni nazev u prvniho pohledu jinak vse ostatni zustane stejne. 
Language="VBSCRIPT"



Sub CATMain()

Dim sPrefix, sID, sSuffix

Set oActiveDrawing = CATIA.ActiveDocument

Set oDrawingRoot = oActiveDrawing.DrawingRoot



' projdeme vsechny listy



For i = 1 To oDrawingRoot.Sheets.Count

Set oSheet = oDrawingRoot.Sheets.Item(i)



' projdeme vsechny pohledy krome main a background, proto zaciname od 3



 For j = 3 To oSheet.Views.Count

 Set oView = oSheet.Views.Item(j)

   

' porovnavame typ pohledu, prejmenujeme jen rezy



If oView.ViewType = CatViewType.catSectionView _

 Or oView.ViewType = CatViewType.catSectionCutView _ 

Then



' ziskame aktualni hodnoty



oView.GetViewName sPrefix, sID, sSuffix



' zapiseme puvodni hodnoty, ale nazev uplne vymazeme



oView.SetViewName "", sID, sSuffix 



End If



Next

Next



End Sub
Změna názvu pohledu 19.4. 2012 Po menších úpravách zdrojáku
Language="VBSCRIPT"



Sub CATMain()

Set oActiveDrawing = CATIA.ActiveDocument

Set oDrawingRoot = oActiveDrawing.DrawingRoot



' projdeme vsechny listy



For i = 1 To oDrawingRoot.Sheets.Count

Set oSheet = oDrawingRoot.Sheets.Item(i)



' projdeme vsechny pohledy krome main a background, proto zaciname od 3



 For j = 3 To oSheet.Views.Count

 Set oView = oSheet.Views.Item(j)

   

' porovnavame typ pohledu, prejmenujeme jen rezy



If oView.ViewType = CatViewType.catSectionView _

 Or oView.ViewType = CatViewType.catSectionCutView _ 

Then



 ' nastavime nazev pohledu - ID udava nazev rezu, tedy pro A-A je ID rovno A



oView.SetViewName ("Prefix", "ID","Suffix") 



End If



Next

Next



End Sub
mi to nyní háže chybu na řádku :

oView.SetViewName ("Prefix", "ID","Suffix")
Změna názvu pohledu 19.4. 2012 Děkuji za opdověď. No tak trošku se o Makra zajímám a pár se my jich podařilo i vytvořit , ale v tomto případě nevím moc jak bych ho vytvořil. klasické nahrání procedury asi moc nepomůže (zda-li se něco vůbec nahraje). Věděl by někdo jak vytvořit toto makro?

Ručně na každém pohledu odmazávat tento text je u velkých sestav už trošku otrava.

Změna názvu pohledu 17.4. 2012 Děkuji za rychlou odpověď.
Problém při tomto nastavení je, že se mi pak nezobrazí žádný nápis, ale já potřebuji, aby bylo zachováno např. "B-B 1:2" namísto "Schnitt B-B, Masstab:1:2" přijde mi že v normálních Options to nastavit nelze.