33 lines
1.1 KiB
Common Lisp
33 lines
1.1 KiB
Common Lisp
;............................................................
|
|
;: 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)
|
|
)
|
|
|