|
AutoCAD VBA : Koord auslesen und sortieren
ThebigH am 04.03.2010 um 19:50 Uhr (0)
Oh, da seh ich gar nich durch.Ich hab BubbleSort leider als Vorgabe. Und in meinem Beispiel sind es nur 5 Punkte, es muss aber auch mit beliebig vielen Punkten der Zeichnung gehen.Ich hab die 2 dimensionalen Koordinaten der Punkte For Each obj In ThisDrawing.ModelSpaceIf TypeOf obj Is AcadPoint ThenPktKoord = obj.CoordinatesPktKoord(0) = Round(PktKoord(0), 2)PktKoord(1) = Round(PktKoord(1), 2)In diesem Fall sind PktKoord(0) meine x Werte und PktKoord(1) meine y Werte.Die x Werte würde ich gerne als Array h ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Koord auslesen und sortieren
ThebigH am 04.03.2010 um 17:50 Uhr (0)
Hallo liebe Community!!Das ist mein erster Beitrag (hoffentlich nicht der letzte) und ich hab gleich ein paar schwere Probleme.Ich soll aus einer CAD Zeichnung alle Koordinaten der vorhandenen Punkte auslesen, mit Bubblesort sortierenund hübsch formatiert in eine txt ausgeben.Einlesen, formatieren und ausgeben funktioniert schon ganz gut, aber der Bubblesort sortiert einfach nicht.Bin für jede Hilfe dankbar.Hier mein Code:Sub Bam()Dim obj As AcadEntityDim Dateiname As StringDim PktKoord As VariantDim Absta ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |