|
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 : 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 : 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 : SPA workbench VBA R16?
AndyMF am 25.08.2009 um 07:29 Uhr (0)
Guten morgen GemeindeHab da ein kleines problem mit der SPA workbench in R16 und VBA !Catia bringt mir in R16 und Vba ein Object requiered Fehler bei dem kleinen code!Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") Set aTheMeasurable = TheSPAWorkbench.GetMeasurable(beschnittline) hier kommt der fehler angle1 = aTheMeasurable.GetAngleBetween(hybridShapeLineNormal1)Es ist als lizenz ne HD2 angezogen! Das seltsame ist in VBscript ist es kein problem!Auch in R17 und R19 funzt es ...
|
| 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 : 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 : 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 |
|
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 : Makrobibliothek abfragen in VBA
AndyMF am 19.12.2008 um 10:48 Uhr (0)
Hallo Sascha,sovierl ich weiß geht in Catia das mit dem Curdir nicht,weil Catia das Makro temporär läd.Ich hatte das gleiche Problem für meine Makros und hab mnir eine Lösung mit Windows uservariablen gemacht.Uservariable in windows LH_M wird dann als C:Makroslabla definiert unter Arbeitsplatz in Windowsstest = CATIA.SystemService.Environ("LH_M")If stest = "" Then Msg = "Es wurde keine LH_M Umgebungsvariable gesetzt." & vbCr & "Das Programm wird beendet." MsgBox Msg, vbCritical Or vbOKOnly, "Fehler" Ex ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA Autostart Maske/Profil erstellen
AndyMF am 09.04.2009 um 08:28 Uhr (0)
Hallo tusch,das was du beschreibst ist nur eine exedie man in VB6 oder ähnliches compilieren kann.Durch diese settings in der exe wird catia in dem Installationspfad mit dem dementsprechenden enviroment gestartet.Du hast doch für jeden OEM kunden einen eigene Installation von Catia. z.B. BMW die R17 ,Audi die R16 zur zeit noch.Diese werden ja mit verschiedenen enviroments gestartet.Normal bekommst du die Enviroments von den OEMs.Man kann es auch simple mit Desktop Icons machen wo den Startbefehl mit dem en ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Windows-User auslesen
AndyMF am 23.02.2009 um 07:42 Uhr (0)
Guten Morgen,ich hoffe dir hilft dieses Codesnippet weiter !Sub CATMain()uservar = CATIA.SystemService.Environ("USER")if uservar = "" Then uservar = CATIA.SystemService.Environ("USERNAME")msgbox(uservar)End SubMFGAndy [Diese Nachricht wurde von AndyMF am 23. Feb. 2009 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Anfängerfrage Reframe / FileSelectionBox
AndyMF am 19.03.2009 um 14:09 Uhr (0)
Hallo Merlin,das geht ,aber wie gesagt nur mit dem Common Dialog modul in VBA.Schau dir mal das Common Filedialog system an.Ansonsten musst du es dir mit einem dialog und ner listview selber bauen.Was den Vorteil hat das es auf allen Catia Kisten mit VBA läuft ohne das Modul zusätzlich zu laden.Gruß Andy
|
| 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 |
