;............................................................
;:      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    zustzlicher Fangmodus          Str
;       osmo    OSMODE zum abzhlen             Int

(DEFUN osst (osms)      ;Stringaufbereitungs-Funktion
                        ;Parameter, neu anzufgender 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 zurckgeben
     (SETQ osmo (FLOAT (GETVAR "OSMODE"))
                        ;speichern von OSMODE als real
         ostr NIL
                        ;ostr initialisieren
         oslv 1
                        ;oslv Lauvar. initialisieren
     )
     (IF (> osmo 0)
                        ;wenn osmo grsser 0
        (PROGN
          (WHILE (> osmo 0)
                        ;solange osmo grsser 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 "NChster"))
                  ((= oslv 11)(osst "QUICK"))
                )
             )
                        ;ende wenn osmo > osmo ganz  (ungerade)
             (SETQ oslv (1+ oslv))
                        ;Laufvariable um 1 erhhen
          )
          (PRINC (STRCAT ostr " ist aktiv\n"))
                        ;Meldung ausgeben
        )
        (PRINC "Kein Fangmodus aktiv\n")
                        ;sonst Meldung ausgeben
    )
    (PRINC)
                        ;unterdrcken der Rckgabe
)
