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

TémaZaloženoOdpověď
Přeukládání drawing 30.9. 2015 Ještě bych měl jednu otázku, když spustím makro a začnou se mi ukládat jednotlivé díly a produkty, tak mě ukaždého dílu vyskakuje hlážka že mám použít save manager.. Jde pomocí makra tato hláška potvrdit abych nemusel u každého souboru mačkat OK????

Nebo jde to vyřešit nějak lépe???

Makro jsem ještě upravil, že se nejdříve uloží party, pak produkty a naposledy výkresy.. Ukladají se od posledního k prvnímu.

Děkuji za každou radu.
 
Přeukládání drawing 30.9. 2015 Tak už vím kde je chyba. Špatný název příkazu. FileExists. Chybělo mě tam zase "s" 

If CATIA.FileSystem.FileExists(MyDocuments.Item(i).path & "\" & MyDocument.Name) Then
Přeukládání drawing 30.9. 2015 Chybu má v poslední části, kde se snažim přejmenovat soubory. Chci tím ověřit jestli soubor na disku opravdu existuje než ho začnu kopírovat. 
 If CATIA.FileSystem.FileExist(MyDocuments.Item(i).path & "\" & MyDocument.Name) Then

Přeukládání drawing 30.9. 2015 Dobrý den, trochu jsem postoupil, ale zasekl jsem se.. 

Option Explicit

Private renameDict As Dictionary

Dim DestinationFolder As String



Public Sub CATMain()

  Dim excelApp As Excel.Application

  Dim wb As Workbook

  Dim MyDocuments As Documents

  Dim MyDocument As Document

  Dim i As Integer

  Dim newName As String

  Dim aFileName As String

  

'vybrání excel souboru

  aFileName = Trim(CATIA.FileSelectionBox("Select Excel-file...", "*.xls*", CatFileSelectionModeOpen))

  If aFileName = "" Then Exit Sub

'vybrání cílového adresaře

   If Not selectFolder(DestinationFolder) Then Exit Sub

    

 'zde bude skript pro nacitání dat z excelu Do promenne renameDict

  

  Set MyDocuments = CATIA.Documents

  'prochazeni dokumentu a ukladani Do nove slozky

 For i = 1 To MyDocuments.Count

    Set MyDocument = MyDocuments.Item(i)

    MyDocument.Activate

    If CATIA.FileSystem.FileExist(MyDocuments.Item(i).path & "\" & MyDocument.Name) Then

      newName = renameDict(MyDocuments.Item(i).Name)

      MyDocuments.Item(i).SaveAs (DestinationFolder & "\" & newName)

    End If

  Next i

End Sub
Přeukládání drawing 26.9. 2015 Dobrý den, ještě mám jednu otázku.

Jak lze přepnout z aktivního prostředí assembly do Drawing pomocí makra?

Děkuji

Přeukládání drawing 26.9. 2015 Dobrý den, super už mě to funguje. Děkuji moc.

Ještě se zeptám. Když mám v Catii otevřený produt.CATProduct a více Drawingu např. Deska.CATDrawing a Svarenec.CATDrawing, tak jak pomocí makra aktivuju nebo vyberu Drawing?
Napřiklad abych měl aktivní Deska.CATDrawing a mohl použí příkaz. 
oDoc.SaveAs("cesta k novym souborum"\NewNames(i))

Jde me o to, že výkresy, které chci přeuloži už budu mít otevřené, tak abych je nemusel znovu otevírat. Příkazem: 
Set oDoc = oDocs.Open("cesta ke starym souborum"\OldNames(i))

Prostě nevim jak se na daný soubor jinak odkázat.



Přeukládání drawing 25.9. 2015 Dobrý den,

Děkuji, tohle mi velice pomůže. Akorád si nevím rady s příkazem: 
If CATIA.FileSystem.FileExist("cesta ke starym souborum"\OldNames(i)) Then

Chápu, že má určit jestli zadaný soubor je uložený na zadané cestě. Pokud, ale zadám přímo: 
If CATIA.FileSystem("C:\pokus\Deska.CATDrawing") Then


Tak mi na zadaném řádku pořád vyskakuje chyba. Nevim si s tím rady.

Přeukládání drawing 24.9. 2015 Když teď nebudu řešit načítání dat z excelu a měl bych v jedné proměnné uložený název starého výkresu a v druhé proměnné název nového výkresu, tak jak postupovat dál??

Zkoušel jsem použít záznam makra v Catii a vyšlo mě tohle: 

Sub CATMain()



Dim drawingDocument1 As DrawingDocument

Set drawingDocument1 = CATIA.ActiveDocument



drawingDocument1.SaveAs "C:\new\Pokus.CATDrawing"



End Sub
Přeukládání drawing 24.9. 2015 No a teď jak to naprogramovat ...
 
Převod AllCatPart na sestavu 25.7. 2013 Potřeboval bych poradit.
Vytvořený skript, mě kopíruje Partbody z allcatpartu zase do allcatpartu. Jak mám zadat cestu do partu v nově vytvořené sestavě....? 

Language="VBSCRIPT"



Sub CATMain()



'vytvoreni produktu a pridani noveho partu

Set allcatpart = CATIA.ActiveDocument

Set sestava = CATIA.Documents

Set productDocument1 = sestava.Add("Product")

Set product1 = productDocument1.Product

Set products1 = product1.Products

Set product2 = products1.AddNewComponent("Part", "")



'vyber body a kopirovani

Set selection1 = allcatpart.Selection

Set part1 = allcatpart.Part

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("PartBody")

selection1.Add body1

selection1.Copy() 

selection1.PasteSpecial("CATPrtResultWithOutLink")



product1.Update 



End Sub
Převod AllCatPart na sestavu 25.7. 2013 Uz jsem nasel adresu kde jsem makro videl...

http://www.youtube.com/watch?v=i1hRdlPYf-s

Bouzel je placene...

Jak by se makro dalo napsat?

Vytvoril by se Product do nej novy part a zkopiroval se PartBody z vychoziho allCATpartu. Cele by to procovalo v cyklu.

Dekuji za jakoukoliv radu.


Převod AllCatPart na sestavu 25.7. 2013 O teto funkci vim, ale potrebuji obraceny postup.
 
Analyza svarence 25.7. 2013 Dekuji za odpovedi,
vypocty budu brat pouze jako orientacni pro predstavu..

Ansys bouzekl k dispozici nemam.
 
Vytváření startmodelu pomocí makra 13.11. 2011 Tohle už mi myslím pomůže. díky
Vytváření startmodelu pomocí makra 12.11. 2011 Následující skript, mě do nového partu vloží nové Body1. U tohoto Body1 bych potřeboval změnit barvu např. modrá.

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Add("Part")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Add()

part1.Update

End Sub

Každému body bych potřeboval definovat materiál viz obr. Snad už je to trochu srozumitelné. Asi to není nejlepší příklad na využití makra, ale někde se začít musí :)
Děkuji za pomoc.
Vytváření startmodelu pomocí makra 12.11. 2011 Mohl by ste mi doporučit nějakou literaturu na programování maker? Ve visual basic nějaké zkušenosti mám, ale spíš mám problemy když se mám odkazovat na nějakou geometrii a definovat vlastnosti viz barva atd. děkuji
Vytváření startmodelu pomocí makra 12.11. 2011 Potřeboval bych to spíš, každému partu ručně přiřadit barvu bez výběru.. Part vytvářím viz níže.

Dim body5 As Body
Set body5 = bodies1.Add()
part1.Update

S hmotností jsme to myslel, že by byl ke každému prátu přirazen určitý materiál (hustota).
 
Analýza v Catii 24.7. 2013 Ahoj,
chtel bych se zepatat jestli nekdo nema zkusenosti s pevnostnimy vypocty svarencu v catii, pripadne jestli do toho nemate nejake materialy..

Zatim jsem svarenc resil tak, ze jsem jednotlive dily sloucil do jednoho partu a postate ho resil jako jedno teleso... Nevim, ale jak velke chyby si dopoustim tim to usnadnenim..

Mohl by mi nekdo poradit..

Dekuji