Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Langloch in Sketch: Halbkreis hat die falsche Ausrichtung

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Langloch in Sketch: Halbkreis hat die falsche Ausrichtung (1871 mal gelesen)
buschi
Mitglied
Student Fahrzeugtechnik


Sehen Sie sich das Profil von buschi an!   Senden Sie eine Private Message an buschi  Schreiben Sie einen Gästebucheintrag für buschi

Beiträge: 12
Registriert: 28.06.2007

erstellt am: 16. Aug. 2007 17:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Langloch.jpg

 
Hallo,

bei der Erstellung eines Langlochs über zwei Linien und zwei Halbkreise sind beide Halbkreise immer zur selben Seite geöffnet (siehe Bild).

Weiß jemand, wie man diese Ausrichtung beeinflussen kann?

Die Endpunkte der Halbkreise und Linien sind jeweils mit den Constraints 'Coincidence' und 'Tangency' versehen.

Vorab danke!

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

Thomas Harmening
Ehrenmitglied V.I.P. h.c.
Arbeiter ツ



Sehen Sie sich das Profil von Thomas Harmening an!   Senden Sie eine Private Message an Thomas Harmening  Schreiben Sie einen Gästebucheintrag für Thomas Harmening

Beiträge: 2897
Registriert: 06.07.2001

NX 10
Win 7

erstellt am: 16. Aug. 2007 18:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für buschi 10 Unities + Antwort hilfreich

hmm,
und warum verwendet man nicht die Langlochfunktion?

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

YellowDevil
Mitglied
PI, Makroentwicklung, NC Automatisierung


Sehen Sie sich das Profil von YellowDevil an!   Senden Sie eine Private Message an YellowDevil  Schreiben Sie einen Gästebucheintrag für YellowDevil

Beiträge: 67
Registriert: 21.12.2006

erstellt am: 16. Aug. 2007 20:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für buschi 10 Unities + Antwort hilfreich

Wahrscheinlich wäre diese Lösung zu einfach.

Aber auch für das andere Problem sollte es eine Lösung geben. Wäre nur mal ganz sinnvoll ein wenig programmcode zu bekommen, damit man den fehler finden kann.

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

buschi
Mitglied
Student Fahrzeugtechnik


Sehen Sie sich das Profil von buschi an!   Senden Sie eine Private Message an buschi  Schreiben Sie einen Gästebucheintrag für buschi

Beiträge: 12
Registriert: 28.06.2007

erstellt am: 17. Aug. 2007 08:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke für die Antworten, habe das Problem aber gelöst
(Anfangs- und Endpunkt eines Teilkreises waren vertauscht).

Es gibt keine Methode zur Erstellung eines Langlochs! Überhaupt gibt es nur zwei Methoden zur Erstellung eines Kreises: CreateClosedCircle() und CreateCircle(). Letztes entspricht der Funktion „Arc“.

Hier also meine Unterroutine ErstelleLangloch():

Sub ErstelleLangloch(Mittelpunkt, RefMittelpunkt, Richtung, Bezeichnung, Ebene)    ' "Richtung" ist Normale der "Ebene"
   
    Dim SketchLangloch  'As Sketch
    Set SketchLangloch = MeinPart.MainBody.Sketches.Add(Ebene)
    SketchLangloch.Name = "Sketch.Langloch"
   
    Dim RefSketchLangloch 'As Reference
    Set RefSketchLangloch = MeinPart.CreateReferenceFromObject(SketchLangloch)
   
    Dim KoordinatenMittelpunkt(2)
    Mittelpunkt.GetCoordinates KoordinatenMittelpunkt
     
    Dim FeldFuerSketchdefinition(8)                        ' Reihenfolge der Werte siehe Definition der Methode SetAbsoluteAxisData
    FeldFuerSketchdefinition(0) = KoordinatenMittelpunkt(0)
    FeldFuerSketchdefinition(1) = KoordinatenMittelpunkt(1)
    FeldFuerSketchdefinition(2) = KoordinatenMittelpunkt(2)
    FeldFuerSketchdefinition(3) = 1 'x-Wert H-Vektor
    FeldFuerSketchdefinition(4) = 0 'y-Wert H-Vektor
    FeldFuerSketchdefinition(5) = 0 'z-Wert H-Vektor
    FeldFuerSketchdefinition(6) = 0 'x-Wert V-Vektor
    FeldFuerSketchdefinition(7) = 1 'y-Wert V-Vektor
    FeldFuerSketchdefinition(8) = 0 'z-Wert V-Vektor
   
    SketchLangloch.SetAbsoluteAxisData FeldFuerSketchdefinition    'Sketchdefinition
   
    'Sketch öffnen
    Dim BearbeitungSketch
    Set BearbeitungSketch = SketchLangloch.OpenEdition
 
    'Sketch-Geometrie erzeugen
    Dim Halbkreis1, Halbkreis2  'As Circle2D
    Dim RefHalbkreis1, RefHalbkreis2 'As Reference

    Dim Pi
    Pi = 3.14159
   
                                    ' CreateCircle(xMittelpunkt, yMittelpunkt, Radius, StartParam, EndParam)
    Set Halbkreis1 = BearbeitungSketch.CreateCircle(0, 0, 10, 0 * Pi, 1 * Pi)      'Start- und Endpunkte werden unten definiert; Angaben hier daher unrelevant
    Set RefHalbkreis1 = MeinPart.CreateReferenceFromObject(Halbkreis1)
   
    Set Halbkreis2 = BearbeitungSketch.CreateCircle(20, 0, 10, 1 * Pi, 2 * Pi)
    Set RefHalbkreis2 = MeinPart.CreateReferenceFromObject(Halbkreis2)

    Dim Punkt(4)  'As Point2D          'Punkte für Beginn/Ende der Linien. Der Wert im Feld Punkt(0) bleibt leer
    Set Punkt(1) = BearbeitungSketch.CreatePoint(0, 10)
    Set Punkt(2) = BearbeitungSketch.CreatePoint(0, -10)
    Set Punkt(3) = BearbeitungSketch.CreatePoint(20, 10)
    Set Punkt(4) = BearbeitungSketch.CreatePoint(20, -10)
   
    Dim RefPunkt(4)
    Set RefPunkt(1) = MeinPart.CreateReferenceFromObject(Punkt(1))
    Set RefPunkt(2) = MeinPart.CreateReferenceFromObject(Punkt(2))
    Set RefPunkt(3) = MeinPart.CreateReferenceFromObject(Punkt(3))
    Set RefPunkt(4) = MeinPart.CreateReferenceFromObject(Punkt(4))

    Dim Linie1, Linie2 'As Line2D
    Dim RefLinie1, RefLinie2 'As Reference
   
    Set Linie1 = BearbeitungSketch.CreateLine(0, 10, 20, 10)      ' CreateLine(iX1 As Double, iY1 As Double, iX2 As Double, iY2 As Double) As Line2D
    Set RefLinie1 = MeinPart.CreateReferenceFromObject(Linie1)
    Set Linie2 = BearbeitungSketch.CreateLine(20, -10, 0, -10)
    Set RefLinie2 = MeinPart.CreateReferenceFromObject(Linie2)
   
    Halbkreis1.StartPoint = Punkt(1)
    Halbkreis1.EndPoint = Punkt(2)

    Halbkreis2.StartPoint = Punkt(4)           
    Halbkreis2.EndPoint = Punkt(3)         

    Linie1.StartPoint = Punkt(3)
    Linie1.EndPoint = Punkt(1)

    Linie2.StartPoint = Punkt(4)
    Linie2.EndPoint = Punkt(2)
   
    Dim ConstraintCoincidence1, ConstraintCoincidence2, ConstraintCoincidence3, ConstraintCoincidence4  'As Constraint
    Dim ConstraintTangency1, ConstraintTangency2, ConstraintTangency3, ConstraintTangency4              'As Constraint
   
    Set ConstraintCoincidence1 = SketchLangloch.Constraints.AddBiEltCst(catCstTypeOn, RefLinie1, RefPunkt(1))
    Set ConstraintTangency1 = SketchLangloch.Constraints.AddBiEltCst(catCstTypeTangency, RefLinie1, RefHalbkreis1)

    Set ConstraintCoincidence2 = SketchLangloch.Constraints.AddBiEltCst(catCstTypeOn, RefLinie2, RefPunkt(2))
    Set ConstraintTangency2 = SketchLangloch.Constraints.AddBiEltCst(catCstTypeTangency, RefLinie2, RefHalbkreis1)
 
    Set ConstraintCoincidence3 = SketchLangloch.Constraints.AddBiEltCst(catCstTypeOn, RefLinie1, RefPunkt(3))
    Set ConstraintTangency3 = SketchLangloch.Constraints.AddBiEltCst(catCstTypeTangency, RefLinie1, RefHalbkreis2)
 
    Set ConstraintCoincidence4 = SketchLangloch.Constraints.AddBiEltCst(catCstTypeOn, RefLinie2, RefPunkt(4))
    Set ConstraintTangency4 = SketchLangloch.Constraints.AddBiEltCst(catCstTypeTangency, RefLinie2, RefHalbkreis2)
 
    'Erstellen eines Extrudes aus dem Sketch
    Dim Langloch  ' As HybridShapeExtrude
    Set Langloch = MeinPart.HybridShapeFactory.AddNewExtrude(RefSketchLangloch, 50, 50, Richtung)
    Bauteilgeometrie.InsertHybridShape Langloch
    Langloch.Name = Bezeichnung
     
    SketchLangloch.CloseEdition
    MeinPart.Update
End Sub

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz