lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms..

Nou pe simpatie:
Anne98 pe Simpatie.ro

Femeie
25 ani
Buzau
cauta Barbat
27 - 52 ani

lisp2arx Reguli Inregistrare Login PozeNu sunteti logat. Lista Forumurilor Pe Tematici

lisp2arx / Listof AutoLisp.100 /

vla-AutoLisp14 - Ac Defun defun-q Self Modify of Startup

Pagini: 1

Moderat de zauchan

admin
Administrator
Din: Bucharest
Postari: 523

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();

vla-AutoLisp14 - Ac Defun defun-q Self Modify of Startup - Poate peste 30 anii, Gigi-Bec - Listof AutoLisp.100 — vla-AutoLisp14 - Ac Defun defun-q Self Modify of Startup – poza de admin, in Listof AutoLisp.100 · 49.3KB

_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf

Pagini: 1

Mergi la