lijst van coordinaten maken

[zenit]

Hallo,

ik ben nieuw hier en val meteen met de deur in huis.
Momenteel volg ik een opleiding tot Topograaf en ben bezig met mijn eindwerk.
Hiervoor moeten we een verkaveling uitwerken.
Een van de nodige plannen is een coordinatenplan zodat de landmeter weet waar de grenspalen tussen de kavels moeten komen. Het plan is reeds getekend, maar nu moet er een lijst naast komen met de X,Y coordinaten van alle hoekpunten, plus nummer.

Ik ken een heel klein beetje van Lisp maar niet genoeg om zomaar iets uit te vinden.
Kan iemand mij opweg helpen of bestaat zoiets al?

Greetzzz
Zenit

[alex4444]

Even een simpele lsp. Maar dit helpt je op weg. Je kan ze verbeteren door while in te bouwen. Kopieer deze code naar je commando regel, zet in een .lsp bestand. Type X.

Om te resetten type xc.

(defun c:x ( / p numb)
(setq numb (length pntl))
(prompt "\nPick point: ")
(setq p (getpoint))
(setq pntl (append (list (list (strcat (rtos numb) " X " (rtos (car p))) (strcat "Y " (rtos (cadr p))))) pntl))
(princ "\n")
(foreach n pntl (princ n) (terpri))
)

(defun c:xc ()
(setq pntl nil)
)