Endpunkte von Linienelementen ändern PUNKTNESTER.LSP
Wenn man im Vermessungswesen mit einfachen Linienkodierungsverfahren arbeitet, kommt es häufig vor, dass im Bereich von Knoten mehrere Knotenpunkte gemessen werden, und zwar für alle abgehenden oder ankommenden Linienzüge. Um die Linienzüge aber alle sauber auf einen Knotenpunkt zu ziehen, sind in AutoCAD recht viele Arbeitsschritte notwendig.
Mit dem Programm PUNKTNESTER.LSP wird ein Knotenpunkt als Punktblock ausgewählt (im Programm auch Ziel-Block genannt). Danach kann man die Linienelemente in Schleife picken, die im Startoder Endpunkt auf den Knotenpunkt gestreckt werden sollen. Dabei lassen sich die ursprünglichen Knotenpunkte der Linienzüge optional auf einen anderen Layer umlegen. Wenn dieser Layer gefroren ist, sind die Punktblöcke immer noch vorhanden, aber nicht mehr sichtbar.
Für 3D-Polylinienzüge und Linien kann man die Höhe des neuen Knotenpunkts auf den Start- oder Endpunkt des Linienzugs übertragen. Ausnahme: Wenn bei allen Stützpunkten des Linienzugs der z-Wert bei 0.0 liegt, dann wird auch kein z-Wert auf den zu ändernden Stützpunkt übertragen.
Programmablauf
Der Benutzer wird in einer ersten Schleife aufgefordert, einen Punktblock (auch Zielblock genannt) zu picken. Eine zweite, untergeordnete Schleife läuft dann so lange, wie man Linienelemente pickt. Die Start- oder Endpunkte der gepickten Linienelemente werden dann auf den Zielblock gestreckt. Wird dort kein Linienelement mehr gepickt, geht es wieder in die erste Schleife. Möchte man dort weitere Punktblöcke picken, geht es nach dem beschriebenen Schema weiter, andernfalls beendet man das Programm.