Gebogenes Objekt auf gerade Linie abrollen ( Oder "Mathe für Runaways" )

chrisatack

Hi...

Ich habe heute mal ein etwas spezielleres Problem.

Ich habe jetzt seit mehreren Tagen versucht eine gebogene Kontur in AutoCAD wieder gerade zu biegen.
Gesucht habe ich schon in allem wo ich was zum eintippen finden konnte

Annähernd habe ich dazu etwas unter "abrollen" in AutoCAD gefunden aber auch nicht wirklich passend wegen dem gebogenem.
Jetzt zu dem was ich genau möchte:

autoit.de/wcf/attachment/15379/

Ich habe eine gebogene Polykontur "grün" mit einem Biegepfad "rot" und eine Gerade "pink".
Das ganze würde ich jetzt gerne gerade gebogen haben, so das die "rote" genau auf der "pinken" liegt
und die "grünen" auch mitgewandert sind..also das ganze Objekt gerade ist... dadurch wirde es natürlich länger und grün wird verzerrt.

Aber im Endeffekt soll das Ergebnis alles per Umrechnung funzen.
Also, da wir es in der Fima öfters brauchen werden will ich
es in AutoIT umrechnen lassen. Nur dafür muss ich erst
einmal einen Lösungsansatz bzw. die Lösung finden.
Wie man so etwas überhaupt umrechnen...

Ich wäre für jeden Ansatz dankbar!!

Ich habe noch die dwg (nur mit ACAD) und eine dxf (lesbar ohne ACAD) angehangen.
Werde jetzt noch schnell ne DXF UDF schreiben, da es die anscheinend auch nicht gibt.
Damit man an die Daten ran kommt.

MFG chris

progandy

Kannst du auch ein Bild des Ergebnisses zeigen? Ich bin mir gerade nicht ganz sicher, wie die Verzerrung am Ende aussehen soll.

chrisatack

hi..

autoit.de/wcf/attachment/15383/

ich hoffe ich kann es so etwas verdeutlichen...
zu sehen ist das es bei jedem baustein 0,015 länger wird... je schräger um so mehr länger...

MFG chris

progandy

Hmm, am Ende hast du sozusagen ein Rechteck mit den Abmessungen Biegepfadlänge * Bausteinhöhe korrekt?

chrisatack

im Prinzip richtig... nur brauche ich auch die Neigungen/Schäge der Wände eines jeden Rechteckes auch...
LG

**eukalyptus**

Sind die grünen Einzelfelder nur durch die 4 Eckpunkte definiert, oder sind die Kanten tatsächlich geschwungen und das soll auch mitberechnet werden?

chrisatack

Guten morgen

also ich versuche es kurz zu erklären...ich hatte es oben etwas vereinfacht...
Ich bin Holztechniker also Schreiner....
Wenn Schreiner gebogene Sachen bauen sollen müssen sie Pressformen bauen...
das kostet Zeit und Geld für die Formen... und die wirft man dann nachher wieder weg...
man braucht ja nur die gebogene Platte...

Ich bin vor kurzem im Netz über was gestolpert was mir absolutes Kopfzerbrechen bereitet hat...
und das ist das biegen von Platten ohne Pressform.. mit Verzahnungen..
manche Schreinereien haben das schon drauf ... aber es ist halt echt aufwendig zu berechnen wie ihr merkt..

kurze Beschreibung...
durch die unterschiedlich langen Abstände der Zacken und Plattenlängen biegen die
Platten sich um die kurve und das beim zusammenpressen...

geile Sache das ganze

In Bild 2 ist zu sehen das sich die Abstände erweitern/veringern je größer/kleiner der biege Radius ist.
Was ich nicht bemaßt habte ist das sich auch die schäge der Flanken ändern...
Das brauche ich alles...

MFG chris

**eukalyptus**

Ich hab da schon mal eine Idee.
Wird aber noch dauern, bis ich das ausprobieren kann...

chrisatack

hiho

wie gsagt... ich schreibe gerade die UDF für DXF damit man aus ner Zeichnung raus den pfad exportieren kann...
Damit kann man dann alles andere ausrechenen und in die Zeichnung rein schreiben/zeichnen...
und auch die wichtigen Parameter für die CNC auslesen und in eine mpr ( CNC Datei ) schreiben...
Wäre echt cool wenn das geht...

werde es dann sofort in der Firma testen ob das Ergebnis so ist wie erwartet...

MFG chris

progandy

Du musst die Verformung übrigens zwei mal durchführen. Einmal für die obere und einmal für die untere Hälfte der Verzahnung.

**eukalyptus**

Das ist mal der erste Test:

Ich biege keine AutoCad-Kurve gerade, sondern berechne die Verzahnung gleich selber!

Das Script liest eine Kurve aus einer Datei (hier noch InkScape-SVG)
und berechnet dann die Verzahnungen.
Dann wird die Verzahnung 2 Mal gradegebogen und zwar einmal auf der Unterseite und einmal auf der Oberseite
Die fertige Verzahnung wird zu Testzwecken als EMF abgespeichert.

Ein großer Teil des Codes dient nur zum Visualisieren. Ein "fertiger" Code sollte dann viel kleiner und schöner sein
Deshalb auch das Durcheinander...

Script:

Spoiler anzeigen

[autoit]

#include <Array.au3>
;#include "GDIp.au3"
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $iOffSetX = -1
Global $iOffSetY = -1

[/autoit] [autoit][/autoit] [autoit]

Opt("MustDeclareVars", 1)
Opt("GUIOnEventMode", 1)

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_Startup()

[/autoit] [autoit][/autoit] [autoit]

Global Const $PI = ATan(1) * 4
Global Const $2PI = $PI * 2
Global Const $PI2 = $PI / 2
Global Const $Deg2Rad = $PI / 180
Global Const $Rad2Deg = 180 / $PI
Global $_ME_hMSVCRT = DllOpen('msvcrt.dll')

[/autoit] [autoit][/autoit] [autoit]

Global $tPath = _Load(@ScriptDir & "\Bogen2.svg")

[/autoit] [autoit][/autoit] [autoit]

Global $iWidth = 1200
Global $iHeight = 600

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $hGui = GUICreate("Test", $iWidth, $iHeight)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
Global $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
Global $hBmpBuffer = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphics)
Global $hGfxBuffer = _GDIPlus_ImageGetGraphicsContext($hBmpBuffer)
_GDIPlus_GraphicsSetSmoothingMode($hGfxBuffer, 2)
_GDIPlus_GraphicsClear($hGfxBuffer, 0xFF000000)

[/autoit] [autoit][/autoit] [autoit]

Global $hPen = _GDIPlus_PenCreate(0xFF00FF00, 1)
Global $hPen2 = _GDIPlus_PenCreate(0xFFFF0000, 1)
Global $hPen3 = _GDIPlus_PenCreate(0xFF0000FF, 1)

[/autoit] [autoit][/autoit] [autoit]

GUIRegisterMsg($WM_PAINT, "WM_PAINT")
GUIRegisterMsg($WM_ERASEBKGND, "WM_PAINT")
GUISetState()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_Draw()
Global $tGears = _CalcGears($tPath, 10, 40, 18)
;#cs
Global $tFlat_Up = _Flatten($tGears, 1)
Global $tFlat_Lo = _Flatten($tGears, 0)
_Show($tPath, $tFlat_Up, 0.8, 10, 100)
_Show($tPath, $tFlat_Lo, 0.8, 10, 200)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBmpBuffer, 0, 0)
;MsgBox(0, "", "")

[/autoit] [autoit][/autoit] [autoit]

_Save($tFlat_Lo, @ScriptDir & "\Unten.emf")
_Save($tFlat_Up, @ScriptDir & "\Oben.emf")
;#ce

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(10)
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Save($tFlat, $sFileName)
Local $iCnt = DllStructGetData($tFlat, "Cnt")
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreatePath", "int", 0, "int*", 0)
Local $hPath = $aResult[2]

[/autoit] [autoit][/autoit] [autoit]

;DllCall($ghGDIPDll, "uint", "GdipAddPathPolygon", "hwnd", $hPath, "ptr", DllStructGetPtr($tFlat, "Pnt"), "int", $iCnt)
DllCall($ghGDIPDll, "uint", "GdipAddPathCurve3", "hwnd", $hPath, "ptr", DllStructGetPtr($tFlat, "Pnt"), "int", $iCnt, "int", 0, "int", $iCnt-1, "float", 0)
;DllCall($ghGDIPDll, "uint", "GdipClosePathFigure", "hwnd", $hPath)

[/autoit] [autoit][/autoit] [autoit]

Local $tRectF = DllStructCreate("float X; float Y; float Width; float Height;")
DllCall($ghGDIPDll, "uint", "GdipGetPathWorldBounds", "hwnd", $hPath, "ptr", DllStructGetPtr($tRectF), "hwnd", 0, "hwnd", 0)
Local $hMatrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixTranslate($hMatrix, -DllStructGetData($tRectF, "X"), -DllStructGetData($tRectF, "Y"))
DllCall($ghGDIPDll, "uint", "GdipTransformPath", "hwnd", $hPath, "hwnd", $hMatrix)
_GDIPlus_MatrixDispose($hMatrix)
DllStructSetData($tRectF, "X", 0)
DllStructSetData($tRectF, "Y", 0)

[/autoit] [autoit][/autoit] [autoit]

Local $hPen = _GDIPlus_PenCreate(0xFF000000)

[/autoit] [autoit][/autoit] [autoit]

Local $hDC = _WinAPI_GetDC($hGui)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipRecordMetafileFileName", "wstr", $sFileName, "hwnd", $hDC, "int", 5, "ptr", DllStructGetPtr($tRectF), "int", 6, "wstr", "Platte Unten", "int*", 0)
Local $hImage = $aResult[7]
Local $hContext = _GDIPlus_ImageGetGraphicsContext($hImage) ;GraphicContext vom Metafile bekommen (um darauf zu zeichnen)
DllCall($ghGDIPDll, "uint", "GdipSetPageUnit", "hwnd", $hContext, "int", 6) ; Einheit auf mm setzen

[/autoit] [autoit][/autoit] [autoit]

DllCall($ghGDIPDll, "uint", "GdipDrawPath", "hwnd", $hContext, "hwnd", $hPen, "hwnd", $hPath)

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_GraphicsDispose($hContext) ; Metafile abschliesen und speichern
_GDIPlus_ImageDispose($hImage) ; Metafile aus Speicher löschen

[/autoit] [autoit][/autoit] [autoit]

_WinAPI_ReleaseDC($hGui, $hDC)

[/autoit] [autoit][/autoit] [autoit]

DllCall($ghGDIPDll, "uint", "GdipDeletePath", "hwnd", $hPath)
_GDIPlus_PenDispose($hPen)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _CalcGears($tPath, $fW = 10, $fH = 20, $fR =
Local $fGA = $fR * $Deg2Rad
Local $fGA_Plus
Local $fGR = $fH / Tan($PI2 - $fGA) ; X-Offset der Schräge
Local $fGH = $fH / Cos($fGA) ; Länge der Höhe
Local $fGW = $fW + $fGR

[/autoit] [autoit][/autoit] [autoit]

Local $iCnt = DllStructGetData($tPath, "Cnt")
Local $tGears = DllStructCreate("int Cnt; float Pnt[" & $iCnt * 2 & "];")
_GearAddPoint($tGears, 0, 0)

[/autoit] [autoit][/autoit] [autoit]

Local $iStep = 0, $fX1, $fY1, $fX2 = 0, $fY2 = 0, $fD, $fA, $iIdx

[/autoit] [autoit][/autoit] [autoit]

Local $aLast, $iDir = 0
Local $fATmp = _MathEx_Atan2(DllStructGetData($tPath, "Pnt", 4), DllStructGetData($tPath, "Pnt", 3))
While $iStep < $iCnt
$iStep += 1
$fX1 = DllStructGetData($tPath, "Pnt", ($iStep - 1) * 2 + 1)
$fY1 = DllStructGetData($tPath, "Pnt", ($iStep - 1) * 2 + 2)
$fD = Sqrt(($fX1 - $fX2) ^ 2 + ($fY1 - $fY2) ^ 2)
If $fD >= $fGW * 2 Then ; Suche nächten Winkelpunkt
;ConsoleWrite("! " & $fD & @CRLF)
;_GDIPlus_GraphicsDrawLine($hGfxBuffer, $fX1+$iOffSetX, $fY1+$iOffSetY, $fX2+$iOffSetX, $fY2+$iOffSetY, $hPen2)
;_GDIPlus_GraphicsDrawLine($hGfxBuffer, $fX1+$iOffSetX, $fY1+$iOffSetY, $fX1+Cos($fA)*$fD*10+$iOffSetX, $fY1+Sin($fA)*$fD*10+$iOffSetY, $hPen2)
Do
$fA = _MathEx_Atan2($fY1 - $fY2, $fX1 - $fX2)

[/autoit] [autoit][/autoit] [autoit]

Select
Case ($fA - $fATmp) < 0
If $iDir = 1 Then
$iIdx = DllStructGetData($tGears, "Cnt")
DllStructSetData($tGears, "Cnt", $iIdx - 1)
$fGA_Plus = ($fATmp - $fA) / 2
ConsoleWrite("! Plus: " & $fGA_Plus * $Rad2Deg & " A: " & $fA * $Rad2Deg & " ATmp: " & $fATmp * $Rad2Deg & @CRLF)
_GearAddPoint($tGears, $fGH, $fA + $PI2 - $fGA + $fGA_Plus)
_ShowDrawLastPnt($tGears)
$iDir = 2
EndIf
_GearAddPoint($tGears, $fW, $fA)
;_ShowDrawLastPnt($tGears)
_GearAddPoint($tGears, $fGH, $fA - $PI2 + $fGA)
;_ShowDrawLastPnt($tGears)
$fGA_Plus = ($fATmp - $fA) / 3
ConsoleWrite("> Plus: " & $fGA_Plus * $Rad2Deg & " A: " & $fA * $Rad2Deg & " ATmp: " & $fATmp * $Rad2Deg & @CRLF)
_GearAddPoint($tGears, $fW, $fA - $fGA_Plus * 1)
;_ShowDrawLastPnt($tGears)
_GearAddPoint($tGears, $fGH, $fA + $PI2 - $fGA - $fGA_Plus * 2)
;_ShowDrawLastPnt($tGears)
;MsgBox(0,"","")
;ContinueCase
Case Else
$fGA_Plus = ($fATmp - $fA) / 2
ConsoleWrite("+ Plus: " & $fGA_Plus * $Rad2Deg & " A: " & $fA * $Rad2Deg & " ATmp: " & $fATmp * $Rad2Deg & @CRLF)
_GearAddPoint($tGears, $fW, $fA + $fGA_Plus)
_GearAddPoint($tGears, $fGH, $fA - $PI2 + $fGA)
_GearAddPoint($tGears, $fW, $fA)
_GearAddPoint($tGears, $fGH, $fA + $PI2 - $fGA)
$iDir = 1
EndSelect
$fATmp = $fA

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$iIdx = DllStructGetData($tGears, "Cnt")
$fX2 = DllStructGetData($tGears, "Pnt", ($iIdx - 1) * 2 + 1)
$fY2 = DllStructGetData($tGears, "Pnt", ($iIdx - 1) * 2 + 2)

[/autoit] [autoit][/autoit] [autoit]

Until Sqrt(($fX1 - $fX2) ^ 2 + ($fY1 - $fY2) ^ 2) < $fGW
;ExitLoop
EndIf
WEnd
;_GDIPlus_GraphicsClear($hGfxBuffer, 0xFFFFFFFF)
_Show($tPath, $tGears)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBmpBuffer, 0, 0)
MsgBox(0, "", "")
;_Exit()
Return $tGears
EndFunc ;==>_CalcGears

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _ShowDrawLastPnt($tGears)
Local $iCnt = DllStructGetData($tGears, "Cnt")
DllCall($ghGDIPDll, "int", "GdipDrawLine", "handle", $hGfxBuffer, "handle", $hPen2, "float", _
DllStructGetData($tGears, "Pnt", ($iCnt - 2) * 2 + 1) + $iOffSetX, "float", DllStructGetData($tGears, "Pnt", ($iCnt - 2) * 2 + 2) + $iOffSetY, "float", _
DllStructGetData($tGears, "Pnt", ($iCnt - 1) * 2 + 1) + $iOffSetX, "float", DllStructGetData($tGears, "Pnt", ($iCnt - 1) * 2 + 2) + $iOffSetY)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBmpBuffer, 0, 0)
EndFunc ;==>_ShowDrawLastPnt

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _GearAddPoint($tGears, $fD, $fA)
Local $iCnt = DllStructGetData($tGears, "Cnt")
Local $fX = DllStructGetData($tGears, "Pnt", ($iCnt - 1) * 2 + 1)
Local $fY = DllStructGetData($tGears, "Pnt", ($iCnt - 1) * 2 + 2)
Local $aReturn[2]
$aReturn[0] = $fX + Cos($fA) * $fD
$aReturn[1] = $fY + Sin($fA) * $fD
DllStructSetData($tGears, "Pnt", $aReturn[0], $iCnt * 2 + 1)
DllStructSetData($tGears, "Pnt", $aReturn[1], $iCnt * 2 + 2)
DllStructSetData($tGears, "Cnt", $iCnt + 1)
Return $aReturn
EndFunc ;==>_GearAddPoint

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Draw()
_GDIPlus_GraphicsClear($hGfxBuffer, 0xFFFFFFFF)

[/autoit] [autoit][/autoit] [autoit]

_Show($tPath, 0)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_GDIPlus_GraphicsDrawImage($hGraphics, $hBmpBuffer, 0, 0)
EndFunc ;==>_Draw

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Show($tPath, $tGears, $fScale = 1, $iOffX = 100, $iOffY = 100)
Local $iPathCnt = DllStructGetData($tPath, "Cnt")
Local $iGearCnt = DllStructGetData($tGears, "Cnt")
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreatePath", "int", 0, "int*", 0)
Local $hPathPath = $aResult[2]
$aResult = DllCall($ghGDIPDll, "uint", "GdipCreatePath", "int", 0, "int*", 0)
Local $hPathGear = $aResult[2]

[/autoit] [autoit][/autoit] [autoit]

DllCall($ghGDIPDll, "uint", "GdipAddPathCurve", "hwnd", $hPathPath, "ptr", DllStructGetPtr($tPath, "Pnt"), "int", $iPathCnt)
;DllCall($ghGDIPDll, "uint", "GdipAddPathCurve3", "hwnd", $hPathGear, "ptr", DllStructGetPtr($tGears, "Pnt"), "int", $iGearCnt, "int", 0, "int", $iGearCnt-1, "float", 0)
DllCall($ghGDIPDll, "uint", "GdipAddPathPolygon", "hwnd", $hPathGear, "ptr", DllStructGetPtr($tGears, "Pnt"), "int", $iGearCnt)

[/autoit] [autoit][/autoit] [autoit]

Local $tRectF = DllStructCreate("float X; float Y; float Width; float Height;")
DllCall($ghGDIPDll, "uint", "GdipGetPathWorldBounds", "hwnd", $hPathPath, "ptr", DllStructGetPtr($tRectF), "hwnd", 0, "hwnd", 0)
Local $hMatrix = _GDIPlus_MatrixCreate()

[/autoit] [autoit][/autoit] [autoit]

If $iOffSetX = -1 Then
$iOffSetX = -DllStructGetData($tRectF, "X") + $iOffX
$iOffSetY = -DllStructGetData($tRectF, "Y") + $iOffY
EndIf

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_MatrixTranslate($hMatrix, -DllStructGetData($tRectF, "X"), -DllStructGetData($tRectF, "Y"))
DllCall($ghGDIPDll, "uint", "GdipTransformPath", "hwnd", $hPathPath, "hwnd", $hMatrix)
DllCall($ghGDIPDll, "uint", "GdipTransformPath", "hwnd", $hPathGear, "hwnd", $hMatrix)

[/autoit] [autoit][/autoit] [autoit]

DllCall($ghGDIPDll, "uint", "GdipSetMatrixElements", "hwnd", $hMatrix, "float", 1, "float", 0, "float", 0, "float", 1, "float", 0, "float", 0)
_GDIPlus_MatrixScale($hMatrix, $fScale, $fScale)
DllCall($ghGDIPDll, "uint", "GdipTransformPath", "hwnd", $hPathPath, "hwnd", $hMatrix)
DllCall($ghGDIPDll, "uint", "GdipTransformPath", "hwnd", $hPathGear, "hwnd", $hMatrix)

[/autoit] [autoit][/autoit] [autoit]

DllCall($ghGDIPDll, "uint", "GdipSetMatrixElements", "hwnd", $hMatrix, "float", 1, "float", 0, "float", 0, "float", 1, "float", 0, "float", 0)
_GDIPlus_MatrixTranslate($hMatrix, $iOffX, $iOffY)
DllCall($ghGDIPDll, "uint", "GdipTransformPath", "hwnd", $hPathPath, "hwnd", $hMatrix)
DllCall($ghGDIPDll, "uint", "GdipTransformPath", "hwnd", $hPathGear, "hwnd", $hMatrix)

[/autoit] [autoit][/autoit] [autoit]

DllCall($ghGDIPDll, "uint", "GdipDrawPath", "hwnd", $hGfxBuffer, "hwnd", $hPen, "hwnd", $hPathPath)
DllCall($ghGDIPDll, "uint", "GdipDrawPath", "hwnd", $hGfxBuffer, "hwnd", $hPen3, "hwnd", $hPathGear)

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_MatrixDispose($hMatrix)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;#cs
; Bemassung
$aResult = DllCall($ghGDIPDll, "uint", "GdipGetPointCount", "hwnd", $hPathGear, "int*", 0)
Local $iCnt = $aResult[2]
Local $tPoints = DllStructCreate("float[" & $iCnt * 2 & "]")
DllCall($ghGDIPDll, "uint", "GdipGetPathPoints", "hwnd", $hPathGear, "ptr", DllStructGetPtr($tPoints), "int", $iCnt)

[/autoit] [autoit][/autoit] [autoit]

Local $fX1 = 0, $fY1 = 0, $fX2, $fY2, $fD, $fA1, $fA2, $fADiff, $fATmp
For $i = 1 To $iCnt
$fX2 = DllStructGetData($tPoints, 1, ($i - 1) * 2 + 1)
$fY2 = DllStructGetData($tPoints, 1, ($i - 1) * 2 + 2)
$fD = Sqrt(Abs(($fX2 - $fX1) ^ 2 + ($fY2 - $fY1) ^ 2))
$fA2 = 180 + _MathEx_Atan2($fY2 - $fY1, $fX2 - $fX1) * $Rad2Deg
;If $fA2 > 180 Then $fA2 = 180 + _MathEx_Atan2($fY1 - $fY2, $fX1 - $fX2) * $Rad2Deg
$fADiff = Mod(180 + $fA1 - $fA2, 360)
$fATmp = 1
If $fADiff > 180 Then
$fADiff = 360 - $fADiff
$fATmp = 0
EndIf
If $fADiff < 0 Then $fADiff += 360

[/autoit] [autoit][/autoit] [autoit]

If $i > 1 Then
If $fATmp = 1 Then
;_GDIPlus_GraphicsDrawPie($hGfxBuffer, $fX1 - 10, $fY1 - 10, 20, 20, $fA2 + 180, $fADiff, $hPen)
ConsoleWrite("! " & $fX1 - 10 & " " & $fY1 - 10 & @CRLF)
Else
;_GDIPlus_GraphicsDrawPie($hGfxBuffer, $fX1 - 10, $fY1 - 10, 20, 20, $fA1, $fADiff, $hPen)
EndIf

[/autoit] [autoit][/autoit] [autoit]

;_GDIPlus_GraphicsDrawString_C($hGfxBuffer, Round($fA2, 2), $fX1 + (($fX2 - $fX1) / 2), $fY1 + (($fY2 - $fY1) / 2), "Arial", 6.5, 0, 0xFFFF0000)
;_GDIPlus_GraphicsDrawString_C($hGfxBuffer, Round($fADiff, 2), $fX1, $fY1, "Arial", 6.5, 0, 0xFF0000FF)
;_GDIPlus_GraphicsDrawImage($hGraphics, $hBmpBuffer, 0, 0)
;MsgBox(0,"","")
EndIf

[/autoit] [autoit][/autoit] [autoit]

$fX1 = $fX2
$fY1 = $fY2
$fA1 = $fA2
Next
; Bemassung
;#ce

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

DllCall($ghGDIPDll, "uint", "GdipDeletePath", "hwnd", $hPathPath)
DllCall($ghGDIPDll, "uint", "GdipDeletePath", "hwnd", $hPathGear)
EndFunc ;==>_Show

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func __Flatten($tFlat, $iI1, $iI2)
Local $iCnt = DllStructGetData($tFlat, "Cnt")
Local $fX1, $fY1, $fX2, $fY2, $fA

[/autoit] [autoit][/autoit] [autoit]

$fX1 = DllStructGetData($tFlat, "Pnt", $iI1 * 2 + 1)
$fY1 = DllStructGetData($tFlat, "Pnt", $iI1 * 2 + 2)
$fX2 = DllStructGetData($tFlat, "Pnt", $iI2 * 2 + 1)
$fY2 = DllStructGetData($tFlat, "Pnt", $iI2 * 2 + 2)
$fA = _MathEx_Atan2($fY2 - $fY1, $fX2 - $fX1)

[/autoit] [autoit][/autoit] [autoit]

Local $hMatrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixTranslate($hMatrix, -$fX1, -$fY1)
DllCall($ghGDIPDll, "uint", "GdipTransformMatrixPoints", "hwnd", $hMatrix, "ptr", DllStructGetPtr($tFlat, "Pnt"), "int", $iCnt)

[/autoit] [autoit][/autoit] [autoit]

DllCall($ghGDIPDll, "uint", "GdipSetMatrixElements", "hwnd", $hMatrix, "float", 1, "float", 0, "float", 0, "float", 1, "float", 0, "float", 0)
_GDIPlus_MatrixRotate($hMatrix, -$fA * $Rad2Deg)

[/autoit] [autoit][/autoit] [autoit]

DllCall($ghGDIPDll, "uint", "GdipTransformMatrixPoints", "hwnd", $hMatrix, "ptr", DllStructGetPtr($tFlat, "Pnt") + $iI1 * 8, "int", $iCnt - $iI1)

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_MatrixDispose($hMatrix)
EndFunc ;==>__Flatten

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Flatten($tGears, $iFlag = 1)
Local $iCnt = DllStructGetData($tGears, "Cnt")
Local $tFlat = DllStructCreate("int Cnt; float Pnt[" & $iCnt * 2 & "];")

[/autoit] [autoit][/autoit] [autoit]

If $iFlag Then
$iCnt -=3
DllCall("kernel32.dll", "none", "RtlMoveMemory", "ptr", DllStructGetPtr($tFlat, "Pnt"), "ptr", DllStructGetPtr($tGears, "Pnt") + 2 * 8, "ulong_ptr", $iCnt *
Else
DllCall("kernel32.dll", "none", "RtlMoveMemory", "ptr", DllStructGetPtr($tFlat, "Pnt"), "ptr", DllStructGetPtr($tGears, "Pnt"), "ulong_ptr", $iCnt *
EndIf
DllStructSetData($tFlat, "Cnt", $iCnt)

[/autoit] [autoit][/autoit] [autoit]

Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreatePath", "int", 0, "int*", 0)
Local $hPath = $aResult[2]
Local $tRectF = DllStructCreate("float X; float Y; float Width; float Height;")

[/autoit] [autoit][/autoit] [autoit]

Local $hMatrix = _GDIPlus_MatrixCreate()

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To $iCnt - 3 Step 4

[/autoit] [autoit][/autoit] [autoit]

__Flatten($tFlat, $i, $i + 1)
If $i < $iCnt - 3 Then __Flatten($tFlat, $i + 1, $i + 4)

[/autoit] [autoit][/autoit] [autoit]

DllCall($ghGDIPDll, "uint", "GdipResetPath", "hwnd", $hPath)
DllCall($ghGDIPDll, "uint", "GdipAddPathPolygon", "hwnd", $hPath, "ptr", DllStructGetPtr($tFlat, "Pnt"), "int", $iCnt)

[/autoit] [autoit][/autoit] [autoit]

DllCall($ghGDIPDll, "uint", "GdipGetPathWorldBounds", "hwnd", $hPath, "ptr", DllStructGetPtr($tRectF), "hwnd", 0, "hwnd", 0)
ConsoleWrite("- " & DllStructGetData($tRectF, "X") & " " & DllStructGetData($tRectF, "Y") & " " & DllStructGetData($tRectF, "Width") & " " & DllStructGetData($tRectF, "Height") & @CRLF)
DllCall($ghGDIPDll, "uint", "GdipSetMatrixElements", "hwnd", $hMatrix, "float", 1, "float", 0, "float", 0, "float", 1, "float", 0, "float", 0)
_GDIPlus_MatrixTranslate($hMatrix, -DllStructGetData($tRectF, "X"), -DllStructGetData($tRectF, "Y"))
DllCall($ghGDIPDll, "uint", "GdipTransformPath", "hwnd", $hPath, "hwnd", $hMatrix)
_GDIPlus_GraphicsClear($hGfxBuffer, 0xFFFFFFFF)
DllCall($ghGDIPDll, "uint", "GdipDrawPath", "hwnd", $hGfxBuffer, "hwnd", $hPen3, "hwnd", $hPath)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBmpBuffer, 0, 0)
;MsgBox(0,"","")
Next
DllCall($ghGDIPDll, "uint", "GdipSetMatrixElements", "hwnd", $hMatrix, "float", 1, "float", 0, "float", 0, "float", 1, "float", 0, "float", 0)
_GDIPlus_MatrixTranslate($hMatrix, -DllStructGetData($tRectF, "X"), -DllStructGetData($tRectF, "Y"))
DllCall($ghGDIPDll, "uint", "GdipTransformMatrixPoints", "hwnd", $hMatrix, "ptr", DllStructGetPtr($tFlat, "Pnt"), "int", $iCnt)

[/autoit] [autoit][/autoit] [autoit]

DllCall($ghGDIPDll, "uint", "GdipDeletePath", "hwnd", $hPath)
_GDIPlus_MatrixDispose($hMatrix)

[/autoit] [autoit][/autoit] [autoit]

Return $tFlat
EndFunc ;==>_Flatten

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Load($sPath, $fScale = 1)
Local $sFile = FileRead($sPath)
Local $aRegExp = StringRegExp($sFile, "(?s)\<path(.*)\/\>", 3)
$aRegExp = StringRegExp($aRegExp[0], 'd="([^"]+)', 3)
Local $aSplit = StringSplit($aRegExp[0], " ")
Local $tPath = DllStructCreate("int Cnt; float Pnt[" & $aSplit[0] * 2 & "];")
Local $iCnt = 0, $fX = 0, $fY = 0
For $i = 1 To $aSplit[0]
$aRegExp = StringRegExp($aSplit[$i], "[\d.-]+", 3)
If UBound($aRegExp) <> 2 Then ContinueLoop
$iCnt += 1
If $iCnt = 1 Then
$aRegExp[0] = 0
$aRegExp[1] = 0
EndIf
DllStructSetData($tPath, "Pnt", $fX + $aRegExp[0], ($iCnt - 1) * 2 + 1)
DllStructSetData($tPath, "Pnt", $fY + $aRegExp[1], ($iCnt - 1) * 2 + 2)
$fX += $aRegExp[0]
$fY += $aRegExp[1]
Next

[/autoit] [autoit][/autoit] [autoit]

If $fScale <> 1 Then
Local $hMatrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixScale($hMatrix, $fScale, $fScale)
DllCall($ghGDIPDll, "uint", "GdipTransformMatrixPoints", "hwnd", $hMatrix, "ptr", DllStructGetPtr($tPath, "Pnt"), "int", $iCnt)
_GDIPlus_MatrixDispose($hMatrix)
EndIf

[/autoit] [autoit][/autoit] [autoit]

DllStructSetData($tPath, "Cnt", $iCnt)
Return $tPath
EndFunc ;==>_Load

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func WM_PAINT($hWnd, $uMsgm, $wParam, $lParam)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBmpBuffer, 0, 0)
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_PAINT

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Exit()
_GDIPlus_PenDispose($hPen)
_GDIPlus_PenDispose($hPen2)
_GDIPlus_PenDispose($hPen3)
_GDIPlus_GraphicsDispose($hGfxBuffer)
_GDIPlus_BitmapDispose($hBmpBuffer)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
Exit
EndFunc ;==>_Exit

[/autoit] [autoit][/autoit] [autoit]

Func _MathEx_Atan2($fY, $fX)
Local $aResult = DllCall($_ME_hMSVCRT, "double:cdecl", "atan2", "double", $fY, "double", $fX)
If @error Then Return SetError(1, 1, False)
Return $aResult[0]
EndFunc ;==>_MathEx_Atan2

[/autoit] [autoit][/autoit] [autoit]

Func _GDIPlus_GraphicsDrawString_C($hGraphics, $sString, $nX, $nY, $sFont = "Arial", $nSize = 10, $iFormat = 0, $iColor = 0xFF000000)
Local $hBrush = _GDIPlus_BrushCreateSolid($iColor)
Local $hFormat = _GDIPlus_StringFormatCreate($iFormat)
Local $hFamily = _GDIPlus_FontFamilyCreate($sFont)
Local $hFont = _GDIPlus_FontCreate($hFamily, $nSize)
Local $tLayout = _GDIPlus_RectFCreate($nX, $nY, 0, 0)
Local $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $sString, $hFont, $tLayout, $hFormat)
Local $aResult = _GDIPlus_GraphicsDrawStringEx($hGraphics, $sString, $hFont, $aInfo[0], $hFormat, $hBrush)
Local $iError = @error
_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_BrushDispose($hBrush)
Return SetError($iError, 0, $aResult)
EndFunc ;==>_GDIPlus_GraphicsDrawString_C

[/autoit]

Bogen2.svg:

Spoiler anzeigen

XML

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!-- Created with Inkscape (http://www.inkscape.org/) -->


<svg
   xmlns:dc="http://purl.org/dc/elements/1.1/"
   xmlns:cc="http://creativecommons.org/ns#"
   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
   xmlns:svg="http://www.w3.org/2000/svg"
   xmlns="http://www.w3.org/2000/svg"
   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
   width="210mm"
   height="297mm"
   id="svg3078"
   version="1.1"
   inkscape:version="0.48.1 "
   sodipodi:docname="Bogen2.svg">
  <defs
     id="defs3080" />
  <sodipodi:namedview
     id="base"
     pagecolor="#ffffff"
     bordercolor="#666666"
     borderopacity="1.0"
     inkscape:pageopacity="0.0"
     inkscape:pageshadow="2"
     inkscape:zoom="0.35"
     inkscape:cx="350"
     inkscape:cy="520"
     inkscape:document-units="px"
     inkscape:current-layer="layer1"
     showgrid="false"
     inkscape:window-width="1366"
     inkscape:window-height="719"
     inkscape:window-x="-4"
     inkscape:window-y="-4"
     inkscape:window-maximized="1" />
  <metadata
     id="metadata3083">
    <rdf:RDF>
      <cc:Work
         rdf:about="">
        <dc:format>image/svg+xml</dc:format>
        <dc:type
           rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
        <dc:title />
      </cc:Work>
    </rdf:RDF>
  </metadata>
  <g
     inkscape:label="Ebene 1"
     inkscape:groupmode="layer"
     id="layer1">
    <path
       style="fill:none;stroke:#000000;stroke-width:0.38037771;stroke-linejoin:bevel"
       d="m 12.623162,1036.7734 0.988621,-4.7591 0.496297,-2.3766 0.50441,-2.3889 0.504491,-2.3949 0.512604,-2.395 0.512603,-2.401 0.52477,-2.4011 0.528827,-2.4011 0.53702,-2.4071 0.545133,-2.4013 0.553327,-2.4132 0.565411,-2.4071 0.573689,-2.4011 0.585773,-2.4011 0.593968,-2.39494 0.602079,-2.38876 0.610274,-2.38274 0.622358,-2.37658 0.630635,-2.37657 0.638664,-2.3644 0.646859,-2.36424 0.659026,-2.35823 0.66722,-2.35206 0.675332,-2.3459 0.687499,-2.33987 0.691555,-2.3337 0.703805,-2.32142 0.711917,-2.32146 0.724167,-2.32145 0.728223,-2.30305 0.74039,-2.3092 0.744529,-2.29694 0.756613,-2.28471 0.768946,-2.28469 0.772919,-2.27855 0.781115,-2.27246 0.79328,-2.26019 0.801476,-2.2602 0.809505,-2.25408 0.817698,-2.2467 0.825893,-2.23936 0.83806,-2.23264 0.846172,-2.22587 0.858341,-2.21915 0.866532,-2.21243 0.874646,-2.20446 0.886896,-2.19709 0.895007,-2.18916 0.907174,-2.18056 0.915369,-2.17199 0.927536,-2.1628 0.939787,-2.15423 0.947899,-2.14443 0.960065,-2.134 0.972316,-2.12421 0.980426,-2.11442 0.992596,-2.10339 1.004844,-2.09174 1.017095,-2.08135 1.029262,-2.06909 1.04143,-2.05744 1.049625,-2.04581 1.065847,-2.03232 1.078015,-2.02008 1.086209,-2.00723 1.102514,-1.99315 1.114683,-1.97844 1.122794,-1.96251 1.135044,-1.94779 1.147212,-1.9325 1.159461,-1.91657 1.167574,-1.90187 1.179741,-1.88592 1.191991,-1.87126 1.200102,-1.85532 1.212353,-1.83941 1.224521,-1.82406 1.232631,-1.80816 1.244882,-1.79283 1.252993,-1.77633 1.261188,-1.75976 1.273356,-1.74444 1.285522,-1.72791 1.289575,-1.7114 1.305885,-1.69543 1.310023,-1.6789 1.322107,-1.66237 1.326246,-1.64524 1.342469,-1.6293 1.346608,-1.61214 1.35472,-1.59561 1.366887,-1.57846 1.375081,-1.56192 1.383193,-1.54539 1.391302,-1.52825 1.40347,-1.51107 1.40761,-1.49332 1.41978,-1.47555 1.42798,-1.45717 1.43608,-1.4388 1.44419,-1.42044 1.45231,-1.40145 1.46455,-1.38184 1.46863,-1.36226 1.48086,-1.34201 1.48897,-1.32243 1.49303,-1.30159 1.5052,-1.28079 1.51339,-1.25932 1.51745,-1.23852 1.52961,-1.21708 1.53368,-1.19441 1.54592,-1.17236 1.54997,-1.14969 1.56223,-1.12643 1.5662,-1.10376 1.5744,-1.08049 1.58664,-1.05659 1.59062,-1.0327 1.59476,-1.00696 1.60286,-0.9825 1.60693,-0.95735 1.61098,-0.9335 1.61917,-0.90958 1.62315,-0.88631 1.62729,-0.86242 1.63134,-0.84037 1.63548,-0.81708 1.63539,-0.79508 1.64351,-0.77359 1.64765,-0.75156 1.64756,-0.73075 1.65577,-0.70929 1.65576,-0.68969 1.65575,-0.6689 1.66387,-0.64925 1.6599,-0.62967 1.66793,-0.61066 1.66792,-0.59172 1.66801,-0.57271 1.67198,-0.55554 1.67207,-0.53657 1.67198,-0.52003 1.67612,-0.50226 1.67612,-0.48512 1.67604,-0.46918 1.68018,-0.45264 1.68018,-0.43552 1.68017,-0.42018 1.68424,-0.40304 1.68423,-0.38773 1.68423,-0.37117 1.68423,-0.35526 1.68829,-0.33997 1.68829,-0.32341 1.68828,-0.3087 1.69235,-0.29277 1.68829,-0.27747 1.69243,-0.26202 1.69234,-0.24692 1.69234,-0.23153 1.69235,-0.2167 1.69648,-0.20215 1.69235,-0.18732 1.69648,-0.1722 1.69235,-0.15796 1.69639,-0.14335 1.69358,-0.12939 1.69483,-0.1151 1.69524,-0.1005 1.69475,-0.087 1.69442,-0.0727 1.69482,-0.0612 1.69441,-0.0429 1.69401,-0.0305 1.69317,-0.0192 1.69276,-0.005 1.69201,0.005 1.69069,0.0192 1.68994,0.0368 1.6887,0.0429 1.68746,0.0612 1.68671,0.0692 1.6854,0.0807 1.68423,0.0917 1.68341,0.10292 1.68224,0.11267 1.68101,0.12306 1.67975,0.13296 1.67895,0.14287 1.67769,0.15179 1.67645,0.1604 1.67529,0.16973 1.67406,0.17772 1.67288,0.18621 1.67158,0.19363 1.6704,0.20158 1.66925,0.20821 1.66793,0.21504 1.6671,0.22248 1.66635,0.2285 1.66471,0.23456 1.66304,0.24061 1.66271,0.24636 1.66263,0.2524 1.66188,0.25845 1.66188,0.2645 1.66106,0.27081 1.66056,0.27624 1.66023,0.28237 1.65948,0.2879 1.6594,0.29401 1.65816,0.30011 1.65824,0.30567 1.65734,0.31177 1.657,0.31727 1.65617,0.32341 1.65576,0.32892 1.65493,0.33505 1.65493,0.34057 1.6537,0.34667 1.65335,0.35158 1.65287,0.35834 1.65211,0.36324 1.65171,0.36933 1.65087,0.37487 1.65046,0.38036 1.64964,0.3865 1.64922,0.39202 1.64847,0.39753 1.64757,0.40302 1.64723,0.40856 1.64641,0.41467 1.64558,0.41959 1.64434,0.42447 1.64392,0.43059 1.64276,0.43491 1.64235,0.44101 1.64111,0.4453 1.64069,0.45018 1.63945,0.45574 1.63871,0.45999 1.63821,0.46491 1.63706,0.46979 1.63663,0.4747 1.63582,0.47837 1.63507,0.48328 1.63415,0.48756 1.63341,0.49246 1.6325,0.49614 1.63176,0.50042 1.63134,0.50413 1.6301,0.50898 1.62977,0.51206 1.62886,0.51635 1.62811,0.52065 1.62729,0.52371 1.62687,0.52739 1.62563,0.53104 1.62521,0.53471 1.62448,0.53842 1.62364,0.54147 1.62314,0.54454 1.622,0.54818 1.62124,0.55066 1.62116,0.55433 1.62033,0.55738 1.61992,0.56046 1.61959,0.56414 1.61876,0.56658 1.61868,0.57024 1.61793,0.57334 1.61793,0.57696 1.61711,0.57948 1.61627,0.58311 1.61628,0.58616 1.61553,0.58985 1.61504,0.59232 1.61421,0.59597 1.61387,0.59906 1.61347,0.60209 1.61305,0.60517 1.61221,0.60886 1.61181,0.6119 1.61098,0.61558 1.61099,0.61804 1.61023,0.6217 1.60932,0.62475 1.609,0.62846 1.60857,0.63149 1.60817,0.63459 1.60733,0.63825 1.60694,0.64128 1.60608,0.64436 1.60578,0.64805 1.60526,0.65112 1.60453,0.65417 1.60369,0.65786 1.60328,0.66026 1.60205,0.66398 1.60162,0.66643 1.60081,0.67009 1.60005,0.67255 1.59963,0.67559 1.59882,0.67807 1.59799,0.68112 1.59756,0.68358 1.59675,0.68664 1.59591,0.68908 1.59558,0.69151 1.59468,0.69401 1.59434,0.69705 1.59352,0.69888 1.60129,0.705 1.59228,0.70379 1.59144,0.7056 1.59111,0.70808 1.59022,0.71051 1.58987,0.71237 1.58945,0.71419 1.58864,0.71604 1.58779,0.71848 1.58781,0.72034 1.58697,0.72153 1.58615,0.724 1.58623,0.72583 1.58541,0.72706 1.58491,0.7289 1.58458,0.73012 1.58374,0.73195 1.58375,0.73382 1.58292,0.7344 1.58259,0.73624 1.58168,0.73747 1.58168,0.7387 1.58093,0.73992 1.58085,0.74116 1.5801,0.74236 1.58012,0.74299 1.57927,0.74421 1.57928,0.7448 1.57844,0.74608 1.57846,0.74664 1.57804,0.74728 1.57762,0.74789 1.57729,0.74908 1.57721,0.74913 1.57688,0.74973 1.57638,0.75032 1.57606,0.75097 1.57596,0.75092 1.57563,0.75157 1.57564,0.75156 1.57514,0.75156 1.57523,0.75216 1.5748,0.75218 1.5744,0.75157 1.57919,0.76015 1.57928,0.76013 1.5744,0.75156 1.57472,0.75218 1.57523,0.75217 1.57521,0.75156 1.57565,0.75156 1.57555,0.75156 1.57604,0.75095 1.57605,0.75094 1.57639,0.75033 1.5768,0.74973 1.57729,0.74913 1.5772,0.74908 1.57763,0.74789 1.57804,0.74728 1.57853,0.74664 1.57844,0.74606 1.57928,0.74482 1.5792,0.74419 1.5801,0.74301 1.58012,0.74236 1.58084,0.74115 1.58094,0.73993 1.58168,0.7387 1.58176,0.73747 1.58251,0.73624 1.58292,0.7344 1.58374,0.73382 1.58375,0.73195 1.58458,0.73012 1.58499,0.7289 1.58531,0.72706 1.58624,0.72583 1.58614,0.724 1.58707,0.72154 1.5878,0.72033 1.5878,0.71848 1.58863,0.71604 1.58947,0.71419 1.58978,0.71237 1.59029,0.7105 1.59104,0.70809 1.59152,0.7056 1.59228,0.70377 1.60121,0.70502 1.59352,0.6989 1.59434,0.69703 1.59476,0.69399 1.5955,0.69153 1.59599,0.68907 1.59674,0.68664 1.59757,0.68359 1.59799,0.68111 1.59882,0.67806 1.59963,0.67561 1.59997,0.67254 1.6008,0.6701 1.60163,0.66643 1.60212,0.66398 1.60328,0.66026 1.60362,0.65785 1.60452,0.65417 1.60527,0.65112 1.60576,0.64805 1.6061,0.64437 1.60692,0.64128 1.60734,0.63825 1.60817,0.63459 1.60858,0.63147 1.609,0.62848 1.6094,0.62475 1.61015,0.6217 1.61098,0.61804 1.61098,0.61558 1.6119,0.61189 1.61221,0.60886 1.61305,0.60518 1.61339,0.60209 1.61387,0.59906 1.61421,0.59597 1.61511,0.59231 1.61546,0.58985 1.61627,0.58617 1.61636,0.58311 1.61711,0.57948 1.61784,0.57696 1.61794,0.57334 1.61876,0.57023 1.61876,0.56659 1.6195,0.56414 1.61992,0.56046 1.62042,0.55738 1.62116,0.55433 1.62116,0.55066 1.62199,0.54818 1.62323,0.54454 1.62356,0.54147 1.62447,0.5384 1.62522,0.53473 1.62563,0.53105 1.62687,0.52738 1.62729,0.52371 1.62811,0.52064 1.62894,0.51634 1.62969,0.51207 1.6301,0.50899 1.63134,0.50413 1.63176,0.50041 1.63258,0.49615 1.63341,0.49246 1.63415,0.48755 1.63498,0.48329 1.63581,0.47837 1.63664,0.47471 1.63705,0.4698 1.63831,0.46491 1.63862,0.45999 1.63953,0.45572 1.64062,0.45018 1.64111,0.4453 1.64234,0.44103 1.64277,0.4349 1.64392,0.43058 1.64438,0.42448 1.64559,0.41958 1.64642,0.41468 1.6472,0.40854 1.64761,0.40303 1.64841,0.39753 1.64926,0.39202 1.64966,0.38649 1.65047,0.38038 1.65086,0.37487 1.65169,0.36934 1.6521,0.36323 1.6529,0.35834 1.65329,0.35158 1.65372,0.34667 1.65495,0.34057 1.65495,0.33505 1.65573,0.32893 1.65619,0.32341 1.65696,0.31727 1.65738,0.31177 1.65821,0.30566 1.65819,0.30011 1.6594,0.29401 1.6594,0.2879 1.66023,0.28237 1.66064,0.27625 1.66105,0.27081 1.66186,0.26449 1.66184,0.25845 1.66268,0.2524 1.66267,0.24636 1.66306,0.2406 1.66472,0.23456 1.66632,0.22851 1.66715,0.22247 1.66793,0.21505 1.66921,0.2082 1.6704,0.2016 1.67163,0.19363 1.67281,0.18621 1.67407,0.1777 1.6753,0.16973 1.67647,0.1604 1.67774,0.15195 1.67893,0.14287 1.67976,0.13296 1.68096,0.12306 1.68222,0.11267 1.6834,0.10292 1.68423,0.0917 1.68546,0.0807 1.68667,0.0692 1.68748,0.0612 1.6887,0.0429 1.68993,0.0369 1.69073,0.0192 1.69199,0.005 1.69274,-0.005 1.6932,-0.0192 1.694,-0.0305 1.69439,-0.0429 1.69481,-0.0612 1.69439,-0.0727 1.69483,-0.087 1.69524,-0.1005 1.69475,-0.1151 1.69358,-0.12939 1.69649,-0.14335 1.69234,-0.15796 1.6964,-0.17222 1.69243,-0.1873 1.6964,-0.20215 1.69234,-0.21671 1.69243,-0.23152 1.69234,-0.24692 1.69235,-0.26202 1.68828,-0.27747 1.69235,-0.29277 1.68829,-0.3087 1.68837,-0.32342 1.68828,-0.33996 1.68424,-0.35526 1.68423,-0.37118 1.68423,-0.38772 1.68424,-0.40304 1.68017,-0.42018 1.68018,-0.43552 1.68018,-0.45264 1.67603,-0.46918 1.67605,-0.48513 1.67612,-0.50225 1.67206,-0.52003 1.67198,-0.53657 1.67206,-0.55554 1.66793,-0.57271 1.66802,-0.59172 1.66792,-0.61067 1.65981,-0.62968 1.66387,-0.64925 1.65576,-0.6689 1.65576,-0.68967 1.65576,-0.70929 1.64765,-0.73075 1.64756,-0.75158 1.6436,-0.77357 1.63539,-0.79508 1.6354,-0.8171 1.63134,-0.84036 1.62729,-0.86243 1.62322,-0.88631 1.6191,-0.90957 1.61106,-0.93349 1.60693,-0.95737 1.60287,-0.9825 1.59475,-1.00696 1.59061,-1.0327 1.58657,-1.05659 1.57439,-1.08049 1.56629,-1.10375 1.56214,-1.12646 1.54998,-1.14966 1.54592,-1.17236 1.53375,-1.19441 1.52962,-1.21709 1.51745,-1.23852 1.51331,-1.25931 1.50528,-1.28079 1.49303,-1.30159 1.48898,-1.32244 1.48077,-1.34201 1.46862,-1.36226 1.46455,-1.38183 1.4524,-1.40145 1.44419,-1.42044 1.43608,-1.43881 1.42789,-1.45716 1.41987,-1.47556 1.40752,-1.49332 1.40356,-1.51106 1.3913,-1.52826 1.38319,-1.54538 1.375,-1.56193 1.36697,-1.57847 1.35472,-1.59559 1.34653,-1.61214 1.34246,-1.6293 1.32625,-1.64525 1.3222,-1.66236 1.30993,-1.6789 1.30589,-1.69546 1.28966,-1.71139 1.28552,-1.7279 1.27336,-1.74443 1.26111,-1.75976 1.25298,-1.77634 1.24488,-1.79283 1.23273,-1.80815 1.22451,-1.82407 1.21227,-1.83941 1.20011,-1.85531 1.19198,-1.87125 1.17983,-1.88595 1.16749,-1.90186 1.15946,-1.91657 1.14721,-1.9325 1.13504,-1.94779 1.12288,-1.96251 1.11468,-1.97844 1.10243,-1.99313 1.08622,-2.00724 1.07809,-2.02008 1.06585,-2.03233 1.04963,-2.04581 1.04142,-2.05744 1.02927,-2.06909 1.01701,-2.08135 1.00485,-2.09174 0.9927,-2.10338 0.9804,-2.11442 0.9722,-2.1242 0.9602,-2.13401 0.9479,-2.14444 0.9397,-2.15423 0.9276,-2.1628 0.9153,-2.17199 0.9072,-2.18056 0.895,-2.18916 0.8869,-2.19709 0.8746,-2.20445 0.8665,-2.21243 0.8585,-2.21915 0.8461,-2.22587 0.8381,-2.23264 0.8258,-2.23937 0.8177,-2.24669 0.8096,-2.25409 0.8014,-2.26018 0.7933,-2.26019 0.7812,-2.27246 0.7729,-2.27855 0.7688,-2.28469 0.7567,-2.2847 0.7446,-2.29695 0.7404,-2.3092 0.7282,-2.30307 0.7241,-2.32143 0.7119,-2.32146 0.7038,-2.32142 0.6916,-2.33372 0.6875,-2.33981 0.6754,-2.34595 0.6671,-2.35206 0.6591,-2.3582 0.6468,-2.36431 0.6387,-2.36433 0.6306,-2.37656 0.6224,-2.37658 0.6102,-2.38271 0.6021,-2.3888 0.594,-2.39495 0.5858,-2.40106 0.5736,-2.40108 0.5655,-2.40721 0.5533,-2.4133 0.5451,-2.40109 0.537,-2.40721 0.5288,-2.40105 0.5249,-2.40108 0.5126,-2.40109 0.5126,-2.39492 0.5044,-2.39495 0.5045,-2.3888 0.4963,-2.3766 0.9885,-4.75925"
       id="polygon3007"
       inkscape:connector-curvature="0"
       sodipodi:nodetypes="ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc" />
  </g>
</svg>

Alles anzeigen

Die fertigen EMF´s hab ich in einem Grafikprogramm zerschnitten und Kante an Kante zusammengebaut - Das Ergebnis reicht fast an die original-Kurve heran:
autoit.de/wcf/attachment/15396/

Das Ergebnis dann noch in MPR umzuwandeln, sollte das geringste Problem sein...

Wie gedenkst du denn eigentlich die Verzahnung zu fräsen?
Kann deine CNC den Fräskopf bzw. Sägeblatt neigen?

Ach ja: In Zeile 46 kannst mit den Parametern Breite, Höhe und Steigungswinkel einstellen!

E

chrisatack

hi...

also sorry aber ich muss das jetzt echt mal sagen... "Man bist du Fertig!!" sorry nur positiv gemeint
Geilo... das geht schon sehr in die Richtung wie ich es mir vorgestellt habe.
Mein größtes Problem wird nur sein das ganze zu verstehen...

Aber mit etwas Zeit wird das wohl...

Aber auf jeden fall Hammer...
MPR erstellung bekomme ich auf jeden Fall hin...

nun zum fräsen... wir haben leider keine 5Achs CNC dann würde das viel schneller gehen..
Aber wir haben eine 4 1/2 Achs mit nem Zusatzmodul
damit geht das... schaust du hier... http://www.youtube.com/watch?v=KkJfTf8aX7s&feature=related

Aber supi echt!!
Werde dann weitere Fortschritte mal hier posten..

MFG chris

**UEZ**

War mir schon klar, dass es Eukalyptus richtig heiß gemacht hat, dafür was zu coden.

Well done!

Gruß,
UEZ

**eukalyptus**

Das war wie gesagt nur der erste Test.
Die Zähne sind nicht wirklich symmetrisch.
Aber ich glaub ich weiß schon, wie das besser und einfacher geht...
Das kann ich aber erst nächste Woche probieren.

Für mich ist das deshalb so interessant, weil ich selber gelernter Schreiner bin und auch etwa 4 Jahre mit einer CNC Fräse gearbeitet hab.
Das war allerdings vor fast 10 Jahren.
Damals hatten wir zwar ein verstellbares Sägemodul, aber die Neigung musste manuell verstellt werden - also hierfür nicht geeignet!

Und JA - bitte schreib eine DXF-UDF! sowas hätte ich schon ein paar mal gebraucht

E