|
CATIA V5 Programmierung : Selection/SelectedElement
em Michael Kirsch am 09.07.2004 um 11:50 Uhr (0)
Hallo Bartleby, was Du vorhast, könnte man auch einfach mit dem Objektpfad lösen statt mit einer Suche. Dim i, j As Long Dim MyPart As Part Dim MyCurrentBody As Body Dim MyPad As Pad Set MyPart = CATIA.ActiveDocument.Part For i = 1 To MyPart.Bodies.Count Set MyCurrentBody = MyPart.Bodies.Item(i) -----Alle Bodies abprüfen----- For j = 1 To MyCurrentBody.Shapes.Count -----Variable MyPad leeren----- Set MyPad = Nothing -----Error Handling ausschalten----- On Erro ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part in Product aktiv setzen
hklein06 am 22.03.2006 um 07:46 Uhr (0)
Hallo Lusilnie,da ist schon richtig, doch da gibt es mehrere Probleme:1. die Auswahl eines Parts reicht nicht, da das Makro den Inhalt eines Geometrical Sets nicht findet, wenn das Part nicht aktiv ist, = deshalb müßte der Anwender das Part vorher von Hand aktivieren,was leider auch nicht richtig funktioniert (CATIA.ActiveDocument gibt mir immer das Product, nicht das Part aus)2. selbst wenn sich der Punkt 1 ohne eine Aktivierung des Parts lösen läßt, bleibt das Problem, dass der Anwender (nach dem Ablauf ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Versionierungssystem für .catvba Dateien
Jens Hansen am 22.10.2008 um 14:15 Uhr (0)
Hallo,mit den Bordmitteln von V5 geht es über ein VBA-Projekt. Dort kann man die jeweilige version eines Makros in einem Class-Modul erstellen. Das Class-Modul dient dann als "Container" aller Versionen. Von dort kann dann auch jede version explizit mit dem Debugger angesprochen werden.Für die Veröffentlichung kann dann die gewünschte Version einfach aus dem Class-Modul herausgenommer werden. Vorteil der ganze Sache ist, dass im Baum des VBA-Projektes es recht übersichtlich bleibt.Nachteil dabei ist, dass ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part deaktivieren
Meggie275 am 30.05.2008 um 11:18 Uhr (0)
Hallo Tunki,ich habe in einem meiner Templates eine Reaction geschrieben, die auf eine Parameteränderung z.B. der Länge reagiert. Über eine If/then Abfrage weise ich dann dieser Länge ein bestimmtes Part zu und übergebe den Pfad plus den Dateinamen an ein Makro mit Argumenten in meiner Baugruppe. Dieses lädt dann das entsprechende Part. Das funktioniert aber nur mir lokal abgelegten Parts. Aber vielleicht hilft Dir das ja...Beispiel aus Code in Reaction:If länge== 100 then{`BeziehungenVB-Scripte.1Script1`. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATVBA: FastenerSet.GetFastener() schlägt fehl?!
Lawyno am 15.11.2010 um 18:32 Uhr (0)
Hallo liebe Kollegen,ich benötige ein paar Daten von Fastener Objekten, die mit einem (vom Benutzer) ausgewählten Activity verbunden sind.Ich hätte das gerne auf folgende Art gemacht:Code:Dim intIndex As IntegerDim objSelectedActivity As ObjectDim objFastener As FastenerDim objFastenerLot As FastenerSetDim objFIS As DNBFastenerItemServicesSet objFIS = CATIA.GetItem("DNBFastenerItemServices")Selektiertes Activity holenSet objSelectedActivity = SelectActivity()Call objFIS.GetFastenersFromProcess(objSelectedA ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SelectElement2
bgrittmann am 18.03.2019 um 11:59 Uhr (1)
Servus DennisWas HybridShapeFactory siehe V5Automation, ein Hybridshape zu einem geoSet hinzufügen geht über AppendHybridShape.So könnten die beiden Codes zusammengefasst werden:Code: If TypeName(oSelElement.Parent.Parent) = "Body" Then Dim partDocument1 As PartDocument Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim hybridBodies1 As HybridBodies Set hybridBodies1 = part1.HybridBodies Dim hybridBody1 As HybridBody ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrisches Set einfügen
Beemer328 am 10.02.2009 um 15:14 Uhr (0)
Achso Keine Angst, Rechtschreibfehler interessieren mich überhaupt nicht.Naja, es passiert überhaupt nichts. Auch keine Fehlermeldung. Es fügt auch kein GeoSet ein. (auch nicht, wenn es noch nicht mit dem Namen existiert, was ja der Sinn sein soll). Hmmm. 2. Idee: Ich habe in dem Forum hier mal etwas gefunden, das zwar funktioniert, aber nur in der ersten Ebene des Strukturbaumes. Es ist mir noch nicht gelungen, es für Untersets umzubauen. Vielleicht habt ihr eine Idee, was ich verändern muss, damit ich m ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrisches Set einfügen
Beemer328 am 10.02.2009 um 15:14 Uhr (0)
Achso Keine Angst, Rechtschreibfehler interessieren mich überhaupt nicht.Naja, es passiert überhaupt nichts. Auch keine Fehlermeldung. Es fügt auch kein GeoSet ein. (auch nicht, wenn es noch nicht mit dem Namen existiert, was ja der Sinn sein soll). Hmmm. 2. Idee: Ich habe in dem Forum hier mal etwas gefunden, das zwar funktioniert, aber nur in der ersten Ebene des Strukturbaumes. Es ist mir noch nicht gelungen, es für Untersets umzubauen. Vielleicht habt ihr eine Idee, was ich verändern muss, damit ich m ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zugriff auf ein Schnittfenster im DMU-Navigator
PinKing am 31.03.2010 um 16:39 Uhr (0)
Hallo,ich noch mal.Momentan löse ich das Öffnen eines Schnittes per Makro mit Sendkey (mangels anderer Lösungen). Anschliessend versuche ich jetzt per StartCommand ein "Zoom In" zu schicken. Das funktioniert auch, aber das System ist oft so langsam, dasss das "Zoom In" noch gar nicht fertig ist, das Makro aber schon weiterläuft. Hat man die Möglichkeit das Makro erst weiterlaufen zu lassen, wenn der Zoom auch komplett durchgeführt wurde? Sleep oder ähnliches scheint nicht zu gehen, da das Zoomen bei erreic ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product, Part im EDIT
tomtom1972 am 10.03.2006 um 09:34 Uhr (0)
Hallo,das geht ein bischen anders.1.) die Methode zum deaktivieren des Knotenpunktes ist .DesactivateDefaultShape2.) Du musst das ganze rekursiv ausführen, falls du mehr als eine Ebene in deiner Productstruktur hast.3.) Knotenpunkte von Produkten lassen sich so nicht deaktivieren, deshalb nur auf Parts anwenden.So gehts:Sub CATMain() Set oRoot = CATIA.ActiveDocument Set oProduct = oRoot.Product Set oProducts = oProduct.Products SUB_DeaktivateNodes oProductsEnd SubSub SUB_DeaktivateNodes(oProducts) For ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Technologische Ergebnisse aktivieren/inaktivieren per Makro
bgrittmann am 07.11.2015 um 15:47 Uhr (1)
Servus WeberknechtaHier ein Code zum die "Technologischen Ergebnisse" in einem Part aktivieren (Vorraumsetzung: deutsche Umgebung)Code:Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As Documentdim oFeature as Objectdim oPart as PartDim selection1 As Selectiondim i as integerSet partDocument1 = CATIA.ActiveDocumentSet selection1 = partDocument1.SelectionSet oPart = partDocument1.partselection1.Search "CATPrtSearch.MechanicalFeature.Name=Technologische*,all"if selection1.count 0 then for i = 1 to selecti ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro soll erkenen wie viele UnterProdukte vorhanden sind
student1992 am 08.06.2017 um 12:55 Uhr (5)
Hallo Bernd,vielen Dank für die schnelle Antwort. Ich habe noch eine kurze Frage.Was ich bisher hatte(Code1):Code: Set oActiveDoc = CATIA.ActiveDocument Dim oPart1Doc As PartDocument Dim oPart2Doc As PartDocument Set oPart1Doc = oActiveDoc.Product.Products.Item(1).ReferenceProduct.Parent Set oPart2Doc = oActiveDoc.Product.Products.Item(2).ReferenceProduct.ParentAlso benötige ich (Code2):Code:If oActiveDoc.Products.Count 0 Then Call Rekursiv(oActiveDoc)End IfSub Rekursiv(oActiveDoc As Product)Dim oPr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ParameterSets löschen, neu erstellen - für jedes Part in Produkt wiederholen
Sylas am 28.11.2012 um 08:40 Uhr (0)
Zitat:Original erstellt von bgrittmann:Servusbei einem Part bekommst du zb so dein ParameterSet (vorsicht wenn es das ParameterSet nicht gibt):Code:Dim partDocument1 As PartDocumentSet oDoc = CATIA.ActiveDocumentDim part1 As PartSet part1 = oDoc.PartDim RootParameterSet As parameterSetSet RootParameterSet = part1.Parameters.RootParameterSetDim parameterSet As parameterSetSet parameterSet = RootParameterSet.ParameterSets.Item("Aenderungen")Bei einem CATProduct entsprechend auf das Product los lassen. Oder d ...
|
| In das Form CATIA V5 Programmierung wechseln |
