Colectia de poze lisp2arx.3xforum.ro
Total 222 poze.

Inapoi

 
top de oferte= dr cip03 in limba romana = medicamentTop medicamente de oferte= Ecaterina102slabire= Creatine1=
03.05.202421.3KB
minmize this source (defun checkval () (or (and (numberp (atof (get_tile (numberpMinmize this source (defun checkval () (or (and (numberp (atof (get_tile "left_offset"))) (numberp (atof (get_tile "left_overhang"))) (numberp (atof (get_tile "right_offset"))) (numberp (atof (get_tile "right_overhang"))) ) ;end and (set_tile "error" "Offset and overhang inputs must be numbers!") )) with (vl-every (mapcar '(lambda (x)(numberp (atof (get_tile x)))) (list "left_offset" "left_overhang" "right_offset" "right_overhang"))) (0.816176 6.48044 10.7246 10.3981 1.90985 8.48824 1.69765 3.39529 24.2404 1.63235 22.3306 1.50176 14.7075 17.4335 13.3526 13.3526 14.5769 5.8275 1.25691 11.8019 9.30441 7.72103 8.03118 4.35838 2.17103 3.65647) I need help that 1. Which member have less than 4 than set to 4, and it will deduct from greater than 4. (mapcar '(lambda ( x ) (cond ( (< x 4) 4 ) ( (> x 4) (- x 4) ) ( t x ) )) lst)
25.09.202133KB
scoala3-a= biserica filmul arabelaScoala3-a= BisericaNicolaeBals= Biserica SfantuluiMormant= BibliaAudio= SerafimSarov= C#-List-All-NameSpace=
19.12.202277.8KB
how to check current c.a.d cad'sHow to check current C.A.D platforms? FreeCAD QCAD BRL-CAD Onshape Inc. IronCAD LibreCAD nanocad.com SolveSpace SALOME HeeksCAD
04.12.202033.7KB

 
first you must check the 3reals are geometric you calculate with you calculate sqrt() or l129 m129First you must check the 3reals are made-triangles geometric shape>? Second you calculate semiperimeter with Sqrt Third. you calculate Sqrt() or Sqrt(abs()) (Defun dfn_triunghi_arieheron(k129 l129 m129 / $db per2 r prod a b c $db) (setq $db"Now Check the k128 l129 m129 are triangle"$rr"Failed you tri-line have WrongDimension"k129(if_real k129(- 1.0) ) l129(if_real l129(- 1.0) ) m129(if_real m129(- 1.0) ) ) (if(< k129 0.0) (setq $db nil) (if(< l129 0.0) (setq $db nil) (if(< m129 0.0) (setq $db nil) (if(> k129(+ l129 m129) ) (setq $db nil) (if(> l129(+ k129 m129) ) (setq $db nil) (if(> m129(+ k129 l129) ) (setq $db nil) ) ) ) ) ) ) (if(/= $db nil) (setq $db(/(+ k129 l129 m129) 2.0) prod(* per2(- per2 k129) (- per2 l129) (- per2 m129) ) $rr(sqrt prod) ) ) $rr) (Defun dfn_triunghi_heronform(k129 l129 m129 / $db per2 r prod a b c $db) (setq $db"Now Check the k128 l129 m129 are triangle"$rr"Failed you tri-lines have WrongDimension"k129(if_real k129(- 1.0) ) l129(if_real l129(- 1.0) ) m129(if_real m129(- 1.0) ) ) (if(< k129 0.0) (setq $db nil) (if(< l129 0.0) (setq $db nil) (if(< m129 0.0) (setq $db nil) (if(> k129(+ l129 m129) ) (setq $db nil) (if(> l129(+ k129 m129) ) (setq $db nil) (if(> m129(+ k129 l129) ) (setq $db nil) ) ) ) ) ) ) (if $db(setq a k129 b l129 c m129 a(* a a) b(* b b) c(* c c) $rr(-(+ a b) c) $rr(* $rr $rr) $rr(* 0.25(sqrt(abs(-(* 4 a b) $rr) ) ) ) ) ) $rr) (Defun if_real(a108 tzxelse / $rr) (setq $rr(if(=(type a108) (quote SYM) ) (eval a108) a108) $rr(cond((=(type $rr) (quote INT) ) (+ 1.0(- $rr 1) ) ) ((=(type $rr) (quote REAL) ) $rr) (tzxelse) ) ) $rr) 27.07=Biserica Sf. Pantelimon, pe Linia troleibuz 86, in intersectia cu bulevardul Dacia. Se da pachete de hram in iulie
22.07.202047.5KB
ghidul pensiilor private din romānia este cea mai de aici poți găsi cu grad ridicat deGhidul pensiilor private din Romānia este cea mai completă platformă de educație financiară. Aici poți găsi informații cu grad ridicat de utilitate, analize grafice, opinii și explicații pertinente de la experți īn domeniu. =D Aderarea la un fond de pensii administrat privat Pilon II era obligatorie la data adoptării legii pentru persoanele cu vārste pānă īn 35 ani şi opţională pentru persoanele cu vārste cuprinse īntre 35 şi 45 de ani. Īn 2021, cota aferentă fondurilor de pensii administrate privat Pilon II, inclusă īn contribuţia individuală de asigurări sociale, este de 3.75%.
26.10.202145.6KB
you view the sosurce lisp and c+l, noi injectam direct in acest voi invatati la scrieti ecuatiiYou view the sosurce LISP and C+L, Noi injectam ecuatii-cartografice direct in AutolLisp. Cu acest program.exe, Voi invatati visual-Lisp la beginner-Level dvs. scrieti ecuatii matematice conform C++ syntax iar codul este tradus in 100%autoLisp, astfel dvs castigati timp, si nu pierdeti timpul sa invatati Lisp dela zero Q: Ce este autoLisp? A: AutoLisp se foloseste pe toate platformele similar de functionare ca model cu HTML; dar pentru toate programele de *CAD drawing/drafter/ProgeCad/C.A.D/GstarCAD/BrisCAd :limba: BabaVanga zicea ca fortele oculte incearca sa aduca in lume Hi-tech o noua forma de comunismEconomic iar BOR nu este decat un Ccmunism de laborator realizat de UE. Noi trebuie sa-i iertam (e.g.Ps. Teodosie). Doamne ajuta-i ; Bietul BOR este doar un cobai experimental pentru intreaga sistem economic UE .. eu zic ca "BOR + coruptii preotii+turnatori preotii" să care in spate lor toate păcatele-economice (si nu nu pacatele ecumenice) create capitalism, păcate facute de BNR+BRD+Renault+CFR marfa+.SNCF din Franta+Mercedes Benz.inc.Audi +Lenovo+Asus .+Port naval Rotterdam.. Doamne iarta-i pe episcopii securisti; doamne milueste-i pentru noi păcătosii de rănd? De aceea Eu va incurajez sa va concentrati timpul alocat, mai mult gramatica java'Script sau C# si mai putin pe gramatica/sintaxa Autolisp Best Regards.
18.07.201650.2KB
you see here the ldc21 for programe You see here the source-jDebug Ldc21 for Programe "pp_topolt_allcolor.lsp " This srcCode-is non-VLXdebug-map. Ttle:You can set color (Black, or white or Red for entire Drawing)
21.08.202040.8KB

 
(command (command "_.zoom" "_W" "_non" (getpoint "\nGive window first point: ") "_non" (getpoint "\nGive window second point: ")) (setq p1 (getpoint "\nGive point p1: ")) (command "_.zoom" "_p")
24.11.202155.2KB
the k129 l129 m129 are reals (k129 l129 m129 / $db per2 r prod a b c $db) $db The K129 l129 m129 are reals variabiles. (Defun dfn_triunghi_arieheron (k129 l129 m129 / $db per2 r prod a b c $db) (setq;|a4059855|; $db "Now Check the k128 l129 m129 are triangle" $rr "Failed you tri-line have WrongDimension" k129 (if_real k129 (- 1.0)) l129 (if_real l129 (- 1.0)) m129 (if_real m129 (- 1.0))) (if (< k129 0.0) (setq;|a4060009|; $db nil) (if (< l129 0.0) (setq;|a4060043|; $db nil) (if (< m129 0.0) (setq;|a4060077|; $db nil) (if (> k129 (+ l129 m129)) (setq;|a4060117|; $db nil) (if (> l129 (+ k129 m129)) (setq;|a4060157|; $db nil) (if (> m129 (+ k129 l129)) (setq;|a4060195|; $db nil))))))) (if (/= $db nil) (setq;|a4060245|; $db (/ (+ k129 l129 m129) 2.0) prod (* per2 (- per2 k129) (- per2 l129) (- per2 m129)) $rr (sqrt (abs prod)))) $rr) Version Unchecked. Please you test your self the equations are fine (Defun dfn_triunghi_heronform(k129 l129 m129 / $db per2 r prod a b c $db) /*c2s: $db="Now Check the k128 l129 m129 are triangle"; $rr="Failed" you tri-line have WrongDimension"; k129=if_real(k129,-1.0), l129=if_real(l129,-1.0), m129=if_real(m129,-1.0); if (k129<0.0) $db=nil; if (l129<0.0) $db=nil; if (m129<0.0) $db=nil; if (k129>(l129+m129)) $db=nil; if (l129>(k129+m129)) $db=nil; if (m129>(k129+l129)) $db=nil; if ($db) a=k129, b=l129, c=m129, a=a*a, b=b*b, c=c*c, $rr=a+b-c, $rr=$rr*$rr, $rr=0.25*sqrt(abs(4*a*b-$rr)); */ $rr) (Defun if_real(a108 tzxelse / $rr) ;_ASSERT_OK (setq;|a4687509|; $rr (if (= (type a108) (quote SYM)) (eval a108) a108) $rr (cond ( (= (type $rr) (quote INT)) (+ 1.0 (- $rr 1)))( (= (type $rr) (quote REAL)) $rr)( tzxelse))) $rr)
22.07.202028.6KB
ah:before, you publishing (bor progn.des or or pp.vlx, or src.lsp) over can compile your c+l toAH:Before, you publishing (Bor progn.des or program.fas or pp.vlx, or src.lsp) over internet, =>you can compile your C+L to jc_pin15 or jc_dup35? Q1: How to himself-Protecting intellectual property.lsp of sources in Visual-Lisp? (Defun dfn_ssgx_blockeatpoint(t108 cpnt wggl pnct / $rr a b $c fm1 e g l p d x y z k) (setq;|a17238|; d (- 4) e 0.0 k nil) (setq;|a17308|; t108 (if (= (type t108) (read "STR")) t108 "INSERT") t108 (if (> t108 "") t108 "POINT") b (if (numberp cpnt) (atoi (rtos cpnt 2 0)) 10) $c (if (numberp wggl) (abs wggl) 0.3412) p (if_pointdwg pnct nil) fm1 nil) (if p (setq;|a17560|; x (car pnct) y (cadr pnct) fm1 (list (cons (- 4) ",>,*") (list b (- x $c) (- y $c) 0) (cons d "<,<,*") (list b (+ x $c) (+ y $c) 0) (cons (- 4) "AND>")))) (if (/= fm1 nil) (setq;|a17870|; $rr (ssget "X" fm1)) (setq;|a17908|; $rr nil)) $rr) Q2: How to himself-Protecting intellectual property.lsp of sources in Visual-Lisp?
05.11.202047.9KB
you can user cputicks and modulo for generating number/s inside the for delphi or think you can alsoYou can user cputicks and modulo for generating number/s inside the shortstring for Delphi or Lazarus. I think you can also use a random string to replace your integer. I have written a program to generate a random string. Look at this URL： #region (DEFUN make_rnd_string (/ lvar0 lvar1 lvar2 lvar3 lvar4 lvar5 lvar6 lvar7 lvar8 lvar9) (setq lvar1 (LIST "{" "}" "~" "" "_" "^" "*" "$" ":" "#" "@") ) (setq lvar2 (LIST "s" "t" "u" "1" "2" "3" "4" "5" "6" "?" "#" "@" "" "_" "^" "{" "}" "r" "x" "y" "h" "i" "w" "c" "d" "k" "~" "*" "$" ":" "l" "m" "v" "g" "q" "p" "z" "n" "o" "a" "e" "f" "j" "b" "7" "8" "9" "0" ) ) (setq lvar8 (list "j" "b" "s" "w" "c" "d" "k" "p" "z" "n" "l" "m" "t" "u" "h" "i" "v" "g" "q" "r" "x" "y" "o" "a" "e" "f" ) ) i've been playing with bricscad for a night .des file format appears to be unsecure whoever cares about his/her code privacy - do not use .des format. (setq lvar3 (rem (READ (SUBSTR (VL-STRING-SUBST "" "." (RTOS (GETVAR "cputicks") 2 16) ) 12 2 ) ) 12 ) ) (setq lvar4 (rem (READ (SUBSTR (VL-STRING-SUBST "" "." (RTOS (GETVAR "cputicks") 2 16) ) 12 2 ) ) 48 ) ) (setq lvar5 (rem (READ (SUBSTR (VL-STRING-SUBST "" "." (RTOS (GETVAR "cputicks") 2 16) ) 12 2 ) ) 48 ) ) (setq lvar6 (rem (READ (SUBSTR (VL-STRING-SUBST "" "." (RTOS (GETVAR "cputicks") 2 16) ) 12 2 ) ) 48 ) ) (setq lvar0 (rem (/ (getvar "millisecs") 10000) 26)) (setq lvar9 (rem (getvar "millisecs") 26)) (if (= nil lvar3) (setq lvar3 1)) (if (= nil lvar4) (setq lvar4 2)) (if (= nil lvar5) (setq lvar5 3)) (if (= nil lvar6) (setq lvar6 4)) bricscad is a good alternative to acad and there will be more and more bricscad users worldwide if you want to sell them your apps you will have to chose between money and security (setq lvar7 (STRCAT (NTH lvar0 lvar8) (NTH lvar3 lvar1) (NTH lvar4 lvar2) (NTH lvar5 lvar2) (NTH lvar6 lvar2) (NTH lvar9 lvar8) ) ) (if (VL-POSITION lvar7 rnd_string_list ) (PROGN (setq lvar7 (make_rnd_string))) (PROGN (setq rnd_string_list (CONS lvar7 rnd_string_list)) lvar7 ) ) ) (DEFUN make_rnd_string12 () (strcat (make_rnd_string) (make_rnd_string)) )
02.11.202439KB

 
Bitdefender2013
27.03.202132.5KB
first. you compile c2s to two version/s from a you search the crash with ctrl+f in you repair theFirst. You compile C2S to two version/s from a same-program-source Second. You search the crash with CTRL+F in pp_jc_aro10.lsp(eg. C007getvar) Third. You repair the source pp_normal.lsp (getvar ..) a)Normal (CTRL+D) b)Debug (CTRL+A) The main problem, is the programe need more-test/s in very short-times. Please you execute this source, with Q2. When you got any error, please you enter the command (getmypid) at line command or CommandLine you open the source Debug+CTRL+A.lsp,"find.CTRL+F" and you search the error C133, you compare the function with "Normal+CTRL+D.lsp" "Cxxx" or C133 in this source SetMyPid=C133terpri CONFIG_STACKTRACE=nilnil After you got , any error , the you type at line command (getmypid)
04.08.202148.5KB
here you view the do not remember, you keep and safe the both source/s and for test from (defunHere You view the sourceNormal (CTRL+D) You do not remember, you keep and safe the both source/s (Normal.lsp and Jc_aro10.lsp) Downloading,the compiler.exe, for test from (defun nn_vmload( / $rr fsn cnt dxmsg fna lpt fly izx eg etc tip lyr nLen ent tx8 enx loopw rst tmp nop) (setq;|a000|; rst "strcat" fsn (ssget (list (cons 0 "*LINE")))) (if (= fsn nil) (progn (alert (strcat "" readme.txt)) (exit))) (setq;|a000|; cnt (dfn_ssg_len fsn)) (if (< cnt 1) (progn (alert (strcat "" readme.txt)) (exit))) (setq;|a000|; tmp (getvar "DWGNAME") fna (strcat (getvar "DWGPREFIX") (substr tmp 1 (- (strlen tmp) 4)) "_" (rtos (getvar "CDATE") 2 6) "csv")) (setq;|a000|; tmp (strcat "\n" "\nLabel.exe=" fna "\nDosx.exe=" (itoa cnt) "\nFormat.com=~HANDLE,LENGTH,LAYER,X,Y,Z~\n")) (setq;|a000|; fly (open fna "w")) (write-line tmp fly) (close fly) (vl_load_com) (setq;|a000|; cnt (- cnt 1) $rr (list)) (progn (setq;|a000|; izx 0) (while (<= izx cnt) (progn (setq;|a000|; ent (ssname fsn izx) eg (entget ent) tip (cdr (assoc 0 eg)) han (cdr (assoc 5 eg)) lyr (cdr (assoc 8 eg)) nLen (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent)) $rr (cons (strcat (itoa izx) ":=" han "," (rtos nLen 2 2) "," lyr ",") $rr)) (if (= tip "LWPOLYLINE") (while (setq eg (member (assoc 10 eg) eg)) (setq;|a000|; pnt (cdr (car eg)) $rr (cons (dfn_ent_point10 "2,3" pnt) $rr) eg (cdr eg)))) (if (= tip "POLYLINE") (progn (setq;|a000|; enx (entnext ent)) (while (/= (dfn_ent_dxf00 enx) "SEQEND") (progn (setq;|a000|; eg (entget enx)) (while (setq eg (member (assoc 10 eg) eg)) (setq;|a000|; eg (cdr eg)))) (setq;|a000|; enx (entnext enx))))) (setq;|a000|; r (cons (dfn_ent_point10 "2,3" (cdr (car eg))) $rr)) (if (= tip "LINE") (setq;|a000|; $rr (cons (dfn_ent_point10 "2,3" eg) $rr) $rr (cons (dfn_ent_point11 "2,3" eg) $rr))) (if (= tip "SPLINE") (progn (while (setq eg (member (assoc 11 eg) eg)) (setq;|a000|; pnt (cdr (car eg)) $rr (cons (dfn_ent_point10 "2,3" eg) $rr)) (setq;|a000|; eg (cdr eg))))) (if (/= $rr nil) (setq;|a000|; tmp (apply (read rst) (reverse $rr)) fly (open fna "a") nop (write-line tmp fly) nop (close fly))) (setq;|a000|; $rr nil)) (setq;|a000|; izx (+ izx 1)))) fna)
04.08.202130.8KB
eu astept, sa gaesc un modul pe fac versiunea si eu postez ulterior.- pe to install modulelispEu astept, sa gaesc un modul pe autocad-forum-lisp,. Eu fac versiunea si eu postez ulterior.- pe facebook.com How to install moduleLisp inside hisDrawing.dwg? Anyone, cannot execute the moduleLisp, without execute installer.lsp , with name "asm_jc_lda18.lsp". If you hide the "asm_jc_lda18.lsp" for all User/s then --you blocked yourLisp, imposibile execute moduleLisp on alldrawing. The "asm_jc_lda18.lsp" locker the moduleLisp.
18.11.202152.3KB

 
dynamic movie point dynamic viewDynamic Movie
11.07.202019.6KB
Inapoi