---

Wie kann ich Bohrungen und Senkunken erzeugen? Ich möchte folgende Vorgehensweise:

Für Platte:

1. Kante anklicken, 2. Kante anklicken, Fläche selektieren von wo aus die Senkung oder Bohrung eingebracht werden soll, Größe auswählen und die beiden Abstände eintragen.

Wiemuss ich da vorgehen?

Danke

Georg

PS. Wie erzeugt Ihr die Senkungen nach DIN 74 T1/T2?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Habe mal ein Makro aufgezeichnet, wie es aussehen könnte. Komme leider aber mit der Selektion und den Abfragen nicht zurecht.

Wie kann ich das machen?

Danke Georg

Language="VBSCRIPT"

Sub CATMain()

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("Part1.CATPart")

Set part1 = partDocument1.Part

Set shapeFactory1 = part1.ShapeFactory

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("Hauptkörper")

Set shapes1 = body1.Shapes

Set pad1 = shapes1.Item("Block.1")

Set reference1 = part1.CreateReferenceFromBRepName("FEdge Edge Face Brp Pad.1;0 Brp Sketch.1;3)));None );Cf9 ));Face Brp Pad.1;2);None );Cf9 ));None Limits1 );Limits2 ));Cf9 ));With TemporaryBody;WithoutBuildError;WithInitialFeatureSupport;MFBRepVersion_CXR13_GA)", pad1)

Set reference2 = part1.CreateReferenceFromBRepName("FEdge Edge Face Brp Pad.1;0 Brp Sketch.1;2)));None );Cf9 ));Face Brp Pad.1;2);None );Cf9 ));None Limits1 );Limits2 ));Cf9 ));With TemporaryBody;WithoutBuildError;WithInitialFeatureSupport;MFBRepVersion_CXR13_GA)", pad1)

Set reference3 = part1.CreateReferenceFromBRepName("FSur Face Brp Pad.1;2);None );Cf9 ));WithTemporaryBody;WithoutBuildError;WithInitialFeatureSupport;MonoFond;MFBRepVersion_CXR13_GA)", pad1)

Set hole1 = shapeFactory1.AddNewHoleWith2Constraints(20.000000, 34.834305, -8.302882, reference1, reference2, reference3, 10.000000)

hole1.Type = catSimpleHole

hole1.AnchorMode = catExtremPointHoleAnchor

hole1.BottomType = catFlatHoleBottom

Set limit1 = hole1.BottomLimit

limit1.LimitMode = catOffsetLimit

Set length1 = hole1.Diameter

length1.Value = 10.000000

hole1.ThreadingMode = catSmoothHoleThreading

hole1.ThreadSide = catRightThreadSide

part1.Update

Dim sketch1
' No resolution found for the object sketch1...

Set constraints1 = sketch1.Constraints

Set constraint1 = constraints1.Item("Offset.5")

Set length2 = constraint1.Dimension

length2.Value = 23

Set constraint2 = constraints1.Item("Offset.6")

Set length3 = constraint2.Dimension

length3.Value = 27

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo GeorgK,

dieser Anwendungsfall wäre auch mit einer PowerCopy zu realisieren. Der Vorteil: Man braucht keine einzige Zeile Code schreiben und kann die Bohrung unternehmensweit mit einem CATIA V5-Katalog bereitstellen.

Ist die Funktionsweise der PowerCopy bekannt?

Grüße,

Michael Kirsch

------------------

www.em.ag

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Michael,

ich kenne die Funktion PowerCopy. Hat meiner Meinung nach aber auch Nachteile.

Finde diese Lösung eleganter, da ich die Bezugskanten und Fläche einfacher wählen und bearbeiten kann.

Gibt es evtl. schon einen fertigen Katalog?

Grüße

Georg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo GeorgK,

Schrauben und ähnlich Normteile gibt es. Von einem fertigen Katalog für Bohrungen wüsste ich nicht.

Zugegeben, die Handhabung der PowerCopy ist Geschmackssache. Wenn eine interaktive Selektion mit der Maus vorgesehen ist, sehe ich aber keinen funktionalen Unterschied zwischen Deinem Skript und der PowerCopy, oder?

Grüße,

Michael

------------------

www.em.ag

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Michael,

habe das Problem, daß ich eine Senkung nach DIN 74 T1 für Senkschrauben DIN 7991 nicht als Powercopy abspeichern kann. Die Exceltabelle wird "abgehängt". Somit kann ich die Senkung einfügen jedoch die Werte nicht aus einer Tabelle übernehmen.

Das gleiche geht mit einer Senkung für Zylinderschrauben DIN 912.

An was liegt das?

Der wesentliche Vorteil zwischen der Powercopy und der Programmierung liegt darin, daß ich die Bohrung einfacher über Abfragen setzen kann.
Z.B. Kante/Kante und Fläche oder Punkt und Fläche. Beider der Powercopy brauche ich schon 2 verschiedene Versionen.

Grüße

Georg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP