|
CATIA V5 Programmierung : Geometrisches Set einfügen
rattlesnake am 11.02.2009 um 08:37 Uhr (0)
ich hab da mal Funktionen zu geschrieben:Code:Public Function getHybridBody(nameOfHybridBody As String, Optional parent As Object, Optional createIfNotExists As Boolean) Dim userSel As selection Dim newHybridBody As HybridBody search for hybrid body Set userSel = CATIA.activeDocument.selection userSel.Clear userSel.Search "CATPrtSearch.OpenBodyFeature.Name=" & nameOfHybridBody & "*,all" If userSel.Count 0 Then Set newHybridBody = userSel.Item(1).value ElseIf createIfNotExists Then Set newH ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Verstecktes Interface ManufacturingOutputGenerator
WiMar am 14.11.2005 um 12:56 Uhr (0)
Hallo zusammenMit der Geschichte um MFGBatch.exe ist das so eine Sache. Beim Erzeugen spielt der Zeitfaktor eine große Rolle. Meine Anwender haben u.a. ein Process erzeugt, in dem 6 Aufspannungen mit 21 Programmen enthalten waren. Bei der Erzeugung dauert es schon mal 30-40 Minuten bis die APTs erzeugt sind. Hintergrund: MFGBatch lädt jedesmal die komplette Catia V5 Umgebung mit (kann im TaskManager mitverfolgt werden). Aber nur eben je APT einmal und dann wieder und wieder.....Der bessere (und schnellere) ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Überprüfen einer Verschneidung
Steffen_B am 28.02.2006 um 21:36 Uhr (0)
Guten Abend,mit einem Makro habe ich die Verscneidung von zwei Freiformflächen durchgeführt.....Dim hybridShapeIntersection1 As HybridShapeIntersectionSet hybridShapeIntersection1 = hybridShapeFactory1.AddNewIntersection(Referenz1, Referenz2)....Die Verschneidung wird auch im Strukturbaum angelegt.Wie kann ich jetzt überprüfen, ob die Verschneidung erfolgreich war? Genauer ausgedrückt, wie finde ich heraus, ob überhaupt ein Schnitt (eine Schnittmenge) vorliegt?Wenn ich die Sache händisch mache, dann sagt m ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Positional Link für ein Textfeld erzeugen
AndyMattes am 19.07.2022 um 09:41 Uhr (1)
Hallo Community,ich habe eine Frage an euch Ich arbeite aktuell an einem Makro mit welchem die Indexierung unserer Zeichnungsableitungen vereinfacht bzw. schneller gemacht werden soll.Jetzt bin ich allerdings auf ein problem gestoßen für das ich bisher noch keine Lösung gefunden habe.Das Makro erzeugt den neuen Index der Zeichnung in einem Textfeld (soweit so gut ).Jetzt sollte ich aber dem Textfeld noch ein "Positional_Link" zu einer Bemaßung bzw. zu einem anderen Textfeld zuweisen. Auf konventionellem ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Makro Aufzeichnung
HarleKinX am 27.02.2011 um 21:17 Uhr (0)
Ob der Code Sinn macht, weiß ich nicht, das ist das Problem bei sowas Neuem, ich gehe damit um aber jedes einzelne Wort kann ich nicht entziffern.Hier mal die wichtigen Texte:------------------------------------------------------------------------------------------------========Button - Bolzen konstruierenPrivate Sub CommandButton5_Click()On Error Resume NextFor I = 1 To 10CATIA.ActiveDocument.CloseNextCall Einspannsituation_lesen Parameter werden eingelesenIf b_type = 1 Then NameBolzen = "Bolzen_ISO2340-B ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Rename Publication ( Veröffentlichung umbenennen)
bgrittmann am 06.10.2011 um 15:54 Uhr (0)
ServusIMHO gibt dir "Valuation" die Referenz nicht die Publication zurück.Anbei wein Beispiel wie es klappen könnte: Zitat:Sub CATMain()On Error Resume Next Dim oDoc As Document Dim oProd As Product Set oDoc = CATIA.ActiveDocument Set oProd = oDoc.Product Set Publics = oProd.Publications Dim ref1 As String For i = 1 To Publics.Count Set ref1 = Publics.Item(i) MyString = ref1.Name MyString = Replace(MyString, "ö", "oe") MyString = Replace(MyString, "ä", "ae") ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elementen ausblenden über Hide Components
RSchulz am 17.07.2013 um 16:10 Uhr (0)
Ja ist schnell......und mein Beispiel...Code:Sub CATMain() Uhrzeit1 = Time Dim oProdukt Dim oVisPropSet As VisPropertySet Dim oSel As Selection Set oProdukt = CATIA.ActiveDocument Set oSel = oProdukt.Selection Set oVisPropSet = oSel.VisProperties oSel.Search "(((CATStFreeStyleSearch.OpenBodyFeature + CATPrtSearch.OpenBodyFeature) + CATGmoSearch.OpenBodyFeature) + CATSpdSearch.OpenBodyFeature),all" oVisPropSet.SetShow 1 oSel.Clear Uhrzeit2 = Time A = DateDiff("s", Uhrzeit1, Uhrzeit2) MsgBox A ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Abfragen ob das Part oder Produkt gefunden bzw. geladen wurde
Florian.Held am 01.04.2006 um 15:11 Uhr (0)
Hi,erstmal danke für deinen Beitrag.Über eine Lösung mit err.number habe ich auch schon nachgedacht, jedoch hatte ich da bisher so meine Probleme weil die Scripte unter unix und Windows funktionieren müssen.Vielleicht bin ich auch wiederinmal einfach zu blöd dafür weshalb ich mir deinen Code mal in die Firma schicke, es Anfang nächster Woche probiere und mich dann wieder melde.Kurze frage noch:on error resume next ist klar, bei fehler mach weiter aberOn Error Goto 0 bewirkt was? Kann es sein dass dies on e ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Problem mit Makro zur Umbenennung
PukyRider am 29.05.2013 um 10:13 Uhr (1)
Danke für euer Interesse.@ aurotaja: Die Type Lizenz haben wir, daran ist es nicht gescheitert.Und bis jetzt funktioniert auch alles.@ K.Siebert: Bis jetzt ist mir noch kein Fehler aufgetreten. Ich weiß aber auch nicht genau, was du mit dem Punkt meinst.Wenn ich Zeit habe, werde ich das Makro "umbauen".Du meinst den Punkt im Dateinamen und jetzt verstehe ich auch deine Ergänzung.Ich werde es so bald als möglich testen.Catia sagt, "sie" kennt den Befehl Left nicht, bzw. ungültiger Prozeduraufruf oder ungült ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Probleme mit BReps
web_kai am 12.02.2007 um 07:06 Uhr (0)
Hallo Alex,sorry, dass die Antwort so lange auf sich warten läßt...Ich hatte kürzlich ähnliche Probleme und bin auf das Object "ModelElement" gestossen. Das Ding ist undokumentiert...war ja klar ;-)Also wie folgt:Set oModelElement = oFeature.GetItem("ModelElement")sInternalName = oModelElement.InternalNameDabei kann oFeature ein Body, Sketch, Pad oder was weiß ich sein, es wird immer der Catia-Interne Name angegeben, beim Body etwa "MechanicalTool.1"Wenn Du jetzt noch Lust hast der BREP-Definition auf die ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koerper auslesen
CEROG am 25.12.2008 um 09:43 Uhr (0)
Du hast doch schon den Hinweis auf die automation.chm bekommenm. Dazu gibt es doch auch noch Literatur zur Programmierung, z.B. den Hansen oder den Ziethen. Dazu noch eine ganze Reihe Basisliteratur zur Programmierung mit Visual Basic. Da solltest du dringend reinschauen, wenn du etwas mit Programmierung machen willst.Und noch zu deinem Problem:Wozu brauchst du das Makro überhaupt. Für ein einmaliges oder zweimaliges Zusammenfassen mehrerer Körper zu einem ganzen? Das erscheint mir viel zu viel Aufwand zu ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Isolieren von Projektionen im Sketch
V5Micha am 12.04.2006 um 10:09 Uhr (0)
Hallo V5ler,ich habe jetzt eine Übergangslösung gefunden ,das Isolieren mittels Makro durchzuführen. Ich beende das erste Makro, das im wesentlichen in der DMU-Umgebung arbeitet, d. h. der oberste ROOT-Knoten ist aktiv (blau). Bevor das zweite Makro gestartet werden kann, setze ich das entsprechende PART auf aktiv (blau). Mit folgendem Befehl werden dann alle Projektionen isoliert:Set selection2 = Doc1.Selectionselection2.Search "Name=Projection*,sel"CATIA.StartCommand ("isolate")Jetzt natürlich noch die s ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATScript Funktionen in CATVBA nutzen
IIYTII am 09.09.2009 um 09:53 Uhr (1)
Code:Sub main() Dim Was(1) Was(0) = "Pad" Was(1) = "Line" Dim Usersel As Object Set Usersel = CATIA.ActiveDocument.Selection Usersel.Clear Dim E As Object E = Usersel.SelectElement2(Was, "Pad oder Linie wählen!", False) If E = "Normal" Then MsgBox (Usersel.Item(1).Value.Name) Else MsgBox ("Abbruch") End If Usersel.Clear End SubDas wäre jetzt der Code 1:1 aus dem Buch von R.Ziethen, mit modifikationen anDim Usersel as O ...
|
| In das Form CATIA V5 Programmierung wechseln |
