(prompt "PKT zum Starten")
(defun C:pkt (/)
  (setq MD_ERR  *ERROR*
        *ERROR* M:FEHLER
        ) ;_ end of setq 
  ;;Marke für Zurück nach Abbruch setzen
  (command "_UNDO" "_MARK")
  ;Fangfunktion
  (setq OLDOSM (getvar "osmode"))
  (if
    (< (setq DCL_ID (load_dialog "Punkteliste.dcl")) 0)
    (progn
      (alert "\nPunktliste.dcl nicht gefunden. Abbruch!")
     (exit)
      )
     (progn
       (setq WHAT_NEXT 7)
       (OFANG-DIALOG DCL_ID)
       (unload_dialog DCL_ID)
       ) ;_ end of progn
     ) ;_ end of if
  (if (not (setq listnam (findfile "punkteliste.txt")))
    (setq listnam (getfiled "Punktliste anlegen" "punktliste" "txt" 1))
    ) ;_ end of if
  (if listnam
    (progn
      (setvar "osmode" zahl)
      (While
        (setq pkt (getpoint "Punkt zeigen: "))
         /=
         NULL
        (setq pktnr (cdr (assoc 1 (entget (ssname (ssget "X"(list (cons 0 "TEXT") (cons 8 "LAYERNAME  der Punktnummern hier eingeben") (cons 10 pkt))) 0)))))
        (setq pkthoehe (cdr (assoc 1 (entget (ssname (ssget "X"(list (cons 0 "TEXT") (cons 8 "LAYERNAME  der Höhen hier eingeben") (cons 10 pkt))) 0)))))
        (setq pktlst (strcat  pktnr
                              " "
                              (rtos (car pkt))
                              " "
                              (rtos (cadr pkt))
                              " "
                              (rtos (caddr pkt))
															" "
                              pkthoehe
                              ) ;_ end of strcat
               ) ;_ end of setq
         (setq DAT_ID (open listnam "a"))
         (write-line pktlst DAT_ID)
         (close DAT_ID)
         ) ;_ end of While
      ) ;_ end of progn
    ) ;_ end of if
  (setvar "osmode" oldosm)
  ) ;_ end of defun


(defun OFANG-DIALOG (DCL_ID /)
  (setq
    bed1 0
    bed2 0
    bed3 0
    bed4 0
    bed5 0
    bed6 0
    bed7 0
    bed8 0
    bed9 0
    bed10 0
    zahl 0
    ) ;_ end of setq
  (while (< 1 WHAT_NEXT)
    (new_dialog "Objektfang" DCL_ID)
    (action_tile "bed1" "(setq bed1 (atoi $value))")
    (action_tile "bed2" "(setq bed2 (atoi $value))")
    (action_tile "bed3" "(setq bed3 (atoi $value))")
    (action_tile "bed4" "(setq bed4 (atoi $value))")
    (action_tile "bed5" "(setq bed5 (atoi $value))")
    (action_tile "bed6" "(setq bed6 (atoi $value))")
    (action_tile "bed7" "(setq bed7 (atoi $value))")
    (action_tile "bed8" "(setq bed8 (atoi $value))")
    (action_tile "bed9" "(setq bed9 (atoi $value))")
    (action_tile "bed10" "(setq bed10 (atoi $value))")
    (action_tile "accept" "(done_dialog 1)")
    (action_tile "cancel" "(done_dialog 0)")
    (setq WHAT_NEXT (start_dialog))
    (cond
      ((= WHAT_NEXT 1)
       (if (= bed1 1)
         (setq zahl (+ zahl 1))
         )
       (if (= bed2 1)
         (setq zahl (+ zahl 64))
         )
       (if (= bed3 1)
         (setq zahl (+ zahl 2))
         )
       (if (= bed4 1)
         (setq zahl (+ zahl 128))
         )
       (if (= bed5 1)
         (setq zahl (+ zahl 4))
         )
       (if (= bed6 1)
         (setq zahl (+ zahl 256))
         )
       (if (= bed7 1)
         (setq zahl (+ zahl 8))
         )
       (if (= bed8 1)
         (setq zahl (+ zahl 512))
         )
       (if (= bed9 1)
         (setq zahl (+ zahl 16))
         )
       (if (= bed10 1)
         (setq zahl (+ zahl 32))
         )
       )
      ) ;_ end of cond
    ) ;_ end of while
  ) ;_ end of defun


(defun M:FEHLER (S)
  (print (strcat "M:fehler " S))
  (close DAT_ID)
  (command)
  (command "_UNDO" "_BACK")
  (setq *ERROR* MD_ERR)
  (princ)
  ) ;_ end of defun
;|«Visual LISP© Format Options»
(72 2 40 1 T "end of " 60 9 0 0 0 nil T nil T)
;*** KEINEN Text unterhalb des Kommentars hinzufügen! ***|;