Lisp Anwendung installieren

 

Lisp Tool installieren am Beispiel OFF5.LSP - Hier der Inhalt der LISP Datei:

;; Lisp um ein Objekt mit Multiplikator zu versetzen / zum Beispiel Zoll
(defun off5_err (msg)
(setq *error* olderr)
(if (not off5err)
(princ (strcat "\nOff5 error: " msg))
(princ off5err)
)address>
(if ce (setvar "cmdecho" ce))
(if hl (setvar "highlight" hl))
(if ofchg (setvar "offsetdist" (/ (getvar "offsetdist") dist)))
(princ)
)
(defun offby (dist / odist ce hl offchg off5err)
(setq olderr *error*
*error* off5_err
ce nil
hl nil
offchg nil
off5err nil
)
(setq ce (getvar "cmdecho"))
(setq hl (getvar "highlight"))
(setvar "highlight" 1)
(setvar "cmdecho" 0)
(if (>= (setq odist (getvar "offsetdist")) 0.0)
(prompt (strcat "\nOffset Abstand angeben oder <" (rtos odist) ">: "))
(prompt "\nOffset Abstand angeben oder <Through>: ")
)
(COMMAND "._OFFSET")
(command pause)
(command)
(if (>= (getvar "offsetdist") 0.0)
(progn
(setvar "offsetdist" (* dist (getvar "offsetdist")))
(setq ofchg 1)
)
)
(setvar "cmdecho" 0)
(command "._offset")
(setvar "cmdecho" 1)
(command "")
(while (eq 1 (logand 1 (getvar "cmdactive")))
(command pause)
)
(setvar "cmdecho" 0)
(if (>= (getvar "offsetdist") 0.0)
(setvar "offsetdist" (/ (getvar "offsetdist") dist))
)
(princ)
)
;; Faktor definieren hier im Beispiel 5
(Defun c:off5 ()
(offby 5.0)
(princ)
)
 
 
 
 
 
 
 

 

Lisp Tool installieren am Beispiel OFF5.LSP - Hier der Inhalt der LISP Datei:

;; Lisp um ein Objekt mit Multiplikator zu versetzen / zum Beispiel Zoll
(defun off5_err (msg)
(setq *error* olderr)
(if (not off5err)
(princ (strcat "\nOff5 error: " msg))
(princ off5err)
)address>
(if ce (setvar "cmdecho" ce))
(if hl (setvar "highlight" hl))
(if ofchg (setvar "offsetdist" (/ (getvar "offsetdist") dist)))
(princ)
)
(defun offby (dist / odist ce hl offchg off5err)
(setq olderr *error*
*error* off5_err
ce nil
hl nil
offchg nil
off5err nil
)
(setq ce (getvar "cmdecho"))
(setq hl (getvar "highlight"))
(setvar "highlight" 1)
(setvar "cmdecho" 0)
(if (>= (setq odist (getvar "offsetdist")) 0.0)
(prompt (strcat "\nOffset Abstand angeben oder <" (rtos odist) ">: "))
(prompt "\nOffset Abstand angeben oder <Through>: ")
)
(COMMAND "._OFFSET")
(command pause)
(command)
(if (>= (getvar "offsetdist") 0.0)
(progn
(setvar "offsetdist" (* dist (getvar "offsetdist")))
(setq ofchg 1)
)
)
(setvar "cmdecho" 0)
(command "._offset")
(setvar "cmdecho" 1)
(command "")
(while (eq 1 (logand 1 (getvar "cmdactive")))
(command pause)
)
(setvar "cmdecho" 0)
(if (>= (getvar "offsetdist") 0.0)
(setvar "offsetdist" (/ (getvar "offsetdist") dist))
)
(princ)
)
;; Faktor definieren hier im Beispiel 5
(Defun c:off5 ()
(offby 5.0)
(princ)
)
 
 
 
 
 
 
 

Seite 2