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