---

Hallo zusammen,
es liegt eine Vermessungsdatei vor, die Punkte mit Punktcodes enthält. Ich möchte nun durch Auslesen der Codes automatisch Punktgruppen erstellen lassen (beispielsweise mit VBA).
Natürlich wäre es möglich, die Punkte auszugeben und wieder neu einzulesen oder eine Zuordnung durch Beschreibungsschlüsselsätze zu erzwingen. Ich hoffte allerdings, den Aufwand durch ein bestehendes Skript im Netz zu verringern...
Kennt jemand so etwas und ist die/derjenige bereit, seine Kenntnisse zu teilen?

Ich würde mich freuen.

Grüße DF

------------------
--------------------------------------------
Der Weihnachsmann war noch nie der Osterhase!

                             Uli Hoeneß

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

---

Hi,

lass uns mal eine unbearbeitete - und eine wunschgemäß gruppierte Musterzeichnung hier sehen, dann kann ich entscheiden, ob die Zeit reicht für:

>> Kennt jemand so etwas und ist die/derjenige bereit, seine Kenntnisse zu teilen?
>> beispielsweise mit VBA

Die Vorstellung wäre mal nicht die, dass der Vorgang beim Import gemacht wird, sondern Punktgruppenteilung/-erzeugung erst nach dem Import durchgeführt wird. Den Import selbst nachzuschreiben macht ja keinen Sinn. Nachträglich Punktgruppen zu erstellen (für jede Code-Kennzeichnung) eine und die Regel dafür zu bestimmen) halte ich für sinnvoller.

- alfred -

------------------
www.hollaus.at

[Diese Nachricht wurde von a.n. am 11. Feb. 2010 editiert.]

---

Grundkarte.zip Grundkarte-nachher.zip

Hallo Alfred,
ich hoffe, dass der Upload klappt - Größe ist grenzwertig. Fürs aktuelle Projekt hab ich das jetzt von Hand gemacht, aber so etwas wird man sicherlich immer wieder brauchen können...
Deinen Vorstellungen schließe ich mich vollkommen an: Man hat eine (mehr oder weniger) unsortierte Punktliste, liest diese aus und kategorisiert anhand z.B. der vorhandenen Kurzbeschreibung. Meine VBA-Kenntnisse sind eher rudimentär, aber ich stelle mir den Programmlauf ungefähr so vor:

For j= 1 to count(Punkte)
  Kurzbeschreibung in Array(i), wenn Kurzbeschreibung noch nicht in Array
Next j

For i=1 to count(Arrayindex)
  Erzeuge Punktgruppe mit Text(Array,i)
Next i

Hoffe ich habe mich unfachmännisch halbwegs verständlich ausgedrückt.

Vielen Dank für die Überlegungen

DF

------------------
--------------------------------------------
Der Weihnachsmann war noch nie der Osterhase!

                             Uli Hoeneß

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

---

AN_Tools_CivilPntToGroup_01.zip

Hi,

VORSICHT: nicht ausreichend getestet, vorher sichern, nachher kontrollieren!
Sollten (natürlich wider erwarten ) Probleme auftreten ==> Bitte um Nachricht!

DVB-File per Drag&Drop von Windows-Explorer in den Graphikbereich von AutoCAD ziehen und fallen lassen (damit wird das DVB geladen)

Befehl: -vbarun
Makroname: Civil_PntToGroup

Besteht eine Punktgruppe bereits, wird diese nicht angetastet.

HTH, - alfred -

PS: bzgl. Zeichnungsgrösse ==> Punkte hätten gereicht. 

------------------
www.hollaus.at

---

Hallo Alfred,
funktioniert mit dem Beispiel (und ich denke auch sonst) perfekt! Herzlichen Dank. 
Ist eigentlich eine derart superpraktische Funktion, dass sie sie (Autodesk) standarmäßig einbauen könnten.

Träum: ...Eine Weiterentwicklung könnte ein Menüdialog sein, der den Anwender eine Kriteriendefinition zu Gruppenerzeugung festlegen lässt...

Vielen Dank und Grüße nach AT!
DF

------------------
--------------------------------------------
Der Weihnachsmann war noch nie der Osterhase!

                             Uli Hoeneß

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

---

Hi,

>> Eine Weiterentwicklung könnte ein Menüdialog sein, der den Anwender eine
>> Kriteriendefinition zu Gruppenerzeugung festlegen lässt...

Das aber sicher nicht mit VBA, denn das ist verlorene Mühe aus der Sicht, wie's mit VBA (vielleicht nicht sehr lang) weitergeht.

Nicht zu vergessen, dieser Dialog (wenn von User ausgefüllt) muss auch den kompletten Syntax-Check abdecken, das ist nicht gerade was für 10 Minuten (zumindest nicht für mich).
Wenn Du aber gezielte Wünsche hast, lass sie mich wissen. Könnte ja sein, dass der eine oder andere Wunsch davon leicht umsetzbar ist.

- alfred -

------------------
www.hollaus.at

[Diese Nachricht wurde von a.n. am 11. Feb. 2010 editiert.]