|
CATIA V5 Programmierung : CATIA V5 Makro Aufzeichnung
bgrittmann am 27.02.2011 um 22:39 Uhr (0)
ServusBeim groben überfliegen ist mir aufgefallen, dass du mit "on error resume next" die Fehlerbehandlung ausgeschaltet hast. AFAIK bleibt diese Einstellung auch in andern Subs erhalten. Somit hast du keine Möglichkeit dir Fehlermeldung anzeigen zulassen und darauf zu reagieren.Lösche mal diese Zeile und schau dir mögliche Fehler und derer Ursache an (zB mit dem Wachfenster bzw. das Makro Schrittweise abarbeiten)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkte aus Texttabelle auslesen
mbstudent am 12.05.2004 um 09:55 Uhr (0)
Hallo ! Ich bin gerade dabei als HIWI einen Weg rauszufinden wie /ob man Punktkoordinaten aus einer Texttabelle in CATIA auslesen kann. Langfristiges Ziel ist ein Makro zu erstellen das mir diese Punkte automatisch ausliest und im CATPart einfügt. Sieht hier jemand Chancen das zu realisieren ? Leider verfüge ich selbst noch über keine Erfahrung in der CATScript Programmierung - bin daher erstmal dankbar über jeden hilfreichen Tip und Hinweis ! Vielen Dank! tobe.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Case Verzweigung
BettinaRauch am 23.07.2009 um 16:25 Uhr (0)
Hi,Danke für eure Inforamtionen. Leider muss ich gestehen, dass ich damit nicht wirklich weitergekommen bin. Ich hab auch noch ein paar Bücher zur Makroprogrammierung auf meinem Tisch liegen, aber funktionieren tut es trotzdem nicht.Hier mal mein erstes Problem:Hab einen Parameter erzeugt (length). Dann hab ich ne If-Anweisung geschrieben. Das funktioniert auch:--------------------Set Parameter = CATIA.ActiveDocument.Part.ParametersSet Para1 = Parameter.item ("Radius")Var1 = Para1.ValueIf Var1 "0" Then Ms ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro Properties bearbeiten
Spiglix am 17.06.2015 um 13:04 Uhr (1)
Jawohl jetzt check Ich langsam wie der Hase lang läuft!Code:_______________________________________Sub CATMain()Dim oProd As ProductSet oProd = CATIA.ActiveDocument.ProductoProd.Nomenclature = ""TraverseProduct oProdEnd SubSub TraverseProduct(oProd As Product) Dim SubProd As Product For Each SubProd In oProd.Products SubProd.Nomenclature = "" TraverseProduct SubProd NextEnd Sub_______________________________________Vielen lieben Dank für eure Hilfe!!!:-)LG Spiglix
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SendKeys + Zusammenbauen
JanF am 21.07.2003 um 11:36 Uhr (0)
Moin! Ich möchte die Funktion Zusammenbauen (Partdesign - Boolsche Operationen) in einem VBA-Makro mittels SendKeys aufrufen, das funktioniert auch mit: AppActivate ( CATIA V5 ) SendKeys b:Zusammenbauen + Chr(13), True Mein Problem ist, das dieser Befehl in einer Dialogbox mit OK bestätigt werden muss. Ist es möglich, dies mit dem Makro zu automatisieren, oder gibt es eine Einstellung, dass das Makro so lange wartet bis der Anwender den Befehl mit OK bestätigt hat? Gruss Jan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter Loop
DanielFr. am 17.06.2009 um 06:57 Uhr (0)
Hallo Gaucho,hatte ja gestern gesagt ich reiche das Beispeilscript noch nach und hier kommt es.Anbei ist auch ein Screenshot von dem Baum und die Reaction. In meinen Baum gibt es noch einen Check. Dieser wird gesteuert von dem "Steuerungsparameter Kontrollmaß" und soll dem Anwender lediglich visualisieren das sein Kontrollmaß nicht io ist. Gesteuert wird der Parameter von dem Script in der Reaction.Des weiteren habe ich auch die komplette *.catpart Datei angehängt falls es sich jemand "Live" anschauen will ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zeichnungsrahmen per Makro einfügen
Filippo am 17.05.2004 um 20:58 Uhr (0)
Hallo n4426, hier das Makro. Language= VBSCRIPT +++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub CATMain() Dim documents1 As Documents Set documents1 = CATIA.Documents Dim drawingDocument1 As Document Set drawingDocument1 = documents1.NewFrom( D:DATENCatiaDrawing_Vorlage.CATDrawing ) Dim drawingSheets1 As DrawingSheets Set drawingSheets1 = drawingDocument1.Sheets Dim drawingSheet1 As DrawingSheet Set drawingSheet1 = drawingSheets1.Item( Blatt .1 ) drawingSheet1.Activate End Sub +++++++++++++++++ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kante selektieren-aber wie damit weiterarbeiten
Sr.Herms am 14.09.2006 um 12:02 Uhr (0)
Sub CATMain () Dim partDocument1 As Document Set partDocument1 = CATIA.Activedocument Dim part1 As Part Set part1 = partDocument1.Part Dim hybridShapeFactory1 As Factory Set hybridShapeFactory1 = part1.HybridShapeFactory Dim HB as HybridBody Set HB = part1.HybridBodies.item (1) Auswahl festlegen ----------------------------------------------- Dim Was(0) Was(0) = "HybridShape" Selektion definieren und leeren --------------------------------- Dim UserSel As Selection Set UserSel= CATIA.ActiveDocument.Selecti ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia kann aufgenommene makros nicht ausführen...
Fhdoia am 07.12.2011 um 18:37 Uhr (0)
sry falls ich nerve, aber bin etwas gestresst gerade...p.s: V5Automation.chm kann ich auf dem gesamten pc nicht finden, wo soll die sein? kann man die irgendwo runterladen?gruß------------------Windows 7MS office 2010Catia v5 R19PPC:Core I3-5508GB RamCorsair SSD....[Diese Nachricht wurde von Fhdoia am 07. Dez. 2011 editiert.][Diese Nachricht wurde von Fhdoia am 19. Jan. 2012 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektionen eines Parts im Product
IIYTII am 11.09.2009 um 13:08 Uhr (0)
Ja, ich glaube das mit dem Type missmatch lag daran, dass ich "Achse" nicht als Array definiert hatte...Code:Dim ProductnameDim AchsennameDim OberflachennameDim EDim UserselSet Usersel = CATIA.ActiveDocument.selectionDim Achse(1)Achse(0) = "Line"E = Usersel.SelectElement4(Achse, "Achse wählen")If E = "Normal" ThenMsgBox (Usersel.Item(1).Value.Name)Achsenname = Usersel.Item(1).Value.NameElseMsgBox ("Abbruch")End IfUsersel.Clearnächster Fehler ist: Wrong numer of arguments or invalid property assignment
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Abmasstabelle
michaelroesch am 23.07.2004 um 16:13 Uhr (0)
Hallo Norbert,Das Script schreibt die Abmasse in eine Tabelle und ergänzt die obere und die untere ToleranzDie Tabelle muss auf C:CATIA liegen.die funktion mit folgenden Parametern aufrufen:CATMain(X, Y, A)X = Tabelle in X RichtungY = Tabelle in X RichtungA = z.b. CatTableTopRight (Aufhängepunkt der Tabelle)wenn ihr den Code verbessert ;-) oderdie Abmasstabelle ergänzen solltet bittesendet mir bitte eine kopie damit ich Schreibkram SpareGruß Michael[Diese Nachricht wurde von michaelroesch am 23. Jul. 2004 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Sheet Background löschen
Lusilnie am 26.03.2012 um 01:27 Uhr (0)
Hallo allerseits,so wird die Diskussion doch fruchtbar und bringt die Probleme und die Lösungen dazu hervor!@ferdo:Durch Deinen zweiten Beitrag wird das Problem des Skriptes erfolgreich beschrieben und wir können die Randbedingungen besser bestimmen und eine Lösung erarbeiten. Nach einigen Test habe ich ich entschlossen, Deine "Remove"-Zeile mit einzubauen, da ich keine geeigneten Suchkriterien gefunden habe.Der überarbeitete Code für alle Sheets lautet nun so:Code:Option ExplicitSub CATMain() Dim Doc A ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ansichten über Benutzeroberfläche
nikibert am 12.03.2009 um 16:53 Uhr (0)
hab selber eine Lösung gefunden:Function View(A) Get the viewer Set oViewer = CATIA.ActiveWindow.ActiveViewer Get the viewpoint Set oViewpoint = oViewer.Viewpoint3DIf A = "TopView" ThenX = 0Y = 0Z = -1U = 0V = 1W = 0End IfIf A = "RightView" ThenX = 0Y = -1Z = 0U = 0V = 0W = 1End If Change the viewpointoViewpoint.PutOrigin Array(0, 0, 0)oViewpoint.PutSightDirection Array(X, Y, Z)oViewpoint.PutUpDirection Array(U, V, W)oViewpoint.ProjectionMode = catProjectionCylindric Update the vieweroViewer.ReframeoView ...
|
| In das Form CATIA V5 Programmierung wechseln |
