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:
Tanya_sexy pe Simpatie.ro
Femeie
24 ani
Hunedoara
cauta Barbat
24 - 47 ani
lisp2arx / Listof AutoLisp.100 / vla-AutoLisp14 - Ac Defun defun-q Self Modify of Startup Moderat de zauchan
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 515


Code:

(cond
   ((not S::STARTUP)
      (defun-q S::STARTUP ()(do_this)(do_that))
   )
   ((listp S::STARTUP)
      (setq S::STARTUP (append S::STARTUP '((do_this)(do_that))))
   )
   ((member (type S::STARTUP) '(SUBR USUBR))
      (eval
         (list 'defun-q 's::startup ()
            (list s::startup)        ;; NO QUOTE
           '(do_this)
           '(do_that)
         )
      )
   )
)

Poate peste 30 anii, Gigi-Becali va deveni inger pazitor pe Marte sau Venus,.... sa dea Dumnezeu, , noi nu trebuie sa ne lacomin aici , sa avem aici foarte , foarte mult bine in interiorul Terra.. dar noi sa mai avem rabdare-si Inger-pazitor cu aripi cu numele Gigi Becalii pe planeta Marte😃 in anul 2050, nu este rau deloc.😃 . este mai mare lucru decat toate averile bancare, de acum din anul 2022. al persoanelor (Biden, Putin...)

Code:

(setq a 10 b 20) ; global variable
(defun plusglob nil (+ a b)) ; utilizes global variables a and b
(defun plusloc (/ a b)
(setq a 5 b 6) ; local variable to plusloc
(+ a b) ; uses local vars a and b
)



Code:

(defun atc_domenicomariapisano  nil
    (eval (list 'defun 'domenicomariapisano  'nil (vla-get-activedocument (vlax-get-acad-object))))
    (atc_domenicomariapisano)
)



Code:

(setq z80 
    (lambda (L . args)
     (princ "\nLenghh=")
     (princ (length args))
    )
  )
 (lambda (name . args)

Legendele spun că Moș Ajun este fratele geamăn al lui Moș Crăciun. Fecioara Măria l-a rugat pe el, inițial, îi ofere ajutorul înainte de a-l naște pe Iisus, dar pentru că s-a considerat prea sarac, Moș Ajun a trimis-o pe Măria la casa fratelui sau, Moș Crăciun, unde i s-a oferit găzduire într-un staul.

Code:

%wfopen(_pathuser("cl_adslisp\dfn_list_groupby3.lsp"))
//Inf: Running and delete function groupby3
  (setq groupby3 
    (lambda (L / r)
      (repeat 3 (and L (setq r (cons (car L) r))) (setq L (cdr L)) r) 
      (if L (cons (reverse r) (groupby3 L)) (progn (setq groupby3 nil) (list (reverse r))))
    )
  )
_$ (groupby3 '(1 2 3 4 5 6 7 8 9 11 12 13 14))
   ---------0->((1 2 3) (4 5 6) (7 8 9) (11 12 13) (14))
_$ (groupby3 '(1 2 34  5 6 7 89  "aa"))
; error: no function definition: GROUPBY3
%fclose();



defun defun-q self modify startup ((not (defun-q s::startup ((listp (setq s::startup (append

49.3KB

_______________________________________
pus acum 2 ani
   
Pagini: 1  

Mergi la