|
CATIA V5 Programmierung : Mit DisplayName auf Product/Instanz zugreifen
Lionel Hutz am 16.09.2020 um 09:17 Uhr (1)
Ich probiere gerade auf eine Instanz zuzugreifen, die mit einem Constraint verbunden ist.Bisher bin ich vom Constraint bis zum DisplayName gekommen; jetzt möchte ich auf die Instanz zugreifen um abzugleichen, ob das Bauteil selektiert ist.Code:Language="VBSCRIPT"Sub CATMain()Set oDoc = CATIA.ActiveDocumentSet oProduct = oDoc.ProductSet oConstraints = oDoc.Product.Connections("CATIAConstraints")Set oConstraint = oConstraints.Item(1)Set oConstraintElement1 = oConstraint.GetConstraintElement(1)MsgBox "Display ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SetViewName funktioniert nicht
WilliGo am 21.01.2009 um 13:12 Uhr (0)
Hallo Zusammen,soweit habe ich es schon geschafft. Zeichnung aktivieren bis hin zur View. Jetzt möchte ich diese aber noch mit einem Neuen Namen versehen aber erhalte beim Einsatz von "SetViewName" immer einer Fehlermeldung das die Metode nicht vorhanden ist.Hier meine Code:Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocumentDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.Item("Details" ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : verschobenes Part im Podukt
hklein06 am 11.04.2006 um 08:04 Uhr (0)
Hallo Crash,die Funktion "Convert CATProduct to CATPart" war in den alten CATIA Versionen ein Makro bzw. ein CAA. Im Gunde genommen hat dieses Makro alle Teile in den Design Mode geholt, ein Copy gemacht und alles in einem Part eingefügt.Für einfache Aufgaben läßt sich das sicher problemlos nachprogrammieren und automatisieren. Bei großen Umfängen hat diese Vorgehensweise erhebliche Probleme (Design Mode).Eleganter wäre das Auslesen der Part-Product Matrix und eine Umrechnung auf die Koordinaten des Parts. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ebenen in Makro umbenennen und löschen
A.H.N. am 14.01.2003 um 21:41 Uhr (0)
Hallo Steffen, und vielen Dank. Das umbenennen hat wundedrbar geklappt, nur mit dem löschen, das bekomme ich nicht auf die Reihe. Ich erzeuge mit Dim hybridBodie1 as HybridBodie set hybridBodie1 =hybridBodie1.Add() hybridBodie1.Name = "Referenz" einen geöffneten Körper mit dem Namen Referenz. Darin erzeuge ich mit Dim Ebene1 as HybridShapePlaneOffset Set Ebene1=hybridShapeFactory1.AddNewPlaneOffset(Reference1, Offset) hybridBody1.AppendHybridShape Ebene1 Ebene1.Name = "Ref-X" nacheinander 4 Ebenen. ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Makro umbenennen InstanceName
Langer11 am 31.03.2017 um 12:14 Uhr (1)
Hallo,ich bins mal wieder und hab ein Problem in VBA.Habe versucht ein Makro zu schreiben, welches den InstanzeName umbenennt. Hierfür gibt es ein Texteingabefenster, in das der Test, der ersetzt werden soll eingegeben wird Eingabe zB. "XXXX", dann erscheint ein weiteres Eingabefenster in der der neue Text eingegeben wird (Bsp.Eingabe: "YYYY")und nun soll bei allen InstanceName eines Produkts XXXX mit YYYY ersetzt werden. Ich habe das gleiche Makro zum Umbenenne der PartNumber geschrieben, dort funktionier ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Script für Boolsche Operationen
bgrittmann am 28.04.2022 um 14:52 Uhr (1)
Servus JörnWillkommen im Forum.Die Methoden die du suchst sind AddNewAssemble bzw AddNewAdd.Hier ein Beisiel (aus eine Makroaufzeichnung entstanden):Code:Sub CATMain()Dim oPartDocument As DocumentSet oPartDocument = CATIA.ActiveDocumentDim oPart As PartSet oPart = oPartDocument.PartDim oBodies As BodiesSet oBodies = oPart.BodiesDim oMainBody As BodySet oMainBody = oPart.MainBodyoPart.InWorkObject = oMainBodyDim oShapeFactory As FactorySet oShapeFactory = oPart.ShapeFactoryDim oBody As BodySet oBody = oBodi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Aktuelle Sheet einer Drawing ermitteln
DanielFr. am 26.05.2009 um 06:14 Uhr (0)
Zitat:Original erstellt von CEROG:Du schreibst deinen Code in VBA und läßt ihn als CATVBS laufen......und VBS deklariert sich die Variabkentypen selber. Man brauchst deshalb keine DIM Anweisungen.Mit diesem Code sollte deine CATVbs auch laufen:Code:Language="VBSCRIPT"Sub CATMain() Dim oDoc As DrawingDocument (KOMPLETTE Zeile auskommentieren oder löschen!) Dim oSheets As DrawingSheets (KOMPLETTE Zeile auskommentieren oder löschen!) Dim oSheet As DrawingSheet (KOMPLETTE Zeile auskommentieren oder löschen!)S ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro für Achsensystem einfügen
DocMurphy am 30.07.2009 um 13:45 Uhr (0)
Das ist bis jetzt mein Code: (zusammengebastelt aus verschiedenen Codeschnipseln des Forums)__________________________________________________________________________________________Language="VBSCRIPT"Sub CATMain() Set oRoot = Catia.ActiveDocument Set oProd = oRoot.Product Set oProducts = oRoot.Product.Products SUB_CHECKAXIS oProductsEnd SubSub SUB_CHECKAXIS(oProducts) For i = 1 To oProducts.Count If TypeName(oProducts.Item(n).ReferenceProduct.Parent) = "PartDocument" Then If oProducts.Item(n).GetAxisSy ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bauteile in Gruppen zuweisen
PetraPetra am 25.06.2014 um 13:37 Uhr (1)
Hallo bgrittmann,das ging ja fix. Danke schonmal, der Code group1.name funktioniert wunderbar. wie kann ich denn mein Bauteil selektieren? ich würde das instinktiv so lösen:------------------------------------------Language="VBSCRIPT"Sub CATMain()Set productDocument1 = CATIA.ActiveDocumentSet product1 = productDocument1.Part1Set groups1 = product1.GetTechnologicalObject("Groups")Set group1 = groups1.AddFromSel()Set product2 = productDocument1.Part2Set groups2 = product2.GetTechnologicalObject("Groups")Set ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Publications kopieren
AlfaRomeo75 am 24.06.2008 um 11:36 Uhr (0)
Hallo,folgender Aufbau:In einem Produkt sind mehrere Parts eingebunden in denen Elemente (Flächen, Kurven, etc.) veröffentlicht sind. Diese Elemente möchte ich in ein weiteres in das Produkt eingebundenes Part kopieren(mit Link!).Es funktioniert soweit, das ich die Publications finde und auch über Publ.Valuation das publizierte Element finde. Es scheitert im Prinzip nur an der Kopierfunktion. Dort bekomme ich immer die Meldung:Error Copying Data: "Selected element(s) not allowed for this operation".Hier ma ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : polyline aus vorhandenen punkten erstellen
MaxZ am 15.07.2005 um 09:53 Uhr (0)
ah, okay! dann versuch: Language="VBSCRIPT" Sub CATMain() Set partDocument1 = CATIA.ActiveDocument Set part1 = partDocument1.Part Set parameters1 = part1.Parameters Set intParam1 = parameters1.Item("Anzahl_der_Punkte_br") num_points = intParam1.Value Set hybridShapeFactory1 = part1.HybridShapeFactory Set hybridShapePolyline1 = hybridShapeFactory1.AddNewPolyline() Set hybridBodies1 = part1.HybridBodies Set hybridBody1 = hybridBodies1.Item("Beruehrpunkte_bonnet_rear") Set hybridShapes1 = ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection -> Copy -> Paste - Frage zum Ablauf
bgrittmann am 21.12.2021 um 12:55 Uhr (1)
Servus PietzonkaDas Elemente nachträglich einem anderen GeoSet zuordnen scheint nicht direkt zu gehen.Bleibt nur noch Cut&Paste oder ggf noch die Tastendrücke zum Aufrufen des "Change GeoSet" nachzubilden.Per Cut&Paste geht es zB so (Elemente zuvor selektiert, müssen alles HybridShapes sein)Code:Sub CATMain()Dim oDoc As DocumentDim oPart As PartDim oSel as SelectionDim oTargetHybridBody as HybridBodySet oDoc = CATIA.ActiveDocumentSet oPart = oDoc.PartSet oSel = oDoc.SelectionSet oTargetHybridBody = oPart.H ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
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 |
