(defun C:flae_pkt ( / letztes)
(setq letztes (car (entget (entlast)))) 
(command "_boundary" pause "")
(if (equal letztes (car (entget (entlast))) )
	(setq ulin nil flatxt nil umftxt nil)
	(setq ulin (entlast))
)
(if ulin 
	(progn
	(command "_area" "_e" ulin)
	(setq flatxt (strcat "Fläche : " (rtos (getvar "area")))
	      umftxt (strcat "Umfang : " (rtos (getvar "perimeter"))))

	(alert (strcat flatxt "\n" umftxt 
	"\n
Die Werte stehen in den globalen Variablen FLATXT und UMFTXT.
Die Umgrenzungspolylinie steht als Element ULIN zur Verfügung.")) 
	)
	(alert "Fehler bei Punktwahl")
)
)