(defun c:se ( / Startpkt Endpkt Anz Anzahl)
  (setq
    Startpkt (trans (getpoint "\nStartpunkt: ") 1 0)
    Endpkt   (trans (getpoint "\nEndpunkt: ") 1 0)
    Anz	     (/ (distance Startpkt Endpkt) 1000.0)
  )
  (if (/= (- Anz (setq Anzahl (fix Anz))) 0)
    (setq Anzahl (1+ Anzahl))
  )
 (command "_ucs" (trans Startpkt 0 1) (trans Endpkt 0 1) "")
  (command "_insert" "se" (trans Startpkt 0 1) "" "" "")
  (command "_array" "_l" "" "r" 1 Anzahl 1000)
  (command "_ucs" "_p")
)