Suchergebnisse

Hallo zusammen, ich suche nach einer Möglichkeit alle Kreise, die einen gemeinsamen Mittelpunkt haben zu ermitteln. Das Problem ist, dass wir 2D Zeichnungen haben. Diese haben z.B. Zylindersenkungen. Mit dem folgenden Programm kann ich die Kreise in Bohrungen umwandeln. Wenn jedoch 2 Kreise mit unterschiedlichem Durchmesser am gleichen Punkt sind werden dann natürlich 2 Bohrungen erzeugt, was ich gerne vermeiden würde. Wie kann ich die gemeinsamen Kreise bzw. den inneren ermitteln? Quellcode (77…

Mit dem Code ermittle ich die Position der Bohrungen. Es geht um das CAD-System Autodesk Inventor. Es sind 1 bis ca. 100 Bohrungen. Der Datentyp der Koordinaten ist Integer (X, Y-Wert).

Es geht mir um Bohrungen wie z.B. X=10, Y20, R5 und R15. Wenn die Koordinaten unterschiedlich sind werden diese nicht behandelt. Dann wird eine Bohrung mit dem Durchmesser an der Stelle gesetzt. Mir sind die Koordinaten und der Radius wichtig X= 5, Y=10 |R5 ; R10 X= 10, Y=200 |R2 ; R20 Dann kann ich mit diesen Werten wieder Zylindersenkungen nach DIN setzen. esss.de/LBP_Werkstatt-Computer…Zylinderkopfschrauben.pdf Es wird dann der innere und der äußere Kreis mit der Tabelle verglichen und die Zy…

Ich wollte Dir nur zeigen, für was das ganze ist. Die DIN brauche ich um die entsprechenden Bohrungen zu ermitteln. D1 und Dh geben den äußeren und inneren Kreis an. Kannst Du mir bitte mit einem Beispiel helfen?

1. Es sollen alle Radien mit entsprechenden Koordinaten sortiert werden X= 5, Y=10 | R1,7 X= 5, Y=10 | R3,2 X= 10, Y=200 |R20 X= 10, Y=200 |R20 2. Alle Radien mit identischem X,Y Wert sollen ausgefiltert werden (sind immer 2 Radien / Durchmesser pro X,Y Wert) X= 5, Y=10 | R1,7 (Radius) X= 5, Y=10 | R3,2 3. Diese 2 Radien / Durchmesser Werte sollen mit der DIN-Tabelle verglichen werden d = 3; dh = 3,4; t= 3,4; d1 = 6,5 (Durchmesser) 4. und zum Schluss die richtige Zylindersenkung gesetzt werden.

Den Mittelpunkt bekomme ich so: oCircle.CenterSketchPoint

Bis jetzt habe ich das: Quellcode (36 Zeilen) Wie bekomme ich aber den Vergleich mit der 1. Tabelle hin?

Quellcode (44 Zeilen)

Das Problem liegt darin, dass ich nicht weiss, wie ich die Daten vergleichen kann. Irgendwie bekomme ich das nicht hin.

Sorry. Irgendwie habe ich die letzte Frage übersehen. Dim dtb As New System.Data.DataTable dtb.Columns.Add("X-Value", Type.GetType("System.Double")) 'Int32 dtb.Columns.Add("Y-Value", Type.GetType("System.Double")) dtb.Columns.Add("Radius", Type.GetType("System.Double")) ' => Radius x 2 = Durchmesser

Zu jedem X-, Y-Wert gibt es einen Radius bzw. Kreis vom Typ Double. Danach: Alle koordinaten in ein array einlesen. Doppelte auswerfen. dann das koordinaten array zum erstellen der Bohrungen nutzen und mit dem Kreis array(oCircle) vergleichen(also die Koordinaten). und wenn mehr als 2 kreise auf eine koordinate verweisen, diese mit der Normtabelle vergleichen und daraufhin die Bohrung erstellen.