|
CATIA V5 Programmierung : Makro wiederholen Schleife erzeugen
bgrittmann am 04.01.2017 um 14:50 Uhr (1)
ServusWillkommen im Forum. Bitte Systeminfo ausfüllen.Wenn du keine Ahnung von Programmierung hast wären folgende Schritte angebracht:1. allgemein in VB(A) einarbeiten2. deinen aufgezeichneten Code verstehen dazu auch mal in die Literatur von Catia schauen3. deine unter 1. erhaltenen Kenntnisse auf deinen Code anwenden und ergänzen (Aufbau, Schleifen, ...)GrußBerndPS: Manchmal liefert auch die Forensuche schon was fast passendes.------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fehler beim Kompilieren
leChefe am 03.06.2016 um 08:51 Uhr (1)
Hallo Zusammen,ich habe ein Problem mit einem Makro, dieses stößt bei mir auf einen Kompilierungsfehler: "Benutzerdefinierter Typ nicht definiert"Bei den Kollegen funktioniert das ohne Probleme, gleiches Catia, gleicher Hotfix, gleiches Makro.VBA habe ich mir bereits neu installieren lassen.Ich habe leider gar keine Ahnung von Makros und finde bei uns in der IT auch leider keinen, der mir da weiter helfen kann.Gibt es noch weitere Programme die die Funktionalität beeinflussen?Vielen Dank vorab. ----------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : GS umbenennen
Shaft am 23.05.2006 um 21:09 Uhr (0)
HmmmWenn ich das so mache:Code:Language="VBSCRIPT"Sub CATMain()Dim documents1 As DocumentsSet documents1 = CATIA.DocumentsDim partDocument1 As DocumentSet partDocument1 = documents1.Item("Part1.CATPart")Dim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBody1 = hybridBodies1.Add()hybridBody1.Name = "KLAUS"part1.Update End SubKommt ein GS mit Namen Klaus aber der Rename klappt einfach nicht..----------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part-Objekte mit Schleife erzeugen
BADU am 19.04.2005 um 11:53 Uhr (0)
Hi TomK79 versuchs mal so: Sub CATMain() Dim productDocument1 As ProductDocument Set productDocument1 = CATIA.ActiveDocument Dim product1 As Product Set product1 = productDocument1.Product Dim products1 As Products Set products1 = product1.Products Dim Name As String Dim I For I = 1 To 5 Name = Balken & I Dim product2 As Product Set product2 = products1.AddNewComponent( Part , Name) Next End Sub ------------------ Gruss BADU
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Applications im CATIA Strukturbaum benutzerdefiniert neu sortieren
projo am 13.02.2012 um 14:20 Uhr (0)
Hallo zusammen,es hat sich im Zusammenhang mit der Sortierung ein neues Problem ergeben. Auf einem WinXP 32 Bit System läuft die Sortierung einwandfrei. Der Strukturbaum wird sofort (in Echtzeit) aktualisiert. Auf einem WinXP 64 Bit System funktioniert die Aktualisierung des Strukturbaums nicht. Erst nachdem die GUI beendet wurde, wird die Aktualisierung angestoßen. Wie lässt sich dieses Problem lösen?Gruß Johannes
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro im Hintergrund laufen lassen
roccat am 01.08.2018 um 15:30 Uhr (1)
Hallo,also eine schöne Lösung gibt es meiner Meinung nach nicht. Aber Alternativen.1. Du sprichst Catia von extern an. Einfachste Lösung wäre über Excel.oder2. Du gehst über einen Shell-Aufruf und wartest bis Shell beendet wurde.VBA-CodeCode:Sub Test()Do CreateObject("WScript.Shell").Run "C:TEMPWait.bat", 1, TrueLoopEnd Sub In die "Wait.bat" schreibst du (für 10sec Wartezeit)Code:timeout /T 10mfGMario------------------Wenn das die Lösung sein soll,will ich mein Problem zurück !!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Neues Part mit definiertem Namen per Makro erstellen
bgrittmann am 01.03.2017 um 10:24 Uhr (1)
Servus KevinWillkommen im Forum.Hier ein kleines Beispiel (CATScript):Code:Sub CATMain()Dim oDocuments As DocumentsDim oPartDocument As Documentdim oProduct As Productdim StrPartNumber as StringStrPartNumber = Inputbox("Bitte geben sie die Teilenummer für das neue CATPart ein","NewPart")if StrPartNumber "" then Set oDocuments = CATIA.Documents Set oPartDocument = oDocuments.Add("Part") Set oProduct = oPartDocument.Product oProduct.PartNumber = StrPartNumberend ifEnd SubGrußBernd------------------Warum einf ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Namen des aktiven Fensters feststellen
symax am 05.11.2010 um 15:23 Uhr (0)
Hallo Gemeinde,ich möchte folgendes mit CATIA bewerkstelligen: (ALT / F11)habe einen beliebigen Quellcode ....StelleX....an Stelle X benötige ich den Namen des aktiven Fensters (PART). Da ich nicht weis, wie die Datei nachher heißen wird, muss ich den Namen des aktiven Fensters auislesen.Quasi:Dim Name as stringName = ??????Beispielsweise heißt die offene Datei "A.CATPart"dann soll nachher in Name das drinstehen (OHNE Pfad)hoffe, jemand hat dazu eine Lösung...MFG Stefan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrisches Set löschen
bgrittmann am 23.10.2010 um 23:19 Uhr (0)
ServusSchon mal die Makroaufzeichnung probiert? Diese liefert zB:Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = partDocument1.Selectionselection1.ClearDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBody1 = hybridBodies1.Item("Geometrisches Set.1")selection1.Add hybridBody1selection1.DeleteEnd SubGrußBernd- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Reaktion nach Umbenennung eines Features
jasong am 05.06.2012 um 15:59 Uhr (0)
Hi Rick,die Umbenennung ist schon durch ein Makro gemacht, aber das Makro darf ich nicht verändern. deswegen...Gruß Zitat:Original erstellt von RSchulz:Hallo Jasong,wieso machst du das nicht direkt mit dem Makro? Du kannst doch direkt nach der Umbenennung die Ebene ausblenden. Eine Reaction kannst du aufjedenfall nicht definieren. Dafür gibt es keine Methoden in CATIA.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Generate Catpart from Catproduct
rembit am 14.10.2011 um 11:58 Uhr (1)
Hallo,brauche mal wieder euere Hilfe.Habe mit dem Macrorecorder es probiert aber es funktionirt nicht.Will das "Generate Catpart from Product" in das Macro einbinden. Recorderaufnahme:Set specsAndGeomWindow1 = CATIA.ActiveWindow Set viewer3D1 = specsAndGeomWindow1.ActiveViewer Set viewpoint3D1 = viewer3D1.Viewpoint3D Damit komme ich nicht weiter.MitCATIA.StartCommand("Generate CATPart from Product...") ist es schon besser, aber wie kann ich automatisch die Benennung vom Product in das Allca ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Treegrid für VBA
ballazolo am 03.08.2018 um 15:37 Uhr (1)
Hallo RAA,danke für deinen Vorschlag.Eine treeview habe ich schon gefunden und in meinem Projekt integriert. Siehe https://www.jkp-ads.com/articles/treeview.asp. Das tool ist unabhängig von dem registrierten Common Controls. Ich persönlich habe leider nicht geschafft alle die Common Ccontrols ins Catia VBA reinzubringen.Ich brauche aber mehr als ein Treeview und zwar einen Treegrid ehnliches tool... so etwas habe ich aber nirgendwo gefunden.grüße, Zoltan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bei GetMeasurable andere Achse verwenden
ogard1 am 30.09.2008 um 15:43 Uhr (0)
Hallo,schon mal versucht an Fläche ein Punkt oder Plane als Referenz zu definieren und die abzufragen, siehe CAAThis example retrieves in oRefAxis the reference Axis System for PointCoord feature. Dim oRefAxis As CATIAReference Set oRefAxis = PointCoord.RefAxisSystemDim referenceObject As referenceObject Set referenceObject = "GetReference" Dim TheSPAWorkbench As Workbench Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench ( "SPAWorkbench" ) Dim TheMeasurable As Measurable Set TheMeasurable = Th ...
|
| In das Form CATIA V5 Programmierung wechseln |
