|
CATIA V5 Programmierung : Referencen einer Intersection durch Selection
bgrittmann am 28.05.2018 um 17:57 Uhr (1)
ServusDass geht zB mit LeafProduct dass dir die Instanz liefertCode:Sub CATMain()Dim osel As VariantDim SelFilter(0)dim Status as Stringdim SelDocument as DocumentSet osel = Catia.Activedocument.SelectionSelFilter(0) = "AnyObject" Status = osel.SelectElement2(SelFilter, "Bitte Part auswählen", False)if Status = "Normal" then msgBox osel.item2(1).LeafProduct.Name Set SelDocument = osel.item2(1).LeafProduct.ReferenceProduct.Parent MsgBox SelDocument.Name end ifEnd Sub------------------Warum einfach, wenn ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Allgemein : Szenenerstellung in Catia V5
bgrittmann am 29.04.2019 um 09:48 Uhr (1)
Servus"Enhanced Scene" ist komplett unabhängig von der Baugruppe, die Partial nur was du in der Szene verändert wurde (also Farbe und/oder Position und/oder Sichtbarkeit). Siehe dazu auch Doku!Wann du was Einfärbst und Positionierst kommt drauf an in welchen Szenen du das gleiche benötigst. Dazu mal die Funktionen "Szene auf Baugruppe anwenden" bzw "Baugruppe auf Szene anwenden".Teste mal dein generelles Vorgehen vorab an einer Testbaugruppe. Nicht das du alles doppelt und dreifach machen musst.GrußBernd-- ...
|
| In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Programmierung : Makro: Parameter aus Parts auslesen, addieren und in Parameter in Product speichern
bgrittmann am 09.10.2012 um 07:45 Uhr (0)
ServusAnbei ein kurzes Beispiel:Code:Sub CATMain()Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = productDocument1.SelectionDim Volume As DoubleDim Parameter As ParameterVolume = 0#selection1.Search "(Name=liter_of_oil & CATKnowledgeSearch.InternalParameter),all"For I = 1 To selection1.Count2 Set Parameter = selection1.Item2(I).Value Volume = Volume + Parameter.ValueNextMsgBox "Volumen = " + CStr(Volume) + " m^3"End SubGru& ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Orientierung der Part-Ursprünge im Product
bgrittmann am 23.05.2013 um 10:31 Uhr (0)
ServusIMHO ist es am einfachsten über "GetComponents" die Position des Parts im Product zu bestimmen, dabei erhältst du die Position und die Ausrichtung (Vektorkomponenten der X-, Y- und Z-Achse. zBCode:Sub CATMain()Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim RootProduct As ProductSet RootProduct = productDocument1.ProductDim RootProducts As ProductsSet RootProducts = RootProduct.ProductsDim PartProduct As ProductSet PartProduct = RootProducts.Item("Part1.1")Dim iA ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Drafting : Neue Ansicht auf Nullpunkt des Blattes festliegen, wie ?
bgrittmann am 06.10.2011 um 14:20 Uhr (0)
ServusBitte Systeminfo ausfüllen.Ja klar geht dass. Das Beispiel (CATScript) setze die aktive Ansicht auf 0,0 (Vorsicht keine Fehlerbehandlung integriert):Code:Sub CATMain()Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocumentDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.ActiveSheetDim drawingViews1 As DrawingViewsSet drawingViews1 = drawingSheet1.ViewsDim drawingView1 As DrawingViewSe ...
|
| In das Form CATIA V5 Drafting wechseln |
|
CATIA V5 Programmierung : Minimaler Abstand Fläche zu Skizze
bgrittmann am 17.04.2019 um 08:44 Uhr (1)
Servus ThomasMir ist noch was eingefallen:Skizze normal zur Ebene auf die Fläche projizieren - Abstand zwischen Ebene und Projektion messen.Das Messen sollte so klappen (ungetestet):Code:Set oRefPlane= oPart.CreateReferenceFromObject(myPlane)Set oRefProjection= oPart.CreateReferenceFromObject(myProjection)Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")Set TheMeasurable = TheSPAWorkbench.GetMeasurable(oRefPlane)dDistance = TheMeasurable.GetMinimumDistance(oRefProjection)GrußBernd---- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Part / Assembly : Mehrere Body gleichzeitig umbenennen ???
bgrittmann am 27.10.2011 um 17:02 Uhr (1)
ServusVersuch es mal so:Code:Language="VBSCRIPT"Sub CATMain() Dim productDocument1 As PartDocument Set productDocument1 = CATIA.ActiveDocument Dim selection1 As selection Set selection1 = productDocument1.selection selection1.Search "(((CATStFreeStyleSearch.OpenBodyFeature + CATPrtSearch.OpenBodyFeature) + CATGmoSearch.OpenBodyFeature) + CATSpdSearch.OpenBodyFeature),all" Dim Imax As Integer Imax = selection1.Count For I = 1 To Imax selection1.Item(I).Value.Name = "GeoSet." & CStr(I) & ...
|
| In das Form CATIA V5 Part / Assembly wechseln |
|
CATIA V5 Programmierung : VBA Makro - Affinität (Volumen)
bgrittmann am 12.08.2011 um 10:31 Uhr (0)
ServusAnbei ein Beispiel wie eine Affinität im Body erstellt wird (ohne Referenzen):Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim ShapeFactory1 As ShapeFactorySet ShapeFactory1 = part1.ShapeFactoryDim ShapeAffinity1 As AffinitySet ShapeAffinity1 = ShapeFactory1.AddNewAffinity2(1, 2, 3)part1.UpdateEnd SubUm die Referenzen zu setzen kannst du dann über ShapeAffinity1.Hybridshape auf die Befehle im GSD zurückgreife ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Allgemein : stl 2 solid
bgrittmann am 02.06.2026 um 09:52 Uhr (1)
ServusMein Tipp: Bau die Teile in Catia neu auf. Das geht vermutlich schneller.Du lernst gerade schmerzhaft die 3D-Daten Typen kennen: tessilierte (Flächen in Dreiecke aufgeteilt) Viewerdaten (stl, cgr, ...) neutrale Austauschformate zwischen CAD-Systemen ohne Parametrik (STEP, igs) native CAD-Daten, die nur von einem System genutzt werden könnenZu der Funktion Feature Recognition werden dir wohl nicht so viele weiterhelfen können da: die Lizenz teuer ist, du eine 18? Jahre altes Release verwendest, es wah ...
|
| In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Drafting : Nach Update erscheinen gelöschte Objekte wieder?
bgrittmann am 11.11.2008 um 23:02 Uhr (0)
ServusUm es einfach zu sagen: IMHO ist das Nachbearbeiten von Ansichten, Schnitten und Schraffuren in CATIA ein tabu. Durch einige anpassungen kann man auch mit der standard Zeichnungsableitung leben:- Zeichungsstandards normgerecht definieren (Zick-Zacklinie (obwohl die eigentlich im CAD erlaubt ist))- statt Schnitte nachzubearbeiten lieber eine extra Schnitt/Ansicht- Modelle richtig vorbereiten (zB Bohrplan: extra Modell (mit Verlinkung) nur mit den Bohrungspositionen als Punkte (zB in einer Skizze))- fü ...
|
| In das Form CATIA V5 Drafting wechseln |
|
CATIA V5 Programmierung : Verschachtelte Körper bearbeiten
bgrittmann am 10.11.2011 um 12:36 Uhr (0)
Servusich muss mich korrigieren das gleichzeitige Suchen geht so leider nicht.Sollte aber über zwei Suchen nacheinander gehen (ungetestet):Code:Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = partDocument1.Selectiondim oPadselection1.Search "(CATPrtSearch.BodyFeature.Name=body),all"selection1.Search "(CATPrtSearch.Pad.Name=geo),sel"for I = 1 to selection1.count Set oPad = selection1.item2(i).value selection1.a ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Join enthält leere Sketche
bgrittmann am 17.06.2014 um 14:19 Uhr (1)
ServusDu könntest die Anzahl der GeometricElements in der Skizze auswerten:Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBody1 = hybridBodies1.Item(1)Dim sketches1 As SketchesSet sketches1 = hybridBody1.HybridSketchesDim sketch1 As SketchSet sketch1 = sketches1.Item(1)MsgBox sketch1.GeometricElements.CountEn ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ansicht Parallel / Perspektive umschalten per Taste
bgrittmann am 11.04.2016 um 09:23 Uhr (1)
ServusDas geht mit diesem kurzen CATScript:Code:Language="VBSCRIPT"Sub CATMain()Dim specsAndGeomWindow1 As WindowDim viewpoint3D1 As Viewpoint3DDim MyViewer As ViewerSet specsAndGeomWindow1 = CATIA.ActiveWindowSet MyViewer = specsAndGeomWindow1.ActiveViewerif TypeName(MyViewer) "Viewer3D" then exit subend ifSet viewpoint3D1 = MyViewer.Viewpoint3Dif viewpoint3D1.ProjectionMode = catProjectionConic then viewpoint3D1.ProjectionMode = catProjectionCylindricelse viewpoint3D1.ProjectionMode = catProjectionCo ...
|
| In das Form CATIA V5 Programmierung wechseln |
