|
CATIA V5 Programmierung : Selektion von Einzelteilen innerhalb eines Merged CGRs
bgrittmann am 08.04.2011 um 15:17 Uhr (0)
ServusDie Einzelnen "Unter-Cgr" kannst du über (alles im Bildschirm sichtbare, ggf vorher "alles einpassen"):Code:Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = productDocument1.Selectionselection1.Search "Type=*,scr"selektieren.Zum Messen von Masse, Trägheit,... hilft vielleicht diese Seite weiterGrußBerndPS: Willkommen im Forum.------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektion von Einzelteilen innerhalb eines Merged CGRs
bgrittmann am 08.04.2011 um 16:33 Uhr (0)
ServusWas meinst du mit "Selection Trap" (ich verwende CATIA auf deutsch)?By the Way: Wie ermittelst du die Masse, Trägheit nur auf selektiert Elemente (also per Script)?GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 2.Blatt von einer CATDrawing in ein anderes CATDrawing im Background einfügen
bgrittmann am 12.04.2011 um 13:40 Uhr (0)
ServusVersch es mal Copy&Paste.Anbei der Mitschnitt des Makrorecorders:Code:Sub CATMain()Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentSet drawingDocument1 = CATIA.ActiveDocumentDim selection2 As SelectionSet selection2 = drawingDocument1.Selectionselection2.ClearDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.Item("Blatt .1")Dim drawingViews1 As DrawingViewsSet drawingView ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Makroprogrammierung erlernen
bgrittmann am 13.04.2011 um 18:54 Uhr (0)
ServusIMHO eignet sich dein erwähntes Buch eher als Nachschlagewerk. Für einen Neuling würde ich (gg auch zusätzlich zum anderen Buch) das Kochbuch - CATIA V5 automatisieren empfehlenGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter Auslesen läuft sehr langsam
bgrittmann am 15.04.2011 um 15:30 Uhr (0)
ServusMit einer Abfrage nach "renamed" kannst du die umbenannten Parameter "ausfiltern" (leider nicht in der Suche):Code: ***Performanceerhöhung der Suche CATIA.HSOSynchronized = False ***Parameter suchen objSel.Search "Knowledgeware.Parameter.Name !=Origin*" CATIA.HSOSynchronized = True For intI = 1 To objSel.Count Parameter umbenannt? if objSel.Item(intI).Value.renamed = true then ***Parameternamen eintragen objExcel.Cells(5 + intI, 1).Value = objSel.Item(intI).Value.Name ***Werte ein ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : flexible Komponente
bgrittmann am 20.04.2011 um 10:22 Uhr (0)
ServusSolle so gehen:- Komponente selektieren- CATIA.StartCommand ("flexible/starre Unterbaugruppe")Vorsicht: die Befehle sind Sprach abhängig.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Körper im Allcatpart durchnummerieren
bgrittmann am 22.04.2011 um 19:34 Uhr (0)
ServusScheint daran z liegen, dass du CATIA auf deutsch verwendest.Ersetze einfach die Zeile Code:objSel.Search "Part Design.Body.Name != PartBody, all" durch Code:objSel.Search "CATPrtSearch.BodyFeature,all"im Script.GrußBernd ------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Offset-Ebene: Referenzfläche ändern
bgrittmann am 16.05.2011 um 16:16 Uhr (0)
ServusAnbei ein Beispiel, dass bei mir durchläuft:Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim XYEbene, XZEbeneSet XYEbene = part1.OriginElements.PlaneXYSet XZEbene = part1.OriginElements.PlaneZXEbene seletkierenDim userselSet usersel = partDocument1.SelectionDim f As StringDim was(0)was(0) = "Plane"f = usersel.SelectElement2(was, "Selektieren Sie die ebene die sie ändern möchten", False)Dim ebene As PlaneSet e ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Werte aus SmarTeam-Profilkarte auslesen (mit VBA)
bgrittmann am 16.05.2011 um 23:05 Uhr (0)
ServusDie Dok zur CATIA-AP findest du im CATIA-Installationsverzeichnis (V5Automation.chm)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung 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 Programmierung : Formeln mit Makro erstellen
bgrittmann am 24.05.2011 um 21:50 Uhr (0)
ServusWillkommen im Forum. Bitte Systeminfo ausfüllen.Das geht mit dem Befehl CreateFormula . Ein Beispiel aus der Doku:Code:...Dim CATDocs As DocumentsSet CATDocs = CATIA.DocumentsDim part1 As DocumentSet part1 = CATDocs.Add("CATPart")Dim width As RealParamSet width = part1.Part.Parameters.CreateReal("width", 1.) Dim height As RealParamSet height = part1.Part.Parameters.CreateReal("height", 2.) Dim depth As RealParamSet depth = part1.Part.Parameters.CreateReal("depth", 3.) Dim density As RealParamSet dens ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Masse und schwerpunkt von einzelnen Parts
bgrittmann am 17.06.2011 um 18:09 Uhr (0)
ServusVersuch es mal mit der SPAWorkbench - GetMeasurable - Area (siehe Doku) zB:Code:Sub CATMain() Dim objPart As Part Dim objBody As Body Dim objMeasreable As Measurable Set objPart = CATIA.ActiveDocument.Part Set objBody = objPart.Mainbody Set objMeasreable = GetBodyMeasureable(objPart, objBody) If Not (objMeasreable Is Nothing) Then Retrieve the volume and area just to show it worked MsgBox objMeasreable.Area MsgBox objMeasreable.Volume Else MsgBox "The Measureable could not be retr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Eine Plane bewegen
bgrittmann am 29.06.2011 um 10:40 Uhr (0)
ServusSchau mal in der Doku unter "HybridShapePlaneOffset". Beispiel zum den Offset zu ändern:Code:Language="VBSCRIPT"Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet hybridBodies1 = part1.HybridBodiesSet hybridBody1 = hybridBodies1.Item("Geometrisches Set.1")Set hybridShapes1 = hybridBody1.HybridShapesSet hybridShapePlaneOffset1 = hybridShapes1.Item("Ebene.1")hybridShapePlaneOffset1.offset.value = 20.part1.Update End SubGrußBernd------------------Warum einfach, wenn e ...
|
| In das Form CATIA V5 Programmierung wechseln |
