|
CATIA V5 Programmierung : Makro verliert die Selektion nach laden des Parts
bgrittmann am 01.07.2013 um 21:43 Uhr (0)
ServusDu könntest doch zunächst das selektierte Part/Product einer Variable zuweisen, dann prüfen, ob die PartNumber auszulesen ist. Wenn dies nicht funktioniert das Part/Product nachladen und die PartNumber auslesen/weiterverarbeiten.Dabei brauchst du nur beim ersten Schritt die Selektion (bis das Part/Product/Instance einer Variabel zugewiesen wurde) danach nicht mehr.GrußBerndEDIT:In meinem vorherigen Code war ein Fehler, es müsste:Set oProduct = CATIA.ActiveDocument.Selection.Item2(1).Valueheißen.----- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Allgemein : 3D-Schnitt
bgrittmann am 22.02.2011 um 19:53 Uhr (0)
ServusVersuch es mal so (allerdings nur getestet wenn entsprechende Lizenz vorhanden ist):Code:Sub CATMain() Dim rootDoc As ProductDocument Set rootDoc = CATIA.ActiveDocument Dim root As Product Set root = rootDoc.Product Dim oSections As Sections Set oSections = root.GetTechnologicalObject("Sections") Dim oSection As Section If oSections.Count = 0 Then Set oSection = oSections.Add Else Set oSection = oSections.Item(1) End If Dim oPart As PartDocument ...
|
| In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Programmierung : KWA List Feature ansprechen
bgrittmann am 26.07.2010 um 20:42 Uhr (0)
ServusWenn du die Liste angesprochen hast solltest du über:Code:Set listParameter = parameters1.Item("Liste.1")Set ListenEintrag = listParameter.ValueList.Item(X)ParameterName = ListenEintrag.nameParameterValue = ListenEintrag.Valueauf den Wert zugreifen können.Oder zu Henrys Ansatz:Code:Sub CATMAIN()Dim odoc As DocumentSet odoc = CATIA.ActiveDocumentSet oProduct = odoc.ProductDim parameters As parametersSet parameters = oProduct.parametersSet Subproduct = oProduct.Products.Item(5)Set Parameters_of_Subprod ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Drafting : Part/Product Parameter aus Zeichnung steuern
bgrittmann am 04.10.2021 um 10:53 Uhr (1)
Servus MartinMeiner Ansicht nach sind Konstruktionstabellen für Varianten in Catia nur bedingt geeignet.Spätestens wenn du verschiedene Varianten in Baugruppen verbauen willst (zB verschiedene Unterlegscheiben) brauchst du pro Variante eine eigene Datei.ggf also nur die Tabelle zum Erzeugen verwenden und dann pro Variante eine physische Datei erzeugen (ggf mit Verweis auf die gleiche Tabelle). Dabei sich aber auch Gedanken machen (und testen) wie das Ändern bzw das erzeugen neuer Varianten abläuft.GrußBern ...
|
| In das Form CATIA V5 Drafting wechseln |
|
CATIA V5 Programmierung : GetBoundaryBox in CATVBA
bgrittmann am 09.10.2012 um 18:27 Uhr (0)
ServusDieser Code liefert mit die Koordinaten der Eckpunkte um den Wert:Code:Sub DrwTest()Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.Item("Blatt .1")Dim drawingViews1 As DrawingViewsSet drawingViews1 = drawingSheet1.ViewsDim drawingView1 As DrawingViewSet drawingView1 = drawingViews1.Item("Main View")Dim drawingDimensions1 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part oder Product aus Drawing öffnen
bgrittmann am 13.06.2010 um 19:45 Uhr (0)
ServusDie Fall unterscheidng könnte über das Abfangen eines Fehlers geschehen. zB:Code:Sub CATMain()On Error Resume NextSet odoc = CATIA.ActiveDocumentSet oView = odoc.Sheets.ActiveSheet.Views.ActiveViewSet oProduct = oView.GenerativeBehavior.Document.ParentoName = oProduct.FullNameIf Err.Number 0 Then Set oProduct = oView.GenerativeBehavior.Document.Parent.Parent.Parent oName = oProduct.FullName Err.ClearEnd IfOn Error GoTo 0CATIA.Documents.Open (oName)End Sub(ungetestet). Allerdings fehlen dabei noch ...
|
| 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 : 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 : Regel ändern
bgrittmann am 06.11.2018 um 09:37 Uhr (1)
Servus TomTomIch hab mal was zusammengebastelt was bei mir funktioniertCode:Sub CATMain() Dim part1 As Document Set part1 = Catia.activeDocument Dim mass As RealParam Set lenght = part1.Part.Parameters.CreateDimension("lenght", "LENGTH", 5.) Dim depth As RealParam Set depth = part1.Part.Parameters.CreateDimension("depth", "LENGTH", 0.) Dim selectdepth As Relation Set selectdepth = part1.Part.Relations.CreateProgram("select_depth","Select depth", "if (lenght10mm) { depth=2mm } else { depth=1mm }") MsgBox ...
|
| 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 |
|
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 Allgemein : 3D-Schnitt
bgrittmann am 23.02.2011 um 07:22 Uhr (0)
ServusDenn Schnitt in ein Part zu exportieren geht auch ohne SPA-Lizenz mit einem Makro. zB:Code:Sub CATMain() Dim rootDoc As ProductDocument Set rootDoc = CATIA.ActiveDocument Dim root As Product Set root = rootDoc.Product Dim oSections As Sections Set oSections = root.GetTechnologicalObject("Sections") Dim oSection As Section If oSections.Count = 0 Then Set oSection = oSections.Add Else Set oSection = oSections.Item(1) End If Dim oPart As PartDocume ...
|
| In das Form CATIA V5 Allgemein 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 |
