;kringeline zeichnet Linien mit "Kreis"-enden
;Henning Jesse, VoxelManufaktur, 2008
(defun c:kringeline ( / kreisradius org_osm p1 p2)
  (setvar "cmdecho" 0)
  (setq kreisradius 1.0)
  (setq org_osm (getvar "osmode"))
  (setq kreisradius 1.0)
  (setq p1 (getpoint "Startpunkt:"))
  (while (and p1 (setq p2 (getpoint p1 "nächster Punkt:")))
    (setvar "osmode" 0)
    (command "_circle" p1 kreisradius)
    (command "_line" p1 p2 "")
    (command "_lengthen" "_de" (- 0 kreisradius) (list (entlast) p1) (list (entlast) p2) "")
    (setvar "osmode" org_osm)
    (setq p1 p2)
  )
  (setvar "osmode" 0)
  (if p1 (command "_circle" p1 kreisradius))
  (setvar "osmode" org_osm)
  (setvar "cmdecho" 1)(prin1)
)
(prompt "KRINGELINE geladen. Henning Jesse, 2008")