|
CATIA V5 Programmierung : Parameter aus Excel befüllen
bgrittmann am 13.10.2012 um 10:58 Uhr (0)
ServusHier findest du ein Beispiel das den Austausch von Parametern in beide Richtungen enthält.Muss dann das ausfüllen in Excel sein, oder wäre eine Userform in VBA besser. Deswegen meine Frage wo kommen die Daten her (zB Lagernummer)? Ist es wirklich praktisch die Nummern anpassen und das Makro von Hand ausführen? (ist fast genau soviel Arbeit wie direkt die Wert in CATIA einzugeben)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Componente oder CATProduct?
bgrittmann am 02.11.2012 um 12:57 Uhr (0)
ServusAnbei ein (zusammengebastelter) Code der auch in verschachtelten Strukturen funktioniert. Bei mir funktioniert der Vergleich der Objekt über "Is" nicht deshalb vergleiche ich den Fullname der CATProducts:Code:Sub Start()Dim RootProduct As ProductSet RootProduct = CATIA.ActiveDocument.ProductIf RootProduct.Products.Count 0 Then Call Rekursiv(RootProduct)End IfEnd Sub*****Sub Rekursiv(RootProduct As Product)Dim oProduct As ProductFor Each oProduct In RootProduct.Products If oProduct.ReferenceProduct ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Linien aus geometrischen Set auslesen
bgrittmann am 09.11.2012 um 12:50 Uhr (1)
ServusWillkommen im Forum.Anbei ein Code-Schnippsel der dir den Namen der Linie ("Linie.1" in "Geometrisches Set.1") und der Punkt ausgibt.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("Geometrisches Set.1")Dim hybridShapes1 As HybridshapesSet hybridShapes1 = hybridBody1.Hybridshap ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Body und Set mit festem Namen Ein/Ausblenden
bgrittmann am 14.01.2018 um 18:45 Uhr (1)
ServusIch würde einfach über die Suche die Elemente selektieren und dann ein- bzw ausblenden. zBCode:Sub CATMain()Dim selection1 As SelectionSet selection1 = CATIA.ActiveDocument.Selectionselection1.Search "(CATPrtSearch.BodyFeature.Name=Rohteil + CATPrtSearch.OpenBodyFeature.Name=Fraesumriss),all"Dim visPropertySet1 As VisPropertySetSet visPropertySet1 = selection1.VisPropertiesdim showStatevisPropertySet1.GetShow showStateif showState 0 then visPropertySet1.SetShow 0else visPropertySet1.SetShow 1end i ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Linie: Punkt - Richtung
bgrittmann am 20.09.2016 um 14:28 Uhr (1)
ServusVermutlich muss du die Reference aus dem Hautkörper bilden und nicht vom ganzen Part.Code:Set RefBody = CATIA.ActiveDocument.Part.CreateReferenceFromObject(CATIA.ActiveDocument.Part.Mainbody)Die zusätzlichen Richtungen kannst du über die Eigenschaften Direction2 und Direction3 definieren (Makrorekorder und Doku) bzw Min/Max über ExtremumType2 und ExtremumType3.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ebenendetails auslesen
bgrittmann am 20.11.2012 um 12:58 Uhr (1)
ServusWillkommen im Forum. Bitte Systeminfo ausfüllen.Welche Methoden und Objekte es gibt findest du in de V5Auomation.chm (im CATIA-Installationsverzeichnis)Die Richtung einer Ebene kannst du über "GetPlane" in der SPAWorkbench auslesen.Oder ggf eine Linie normal auf der Ebene erstellen und die Sichtung der Linie auslesen.Hast du mal probiert deinen Punkt (mit der Selektion des Fläche ...) mit dem Makrorekorder aufzunehmen und den Code zu analysieren. GrußBernd------------------Warum einfach, wenn es auch ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selbst erstellte Parameter aus Part auslesen
bgrittmann am 27.11.2012 um 18:04 Uhr (1)
ServusIMHO ist es am einfachsten über eine Schleife die Namen der Parameter abfragen und diese bzw deren letzten Zeichen mit deinem Suchstring zu vergleichen:Code:Sub CATMain()Dim PartDoc As partDocumentDim ParamWorks As ParametersDim sMass As ParameterSet PartDoc = CATIA.ActiveDocumentSet ParamWorks = PartDoc.Product.UserRefProperties Set sMass = getUserProperty(ParamWorks, "Test")End SubFunction getUserProperty(UserProperties As Parameters, ParameterName As String) As ParameterDim I As IntegerFor I = ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ParameterSets löschen, neu erstellen - für jedes Part in Produkt wiederholen
bgrittmann am 27.11.2012 um 12:35 Uhr (0)
ServusWelches ParameterSet? Wie willst du auf diese Zugreifen? (ggf über die Suche)Bei deinem Code ist "oDocument.Parameters.ParameterSet" das ParameterSet "Parameter" (direkt Unterhalb des Parts) im Baum.GrußBerndPS: Bitte deinen Admin dir VBA zu installieren (auf der CATIA-Installations CD) dann wird die Struktur dir klarer.------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ParameterSets löschen, neu erstellen - für jedes Part in Produkt wiederholen
bgrittmann am 28.11.2012 um 09:28 Uhr (0)
ServusUnd wie lautet die Fehlermeldung? Wie weit funktioniert dein Makro? Hast du dir mal in der Doku die Methode "CreateSetofParameters" angeschaut?Was willst du nun anlegen, ein Parameter oder ein ParameterSet?Anbei ein Beispiel:Code:Dim partDocument1 As PartDocumentSet oDoc = CATIA.ActiveDocumentDim part1 As PartSet part1 = oDoc.PartRootparameters aufrufenDim RootParameterSet As parameterSetSet RootParameterSet = part1.Parameters.RootParameterSetParameterset AenderungenDim oParameterSet As parameterSetS ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ParameterSets löschen, neu erstellen - für jedes Part in Produkt wiederholen
bgrittmann am 27.11.2012 um 16:37 Uhr (0)
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 du verwendest die Suche (Makrorekorder) ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia V5 Makro Problem
bgrittmann am 28.11.2012 um 12:38 Uhr (1)
ServusWillkommen im Forum. Bitte Systeminfo ausfüllen.Am einfachst die Zeile ändern:Code:CATIA.ActiveDocument.Selection.Search "CATGmoSearch.Point,sel"Dann wird nur noch in der aktuellen Auswahl gesucht. Das heißt du musst zuvor das GeoSet selektieren.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ParameterSets löschen, neu erstellen - für jedes Part in Produkt wiederholen
bgrittmann am 26.11.2012 um 16:35 Uhr (0)
Servus SylasEntweder verwendest du ein rekursives Makro (siehe zB hier) zum Prüfen/Löschen/Anlegen der ParameterSets oder d arbeitest die Document-Colletion durch, dann darf nur deine Baugruppe (gff noch Einzelteile oder Unterbagruppen davon) geöffnet sein) zB:Code:for each oDocument in CATIA.Documentstu wasnextGrußBerndPS: Hat dein anderes Makro (anderes Thema) nicht die gleiche Funktion?------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ParameterSets löschen, neu erstellen - für jedes Part in Produkt wiederholen
bgrittmann am 26.11.2012 um 20:59 Uhr (0)
ServusWas läuft an deinem Code nicht? Was hat schon funktioniert? Wo liegt das Problem (bei den Docments, ...)?Ich hab mal dienen Code etwas überarbeitet (Zugriff auf das RootParameterSet, unter dem de ParameterSet wie im Baum angeordnet sind):Code:For each oDocument in CATIA.DocumentsDim TargetSet as ParameterSetIf oDocument.parameters.ParameterSet.Parent.Name = "ParameterSet.1"then Set TargetSet = oDocument.Parameters.RootParameterSet.ParameterSets.CreateSet "ParameterSet_x" TargetSet.DirectParameters. ...
|
| In das Form CATIA V5 Programmierung wechseln |
