;............................................................
;:      DATE : 91-01-01    Kunde:                           :
;:      Schuetz/Schmidt    AutoCAD-Version 11               :
;:      Version 1.0        ab Version 2.6                   :
;:                                                          :
;:      ED.LSP             Editeraufruf                     :
;:..........................................................:
;
;Deklaration:
;       prna    Programmname                    String
;       prnn    Neuer Programmname lokal        String

(DEFUN C:ED (/ prnn)
  (IF (NULL prna)
      (SETQ prna "")
  )
  (SETQ prnn (GETSTRING (STRCAT "Programmname  <" prna ">: ")))
  (IF (AND (= (STRLEN prna) 0)(= (STRLEN prnn) 0))
      (PRINC "\nkein gltiger Name!")
      (PROGN
         (IF (> (STRLEN prnn) 0)
             (SETQ prna (STRCAT "c:\\prog\\acad\\menu\\" prnn))
         )
         (COMMAND "shell" "nc")
;         (COMMAND "shell" (STRCAT "edlin " prna ".lsp"))
        (IF (= (STRLEN (GETSTRING "\nProgramm laden <> ")) 0)
             (LOAD prna)
        )
     )
  )
  (PRINC)
)