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

Inainte

 
- drracket + clojure projectComplex-Clojure2022Mai24=
24.05.202257.9KB
preţ chirie lujerului – 330-370 de – 340-400 de nerva traian – 400 de dristor – 350-400 dePreţ chirie garsonieră Chirie Lujerului – 330-370 de euro Chirie Grozăveşti – 340-400 de euro Chirie Nerva Traian – 400 de euro Chirie Dristor – 350-400 de euro Chirie Titan – 300-350 de euro Preţ chirie apartament două camere Chirie Lujerului – 450 de euro Chirie Grozăveşti – 500-550 de euro Chirie Timpuri Noi – 600 de euro Chirie Dristor – 500-600 de euro Chirie Aviaţiei – 600-650 de euro Mulţi proprietari încearcă să forţeze piaţa şi să scoată la închiriere locuinţe cu 50, chiar 100 de euro peste preţul real. Nu întodeauna metoda lor funcţionează. În momentul de faţă, în Capitală, într-o zonă bună, o garsonieră se închiriază cu 350 de euro. Un apartament de două camere se închiriază şi cu 450 de euro. Întrebat dacă ar fi loc de negociere, Alexandru Damian, broker imobiliar, răspunde: „Foarte puţin, doar dacă oferta este de mult timp pe piaţă şi deja îl costă pe proprietar să n-o aibă închiriată”. O analiză a pieţei din Capitală arată că o garsonieră în zonele Lujerului, Grozăveşti sau Nerva Traian se închiriază la preţuri cuprinse între 330 şi 400 de euro. Pentru apartamentele cu două camere – tarifele ajung şi la 600 de euro pe lună, în funcţie de dotări şi de zonă. Preţurile cresc pe măsură ce ne apropiem de centrul şi nordul oraşului. „Zona Timpuri Noi, zona Dristor merge foarte bine. Zona Lujerului, zona Grozăveşti, zona Aviaţiei, fix în zona de birouri. Acolo mereu au fost puncte fierbinţi ale pieţei. Chiar şi Tineretului”, mai spune Alexandru Damian, broker imobiliar. La toamnă, o dată cu începerea noului an universitar, preţurile chiriilor vor creşte din nou
22.05.202239.2KB
dragne ai fost selectat să cadoul tău clic pe acest link pentru a vă revendica cadoulDragne Felicitări, ai fost selectat să primești cadoul tău 🎁🎁🎁 Faceți clic pe acest link pentru a vă revendica cadoul 👇👇👇👇 Cadoul-primit-dela Becalii= Dragne Adrian Felicitări sunteți câștigătorul celui mai bogat om de afaceri al României 🇦🇩 * Gigi becail * League Promotional Game Foundation, vă rugăm să contactați asistentul său pe WhatsApp pentru mai multe informații Pentru a vă revendica 📦📦🎁🎁 👇👇👇 Dragne Felicitări, ai fost selectat să primești cadoul tău 🎁🎁🎁 Faceți clic pe acest link pentru a vă revendica cadoul 👇👇👇👇 👆👆👆👆👆👆👆 RăspundeDistribuie5h Takou Yacoubou Dragne Adrian Felicitări sunteți câștigătorul celui mai bogat om de afaceri al României 🇦🇩 * Gigi becail * League Promotional Game Foundation, vă rugăm să contactați asistentul său pe WhatsApp pentru mai multe informații Pentru a vă revendica 📦📦🎁🎁 👇👇👇
22.05.202242.6KB
(romania (romania "x3 si y3 sunt valorii reale") (mapcar 'set '(x3 y3) (polar pt1 ang del)) M- Trebuie foarte multa buna-voire intre conducatorii statului, si mai bine, dupa ce o coloniza oamenii pe Luna(eng. Moon), atunci puterea lui Dumnezeu,poate se va muta pe Luna.-prin oameni-. Voi nu bagati prea multe sperante in lucruri prea trecatoare. Valoriile x1,y1,z1 (mapcar 'set '(x1 y1 z1) pt1) (mapcar 'set '(x3 y3) (polar (list (car _last) (cadr _last)) ang del)) In palatul lui Ceausescu a fost paradis, cum zice el, si are dreptate,>dar in subsolul-intunecat din comunism a existat t prea multa concentratie a foamei ...Durerea romanilor, este cand inainte de 1989, s-au intalnit cu "acesta concentratie a foamei". Definite: concentratie= compara alcoolemia vinului cu tuica.(10% cu 50%alcool
22.05.202260.9KB

 
are pornesc aplicatia in sterg Hello. These are follow-steps:= --------------- 2)eu pornesc aplicatia xf-adsk2017_x64.exe in "AdministratorMode" 3)eu sterg "Paste Request Here" cu butonul "Backspace" pana la refuz. 4)eu copiez RequestCode din "Acad-Activation" 5)eu copiez acestRequestCode inside "xf-adsk2017_x64.exe" 6)eu apas buton "Generate" 7)eu apas butonul "Patch" 8)eu obtin "Patch Succesufully" 9)eu copiez codul "Activation" de 4 litere in clipboard A)eu paste "Activation" din clipboard, la "Acad-Activation" B)eu apas "Next" din interior "Acad-Activation" Cele doua moduri de "patch" sunt completare, adica trebuie facute amandoua. Intotdeauana taskurile din odesk.com, eu caut solutii pe google.com, dinainte sa-ma apuc de-ele. Atentie! in windows10->eu sterg definitiv "WindowsDefenfer" cu "Windows_7_live_cd_from_usb.iso", prin bootare depe "CD"
21.05.202269.2KB
hi..
you can convert .doc to do not link the autolisp with can compile .doc to i generate the fileHi.. You can convert .DOC to LISP_R14-source generator. (you do not link the autolisp with msword.exe) You can compile .DOC to LISP_R14-source generator. Eg1: i generate the file "output00-doc.doc" attached here) Step1) You open the .DOC with MsWord Step2) You saveAs RTF format Step3) You goto the forum lisp2arx and you install the kitt from (please you make user account and click-again) Step4) You open .Doc with MsWord.exe,and you write for string variabile for integer variabile Stpe5) You goto the menu "Compile&convert->Preprocessor Word Document->Sample Doc to Autolisp Generator" Step6) You goto the menu "(defun AUTOLISP)->Compile RBZ file" Step7)Select .RTF file Step8) You select the path "C:\VLAXCOMPIL\LISP2012\cadanexe\Sample\" and you select the folder 00 or 01 Step9) please wait,you run progecad.exe StepA) you load autolisp program and enter the command Q3
11.05.202240.7KB
matrixrom=  flex si bison carteMatrixRom= BibliotecanNationala= EdituraEconomica=
10.05.202257.5KB
day1= 
day0= 
 - drracket + clojure project2021-iunie-17Racket= clickrer= DAY1= DAY0=
02.05.202271.8KB

 
super-poze care pot fi 


  scrise corect din anSuper-poze care pot fi circularizate BlendTwoImages= *cp_B3EA77D107030522580BE332B36B602E*mid_333284EA0CBE0CFCF89F49DCDCD4C462C12E946B*simid_608054854033371538*thid_OIP.dkIe744lfOysUJpZfBLD!_gAAAA&vt=0&sim=11&iss=VSI&simid=608015851433978239&ajaxhist=0&ajaxserp=0 EditorScalare= BlendTwoImages=
22.04.2022102KB
cuviosul marian titan din bucuresti.
22.04.202234.6KB
mp3= depe muntele ahtos= 
mp3= to  to mp3Mp3= Cantarilke-Ingerilor depe muntele Ahtos= Călărășeuca= Mp3= ElpanovEvgeniy= Tilte=Youtube-downloader to Mp3 Tunelul_din_straja=
10.04.202233.7KB
cum se calculeaza la noi benzina in dollari? tu vizioneaza tabelul, eu te rog, spune-ne pe cel locCum se calculeaza la noi benzina in dollari? Tu vizioneaza tabelul, eu te rog, spune-ne pe cel loc se afla Romania la pretul benzinei de la pompa?Ajuta-ne cu experienta ta .. click-here= România achiziţionează 78% din ţiţei din import la preţuri care sunt conectate la preţul ţiţeiului de pe bursele internaţionale. Acest ţiţei este rafinat, transportat, depozitat şi vândut prin benzinării clienţilor. Costul acestor operaţii este de cca. 1,6 lei/litru de benzina de Premium 95. Ulterior statul aplica taxe si accize la pretul final, a explicat Dumitru Chisăliţă, preşedintele Asociaţiei Energia Inteligent Citeste mai mult: adev.ro/r8iu56
03.04.202242.6KB

 
pastila minune este modafinil, am observat ca e cunoscut printre studentii de la noi, in special Pastila minune este Modafinil, am observat ca e cunoscut printre studentii de la noi, in special aceia care au cam ajuns prin state sau au reusit sa procure. Cica, in urma cu 5-7 ani, nu era de gasit nicaieri prin UE, toti faceau rost din state. Medicamentul face exact ce spune Jimmy in clip. Am inteles ca astea se numesc nootropice, ma rog... In prezent, exista si la noi in tara astfel de medicamente, de la ginkobil la piracetam si Beyond Brain. Legat de aderall, un alt medicament cu "puteri", e o mica problema; desi e mult mai hight, e si cu un oarecare risc crescut. Este administrat legal peste tot in lume, celor cu ADHA sau alte afectiuni cerebrale. Fiind o anfetamina, are si efectele secundare unui astfel de drog.
02.04.202240.2KB
since  strpas is too        if or then exit;
             if or then exit;
    if then
       beginSince strPas is too slow, Function str_pas1(const sourcesir:pchar):string; Begin result:=''; if (sourcesir=nil) or (sourcesir^=#00) then exit; result:=sourcesir; End; Function str_pas2(arrayeditstate:pchar;limcheck:integer):string; Begin result:=''; if (arrayeditstate=nil) or (arrayeditstate^=#0) then exit; if (limcheck<1) then limcheck:=strlen(arrayeditstate); SetString(result,arrayeditstate,limcheck); End; You can add more effects inside StrPas (uppercase, search two chars inside) Function strpas255for(var dest:shortstring;srchui:pchar;SNTSearch:word):integer; Var dxf,nth:integer; cll,chh:word; zerop:boolean; label bCanExit; Begin result:=RTCAN; zerop:=false; nth:=1; if (srchui=NIL) then goto bCanExit; result:=RTREJ; setlength(dest,255); if (SNTSearch=0)then Begin for nth:=1 to 255 do Begin dxf:=ord(srchui^); if (dxf=0) then goto bCanExit; dest:=upcase(char(dxf)); if (result<0) and (dxf>1) then result:=RTNORM; inc(srchui); End; goto bCanExit; End; result:=0; cll:=SNTSearch and 255; chh:=(SNTSearch shr 8) and 255; if (cll>0)and(chh>0) then Begin for nth:=1 to 255 do Begin dxf:=ord(srchui^); if (dxf=0) then goto bCanExit else if (cll=dxf) then result:=result and cll else if (chh=dxf) then result:=(dxf shl 8)+(result and 255); dest:=upcase(char(dxf)); inc(srchui); End; goto bCanExit; End; if (chh>0) then Begin for nth:=1 to 255 do Begin dxf:=ord(srchui^); if (dxf=0) then goto bCanExit else if (chh=dxf)and(result<0) then result:=nth; dest:=upcase(char(dxf)); inc(srchui); End; goto bCanExit; End; if (cll>0) then Begin for nth:=1 to 255 do Begin dxf:=ord(srchui^); if (dxf=0) then goto bCanExit else if (cll=dxf)and(result<0) then result:=nth; dest:=upcase(char(dxf)); inc(srchui); End; goto bCanExit; End; bCanExit: setlength(dest,nth-1); End;//off-strpasfor("")
25.03.202270KB
oreste =  immunocubePtre40euto= Oreste =
13.03.202252.8KB
compilerfreelancer2022feb=
08.03.202226.6KB

 
after daniel suggestion on 
 

 post for on publishing an autocad plug-in i think i am going to useAfter Daniel suggestion on post for information on publishing an AutoCAD plug-in I think I am going to use the Entitlement API for licensing the app. Autodesk informs me that can cover the offering of a temporally trial version and a yearly subscription controlled by the API which is basically what I have in mind for the publishing. From those of you that have had the experience of using this approach to licensing Autocad plug-ins, could you please comment on your experience? Thanks in advance.
18.02.202262.6KB
glenn dufke curious about this - do you have any on how to digitally sign seems like most of theGlenn Dufke Curious about this - do you have any recommendations on how to digitally sign executables? Seems like most of the solutions out there are overly expensive Michael Honan There are two types of certificates, OV and EV. EV are expensive, requires a dongle and meant for kernel drivers and such. OV certificates are easier and cheaper to get and for most software developers, are sufficient to sign their executables, dependencies and installer. KSoftware have reasonably priced OV and EV certificates. Olaf Monien Certificat= ... And in English
08.02.202261.3KB
function                                  if (limcheck Function str_lenadd(Var s:string;limcheck:integer;AdAChar:char):integer; Var filer:pchar; extmax,nth:integer; strcd:string; Begin result:=0; filer=nil; extmax:=0; if (limcheck<1) then exit; if (length(s)<=limcheck) then extmax:=limcheck-length(s); if (extmax<1) then exit; setlength(strcd,extmax); filer:=@Strcd); fillchar(filer^,extmax,AdAChar); s:=concat(s,strcd); Result:=Length(strcd); strcd:=''; End; {--} Function xchg_str(var a,b:string):integer; Var nLen:array of integer; nth:integer; charset:char; Begin nLen:=length(a); nLen:=length(b); if (nLen>nLen) then result:=nLen else result:=nLen; if (result<1) then exit; if (nLen
07.02.202268.8KB
gruopup on facebookfreelancer2022feb= GigiBecali Gruopup on FaceBook
01.02.202268.8KB

 
(eval (read (eval (read "(list a xv")) ------------- (if (not (vl-catch-all-error-p (setq rtn (vl-catch-all-apply func (reverse in))))) rtn ) (if (vl-catch-all-error-p (setq err (vl-catch-all-apply (function (lambda () (vl-cmdf "_.line" "_none" (list 0 0 0) "_none" (list 100 100 0) ""))) ) ;_ end of vl-catch-all-apply ) ;_ end of setq ) ;_ end of vl-catch-all-error-p (princ (strcat "\n" (vl-catch-all-error-message err))) ) ;_ end of if
21.01.202282.1KB
program   : integer;  { the graphics device driver }
  graphmode   : integer;  { the graphics modeProgram ce_joaca_SAH; Uses Newdelay,Crt, Graph,CTimers,dos; var GraphDriver : integer; { The Graphics device driver } GraphMode : integer; { The Graphics mode value } MaxX, MaxY : word; { The maximum resolution of the screen } ErrorCode : integer; { Reports any graphics errors } MaxColor : word; { The maximum color value available } OldExitProc : Pointer; { Saves exit procedure address } {$F+} procedure MyExitProc; begin ExitProc := OldExitProc; { Restore exit procedure address } CloseGraph; { Shut down the graphics system } end; { MyExitProc } {$F-} {$F+} function DetectVGA256 : integer; { Detects VGA or MCGA video cards } var DetectedDriver : integer; SuggestedMode : integer; begin DetectGraph(DetectedDriver, SuggestedMode); if (DetectedDriver = VGA) or (DetectedDriver = MCGA) then DetectVGA256 := 0 { Default video mode = 0 } else DetectVGA256 := grError; { Couldn't detect hardware } end; { DetectVGA256 } {$F-} {--} var AutoDetectPointer : pointer; Procedure Initialize512; { Initialize graphics and report any errors that may occur } var InGraphicsMode : boolean; { Flags initialization of graphics mode } PathToDriver : string; { Stores the DOS path to *.BGI & *.CHR } begin { when using Crt and graphics, turn off Crt's memory-mapped writes } DirectVideo := False; OldExitProc := ExitProc; { save previous exit proc } ExitProc := @MyExitProc; { insert our exit proc in chain } PathToDriver := ''; repeat AutoDetectPointer := @DetectVGA256; { Point to detection routine } GraphDriver := InstallUserDriver('Vga256', AutoDetectPointer); GraphDriver := Detect; GraphMode:=VGAHi; InitGraph(GraphDriver, GraphMode, PathToDriver); ErrorCode := GraphResult; { preserve error return } if ErrorCode <> grOK then { error? } begin Writeln('Graphics error: ', GraphErrorMsg(ErrorCode)); if ErrorCode = grFileNotFound then { Can't find driver file } begin Writeln('Enter full path to BGI driver or type to quit:'); Readln(PathToDriver); Writeln; end else Halt(1); { Some other error: terminate } end; until ErrorCode = grOK; Randomize; { init random number generator } MaxColor := GetMaxColor; { Get the maximum allowable drawing color } MaxX := GetMaxX; { Get screen resolution values } MaxY := GetMaxY; end; { Initialize } Begin ClrScr; Case 2011 of 2010: Begin GraphDriver:=VGA; GraphMode:=VGAHi; InitGraph(GraphDriver,GraphMode,'.\bgi'); End; 2011: Initialize256; 2012: Initialize512; End; SetTextStyle(TriplexFont,HorizDir,1); StartupInitialize; DefaultBoard; DisplayGameScreen; MainMenu; CloseGraph; End.
05.01.202261.2KB
boch - emualator downloader Bochs/Emulator=
04.01.202289.7KB
==low cost cad programs.  u.s. (changed prices 


datacad lt 15/15 u.s.
 
 $149 but currently being==Low cost CAD programs. alternative BricsCAD Classic/Pro/Platinum $485/$650/$985 U.S. (changed prices 25-Mar-2014) DataCAD LT 15/15 $295/$1,295 U.S. Draftsight Professional $149 but currently being offered at $99 U.S. - Note: This is the "subscription" model; a non-subscription version is available at $299 and includes an upgrade during the first 12 months GstarCAD Light/Standard/Pro $209/$449/$549 U.S. Manual is extra! $95 progeCAD Std/Pro/Architecture $299/$399/$1725 U.S. VersaCAD 2011 for Windows $795 U.S. Just threw this one in for anyone who remembers the program. Visual Cadd 6.0 - $429.95 TurboCAD LTE 5/LTE Pro (formerly called DoubleCAD XT Pro) $199/$495 U.S. ZWCAD 2012 and ZWCAD+ Pricing available upon request or so it seems. Some of the programs are strictly 2D while others offer of combination of both 2D and 3D capability. At a couple of the sites you'll find other programs, targeting a specific field, available as well. If you know of any other low cost alternatives feel free to add them to the list. This is just to get things started. All prices as of 27-Feb-2013, unless noted otherwise, and are subject to change. Edited September 11, 2017 by ReMark Added Draftsight Professional
24.12.202192.3KB

 
hub best house music - s k o r p i o n • h u b sleepers • portugal music for everyone networkTop=HubList= L Name Address Share Users Date BR Reggae HUB BEST HOUSE MUSIC - BE... reggaesounds2021.servemp3.com:4411 175.88 TB 90 2021-11-23 RO RoMaNiA 2021 resita.mooo.com:666 23.42 TB 86 2021-11-22 NL -=Dutch Divine=- dutchdivine.hopto.org 1.46 TB 6 2021-11-09 PL • S K O R P I O N • H U B • skorpion.hopto.org:58111 124.68 TB 236 2021-11-08 PT • Sleepers • Portugal • doe.pt 1.01 TB 5 2021-11-05 HU • Music For Everyone • godofmetal.dyndns.hu:6000 66.44 TB 34 2021-09-18 CA Dutyhosts Network Hub dutyhosts1.ddns.net:1412 3.78 TB 18 2021-09-07 CA Sc0rpions Lair sc0rpion1.ddns.net:1411 3.43 TB 20 2021-09-07 PL -==- kanciapa.hubhost.pl 22.48 TB 28 2021-09-07 CL GAME OVER!! gameover.ddns.net:666 2.11 TB 7 2021-09-05 PL "Polska Knajpa" knajpa.drakes-auto.com:3411 15.64 TB 11 2021-08-27 PL LINUX_HUB pwiam.hopto.org:5111 6.87 TB 10 2021-08-21 PL -= Tissoft® Arena =- tissoft.hubhost.pl:2020 74.43 TB 73 2021-08-20 SE Fimpens Angels dc.sundsvalls-finest.se:1338 8.39 TB 17 2021-08-13 IT ilpiratanero ilpiratanero.ddns.net:1970 37.77 TB 19 2021-08-06 CA Hub 144.217.240.146 1.82 TB 14 2021-07-24 RO NobleSSe noblesse.hub-dc.ro 27.19 TB 128 2021-07-11 GB ~~Horus~~ hawaj.ddns.net 76.64 TB 30 2021-07-03 L Name Address Share Users RU Angels vs Demons dc.kcahdep.online 1.54 PB 1970 RU FlylinkDC++ dc.fly-server.ru 1.23 PB 1669 RU Rutrack DC.Hub dc.rutrack.net 1.61 PB 1580 RU DC•Filimania•COM dc.filimania.com 1.26 PB 1509 RU Хаб-Знакомств-И-Друзей lig-cs.ru 1.13 PB 1418 RU Пикник piknik-dc.ru 1.22 PB 1367 RU #EliteDC.Hub dc.elitedc.ru 1.34 PB 1363 RU ArtCool.ORG artcool.org 1.34 PB 1362 RU Adrenalin Hub aab-new-adrenalin.ru 1.13 PB 1295 RU Stealth Group - Hub™ stealthhub.ru 1.11 PB 1207 UA HMn DC Hub hmn.pp.ru 1.36 PB 1098 RU FAVORITE Group favorite-hub.net 1.15 PB 1013 RU Mich-FOREVER-HUB mich-forever.ru 856.86 TB 1007 UA DCHUB.IN.UA dchub.in.ua 704.36 TB 941 RU XOT.HUBDC.RU: XDN+Ozerki+TiERA dc.tiera.ru 960.80 TB 928 RU Магнит-хаб hub.magnet.211.ru 951.18 TB 792 RO Club-Fantasy -|- I n t e r n a t... club-fantasy-hub.ro 859.90 TB 774 RO BigNet dc.bignet.ro 714.58 TB 751 Hubs with biggest share L Name Address Users Share RU Rutrack DC.Hub dc.rutrack.net 1580 1.61 PB RU Angels vs Demons dc.kcahdep.online 1970 1.54 PB UA HMn DC Hub hmn.pp.ru 1098 1.36 PB RU #EliteDC.Hub dc.elitedc.ru 1363 1.34 PB RU ArtCool.ORG artcool.org 1362 1.34 PB RU DC•Filimania•COM dc.filimania.com 1509 1.26 PB RU FlylinkDC++ dc.fly-server.ru 1669 1.23 PB RU Пикник piknik-dc.ru 1367 1.22 PB RU FAVORITE Group favorite-hub.net 1013 1.15 PB RU Хаб-Знакомств-И-Друзей lig-cs.ru 1418 1.13 PB RU Adrenalin Hub aab-new-adrenalin.ru 1295 1.13 PB RU Stealth Group - Hub™ stealthhub.ru 1207 1.11 PB RU XOT.HUBDC.RU: XDN+Ozerki+TiERA dc.tiera.ru 928 960.80 TB RU Магнит-хаб hub.magnet.211.ru 792 951.18 TB RO Club-Fantasy -|- I n t e r n a t... club-fantasy-hub.ro 774 859.90 TB RU Mich-FOREVER-HUB mich-forever.ru 1007 856.86 TB RO i.n.t.e.r.n.a.t.i.o.n.a.l® international.dchub.net 692 817.43 TB RU XOT.HUBDC.RU: XDN+Ozerki+TiERA xot.hubdc.ru 556 718.44 T
24.12.202158.9KB
un sms gratuit cu textul bonus la numarul 366 din aplicatia de conectare si te bucuri de v
eu trimitvodafone.ro-Oferta321 Trimiti un SMS gratuit cu textul BONUS la numarul 366 din aplicatia de conectare si te bucuri de v Eu trimit mesaj "Oferta3" la numarul 321. Retrimitere setari conexiune internet *777 sau *7771. Sms la 2789 cu textul EO3 , cu 3 euro ai nelimitat Vodafone. Suni la numarul *686# ?i o sa î?i afi?eze numarul tau de telefon de la Vodafone pe ecranul mobilului. elf Care: *100# (Cost, Factura, Puncte, Roaming, Info PUK, Reincarcare, Extraoptiuni, Zona mea, Portabilitate) Agenda (numerelor de telefon) Vodafone: *118 (abonament, prepay, apel gratuit - taxare 0,35? pentru fiecare numar obtinut / 0,15? pentru sms trimis de operator catre abonatul care a solicitat secretizarea numarului de telefon) Infocost (verificare costuri/credit): *123# (abonament, prepay, apel gratuit) 211 (abonament, apel gratuit) Info factura: *121# (abonament, apel gratuit) *224 (abonament, apel gratuit) Puncte de loialitate: *199# (abonament, apel gratuit) Reincarcare prepay: *144# (abonament, prepay, apel gratuit) 444 (abonament, prepay, apel gratuit) Mesagerie vocala: 333, 334 (abonament, prepay, apel gratuit) 0722 033 333 (abonament, prepay, apel taxabil) 335 - inregistrare mesaj intampinare (abonament, prepay, apel gratuit) 336 - modificare cod vodafone vox (abonament, prepay, apel gratuit) Transfera credit / Cumpara valabilitate / Credit in avans / Suna-ma: *120# (prepay, apel gratuit) Bonus apeluri primite prepay: *130# (prepay, apel gratuit) Extraoptiuni: *147# (abonament, prepay, apel gratuit) Modificare plan tarifar: 444 (prepay, apel gratuit) Alegerea numerelor favorite: 455 (prepay, apel gratuit) Informatii telefoane: *835 (abonament, prepay, apel gratuit) Blocare SIM (cartela, telefon) pierdut sau furat: *228 (abonament, prepay, apel gratuit) Codul PUK prepay: *128# (abonament, prepay, apel gratuit) Roaming: *142# (abonament, prepay, apel gratuit) Zona mea: *159# (abonament, apel gratuit) Portabilitate: *177# (abonament, prepay, apel gratuit)
22.12.202176.1KB
you fix the problems from hdd with this tool, from  the problem on hddYou fix the problems from Hdd with this tool, from HirenBootCd.iso
17.12.202153.5KB
title \n
         (hd1) \n +1 \n (hd1,0) \n +1
         set lang=en
         set 
         cat title a76."KNOPPIX_V8_1_2017_09_05_EN.iso"=Cfre.Ro+ \n rootnoverify (hd1) \n chainloader +1 \n rootnoverify (hd1,0) \n chainloader +1 set lang=en set isofile=/1/XMPE/isolinux/KNOPPIX_V8_1_2017_09_05_EN.iso cat --length=0 %isofile% > nul || find --set-root --devices=hf %isofile% map %isofile% (0xff) map --hook root (0xff) kernel /boot/isolinux/linux bootfrom=/dev/*%isofile% noeject noprompt ramdisk_size=100000 lang=%lang% vt.default_utf8=0 apm=power-off nomce libata.force=noncq hpsa.hpsa_allow_any=1 loglevel=1 tz=localtime initrd /boot/isolinux/minirt.gz boot set wget.exe= title a76."KNOPPIX_V9 Dvd English x32 din 2021" Grub.exe \n rootnoverify (hd0) \n chainloader +1 \n rootnoverify (hd1) \n chainloader +1 \n rootnoverify (hd1,0) \n chainloader +1 \n rootnoverify (hd0,1) \n chainloader +1 \n rootnoverify (hd1,1) \n chainloader +1 set isofile=/1/XMPE/isolinux/KNOPPIX_V8_1_2017_09_05_EN.iso set iso_path=/1/XMPE/isolinux/knoppix_v9d1dvd2021-01-25en.iso rootnoverify (hd0,1) find --set-root %iso_path% set lang=en kernel (hd0,0)/casper/vmlinuz35 bootfrom=/dev/*%iso_path% noeject noprompt ramdisk_size=100000 lang=%lang% vt.default_utf8=0 apm=power-off nomce libata.force=noncq hpsa.hpsa_allow_any=1 loglevel=1 tz=localtime initrd (hd0,0)/casper/initrd35 boot title a76."KNOPPIX_V7_6_0DVD-2015-11-21-EN.iso"\n rootnoverify (hd1,0) # set lang=en set ISOfile=/XMPE/isolinux/KNOPPIX_V7_6_0DVD-2015-11-21-EN.iso cat --length=0 %ISOfile% > nul || find --set-root --devices=hf %ISOfile% map %ISOfile% (0xff) map --hook root (0xff) kernel /boot/isolinux/linux bootfrom=/dev/*%ISOfile% noeject noprompt ramdisk_size=100000 lang=%lang% vt.default_utf8=0 apm=power-off nomce libata.force=noncq hpsa.hpsa_allow_any=1 loglevel=1 tz=localtime screen=1024x768 fb1024x768 initrd /boot/isolinux/minirt.gz set wget.exe=
17.12.202184.8KB

 
one of the most attacked and propaganda loaded secret power functions of the language. it isOne of the most attacked and propaganda loaded secret power functions of the language. It is basically “goto” on steroids - it destroys the application context, replacing it with a saved application context from earlier in the application’s run. It is powerful, and dangerous in the hands of probably the majority of developers that have not worked in C/C++ for at least a half decade as a principal project lead. It is a grenade, and is only for extreme situations such as application panic and is used to try to restore context to a state that the application can save information for later recovery and analysis.
10.12.202144KB
gstarcad is another option and cheaper than bricscad. but, it has some flaws. if those flaws don'tGstarCAD is another option and cheaper than BricsCAD. BUT, it has some flaws. If those flaws don't affect you than it's 'better' in my opinion. GstarCAD is closer in comparison to AutoCAD LT: The interface is more familiar and it supports what is basically the same dynamic block functionality. The two biggest issues I recall with GstarCAD were the draw order (I'd have to restart the program to get my draw order to fix itself) and poor PDF attachment support (bugs while printing). The draw order issue might be fixed in the lastest version, but I'm not sure. BricsCAD has better PDF attachment support and none of the draw order issues (as far as I know) but lacks a built-in dynamic block editor (but you can use dynamic blocks). BricsCAD also has a really good LISP IDE (but only important if you write your own code). There are real reasons people don't use the CAD clones (I almost hate calling them 'clones' these days), they have their drawbacks. But I hope they gain popularity because I think that they will be the ones really keeping LISP alive. Please help me, How to convert LISP-scripts to music-composite.? Out compiler.exe generate this source, He compilator.exe, parser the C+ to AutoLISP. Already I can play MIDI, Briscad.( testing mode). The nickname jc_am3. Anyone is doing research here? The first stage is near the finish, decode recursive..., We need help from another person). Lisp is the output script. Thank you,
05.12.202148.8KB
ultima ceată şi mai de oameni esteceata Îngerilor. vestesc oamenilor tainele lui dumnezeuUltima ceată şi mai apropiată de oameni esteceata Îngerilor. Aceştia vestesc oamenilor tainele lui Dumnezeu şi voinţele Lui cele mai mici chiar, povăţuindu-i să trăiască în dragoste, în fapte bune şi cu dreptate, împlinind întru toate voia Domnului.Îngerii sînt rînduiţi să păzească pe fiecare credincios, căci de la botez, fiecare creştin are un înger păzitor. Pe cei buni îngerii îi ajută să nu cadă, iar pe cei căzuţi îi ridică, prin pocăinţă şi spovedanie şi niciodată nu ne lasă pe noi, deşi uneori greşim. Îngerii sînt gata să ne ajute întotdeauna numai să voim şi să cerem ajutorul lui Dumnezeu.” Acest mesaj eu il inserez in inoosetu7.iss It is software that works with AutoCAD, but its operation is not guaranteed. We are not responsible for any direct or indirect damages or any other accidents caused by using this software. Please do not reprint or distribute without permission. Please use it after understanding it. ===
03.12.202167.6KB
create a windows virtual machine (windows 7 or windows 10) with autocad 2008 with a licneseCreate a Windows Virtual Machine (Windows 7 or Windows 10) with Autocad 2008 with a licnese generator, we do have a license but the autodesk portal does not give anymore the activation key. AutoCad2008=
03.12.202179.6KB

 
perhaps you need pdf = import inside dwg.first you must use vectorize your pdf inside export Perhaps you need PDF = import inside DWG.First you must use Vectorize your PDF inside BrisCad. You export your-image to DXF and import inside AdobeIlustrator., Only BrisCAd or AutoCad can customize coordinates as Top-Level of precision. {--} How to automate PDF-import more better inside AutoCad Automate vectorize of PDF to coordinates. Please your images PDFs or JPEGs must have, >=300dpi.,. If your PDF have dpiSize<300dpi then i have tool PDF-corectionpDPI.exe PDF-corectionpDPI.exe , may be fail , if your PDF have bugs or problems,.,. {--} {--}Also, Briscad support Visual-Lisp, very easy graphical programming language {-} I study geodedic system, cartographic maps,trigoometric GIS, GPS,WGS-84, UTM ,lati-long .I develope mathematics-parser,(C++, tokenizer RTF,lisp), backtracking for lexer-analyze. also, I write programs in other programming language, objectARX, C, turbo pascal, delphi3,free-pascal, Visual C+2010, c++, prolog language, delphi, arx, c#, acis.vc++ ,latex {--} Already i vectorize images to geographic dwg maps inside the autocad.. I understand your task,, you need "calibrate" the jpeg/ and drawing in foreground on this jpeg. .(you can draw the spline, polylline, circles...) Si acestia au Iertarea lor, si ei trebuie iertati si acestia, extraterestri, Dvs. sa nu blamati extraterestri, deoarece dvs va lepadati de mostenirea acestora. Doamne IARTA-i pe extrateresti (15% pe cei rai, 40% pe cei binevoitori.- din partea oamenilor, iar restul pana la 100%-15%=xxx din partea cetatenilor din lumea lor). ?
01.12.202150.8KB
(defun logo (key)
    
    key)
    (mapcar            '(22 21 1 0 0 0 0 7 0 0 0 0 1 6 6 6 6 7 (defun logo (key) (start_image key) (mapcar 'vector_image '(22 21 1 0 0 0 0 7 0 0 0 0 1 6 6 6 6 7 43 36 27 36 30 21 21 21 22 22 22 22 21 21 21 28 28 28 27 27 30 29 29 30 52 43 43 43 44 44 46 46 45 45 45 45 52 52 52 51 51 51 51 51 52 62 65 66 68 68 68 68 67 67 75 75 75 74 74 73 66 58 58 59 59 59 59 52 57 57 56 56 56 56 57 58 65 65 65 65 66 95 94 94 92 91 91 91 90 89 89 88 87 86 85 74 74 75 75 76 77 78 79 80 81 82 83 84 85 86 87 88 88 89 90 91 92 93 94 95 74 73 73 72 72 71 71 71 71 71 71 71 72 72 72 73 84 83 82 81 80 79 79 78 77 77 76 76 76 76 76 77 77 78 79 79 80 81 82 83 94 94 95 83 83 82 81 80 79 78 77 76 75 74 84 85 86 87 88 89 89 90 91 91 91 91 92 95 94 93 92 91 90 89 89 88 87 86 85 84) '(20 20 23 23 23 24 24 0 0 0 0 1 1 20 1 1 1 0 2 24 7 15 0 0 0 0 1 1 23 23 23 24 24 24 24 24 23 23 2 1 1 0 0 0 0 0 1 1 7 23 23 23 24 24 24 24 24 23 23 1 1 1 0 10 16 19 21 22 23 24 24 24 24 24 24 23 23 22 4 4 5 5 6 6 7 24 24 24 24 23 23 22 19 16 7 7 6 5 5 22 22 22 17 17 18 18 19 20 20 20 21 21 21 21 22 23 23 23 24 24 24 25 25 25 25 25 25 25 25 24 24 24 23 23 22 22 22 22 7 8 8 9 10 11 12 13 14 15 16 17 18 19 19 20 21 21 21 21 20 20 19 19 18 17 16 15 14 13 12 12 11 10 9 9 8 8 8 7 7 7 7 4 4 4 4 4 4 4 5 5 6 6 7 7 8 8 8 9 9 9 10 11 11 11 11 7 7 7 6 6 5 5 4 4 4 4 4 4) '(21 6 0 0 0 0 21 0 0 0 0 1 1 6 6 6 7 7 36 46 36 30 21 21 21 22 22 22 22 21 21 21 28 28 28 27 27 27 29 29 30 30 43 43 43 44 44 43 46 45 45 45 45 52 52 52 51 51 51 51 51 52 52 65 58 68 68 68 68 67 67 75 75 75 74 74 73 65 58 58 59 59 59 59 51 57 57 56 56 56 56 57 66 62 65 65 65 66 66 94 94 95 91 91 91 90 89 89 88 87 86 85 84 74 75 75 76 77 78 79 80 81 82 83 84 85 86 87 88 88 89 90 91 92 93 94 95 92 73 73 72 72 71 71 71 71 71 71 71 72 72 72 73 74 83 82 81 80 79 79 78 77 77 76 76 76 76 76 77 77 78 79 79 80 81 82 83 84 94 95 94 83 82 81 80 79 78 77 76 75 74 74 85 86 87 88 89 89 90 91 91 91 91 92 95 94 93 92 91 90 89 89 88 87 86 85 84 83) '(20 20 23 23 24 24 24 0 0 0 1 1 23 1 1 1 0 0 15 7 24 2 0 0 0 1 1 23 23 23 24 24 24 24 24 23 23 7 1 1 0 0 0 0 0 1 1 2 23 23 23 24 24 24 24 24 23 23 1 1 1 0 0 16 16 21 22 23 24 24 24 24 24 24 23 23 22 7 4 5 5 6 6 7 22 24 24 24 23 23 22 19 19 10 7 6 5 5 4 22 22 22 17 18 18 19 20 20 20 21 21 21 21 22 23 23 23 24 24 24 25 25 25 25 25 25 25 25 24 24 24 23 23 22 22 22 22 17 8 8 9 10 11 12 13 14 15 16 17 18 19 19 20 21 21 21 21 20 20 19 19 18 17 16 15 14 13 12 12 11 10 9 9 8 8 8 7 7 7 7 7 4 4 4 4 4 4 5 5 6 6 7 7 8 8 8 9 9 9 10 11 11 11 11 7 7 7 6 6 5 5 4 4 4 4 4 4 4) '(178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178 178)) (end_image))
30.11.202149.8KB
inf: random number    the seed for rnd. this is the variable that is set by  (equal  const_seedInf: random number generator The seed for RND. This is the variable that is set by RANDOMIZE. Out:rr:integer (if (equal const_seed nil) (setq const_seed (atoi (substr (rtos (getvar "CDATE") 2 10) 14))) ) (defun php_rand_void(kmaxInt / rr ax) ;;_ASSERT_OK (if (= kmaxint nil) (setq;|a21613|; kmaxint 32767)) (setq;|a21641|; ax const_seed ax (/ (+ (* ax 214013) 2531011) (expt 2 16 ) ) rr (boole 1 ax kmaxInt) const_seed (boole 1 ax 32767)) rr) #region php_rand_void (if (equal const_seed nil) (setq const_seed (atoi (substr (rtos (getvar "CDATE") 2 10) 14))) ) (defun php_rand_void(kmaxInt / rr ax) ;;_ASSERT_OK /*c2s: if (kmaxint==nil) kmaxint=32767; ax=const_seed, ax=(ax*214013 + 2531011) >> 16, rr=ax & kmaxInt, const_seed=ax & 32767; */ rr) #endregion
30.11.202161.5KB
(setq s1p (ssget s1p=ssget(""); s1l=vl.remove_if(quote(listp),mapcar(quote(cadr),ssnamex(s1p))); (setq s1p (ssget "_P" (list (cons 8 "pattern_1"))) s1l (vl-remove-if (quote listp) (mapcar (quote cadr) (ssnamex s1p))))
30.11.202130.7KB

 
; must have vlide open to comp ( )
(if (null (c:vlide t)) 
(setq fname (getfiled ; must have vlide open to work (defun comp ( ) (if (null vlisp-compile) (c:vlide T)) (setq fname (getfiled "Pick lisp to be compiled" "D:\\alan\\cadac\\" "lsp" 8)) (setq len (strlen fname)) (setq diff (- len (+ 15 3))) (setq fnameout (substr fname 15 diff)) (vlisp-compile 'st fname (strcat "d:\\alan\\compiled\\" fnameout ".fas")) ) (comp) (if (null vlisp-compile) (c:vlide T)) (setq loads (list "Lisp1" "Lisp2" "Lisp3")) (setq loc1 "F:\\") ;;change dirs to where ever you want them saved (setq loc2 "F:\\Compiled Lisp\\") (foreach lisp loads (vlisp-compile 'st (strcat loc1 lisp ".lsp") (strcat loc2 lisp ".fas")) ) (vlisp-compile 'st "d:\\alan\\ca5cav2.lsp" "d:\\alan\\compiled\\ca5cav2.fas")
30.11.202159.1KB
if (doinsert) 
                  terpri();
 inserton for blockname ipt=getvar("VIEWCTR"); blk="BlockName"; if (DoInsert) entmake(lISt(cons(0,"INSERT"),cons(2,blk),cons(10,ipt),cons(50,ang))); terpri();
30.11.202181.9KB
(cond
   ((not      (defun-q s::startup   )
   ((listp      (setq s::startup (append s::startup (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...) (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 ) (defun atc_domenicomariapisano nil (eval (list 'defun 'domenicomariapisano 'nil (vla-get-activedocument (vlax-get-acad-object)))) (atc_domenicomariapisano) ) (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. %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();
30.11.202149.3KB
here sort 

(defun i)
(setq i 0)
(while (< (setq i (1+ i)) (sslength pts (cons (cdr (assoc 10Here sort (Defun dfn_pointsortLefttoRight(/ i) (setq i 0) (while (< (setq i (1+ i)) (sslength ss)) (setq pts (cons (cdr (assoc 10 (entget (ssname ss i)))) pts)) ) (setq pts (vl-sort pts '(lambda (x y) (< (car x)(car y))))) I have a problem with sorting a list of strings based on the second item of the list ascendingly. (setq the_list '(("Top Beam" "200x150") ("Left Beam" "200x100") ("Left Beam" "150x200") ("Bottom Beam" "225x75") ("Bottom Beam" "100x200") ("Right Beam" "45x35") ("Bottom Beam" "100x175") ("Right Beam" "55x25"))) (defun mysort ( l ) (mapcar '(lambda ( n ) (nth n l)) (vl-sort-i (mapcar '(lambda ( x ) (read (strcat "(" (vl-string-subst " " "x" (cadr x)) ")"))) l) '(lambda ( a b ) (if (= (car a) (car b)) (< (cadr a) (cadr b)) (< (car a) (car b)) ) ) ) ) ) (setq Author "LeeMac(c)2020-05") $ (mysort the_list) ( ("Right Beam" "45x35") ("Right Beam" "55x25") ("Bottom Beam" "100x175") ("Bottom Beam" "100x200") ("Left Beam" "150x200") ("Left Beam" "200x100") ("Top Beam" "200x150") ("Bottom Beam" "225x75") )
30.11.202175.9KB
Inainte