---

Bulge_151215.png

Liebes Forum,

ich habe eine PL mit Linien und Bögen.
Von den Bögen der PL lese ich mir den ersten und zweiten Stützpunkt sowie den Bulge aus.
Mithilfe der zwei Punkte und dem Bulge kann ich mir den Mittelpunkt auf dem Bogensegment errechnen.

Leider wird dieser Bulge nicht exakt ausgegeben, sodass ich den Mittelpunkt des Bogensegments nicht ausrechnen kann.
Ich habe das im Bild an einem PL-Bogen dargestellt.
Der tatsächliche Wert des Bulge wäre 0.524 (Wenn die Beschreibung des Bulge in der Hilfe stimmt)
Von ACAD ausgegeben wird aber 0.577

Wie kann ich den richtigen Wert erhalten?

------------------
Grüße aus München
Christian

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

---

Hallo Christian,

Den Bulge kann man berechnen, dazu gibt es hier schon verschiedene Threads, da hätte die Forensuche Dir wohl auch weitergeholfen ..
Exemplarisch hier ein Thread.
Wenn dann noch Fragen offen sind solltest Du mehr Infos geben wo die Probleme sind (Code wäre auch hilfreich)

Grüße
Klaus 

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

---

Woher hast du denn den falschen Wert?
Und bitte poste wie Klak schon schrieb, die Beispiel DWG.
Thx

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

PL-Bulge_151215.zip

Danke für die schnellen Antworten.

Hier die DWG.
Da ist ein konstruiertes PL-Bogensegment drin.
Der Winkel des Kreissegments der Bulge sollte 30° sein.

Wenn ich ihn aber mit VBA auslese "Obj.GetBulge(intI)" auslese, erhalte ich einen anderen Wert.
Und mit diesem Wert einen Punkt neben der PL.

Ich möchte den Bulge also nicht berechnen, sondern nur auslesen.

Woran könnte die Abweichung liegen?

------------------
Grüße aus München
Christian

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

---

Hier noch der Code:

Code:

---

'PL auswählen
ThisDrawing.Utility.GetEntity Obj, PickedPoint, "Polylinie wählen"
If Obj Is Nothing Then Exit Sub

Select Case TypeName(Obj)
  Case "IAcadLWPolyline"
    Set lwPoly = Obj
      For intI = 0 To ((UBound(lwPoly.Coordinates) + 1) / 2) - 2
            'Bulge am ersten Punkt auslesen
            pBulge = lwPoly.GetBulge(intI)
            If pBulge = 0 Then 'Liniensegment
              ...

            Else 'Bogensegment
      ...
            End If

      Next
End Select

---

Hier sollte eigentlich nichts mit dem Bulge passieren.

------------------
Grüße aus München
Christian

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

---

Zitat:

---

Original erstellt von otm:
Ich möchte den Bulge also nicht berechnen, sondern nur auslesen.
Woran könnte die Abweichung liegen?

---

Ok, falsches Forum - dennoch kurze Antwort dazu:
Die Ausbuchtung ist die Tangente von einem Viertel des eingeschlossenen Winkels für ein Bogen Segment
Die Ausbuchtung = tg (alpha / 4)
Was Du Dir anzeigen lässt ist aber der Winkel in Bogenmaß und nicht der berechnete Tangens ..

Grüße
Klaus 

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

---

neee, du bist da ganz falsch.

Befehl: kal
>> Ausdruck: atan(0.5773502691896257)
30  

  andere Sprache, gleiche Mathematik http://www.afralisp.net/archive/lisp/Bulges1.htm

EDIT: otm war natürlich gemeint 

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

[Diese Nachricht wurde von cadffm am 15. Dez. 2015 editiert.]

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

---

Oder : atanr(tand(120/4)) = 0,523599 bzw. 0,524r

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

---

Danke Euch beiden.

Den Link von afralisp hatte ich und der ist wirklich sehr gut.
Aber die Schulstunde mit den geometrischen Grundkenntnissen muss ich nochmal belegen.
Sorry und danke.

------------------
Grüße aus München
Christian

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