GDIPlus Kreisbogen ( G02 und G03 )

sedas19

Hi ich weis nicht mehr weiter wie ich es lösen soll.

Ich möchte gerne Die CNC Dateien bei uns auf der Arbeit Grafisch darstellen.

Ich bekomme auch alles hin nur bei den G02 und G03 befehlen komme ich nicht mehr weiter.

in den Befehlen steht immer der Endpunkt in X und Y, wahlweise mit den Radius oder I und J.

I und J sind wiederum der Mittel Punkt in X und Y.

Hier mal ein Beispiel:

G01 X50 Y50

G01 X100 Y50

G03 X150 Y100 R50 <-- Kreisbogen Gegen den Uhrzeigersinn

G01 X150 Y150

G01 X650 Y50

G01 X600 Y50

G02 X550 Y100 I600 J100 <-- Kreisbogen Im Uhrzeigersinn

G01 X550 Y150

Ich verstehe einfach nicht wie ich daraus die Werte bekomme die Die GDIPlus Funktion _GDIPlus_GraphicsDrawArc von mir verlangt. Vielleicht sehe ich den Wald vor lauter bäumen auch nicht mehr

Zeitriss

Hi,

hier ein kleiner Denkanstoß.

Siehe im Tabellenbuch nach "Kreisabschnitt" (oder im Internet, wenn kein Tabellenbuch verfügbar ist).
Zudem brauchst du die Winkelfunktionen ein paar mal (offensichtlich).

Sobald du den Mittelpunkt errechnet hast, sollte der Rest ziemlich einfach sein.

Ist etwas unsauber sollte aber für die erste Situation funktionieren:

AutoIt

Func f($hGraphics, $aP1, $aP2, $iR, $bClockwise)
   Local Const $PI = ACos(-1)
   Local Const $fDegToRad = $PI / 180, $fRadToDeg = 180 / $PI
   Local $aLen[2] = [$aP1[0] - $aP2[0], $aP1[1] - $aP2[1]]; Distanz zwischen P1 & P2 in der X u. Y Achse
   Local $iLen = Sqrt($aLen[0]^2 + $aLen[1]^2); Distanz der Strecke P1-P2 (satz des pythagoras)
   Local $iDir = Mod($fRadToDeg * ASin(($aP2[0]-$aP1[0]) / $iLen), 360); Winkel der Strecke P1-P2 (Winkelfunktionen)
   If $aLen[1] > 0 Then $iDir = 180 - $iDir
   Local $iA = ASin($iLen /2 /$iR) * $fRadToDeg * 2 ;Mittelpunktswinkel  siehe Kreisabschnitt (ggf. im Tabellenbuch)
   Local $iAng = $iA / 2 - 90 + $iDir ;Winkel von P1 zum Kreismittelpunkt
   If Not $bClockwise Then
      $iAng = ($iAng-$iDir) *-1 + $iDir
      $iA *= -1
   EndIf
   Local $aCenter[2] = [$aP1[0] + Sin($iAng   * $fDegToRad) * $iR , $aP1[1] + Cos($iAng * $fDegToRad) * $iR]
   ; Gegenkatete(Abstand in der X Achse von P1-Center) = Sin a * Hypotenuse(Radius)
   ; Ankatete(Abstand in der Y Achse von P1-Center) = Cos a * Hypotenuse(Radius)
   Local $iX = $aCenter[0] - $iR
   Local $iY = $aCenter[1] - $iR
   Local $iW = $iR*2
   Local $iH = $iR*2
   Local $iStartAng = 270- $iAng
   Local $iSweepAng = $iA
   _GDIPlus_GraphicsDrawArc($hGraphics, $iX, $iY, $iW, $iH,$iStartAng, $iSweepAng)
   _GDIPlus_GraphicsDrawLine($hGraphics, $aP1[0], $aP1[1], $aP2[0], $aP2[1])
EndFunc

Alles anzeigen

mfg

Zeitriss

sedas19

pasted-from-clipboard.png

Danke Endlich sieht es auch nach was aus

Das Blaue ist der G03 Befehl und das Grüne der G02 das Schwarze ist alles G01

Aber Danke dir vielmals Zeitriss

**Mars**

Wahrscheinlich ist mein Post hier überflüssig, aber für Kreisausschnitte habe ich in einem alten Skript folgendes gefunden:

AutoIt

Func _PieSegment($GFX, $mX, $mY, $W, $H, $D, $fStart, $fSweep, $iCol)
    DllCall($__g_hGDIPDll, 'int', 'GdipDrawArc', 'handle', $GFX, 'handle', $PEN, 'float', $mX + $D / 2 - $W / 2, 'float', $mY + $D / 2 - $H / 2, 'float', $W - $D, 'float', $H - $D, 'float', $fStart, 'float', $fSweep)
EndFunc   ;==>_PieSegment

Macht genau was man vermutet: Mittelpunkt, Durchmesser, Startwinkel und Überspannender Winkel müssen bekannt sein und dann malt es einen Teilkreis (W und H sind größen der zu bemalenden Fläche).

[GDI+] Rotierende Kreisausschnittsegmente

(Hilft wahrscheinlich nicht sonderlich weiter, der Vollständigkeit halber aber mal erwähnt :P)

lg

M