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,71 @@
+;............................................................
+;:      DATE : 91-01-01    Kunde:                           :
+;:      Schuetz/Schmidt    AutoCAD-Version 11               :
+;:      Version 1.0        ab Version 2.6                   :
+;:                                                          :
+;:      OF.LSP             Gesetzte Fangmodi als Text       :
+;:..........................................................:
+;
+;Deklaration:
+;       ostr    alle ges. Fangmodi              Str
+;       osms    zus„tzlicher Fangmodus          Str
+;       osmo    OSMODE zum abz„hlen             Int
+
+(DEFUN osst (osms)      ;Stringaufbereitungs-Funktion
+                        ;Parameter, neu anzuf�gender String
+        (IF ostr
+                        ;wenn ostr vorhanden
+             (SETQ ostr (STRCAT osms ", " ostr))
+                        ;dann ostr auf osms + ostr setzen
+             (SETQ ostr osms)
+                        ;sonst ostr auf osms setzen
+        )
+)
+
+(DEFUN C:of (/ osmo ostr oslv)	;Gesetzter Fangmodus zur�ckgeben
+     (SETQ osmo (FLOAT (GETVAR "OSMODE"))
+                        ;speichern von OSMODE als real
+         ostr NIL
+                        ;ostr initialisieren
+         oslv 1
+                        ;oslv Lauvar. initialisieren
+     )
+     (IF (> osmo 0)
+                        ;wenn osmo gr”sser 0
+        (PROGN
+          (WHILE (> osmo 0)
+                        ;solange osmo gr”sser 0
+             (SETQ osmo (/ (FLOAT (FIX osmo)) 2))
+                        ;osmo ganz als real / 2, speichern
+             (IF (> osmo (FIX osmo))
+                        ;wenn osmo > osmo ganz  (ungerade)
+                (COND
+                        ;dann, wenn
+                  ((= oslv 1)(osst "ENDpunkt"))
+                        ;oslv = 1 ENDpunkt in osst speichern
+                  ((= oslv 2)(osst "MITtelpunkt"))
+                  ((= oslv 3)(osst "ZENtrum"))
+                  ((= oslv 4)(osst "PUNkt"))
+                  ((= oslv 5)(osst "QUAdrant"))
+                  ((= oslv 6)(osst "SCHNittpunkt"))
+                  ((= oslv 7)(osst "EINFuege"))
+                  ((= oslv 8)(osst "LOT auf"))
+                  ((= oslv 9)(osst "TANgente"))
+                  ((= oslv 10)(osst "NŽChster"))
+                  ((= oslv 11)(osst "QUICK"))
+                )
+             )
+                        ;ende wenn osmo > osmo ganz  (ungerade)
+             (SETQ oslv (1+ oslv))
+                        ;Laufvariable um 1 erh”hen
+          )
+          (PRINC (STRCAT ostr " ist aktiv\n"))
+                        ;Meldung ausgeben
+        )
+        (PRINC "Kein Fangmodus aktiv\n")
+                        ;sonst Meldung ausgeben
+    )
+    (PRINC)
+                        ;unterdr�cken der R�ckgabe
+)
+