lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Lista Forumurilor Pe Tematici
|
lisp2arx | Reguli | Inregistrare | Login
POZE LISP2ARX
Nu sunteti logat.
|
Nou pe simpatie:
Mada_m99 pe Simpatie.ro
 | Femeie
23 ani
Bacau
cauta Barbat
24 - 53 ani |
|
|
zauchan
Moderator
Inregistrat: acum 13 ani
Postari: 180
|
|
;;implementat la (_lspfn_list_qsort)
Code:
(defun Qsort (lst / x l e g)
(if lst
(progn
(setq x (nth (/ (length lst) 2) lst)
l nil e nil g nil)
(while (not (null lst))
(cond ((= (car lst) x) (setq e (cons x e)))
((< (car lst) x) (setq l (cons (car lst) l)))
(t (setq g (cons (car lst) g)))
)
(setq lst (cdr lst))
)
(setq l (Qsort l)
g (Qsort g))
(append l e g)
)
nil
)
) |
Code:
(defun C:RUN ( / cmd num)
(princ "\nVoid input returns you to an AutoLISP.")
(initget 128)
(setq num 1)
(setq cmd (getpoint (strcat "\nCommand #" (itoa num) ": ")))
(while (and (equal (type cmd) 'STR)(not (equal cmd "")))
(print (eval (read cmd)))
(initget 128)
(setq num (1+ num)
cmd (getpoint (strcat "\nCommand #" (itoa num) ": ")))
)
(princ)
) |
;Lisp2C
;AutoLISP to C (ADS) Translator User's Manual, Version 2.9, 1st revision
;(C) 1993, 1995 BASIC d.o.o Jesenkova 5, 61000 Ljubljana, Slovenia
;Tel: +386 1 314 069Fax: +386 1 318 211 e-mail: Jure Spiler
Code:
(defun S::l2cstartup ()
(princ "\nL2C 2.9 demo file")
(princ "\nNew command:")
(princ "\n RUN runs alternate Lisp interpreter")
(princ "\nNew function:")
(princ "\n (QSORT list) sorts list of elements in ascending order")
(princ "\n\nThis is S::L2CSTARTUP function, automatically invoked when")
(princ "\nan application is XLOADed.")
(princ "\nHave a nice day!")
) |
_______________________________________
psw: cea de la wjndowsXP gigabyte..
|
|
| pus acum 4 ani |
|