|
CATIA V5 Programmierung : open in new window
AndyMF am 28.09.2009 um 13:52 Uhr (0)
HalloDu musst auf die Catia windows gehen!Hier ein kleines Beispiel wie du an die Anzahl bzw an die Namen der Windows kommst :Language="VBSCRIPT"Sub CATMain()Set windowsopen = CATIA.WindowsMsgbox(windowsopen.count)for i = 1 to windowsopen.countmsgbox(Catia.windows.item(i).name)nextEnd SubIch hoffe das hilft dir weiter !Gruß Andy
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : open in new window
AndyMF am 29.09.2009 um 09:00 Uhr (0)
Guten morgen Joachimich sehe das du nicht das document abfragst sondern nur das window im Fall 1.Ich hab durch den windowname auf das Document zugegriffen in meinem Codeset doctoclose = CATIA.Documents.Item(Catia.windows.item(i).name)Bau dir mal eine Abfrage für das document ein ob es gesavet werden mußdaran kommst ud über set CATIA.Documents.Item(Catia.windows.item(i).name).savedDa siehst du dann ob das Document in dem window verändert wurde oder nicht!Je nach umgebung von windows kommt dann Wahr bzw True ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : open in new window
AndyMF am 28.09.2009 um 14:25 Uhr (0)
Hallo JoachimNormal geh ich davon aus das der User das produkt zuerst öffnet und daraus die einzelnen verbauten parts oder Produkts in neuem Fenster öffnet.Somit müsste window.item(1) dein Root sein.Wenn du den close befehl in die schleife mit Window.item(i).close reinhaust und erst die Schleife ab 2 losgehen lässt sollte es funktionieren.Würde aber zuerst das window.item(1) activieren, und dann die Schleife starten.GrußAndybeispiel:Language="VBSCRIPT"Sub CATMain()Set windowsopen = CATIA.WindowsMsgbox(wind ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : open in new window
AndyMF am 28.09.2009 um 15:20 Uhr (0)
Hallo Joachimsry hatte nen Fehler im letzten Code ! Hab aber noch nich berücksichtigt das alle Files gesaved sein sollten!Language="VBSCRIPT"Sub CATMain()Set windowsopen = CATIA.WindowsMsgbox(windowsopen.count)for i = windowsopen.count to 2 step -1set doctoclose = CATIA.Documents.Item(Catia.windows.item(i).name)doctoclose.closenextEnd SubGruß Andy
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Designtables isolieren
AndyMF am 12.02.2010 um 11:09 Uhr (0)
Hallo zusammen,gibt es eine Möglichkeit Designtables zu isolieren ohne den Sendkey Befehl ?Die Problematik : Ein OEM schickt Normatielkataloge raus aber ohne die Designtables. Dadurch gibt es ewig lange ladezeiten der modelle weil Catia nach der Documentsuche alles absucht!Die Lösung wäre nun das Modell zu laden und alle Designtables zu isolieren .Sei es nun xls oder txt. Vielleicht weiß jemand ohne den umweg über sendkey eine Lösung !GrüsseAndy
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA Release per CATScript abfragen
AndyMF am 09.03.2010 um 13:47 Uhr (0)
Hallo soviel ich bis jetzt gefunden habe geht das HF nicht über die API auszulesen.Also habe nichts in der V5automation gefunden.Das OS geht noch und welche Produkte lizenzsiert sind.MFGAndyP.S. suche mal nach SystemConfiguration in der V5automation [Diese Nachricht wurde von AndyMF am 09. Mrz. 2010 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA Release per CATScript abfragen
AndyMF am 04.03.2010 um 15:15 Uhr (0)
Hallo Bertelhast es schnell gefunden !Hier noch ein BeispielCode:Sub CATMain() Set SystemConfiguration1 = CATIA.SystemConfiguration Msgbox "CATIA V" & SystemConfiguration1.Version & " R " & SystemConfiguration1.Release & " sp " & SystemConfiguration1.ServicePack End SubGrüsseAndy
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Exel 3D-Punkte nach Catia V5 einlesen
AndyMF am 11.03.2010 um 14:25 Uhr (0)
Hallo Manniauf die schnelle mal dein scriptCode:Sub CATMain()Set CATIA = GetObject("", "CATIA.Application") wird nur benötigt, weil ich Excel als Entwicklungssumgebung benutze Dim Excel As Application Dim WB As Workbook Dim WS As Worksheetdim mytabelle as String myTabelle = CATIA.FileSelectionBox("FileOpen", "*.xlsx;*.xls", CatFileSelectionModeOpen)If myTabelle "" Then Set Excel = CreateObject("Excel.Application") Excel starten Excel.Visible = True Set WB = Excel.Workbooks.Open(mytabelle) Arbe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Exel 3D-Punkte nach Catia V5 einlesen
AndyMF am 11.03.2010 um 13:45 Uhr (0)
Hallo Manniwegen dialog öffnen Code:myTabelle = CATIA.FileSelectionBox("FileOpen", "*.xlsx;*.xls", CatFileSelectionModeOpen)If myTabelle "" ThenDEIN codeEnd Ifsomit ist mytabelle deine Punktedatei GrüsseAndy
|
| In das Form CATIA V5 Programmierung wechseln |
