 |
CATIA V5 Allgemein : Darstellungsproblem / Icon / R30
imation1999 am 05.08.2021 um 09:26 Uhr (5)
Hallo Zusammen,CATIA R30 SP 3 HF9:die Icons und das Menü sieht bei uns bei der neuen Release 30 sehr merkwürdig aus (siehe angehängte Bilder, links R30, rechts R29). Woran kann es liegen?Bild_1Bild_2Vielen Dank im Voraus![Diese Nachricht wurde von imation1999 am 05. Aug. 2021 editiert.]
|
| In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Programmierung : SubCATMain() - Automation error
imation1999 am 29.01.2013 um 11:16 Uhr (0)
Hallo Zusammen,das Problem ist folgendesnach neu installation (WIN7, CATIA V5 R18 SP4) kann ich mein catvba project nicht laufen lassan.Automation errorUnbekannter Fehlerund SubCATMain() ist gelb markiert Für Eure Hilfe bedanke ich im voraus
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nicht geladene Elemente löschen
imation1999 am 29.05.2015 um 11:19 Uhr (1)
...oder so:Code:Sub CATMain() Set oDoc = CATIA.ActiveDocument Set oSel = oDoc.Selection Set oDelete = oDoc.Product.Products oSel.Search "(CATProductSearch.Product),all" For i = oSel.Count To 1 Step -1 Set oElement = oSel.Item2(i).Value On Error Resume Next x = oElement.PartNumber if Err.Number = 0 then oSel.remove i On Error GoTo 0 end if Next oSel.delete End Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Objekt finden, vergleichen und in Tabelle darstellen.
imation1999 am 01.05.2013 um 09:32 Uhr (0)
Ich würde es so machen:Code:Sub CATMain()Set selection1 = CATIA.ActiveDocument.SelectionDim length1 As LengthDim hole1Dim dDim ItDim KeDim C Counter = 1selection1.Search ".hole,all"Set d = CreateObject("Scripting.Dictionary")For i = 1 To selection1.Count Set hole1 = selection1.Item2(i).Value Set length1 = hole1.Diameter If d.Exists(length1.Value) Then C = C + 1 d.Item(length1.Value) = C Else C = 1 d.Add length1.Value, C End If NextIt = d.ItemsKe = d.KeysFor i = 0 To ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : äquidistate Punkte auf Spirale bei Lochplatte
imation1999 am 29.12.2015 um 19:33 Uhr (1)
Hi Aljoscha,ich würde evtl. folgendes machen:- ein zweites Knowledges Pattern erstellen (Reihenfolge des Ablauf beachten)- zweites KWE Pattern durch die Punkte laufen lassenGrober Ablauf (Ich habe leider gerade kein CATIA):Code:let point1(point).....point1 = ...PointsList-GetItem(i) `PointsList aus den erstem KWE Patternif distance(point1; ....) ...{point1.Activity = False}[Diese Nachricht wurde von imation1999 am 29. Dez. 2015 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Stack Size verringern per Skript
imation1999 am 19.11.2013 um 12:22 Uhr (1)
Hallo Thomas, hallo Bernd,vielen Dank Eure Antwort.also: "i" bleibt immer auf 1.Es wurde immer das gleiche Part aufgerufen.Ich habe mein Code so geändert:Code:Sub Scan(product1)Set selection1 = CATIA.ActiveDocument.SelectionFor i = 1 To product1.Count If product1.Item(i).Products.Count 0 Then Set product2 = product1.Item(i).Products Scan product2 Else Set part1 = product1.Item(i).ReferenceProduct.Parent.Part End If NextEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Body von Part in Produkt selektieren/verstecken
imation1999 am 25.09.2012 um 12:05 Uhr (0)
Hallo Benjamin, wenn ich die Aufgabe gut verstanden:HauptProduct muß ACTIV sein.Code:Language="VBSCRIPT"Sub CATMain()Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = productDocument1.Selectionselection1.Search "(Name="PartName" & CATPrtSearch.PartFeature),all"selection1.Search "(Name="BodyName" & ((((CATStFreeStyleSearch.BodyFeature + CATPrtSearch.BodyFeature) + CATGmoSearch.BodyFeature) + CATSpdSearch.SpdBodyRef) + CATSpdSearch.Bo ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
Rund um AutoCAD : Catia V4 step in AutoCad
imation1999 am 23.01.2018 um 12:35 Uhr (1)
Hallo Zusammen,könntet Ihr mir bitte diese 4 AutoCAD (eigentlich nur 2) .DWG als STP(AP214) abspeichern. Es wäre nett von Euch.https://www.foresteu.com/documents/20182/2581357/00006630210.dwg/0eee85f1-4689-462a-be5a-61955a19ef25https://www.foresteu.com/documents/20182/25603/00006630210_D02.dwg/142cb3c4-5c33-41c4-be0b-d8b9b48add2f?version=1.0https://www.foresteu.com/documents/20182/2581357/00006630041.dwg/eecb5f86-d997-4ce5-a150-e69cc369df6fhttps://www.foresteu.com/documents/20182/25603/00006630041_D02.dwg/ ...
|
| In das Form Rund um AutoCAD wechseln |
|
CATIA V5 Programmierung : Objekt finden, vergleichen und in Tabelle darstellen.
imation1999 am 01.05.2013 um 10:24 Uhr (0)
Ich würde es so machen (nach empfehlung von Bernd):Code:Sub CATMain()Dim length1 As LengthDim hole1Dim dDim ItDim KeConst CNew = 1 Counter New = 1Dim CAct Counter Actualdim TextSet Selection1 = CATIA.ActiveDocument.SelectionSelection1.Search ".hole,all"Set d = CreateObject("Scripting.Dictionary")For i = 1 To Selection1.Count Set hole1 = Selection1.Item2(i).Value Set length1 = hole1.Diameter If d.Exists(length1.Value) Then CAct = d.Item(length1.Value) CAct = CA ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
imation1999 am 18.04.2013 um 18:23 Uhr (0)
Versuch mal mit folgende Code:Code:Sub CATMain()set selection1 = CATIA.ActiveDocument.Selection----nach Bohrungen suchenSelection1.search ".hole,all" ----Selection sichernDim SelElemente() As ObjectReDim SelElemente(Selection1.Count) For i = 1 To Selection1.Count Set SelElemente(i) = Selection1.Item(i)Next dim length1 as lengthdim hole1 dim durchmesser durchmesser = inputbox ("Bitte geben sie den gesuchten Durchmesser an!", "Eingabe gesuchter Durchmesser", durchmesser)----Selection wieder herstel ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection add
imation1999 am 21.02.2014 um 09:22 Uhr (1)
Hallo Zusammen,ich würde ein Element aus mein selection entfernen.Mein Code sieht so aus:Code:Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet hybridBodies1 = part1.HybridBodiesSet hybridBody1 = hybridBodies1.Item("Geometrical Set.1")Set hybridShapes1 = hybridBody1.HybridShapesSet hybridShapePointCoord1 = hybridShapes1.Item("Point.2")Dim selection1 As SelectionSet selection1 = partDocument1.Selectionselection1.Search "(((((CATStFreeStyleSea ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ImposedVertexRadius - Werte des Radius
imation1999 am 08.07.2013 um 21:07 Uhr (0)
Hallo Bernd,vielen Dank für Deine Antwort.Der Stützpunkt ist ein ganz normal 3D-Punkt (isoliert).Anbei mein Code:Code:Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBody1 = hybridBodies1.Item("Geometrical Set.1")Dim hybridShapes1 As HybridShapesSet hybridShapes1 = hybridBody1.HybridShapesDim varRadE ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ImposedVertexRadius - Werte des Radius
imation1999 am 08.07.2013 um 21:43 Uhr (0)
Hallo,in diesem Fall:Variable Fillet ist schon vorhanden (mit mehreren Punkte --- die "Nummer" des Punktes sind unbekannt)ich möchte weitere Punkte hinzufügen, dann die Werte ändern.Zur Zeit läuft alles ganz schön unter VBA, aber ich soll nach dem Ablauf die Punkte kopieren, dann austauschen (Replace). So werden die zugefügte Punkte wieder sichtbar sein.EDIT: Eine von Euch testen?Code:Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument ...
|
| In das Form CATIA V5 Programmierung wechseln |
