---

Gewinde.jpg Felge.jpg

Guten Abend,

dank Eurer Hilfe komme ich meinem Ziel langsam aber sicher näher.

Das Programm erstellt nun erfolgreich eine Felge (siehe Anhang). Darin sollen Bohrungen für die Radmuttern. Also eine Plangesenkte Bohrung "bis Nächste" ohne Gewinde.

Die Bohrung kann ich erstellen aber die Bohrung danach ändern will einfach nicht klappen. Warum auch immer ist die Bohrung egal was ich mache immer eine Gewindebohrung.

der Code für die Bohrung:

Code:

---

Dim bohrung1 As Hole
        Dim catSmoothHoleThreading As CatHoleThreadingMode
        Dim catCounterboredHole As CatHoleType
        Dim catTrimmedHoleBottom As CatHoleBottomType
        Dim catUpThruNextLimit As CatLimitMode
        Dim catExtremPointHoleAnchor As CatHoleAnchorMode
        Dim length1 As Length
        Dim length2 As Length
        Dim length3 As Length
        Dim parameters1 As Parameters
        Dim parameters2 As Parameters
        Dim catRightThreadSide As CatHoleThreadSide
        Dim catFlatHoleBottom As CatHoleBottomType
        Dim catOffsetLimit As CatLimitMode
        Dim limit2 As Limit
        Dim catSimpleHole As CatHoleType
        Dim length4 As Length

        MyPart.InWorkObject = Body1
        '##### Bohrung freisetzen und Beziehung nachträglich setzen
        bohrung1 = Shapefactory1.AddNewHoleFromPoint(P1xyz(0), P1xyz(1), P1xyz(2), ref1, 10)

        Sketch1 = bohrung1.Sketch
        Sketch1.OpenEdition()
        Dim stern As Point2D
        stern = Sketch1.GeometricElements.Item(2)
        '##### Stern verschieben
        stern.SetData(-10, -10)
        Sketch1.CloseEdition()
        MyPart.Update()

        bohrung1.Type = catSimpleHole

        bohrung1.AnchorMode = catExtremPointHoleAnchor

        bohrung1.BottomType = catFlatHoleBottom

        limit2 = bohrung1.BottomLimit

        limit2.LimitMode = catOffsetLimit

        length2 = bohrung1.Diameter

        length2.Value = 10.0

        bohrung1.ThreadingMode = catSmoothHoleThreading

        bohrung1.ThreadSide = catRightThreadSide

        bohrung1.BottomType = catTrimmedHoleBottom

        limit2.LimitMode = catUpThruNextLimit

        bohrung1.Type = catCounterboredHole

        parameters1 = MyPart.Parameters

        '  length3 = parameters1.Item("part1\Hauptkörper\Bohrung.1\HoleCounterBoredType.1\Durchmesser")

        'length3.Value = 15.0

        'parameters2 = MyPart.Parameters

        'length4 = parameters2.Item("part1\Hauptkörper\Bohrung.1\HoleCounterBoredType.1\Tiefe")

        'length4.Value = 5.0

        'length2.Value = 12.0

        'length4.Value = 7.5

        MyPart.Update()

---

Das verschieben der Borhung klappt. Ich habe ein neues Makro aufgenommen für eine plangesenkte Bohrung und daher die Befehle aber abgesehen davon das bei:

Code:

---

'  length3 = parameters1.Item("part1\Hauptkörper\Bohrung.1\HoleCounterBoredType.1\Durchmesser")

        'length3.Value = 15.0

        'parameters2 = MyPart.Parameters

        'length4 = parameters2.Item("part1\Hauptkörper\Bohrung.1\HoleCounterBoredType.1\Tiefe")

        'length4.Value = 5.0

        'length2.Value = 12.0

        'length4.Value = 7.5

---

Fehler kommen da für meine Felge wohl der "Pfad" nicht passt ändert sich einfach keine einzige Eigenschaft meiner Bohrung. Weder die Tiefe, die Plansenkung noch das es KEIN Gewinde sein soll nimmt er an.

Was mache ich falsch?

Sobald die Hausarbeit im März bewertet wurde stelle ich gern den Gesamten Code öffentlich zur Verfügung!

Falls jemand um mir Helfen zu können ihn jetzt braucht kann ich ihn gern per PM schicken!

Vielen dank im Voraus!

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

---

Servus
Warum so kompliziert über die Parameter die Senkung definieren?

Code:

---

bohrung1.HeadDepth.Value = 15
bohrung1.HeadDiameter.Value = 25

---

Gruß
Bernd

EDIT: Warum hast du zB "catSmoothHoleThreading" dimensioniert? Das ist eine Konstante die da einfach an die Methode übergeben wird und keine Objekt/Variable.

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Vielen Dank erstmal für die schnelle Antwort!

Deklarieren muss ich es, da wenn ich es nicht mache folgendes kommt:

Fehler 1 "catSimpleHole" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden.

Code:

---

bohrung1.HeadDepth.Value = 15
bohrung1.HeadDiameter.Value = 25

---

habe ich schon versucht, aber bringt nichts, da er die Bohrung garnicht erst als Plansenkung annimmt

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

---

Servus
Hast du denn bei den ganzen Properties einen Wert aus der Enumation ausgewählt (siehe Watchfenster)?
Werden diese überhaupt gesetzt?
Probier es zb Mal so:

Code:

---

Dim MyThreadingMode As CatHoleThreadingMode
MyThreadingMode = catSmoothHoleThreading

bohrung1.ThreadingMode = MyThreadingMode

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Das wars, vielen lieben Dank!

Können Sie mir auch sagen wie ich einstellen kann das es ohne deklaration klappt?

also so:

Code:

---

bohrung1.Type = catSimpleHole

---

mfg

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

---

Servus
Du kannst die Konstanten auch als Zahlen der entsprechenden Aufzählung ansprechen. zB catSimpleHole müsste 1 sein.
Der Code wird dann etwas unübersichtlicher.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

PMFJI

Aus der Doku:

Code:

---

enum CatHoleType {
  catSimpleHole,
  catTaperedHole,
  catCounterboredHole,
  catCountersunkHole,
  catCounterdrilledHole
}

---

in C-Schreibweise.
Falls nicht anders angegeben ist der Wert der ersten Konstanten = 0, und steigt dann um 1 an,

also
  catSimpleHole  ' = 0
  catTaperedHole  ' = 1
  catCounterboredHole  ' = 2
  catCountersunkHole  ' = 3
  catCounterdrilledHole  ' = 4

Die Werte für die Konstanten können auch von diesem Schema abweichen, zB

enum myenum
  ival1 = 2
  ival2 = 4
  ival3 = 7
end enum

oder auch

enum myenum
  ival1 = 11
  ival2
  ival3
end enum

Wird vom Grundschema abgewichen, so muss mindestens der Wert der ersten KKonstante angegeben werden.
Alle weiteren Konstanten dann entweder um '1' grösser(Beispiel 3) oder wie angegeben(Beispiel 2).

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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