neue Folder LAYOUT MENU und MODULE dazu

2025-04-14 16:56:58 +02:00
parent e6e1705f0d
commit 35f7b2d75e
935 changed files with 803964 additions and 0 deletions
@@ -0,0 +1,33 @@
+;............................................................
+;:      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)
+)
+