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

InapoiInainte

 
vlisp - for you must export all texts, to external file from lisp2lng point of polyline: point ofVLISP - AutoTranslator for Autolisp First problem----- You must export all TEXTs, to external file (hanssan.lng), from Lisp2Lng 001="\nEnd" 002="SNAPANG" 003="\nFirst point of polyline: " 004="\nNext point of polyline" 005="\nEnter nextangle " 006="\nGet-Default.Angle=" 007="\n[Clockwise/Anti-clockwise/Viewctr?" 008="USERR1" 009="(1)" 010="ORTHOMODE" 017="STR" 018="REAL" 019="LUPREC" 020="a207errorB<>Str" 021="a207errorA " 022=">:" 023="SETVAR" 024="GETVAR" 025="\nT469error<>Str:" 026="VIEWCTR" Second problem--. Your compilator.exe, translate automatically (via google.com Vs translate) He transform hanssan.lng to hanssan.lng.deu, hanssan.lng to hanssan.lng.spanish Third problem----.Your programe.lisp. read hanssan.lng Fourth. -----------The End. (Defun nn_vmload( / $rr p_n p_o dyn ang dma lhz ana lpt clock ppo idx item points ogg old love lpt ppt) (setq;|a000=I extract all TEXT-s to "pp_cadaschtroumpf_makepline_.ini"|; ogg (jc_cws12 5 7) dma (list (jc_cws12 12 27) (jc_cws12 38 24) (jc_cws12 61 70) (jc_cws12 130 20) (jc_cws12 149 36))) (jc_lda18 "24D7" (list 8)) (setq;|a000|; ana (jc_lda18 "40FE" (list (nth 3 dma) (jc_lda18 "4E37" (list (jc_cws12 184 6)))))) (jc_lda18 "24D7" (list 8)) (setq;|a000|; p_o (jc_lda18 "A3DF" (list (nth 0 dma)))) (jc_lda18 "24D7" (list 8)) (setq;|a000|; p_n (jc_lda18 "A3DF" (list p_o (strcat (nth 1 dma) (jc_cws12 190 3))))) (setq;|a000|; ang (jc_lda18 "EC47" (list p_o p_n))) (setq;|a000|; lhz (list ana 11.25 22.5 "3" 45.0 "5" 60.0 "7" "8" 90.0)) (setq;|a000|; love (list ogg (jc_cws12 193 9) (jc_cws12 185 6)) Bold.Shx (jc_lda18 "8C77" (list love (list ang 1 ana)))) (jc_lda18 "898A" (list)) (setq;|a000|; lpt (list p_n p_o)) (setq;|a000|; ppo p_n) (setq;|a000|; dyn "0") (progn (setq;|a000|; idx 2) (while (/= dyn "X") (progn (jc_lda18 "5D0D" (list lpt 1)) (setq;|a000|; clock "") (setq;|a000|; dyn (jc_lda18 "E6D1" (list (jc_cws12 202 13) (nth 2 dma)))) (if (= dyn "0") (setq;|a000|; ang (jc_lda18 "4E37" (list (jc_cws12 185 6)))) (if (= dyn "1") (setq;|a000|; ang (nth 1 lhz)))) (if (= dyn "2") (setq;|a000|; ang (nth 2 lhz))) (if (= dyn "4") (setq;|a000|; ang (nth 4 lhz))) (if (= dyn "6") (setq;|a000|; ang (nth 6 lhz))) (if (= dyn "9") (setq;|a000|; ang (nth 9 lhz))) (if (= dyn "R") (jc_lda18 "5D0D" (list lpt "1")) (if (= dyn "M") (jc_lda18 "5D0D" (list lpt "6")) (if (= dyn "P") (jc_lda18 "C4A3" (list lpt)) (setq;|a000|; clock (if (jc_lda18 "46CA" (list dyn (jc_cws12 215 5))) (jc_lda18 "E6D1" (list (jc_cws12 220 4) (nth 4 dma))) "0"))))) (if (/= clock "0") (progn (if (= clock "C") (setq;|a000|; ang (/ (* ang pi) 180.0)) (if (= clock "A") (setq;|a000|; ang (/ (* ang (- 0 pi)) 180.0)))))) (jc_lda18 "1C2B" (list (jc_cws12 6 7) (+ (jc_lda18 "4E37" (list (jc_cws12 6 7))) ang))) (setq;|a000|; ppt (jc_lda18 "A3DF" (list ppo (strcat (jc_lda18 "B118" (list dma)) "(" (itoa idx) (jc_cws12 224 2))))) (setq;|a000|; lpt (if ppt (jc_lda18 "4DFA" (list ppt lpt)) lpt) idx (+ idx (if ppt 1 0))) (setq;|a000|; ppo (if ppt ppt ppo))))) (setq;|a000|; dyn (jc_lda18 "E6D1" (list (jc_cws12 226 4) (jc_cws12 230 25)))) (if (= dyn "Y") (jc_lda18 "8C77" (list love Bold.Shx)) (if (= dyn "A") (jc_lda18 "6E00" (list readme.txtr)))) $rr) (Defun nn_vmload( / $rr p_n p_o dyn ang dma lhz ana lpt clock ppo idx item points ogg old love lpt ppt) (setq;|a000=You see same defun in NativeLanguage in VLISP|; ogg "SNAPANG" dma (list "\nFirst point of polyline: " "\nNext point of polyline" "\nEnter nextangle " "\nGet-Default.Angle=" "\n[Clockwise/Anti-clockwise/Viewctr?")) (initget 8) (setq;|a000|; ana (dfn_getx_real (nth 3 dma) (getvar "USERR1"))) (initget 8) (setq;|a000|; p_o (getpoint (nth 0 dma))) (initget 8) (setq;|a000|; p_n (getpoint p_o (strcat (nth 1 dma) "(1)"))) (setq;|a000|; ang (angle p_o p_n)) (setq;|a000|; lhz (list ana 11.25 22.5 "3" 45.0 "5" 60.0 "7" "8" 90.0)) (setq;|a000|; love (list ogg "ORTHOMODE" "USERR1") Bold.Shx (syst_mapvars love (list ang 1 ana))) (vl_load_com) (setq;|a000|; lpt (list p_n p_o)) (setq;|a000|; ppo p_n) (setq;|a000|; dyn "0") (progn (setq;|a000|; idx 2) (while (/= dyn "X") (progn (dfn_grdraw_listpoint lpt 1) (setq;|a000|; clock "") (setq;|a000|; dyn (dfn_getx_readkey "" (nth 2 dma))) (if (= dyn "0") (setq;|a000|; ang (getvar "USERR1")) (if (= dyn "1") (setq;|a000|; ang (nth 1 lhz)))) (if (= dyn "2") (setq;|a000|; ang (nth 2 lhz))) (if (= dyn "4") (setq;|a000|; ang (nth 4 lhz))) (if (= dyn "6") (setq;|a000|; ang (nth 6 lhz))) (if (= dyn "9") (setq;|a000|; ang (nth 9 lhz))) (if (= dyn "R") (dfn_grdraw_listpoint lpt "1") (if (= dyn "M") (dfn_grdraw_listpoint lpt "6") (if (= dyn "P") (nn_vmcall lpt) (setq;|a000|; clock (if (wcmatch dyn "") (dfn_getx_readkey "" (nth 4 dma)) "0"))))) (if (/= clock "0") (progn (if (= clock "C") (setq;|a000|; ang (/ (* ang pi) 180.0)) (if (= clock "A") (setq;|a000|; ang (/ (* ang (- 0 pi)) 180.0)))))) (setvar "SNAPANG" (+ (getvar "SNAPANG") ang)) (setq;|a000|; ppt (getpoint ppo (strcat (cadr dma) "(" (itoa idx) ")="))) (setq;|a000|; lpt (if ppt (cons ppt lpt) lpt) idx (+ idx (if ppt 1 0))) (setq;|a000|; ppo (if ppt ppt ppo))))) (setq;|a000|; dyn (dfn_getx_readkey "" "\nBold.Shx?")) (if (= dyn "Y") (syst_mapvars love Bold.Shx) (if (= dyn "A") (alert readme.txtr))) $rr) :woow: (Defun nn_vmload( / $rr p_n p_o dyn ang dma lhz ana lpt clock ppo idx item points ogg old love lpt ppt) (setq;|a000=You see encrypted DefunNames but with all TEXT-s|; ogg "SNAPANG" dma (list "\nFirst point of polyline: " "\nNext point of polyline" "\nEnter nextangle " "\nGet-Default.Angle=" "\n[Clockwise/Anti-clockwise/Viewctr?")) (jc_ldc31 "0x24D7:C001" (list 8) (setq;|a000|; ana (jc_ldc31 "0x40FE:C002" (list (nth 3 dma) (jc_ldc31 "0x4E37:C003" (list "USERR1"))) (jc_ldc31 "0x24D7:C004" (list 8) (setq;|a000|; p_o (jc_ldc31 "0xA3DF:C005" (list (nth 0 dma))) (jc_ldc31 "0x24D7:C006" (list 8) (setq;|a000|; p_n (jc_ldc31 "0xA3DF:C007" (list p_o (strcat (nth 1 dma) "(1)"))) (setq;|a000|; ang (jc_ldc31 "0xEC47:C008" (list p_o p_n)) (setq;|a000|; lhz (list ana 11.25 22.5 "3" 45.0 "5" 60.0 "7" "8" 90.0)) (setq;|a000|; love (list ogg "ORTHOMODE" "USERR1") Bold.Shx (jc_ldc31 "0x8C77:C009" (list love (list ang 1 ana))) (jc_ldc31 "0x898A:C010" (list) (setq;|a000|; lpt (list p_n p_o)) (setq;|a000|; ppo p_n) (setq;|a000|; dyn "0") (progn (setq;|a000|; idx 2) (while (/= dyn "X") (progn (jc_ldc31 "0x5D0D:C011" (list lpt 1) (setq;|a000|; clock "") (setq;|a000|; dyn (jc_ldc31 "0xE6D1:C012" (list "" (nth 2 dma))) (if (= dyn "0") (setq;|a000|; ang (jc_ldc31 "0x4E37:C013" (list "USERR1")) (if (= dyn "1") (setq;|a000|; ang (nth 1 lhz)))) (if (= dyn "2") (setq;|a000|; ang (nth 2 lhz))) (if (= dyn "4") (setq;|a000|; ang (nth 4 lhz))) (if (= dyn "6") (setq;|a000|; ang (nth 6 lhz))) (if (= dyn "9") (setq;|a000|; ang (nth 9 lhz))) (if (= dyn "R") (jc_ldc31 "0x5D0D:C014" (list lpt "1") (if (= dyn "M") (jc_ldc31 "0x5D0D:C015" (list lpt "6") (if (= dyn "P") (jc_ldc31 "0xC4A3:C016" (list lpt) (setq;|a000|; clock (if (jc_ldc31 "0x46CA:C017" (list dyn "") (jc_ldc31 "0xE6D1:C018" (list "" (nth 4 dma)) "0"))))) (if (/= clock "0") (progn (if (= clock "C") (setq;|a000|; ang (/ (* ang pi) 180.0)) (if (= clock "A") (setq;|a000|; ang (/ (* ang (- 0 pi)) 180.0)))))) (jc_ldc31 "0x1C2B:C019" (list "SNAPANG" (+ (jc_ldc31 "0x4E37:C020" (list "SNAPANG") ang)) (setq;|a000|; ppt (jc_ldc31 "0xA3DF:C021" (list ppo (strcat (jc_ldc31 "0xB118:C022" (list dma) "(" (itoa idx) ")="))) (setq;|a000|; lpt (if ppt (jc_ldc31 "0x4DFA:C023" (list ppt lpt) lpt) idx (+ idx (if ppt 1 0))) (setq;|a000|; ppo (if ppt ppt ppo))))) (setq;|a000|; dyn (jc_ldc31 "0xE6D1:C024" (list "" "\nBold.Shx?")) (if (= dyn "Y") (jc_ldc31 "0x8C77:C025" (list love Bold.Shx) (if (= dyn "A") (jc_ldc31 "0x6E00:C026" (list readme.txtr))) $rr) The End = The MainProblem is the $moneys. Perhaps . The free-solution not exists; now2021.
22.09.202138.8KB
nephilim= 

you see on purpose is = extend the power of with 
==  of universe Nephilim= Carte-de-Afaceri= You see differential equations/s on puiu@youtube-com My purpose is = extend the power of "internal-math-equations" inside-vLisp with self.MathEquations..cpp Now=Math2Lisp full-automaticalically(jc_aro20) ==
23.01.202139.1KB
rhe operator ?:, also known as the ternary operator, evaluates a boolean expression and returns theRhe conditional operator ?:, also known as the ternary conditional operator, evaluates a Boolean expression and returns the result of one of the two expressions, depending on whether the Boolean expression evaluates to true or false, as the following example shows: -> tempInCelsius < 20.0 ? "Cold." : "Perfect!"; Begin Result:=a ? b : (c ? d : e); End; with j_d2l do if (int<>0) then a349:=if_int(r20,320, if_int(r11,311, if_int(r18,318,if_int(r31,331, if_int(r25,325, if_int(r28,328, if_int(r15,315,a349))))))); Function if_int(zeroone:wordbool;var1,var2:integer):integer; Begin if_int:=var1;if (zeroone) then exit;if_int:=var2;exit; winhlp32('Delphi3:=Nu functioneaza frmMainWnd=nil;bDummy := if_int(frmMainWnd=nil,7,frmMainWnd.BorderColor);'); End; Function if_are(zeroone:boolean;var1,var2:ads_real):ads_real; Begin if (zeroone) then result:=var1 else result:=var2; End; Function if_intl(tzxthen,tzxelse:integer;zeroone:wordbool):integer; Begin if_intl:=tzxthen;if (zeroone) then exit;if_intl:=tzxelse;End; Function if_string(accessCheck:boolean;const var1,var2:string):string; Var angdir:integer; Begin if accessCheck then if_string:=var1 else if_string:=var2; angdir:=length(result); result:=concat(result,#0#0#0); SetLength(result,angdir); End;
30.06.202266.8KB
==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

 
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
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
color lambda
 

(defun ( c )
    (mapcar '(lambda ( x ) (lsh (lsh (fix c) x) -24)) '(8 16 24))Color Lambda (defun LM:True->RGB ( c ) (mapcar '(lambda ( x ) (lsh (lsh (fix c) x) -24)) '(8 16 24)) ) (defun LM_True2RGB (c) (mapcar '(lambda (x) (princ "x=") (princ x) (lsh (lsh (fix c) x) -24)) '(8 16 24)) ) Command: (LM_True2RGB 3245455) x=8x=16x=24(49 133 143) The behavior is different from other languages (>> & << of C, C++, or Java) where more than 32 left shifts (of a 32 bit integer) result in 0. In right shift, the integer appears again on every 32 shifts. Examples : (lsh 2 1) --> 4 Command: (lsh 2 -1) -->1 ;; True -> OLE - Lee Mac ;; Args: c - True Colour (defun LM:True->OLE ( c ) (apply 'logior (mapcar '(lambda ( x ) (lsh (lsh (lsh (fix c) x) -24) (- x 8))) '(08 16 24) ) ) ) Reincarnarea este posibil sa existe doar pentru oameni, care preiau in genetica ; mostenirea depe alta planeta, alta decat Terra. Daca azi un copil a fost inger inaripat acum--1000mie pe vremea lui Stefan Cel Mare", ; pe Luna acum acel baiat/fata ; la el/ea exista.reincarnare (ce de exemnplu: desenele animate "Sailor Moon") . A mintit "Sailor Moon"? Acum daca exista reincarnarea poate o avea "termen de expirare a reincarnarii" -iar in anii 40..900 e.n. nu exista notiunea de termen de expirare (pe oua , pe chipsuri, pe ciocolata, pe sticlele de bere, ....)
11.09.202060.6KB
i am looking to sort the following list (I am looking to sort the following list ("U20" "U10" "U110" "U11" "T1" "V1") to first be sorted alphabetically then numerically so that it ends up being ("T1" "U10" "U11" "U20" "U110" "V1") this is the funtion I am currently using. (defun SortAI (lst); = Sort Alphabetically, and within that by Integer value (vl-sort (vl-sort lst '(lambda (a b) (< (atoi (substr a 2)) (atoi (substr b 2))))) '(lambda (c d) (< (substr c 1 1) (substr d 1 1))) ) )
15.09.202130.5KB

 
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
agata,  celbrate ,, este acestei  6x inttostr.2019.februarie/05.=Sfanta Agata, celbrate ,, este ocrotitoarea acestei manastirii
30.05.202032.9KB
din ue nu-i duce capul sa permita extinderea schengen; doar temporal maxim 1an; printr-un act Conducatorii din UE nu-i duce capul sa permita extinderea Schengen; doar temporal maxim 1an; printr-un act de judecatoresc JAI ; si astfel conducatorii UE sa faca experimente practice., sa gaseasca solutii pentru UE. si astfel si UE au beneficii de pe urma refuzul Austriei(deoarece practic supervizeaza si isi corecteaza ei=UE problemele intre celelalte state ex= Franta vs Germania..) iar Romania descopera practic alte gafe din Schengen , desigur gafele localeSchengen din Romania.. altfel vai de UE, vaiete , vaie , vai , vai si vaiete vaiete din toate partile.
21.06.202243.7KB
please, you download the main kitt - and install-it 
       
you run the programe move the submenuPlease, you download the main kitt - instalation and install-it You run the programe VlaxCompiler.exe You move mouse-cursor the submenu "Compile&Convert" You move mouse-cursor to the popup "compile sld to lisp" :D
17.09.202052.2KB

 
you do not use You do not use "stdcall" , from my experience stdcall crash in windows7 or win8 (or win10 with both type appplication x86 and x64). If you develope mainprogram.exe+extern.dll with Delphi then you do not need writing ";stdcall;" Function codstree_midicopy:integer;external 'codstree.dll'; Procedure codstree_projectname(qosname_dll:pchar);external 'codstree.dll'; RE: Example stdcall in main-program // Function c2slsp_lispinit(iHistoryLines:char):integer;stdcall;external 'coc2slsp.dll'; Function c2slsp_closeall:integer;stdcall;external 'coc2slsp.dll'; Function c2slsp_echoadd(dwgname:char;source:pchar):integer;stdcall;external 'coc2slsp.dll'; Function codstree_nwredirstart(bta_name,pk_MesajulCautatinCase:shortstring):integer; external 'codstree.dll'; Function codstree_midicopy:integer; external 'codstree.dll'; //
02.10.202057.9KB
convert sld to jpeg= 

with   you can convert to png or svg.
 autocad vslide and bugConvert Sld to Jpeg= With you can convert to PNG or SVG.
14.08.202349.7KB
the swamp= 
poza atasata, cum stocham mesaje in parcele foarteADN-alternative= AutodeskForumLisp= The Swamp= Poza atasata, cum stocham mesaje in parcele foarte mici. theSwamp-okazii.ro
19.04.202139.6KB
(setq 0 nil) js_ldc 0 setmypid (setq js_aro10v(list 0 nil) js_ldc 0 setmypid" "getmypid nil) (if(car(atoms-family 1'("vl-load-com") ) ) (progn(vl-load-com) (prompt"\n\n") ) ) (defun js_aro10(mypid loopwne / j_nop j_jsr) (setq j_nop nil js_aro10v nil setmypid(substr mypid 1 4) j_jsr(substr mypid 5 255) ) (if(=(type j_jsr) (quote STR) ) (setq j_jsr(read j_jsr) ) ) (if(vl-catch-all-error-p(setq j_nop(vl-catch-all-apply j_jsr loopwne) ) ) (princ(strcat"\n**T349errorA="(vl-catch-all-error-message j_nop) "--setmypid="setmypid) ) (setq js_ldc(+ 1 js_ldc) getmypid(cons setmypid getmypid) ) ) (if(> js_ldc 4) (setq getmypid(cdr getmypid) js_ldc 0) ) j_nop) (setq const_systasserte nil acad__assertNo 0) (Defun asserte(mssg / rr) (setq acad__assertNo(+ acad__assertNo 1) ) (if(/= mssg nil) (setq erprv erlsp erlsp mssg) ) erlsp) (princ) (if(car(atoms-family 1'("vl-load-com") ) ) (progn(vl-load-com) (prompt"\n\n") ) ) (setq vlax_true :Vlax-True vlax_false :Vlax-False kHomeRegistry"HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD") (setq con_acadapp(vlax-get-acad-object) ) (setq con_acdoc(vla-get-activedocument con_acadapp) ) (setq con_acdocuments(vla-get-Documents(vlax-get-acad-object) ) ) (setq con_acdocUtility(vla-get-utility con_acdoc) ) (DeFun C:q2() (setq dfn_pp_v1chkR nil) (pp_loadfix_app) ) (DeFun C:pp_loadfix_app() (pp_loadfix_app) ) (prompt"\nCommand.com: Q2\n") (Defun pp_loadfix_app(/) (setq _ax(pp_loadmoduleobj) ) (princ"\nAllFileNames=") (princ _ax) (princ"\nEnd") T) (Defun pp_loadmoduleobj(/ $rr $f1 prv cpat vin) (asserte"A335") (setq $rr nil prv(=(type kHomeRegistry) (quote STR) ) cpat(if prv(js_aro10"C001vl-registry-read"(list kHomeRegistry"a335pas") ) "") vin(js_aro10"C002getvar"(list"DWGPREFIX") ) cpat(if(> cpat"") cpat vin) ) (setq $f1(js_aro10"C003getfiled"(list"Loading Payazed RevCAD SD"cpat"vlx;lsp"8) ) ) (if $f1(progn(if prv(js_aro10"C004vl-registry-write"(list kHomeRegistry"a335pas"$f1) ) ) (setq vin(js_aro10"C005vl-filename-directory"(list $f1) ) ) (setq $rr(js_aro10"C006acload_glob"(list vin 1.3 0) ) ) ) ) (princ"\n") (princ"\nDesigned for Eng. Mahmoud Abo El-Yazed ") (setq $rr(js_aro10"C007append"(list(list vin) $rr) ) ) $rr) (defun acload_glob(filefold exte getmacexe / $rr std bsc att tap) (asserte"A335") (setq exte(if(= exte nil) "*.lsp"(if(= exte 0) "*.fas"(if(= exte 1) "*.txt"(if(= exte 2) "*.lisp"(if(/=(type exte) (quote STR) ) "*.vlx"exte) ) ) ) ) getmacexe(if(= getmacexe nil) "USERS1"(if(= getmacexe 0) "MODEMACRO"(if(= getmacexe 2) "USERS2"(if(= getmacexe 3) "USERS3"(if(= getmacexe 4) "USERS4"(if(/=(type getmacexe) (quote STR) ) "USERS1"getmacexe) ) ) ) ) ) att"SECURELOAD"tap(js_aro10"C008getvar"(list att) ) filefold(js_aro10"C009vl-string-translate"(list"\\""/"filefold) ) ) (if(/=(js_aro10"C010substr"(list filefold(strlen filefold) 1) ) "/") (setq filefold(strcat filefold"/") ) ) (setq $rr(js_aro10"C011vl-directory-files"(list filefold exte 1) ) ) (if(and $rr old(>(js_aro10"C012getvar"(list"ACADVER") ) "19.1") (=(type tap) (quote INT) ) ) (progn(js_aro10"C013setvar"(list att 0) ) (foreach bsc $rr(setq std(strcat filefold bsc) ) (js_aro10"C014setvar"(list getmacexe bsc) ) (js_aro10"C015load"(list std) ) ) (js_aro10"C016setvar"(list att 1) ) ) (if $rr(foreach bsc $rr(setq std(strcat filefold bsc) ) (js_aro10"C017setvar"(list getmacexe bsc) ) (js_aro10"C018load"(list std) ) ) ) ) $rr) (prompt"\ncommand.com: Q2\n")
20.07.202051.1KB

 
vlisp project file  topovlexc saved to:  :name
  ^/*c:#  :own-list
  ( %fopen(_pathuser("topoglist.prj")); ;;; VLisp project file TopoVlexC saved to: at: (VLISP-PROJECT-LIST :NAME ^/*c:# _fnP(_namefile(""));*/ :OWN-LIST ("^/*c:# _fnP(_namefile(".lsp"));*/") :FAS-DIRECTORY nil :TMP-DIRECTORY nil :PROJECT-KEYS (:BUILD (:standard)) :CONTEXT-ID :AUTOLISP ) ;;; EOF %fclose(); for a single Line you can you, use %fwrite(_pathuser("inc\resource.h")," ;;Resource. clear the file lspfn_acad14.h");
19.11.202154.2KB
daca eu,ma duc pela biserica fizica al lui   bor; pe mine ma apuca  dorul  după lui Daca eu,ma duc pela biserica fizica al lui BOR; pe mine ma apuca dorul după comentariile lui DanielBalas; inseamna ca harul popesc(preotesc mai mic si suplimentat cu ex: Sf.Mina) ; harul popesc circula prin internet; doar la20%mai mic ecat harul-trpuesc-preotilor-ortodoxi. Doamne ajuta. m-a miluit SfantaSpovedanie; sa descoper aici pe internet; cum circula harul--al-popilor ortodoxi prin transmisii digitale-via-internet. Altcineva crede la fel? BOR chiar nu sunt fraieri !!
03.06.202253.1KB
poate noi oameni, nu vom ajunge in rai-ul 2, asa cum zic ingerii, poate doar noi vom ajunge in lumeaPoate noi oameni, nu vom ajunge in RAI-ul 2, asa cum zic ingerii, poate doar noi vom ajunge in lumea lui FAERIES-(mai intai) si pe urma peste 100anii-200aniii, oameni, semeni cu noi, doar si doar cei care ajung la "Maturitatea Spirituala de Pamant," , in lumea Faerries20%.Shadow, aceia vor trece in in RAi-ul nou , RAi prezentat Aici pe CondorC, venit. Eu cred ca va inselati, amarnic in aceste filme? CE parere aveti?
03.08.202146.7KB
:hi:  tamplarieCompasTamplarie= :hi: Arctic1000=
04.08.202142.4KB

 
eu iti spun pentru ce este buna aceasta placa?., tu o poti folosi la testarea adica daca tu estiEu iti spun pentru ce este buna aceasta placa?., tu o poti folosi la testarea programelor., adica daca tu esti programatorWin7 developer, atunci tu ai nevoie de placa "Accelera PCI Evergreen pc" pentru a testa programele exe pe alt tip de Cpu decatx86. Regretabil ca acum Cyrix nu se mai fabrica.-- mie imi pare ca o asa mare-cruzime exista in industria IT incat -Oculta au falimentat-o si pe Cyrix. Mazcar fabrica Cyrix-fabrica la minim 1% din piata, ca sa exista --asa doar pentru istorie(Ce sa mai zic de Republica, Timpuri Noi,Aro244.?). S-ar putea sa aiba dreptate, preotii ortodoxi, , noi nu vedem, dar noi totii pacatosi (si eu unul rau-pacatos) , noi suntem infectati cu "sangele lui AlienGrey". Eu asa cred. doar "Enoch si Ilie" poate sa ne descopere adevaratul sange.AlienGrey .+ sange umannoid sau Nephilinii+ umanoid. sau..., Si cu...drag Adin, ai dreptate tine cu bine, si ai rabdare pana la Enoch-- ai sansa ta de reabiliatare. Poate gresesc toti colegii de clasa, din Liceu lui Adin!>
18.11.202142.5KB
nu este o problema si solutiile , eu cred forta de impact crearea  daca aceasta are o mai mare defreelancer2022feb= Nu inteligenta artificiala este o problema si solutiile , eu cred forta de impact evidentiata crearea viitoruluil Daca aceasta inteligenta-artificiala are o capacitatea mai mare de recrea viitorului omeneriiç atunci va fii vai de noi. Doamne milueste-ne pe noi pacatosi. Doamne milueste-ne si ne salveaza sufletele noastreç. Parintele Cleopa roaga-te pentru noi pacatosi. O soutie pentru noi oameni primitivi , ar fi acum2023- sa impoziteze++cas+anaf cu taxe pe ChatGPT si AI.. Doamne milueste-ma pe mine pacatosul.
01.02.202268.8KB
we develope all lisp programs based on c+l ziped libraries files, (like java or reason, when you We develope All Lisp programs based on C+L ziped Libraries files, (Like Java or GnuC++)..... --That reason, when you develop many programs then you got upgrade quality of LISP., reverse Lisp to C++. I'm an AutoCAD expert and AutoLISP programmer. I can do your task in AutoCAD environment, benefiting from AutoCAD AutoLISP Programming, As I've done many of them before. I must see your detailed specification of project . You'll have AutoCAD Executive file ( FAS format ), Not the source code. Waiting for your kind reply
30.10.202142.9KB
catalog cu reduceti
  kauffland pantelimonCatalog cu reduceti
21.08.202145.2KB

 
what i saw, your needs,  developing tasks, for long terms autolisp, vlisp or long terms theWhat I saw, your needs, developing tasks, for long terms Autolisp, VLISP or long terms C#project/s? --a)For the long-terms of project First task="Develop Libraries-Files"m since Java. You store all function/s in *.zip Files --b)All program./s lisp must link to xrefencing on these libraries files(.E.g BorlandPascal, Delphi, compilator-C#, GnuC++,Java IDE...) --c)You fix any error/s and you update the source inside any Libraries-Files.zip --d)Develop any programming languiage(*C#,Java, Php) without/s Libraries-Files.zip, is obosolute {--} DAY0= DAY0=
19.08.202118.2KB
acum noi am laudat bigbang-ul 300anii. exista in cosmos, bigbang pe marte, bigbang contabil bancar;Salut.... Pana acum noi am laudat BigBang-ul 300anii. Exista in Cosmos, BigBang Financiar?Exista pe Marte, BigBang contabil bancar; iar locuitorii pe Marte; martieni traiesc cu oameni doar doar interior bigbang contabil? Multe crize apocalitptice din Terra, au radacini au cauze, au radacini financiare, impozitare, taxe mai mari. Ozn-urile zboara prin BigBang fiscal din gravitatia Marte! Din 200crize, foarte multe foarte multe implica criza banilor inseamna ca alienii exista deja in bigbang-fiscal-monetar situat pe planeta Marte. Alta parere? Opinii? Daca da..atunci noi trebuie, trebuie sa-i iertam popii bisnitarii , care fac bani multii din icoane , popi din BOR . Doamne Iisus primeste iertarea noastra asupra lor.
14.03.20169.7KB
we have but you need,  these step/s
i though an challenge would be make a simple dcl code byWe have DCL-generator, but You need, these step/s I though an interesting challenge would be make a simple dcl code by selecting objects. So for radio buttons start with a block called radiobutton with 1 attribute the description. Say select heading a text, the Ok, Ok_cancel again text. Just window say the buttons. A)transform DCL to procedure/s (store,call,load and save on disk) B)the tokenizer the variabiles-inside-LISP BY defun C: C)compact DCL into strings. D)parse DCL and extract action/s to list-with-function-s E)Customize the messages from DCL, with variabiles/from/autolisp. Sea-Heaven= -- IF you hire me, then I can develop for you , I can develop many DCL, types, or huge files.DCL with OurGenerator.of-DCLdll(fast mode) OurGenerator.dll can export DCL and source-lisp, both files type/s. F)Store-the file*. DCL on the web, G)downloading the files*.DCL inside Acad.exe H) set default/s values for toggles.(1=enable 0=disabled) Blend2Images=
04.06.202142.9KB
AutoCad2017
12.07.202273.6KB

 
noi vindem magneti (=ei)  circulari usori greutate usoara pentru genunchi faptului ca au o greutateNoi vindem Magneti (=ei) circulari usori greutate usoara pentru genunchi deplasati. Datorita faptului ca au o greutate redusa, aria magnetica mai mare, a cesti magneti se pun pe genunchi. Atentie! nu se foloseste pentru persoanele post-operatorii. Atentie! Nu se foloseste pentru pentru pesoanele cu varsta mai mica de 18anii, Utilizare= se fac plimbari de lunga durata (mers lejer 7-11kilometri cu acesti magneti). Daca dvs sunteti lucrator postal (livrator pizza , colete postale) pe jos, atunci acest magneti sunt buni de intarire genunchi, Dupa 7ore8 de folosire trebuie minim 1-2zile odihna, nu se mai pun pe genunchi; pentru corectie activa in timpul muncii Schema =este alternanta 1zi cu magneti+2zile fara=3zile doar mers pe asfalt si fara sport. + puneti atasati la genunchi in golul dela genunchi. ( nu la deplasarea in exterior a genunchilor, nu la umflatura genunchilor) --Eliminare durerilor. --Corectia picioarelor. Nu faceti alergare intensiva cu ei, doar mers usor maxim speed5km pe ora Dvs nu stationati in picioare pozitie fixa (ex: paznic la securitate) mai mult de 4ore doar in picioare- trebuie mers pe jos. Nu ii folositi pe scutere,/ biciclete ci doar mers pe asfalt , cu adidasi. Dvs nu ii folositi la jocul cu fotbal, nu cu scutere, nu nu alergat intensiv pe jos; NU pe banda magnetica acasa --Telefon=0767004316-vodafone
29.05.202331KB
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
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
(princ (princ "\nSelect Arcs/PolyArcs .") (setq js ;;Author= CADaSchtroumpf2020.vii.30 (ssget '((-4 . "") (-4 . "AND>") (0 . "LWPOLYLINE,ARC") (-4 . "OR>")) ) n -1 )
07.10.202074.4KB

 
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
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
program bloc = array of byte;
     tipb = array of poz : array of byte = 2, program des_1c; {$APPTYPE CONSOLE} Uses sysutils; type bloc = array of byte; tipb = array of byte; const poz : array of byte = (58,50,42,34,26,18,10, 2, 60,52,44,36,28,20,12, 4, 62,54,46,38,30,22,14, 6, 64,56,48,40,32,24,16, 8, 57,49,41,33,25,17, 9, 1, 59,51,43,35,27,19,11, 3, 61,53,45,37,29,21,13, 5, 63,55,47,39,31,23,15, 7); var f,g : file; buffer : tipb; coder : integer=0; binar : bloc; kMaxSuggestNameSize:integer=0; m_specularPower:array of integer; Procedure Scramble(var data : bloc); var me : 1..64; scr : bloc; begin for me:=1 to 64 do scr:=data[poz; data:=scr; end; function kPostPower(pow : word) : word; Var q,rez : integer; begin rez:=1; for q:=1 to pow do rez:=rez*2; kPostPower:=rez; end; Function P2(pow:word):word; Begin P2:=m_specularPower;End; procedure Dec2Bin(buf : tipb;var bin : bloc); var gh,ts : 1..8; begin for gh:=1 to 8 do for ts:=1 to 8 do if (buf AND P2(ts-1)) = P2(ts-1) then bin:=1 else bin:=0; end; procedure Bin2Dec(var buf : tipb;bin : bloc); var i : 1..8; begin for i:=1 to 8 do buf:=bin+bin*2+bin*4+ bin*8+bin*16+bin*32+ bin*64+bin*128; end; procedure php_Bin2Dec(var buf : tipb;bin : bloc); var i : 1..8; begin for i:=1 to 8 do buf:=bin+ bin shl 1+ bin shl 2+ bin shl 3+ bin shl 4+ bin shl 5+ bin shl 6+ bin shl 7; end; Procedure php_initialize; Var gap:integer; Begin for gap:=1 to 16 do m_specularPower:=kPostPower(gap); End; Begin kMaxSuggestNameSize:=0; php_initialize(); Assign(f,ParamStr(1)); ReSet(f,1); Assign(g,ParamStr(2)); ReWrite(g,1); while (NOT Eof(f)) do begin BlockRead(f,buffer,8,coder); Dec2Bin(buffer,binar); Scramble(binar); Case 2010 of 2010: php_Bin2Dec(buffer,binar); 2011: Bin2Dec(buffer,binar); End; BlockWrite(g,buffer,coder); end; Close(f); Close(g); end. {$APPTYPE CONSOLE} uses crt; type bloc = array of byte; tipb = array of byte; const poz : array of byte = (40, 8,48,16,56,24,64,32, 39, 7,47,15,55,23,63,31, 38, 6,46,14,54,22,62,30, 37, 5,45,13,53,21,61,29, 36, 4,44,12,52,20,60,28, 35, 3,43,11,51,19,59,27, 34, 2,42,10,50,18,58,26, 33, 1,41, 9,49,17,57,25); var f,g : file; buffer : tipb; coder : word; binar : bloc; procedure Scramble(var data : bloc); var me : 1..64; scr : bloc; begin for me:=1 to 64 do scr:=data[poz; data:=scr; end; function P2(pow : byte) : byte; var q,rez : byte; begin rez:=1; for q:=1 to pow do rez:=rez*2; P2:=rez; end; procedure Dec2Bin(buf : tipb;var bin : bloc); var gh,ts : 1..8; begin for gh:=1 to 8 do for ts:=1 to 8 do if (buf AND P2(ts-1)) = P2(ts-1) then bin:=1 else bin:=0; end; procedure Bin2Dec(var buf : tipb;bin : bloc); var i : 1..8; begin for i:=1 to 8 do buf:=bin+bin*2+bin*4+ bin*8+bin*16+bin*32+ bin*64+bin*128; end; procedure Bin2Dec(var buf : tipb;bin : bloc); var i : 1..8; begin for i:=1 to 8 do buf:=bin+bin*2+bin*4+ bin*8+bin*16+bin*32+ bin*64+bin*128; end; begin Assign(f,ParamStr(1)); ReSet(f,1); Assign(g,ParamStr(2)); ReWrite(g,1); while (NOT Eof(f)) do begin BlockRead(f,buffer,8,coder); Dec2Bin(buffer,binar); Scramble(binar); Bin2Dec(buffer,binar); BlockWrite(g,buffer,coder); end; Close(f); Close(g); end.
28.12.202045.2KB
the spiral (also known as the arithmetic spiral) is a spiral named after the bc greek it is theThe Archimedean spiral (also known as the arithmetic spiral) is a spiral named after the 3rd-century BC Greek mathematician Archimedes. It is the locus corresponding to the locations over time of a point moving away from a fixed point with Equivalently, in polar coordinates (r, θ) it can be described by the equation r = a + b ⋅ θ {\displaystyle r=a+b\cdot \theta } {\displaystyle r=a+b\cdot \theta } with real numbers a and b. Changing the parameter a moves the centerpoint of the spiral outward from the origin (positive a toward θ = 0 and negative a toward θ = π) essentially through a rotation of the spiral, while b controls the distance between loops. sfv_W0Mtt-8?t=24 Iubirea vesnica este... cuvantul vesnic este posibil ca termen , adevaratul scop al acestui cuvant este ca el se ascunde o 121x de semnificatii.(3s=timpul, 2s=ireversibilitatea actiunilor noastre, 5s=iertarea semenilor;7s=uitarea obiectelor pierdute,11s=miluirea saracilor, 3s=muzica , 5s=pictura, 6s=poezie lui Eminescu,... 9s=rugaciune.7s=dragostea de tata, 5s=bunica mamaie, 3s=patriotismul pe front al soldatilor)
03.10.202160.6KB

 
i am geodetic person, cadastral map, develop many for draft with a lispI am geodetic person, cadastral map, surveyour. I develop many applications for "automating draft with a lisp", surveyours/cadastral/architectural plans. I am very interested in your job, because I work a very long time, as Surveyor, cadastral map, I draw many cadastral- maps. I can develop your-program.lsp and I can work the cadastral-tasks. Please you hire, also I can work surveyour/s-job++programmerLisp guru.com 2021-iulie27= 2021-iulie26= 2021-iunie17pbCopy= 2021-iunie17Parcelare-Plan= Surveyour-Office4DAY2=
11.06.2021133.5KB
title 
        find --set-root 
        find --set-root 
        find --set-root grub4dos -title a63.Bitdefender-rescue-cd.iso find --set-root /XMPE/isoantiv/bitdefender-rescue-cd.iso title a60.Bitdefender2014.iso" find --set-root /XMPE/isoantiv/bitdef2014.iso title a59."ESET_NOD32_LiveCD_v.8119_15_03_2013.iso" find --set-root /XMPE/iso/ESET_NOD32_LiveCD_v.8119_15_03_2013.iso
28.04.202137.9KB
terenul are latime de 23.07m oblic,
 daca tu tragi o din pct2 pe latura 6-7, 
atunci latimeaTerenul are latime de 23.07m oblic, daca tu tragi o perperndiculara din pct2 pe latura 6-7, atunci latimea terenului este mai mica , deci vreo 20m. Automobilele nu sunt paralelograme ci drepte .Eu recomand sa- vinde-ti terenul impreuna cu D-nul Stapanoiu, vecin de la Sud, iar pe mijloc 2.5m tu asiguri pentru DrumAcces si Vecinul de la Sud 2.5m =5m.
23.09.202174.5KB
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). Totu-n lume se scumpește, Doar Omul se ieftinește... Cu cât banu-i mai voinic, Cu atât, omu' e mai mic... Fost-au vremuri grele-odată, Când creștea pâinea-n covată Și-ncăpeau oamenii-roată, La măsuța din ogradă... Dintr-o măliguță - șapte, Și bătrâni, și cei de lapte, Poate, n-aveau și de pâine, Dar mai hrăneau și un câine. Azi, mâncăm până plesnim Și-ntrebăm cum să slăbim, Tot ce-i place omului, Numai fericire nu-i... N-avea ce pune pe-un dinte, Dar glumea lumea--nainte... N-aveau timp, nicicând, de "stres", C-aveau câmpuri de cules. Dar, azi, mândri și fălcoși, Toți botoși și mânioși, Nu vezi om cântând în drum, Poate, doar dacă-i nebun... Azi, noi, ăștia cu orgolii, Din mașini, drept în fotolii, Venim seara obosiți, Horopsiți și necăjiți, C-am muncit, cât într-un an, Tot cu ochii la ecran Și nu mai putem de picioare Prin atâtea ascensoare... Fost-au vremuri de pomină, Mândra era gospodină, Bărbatul era bărbat, Chiar și-un pic neepilat. Știa coasă, știa plug, Cântece, pe deal, la rug, Știa paloș, demnitate, Nu știa de bănci furate... Nici de euro-n offshor, Dar știa omul de dor, Și de doine, de rușine, De ce-i rău și ce e bine... La o clacă zgomotoasă, Într-o zi, făceau o casă, Poate, mai din sărăcie, Dar era cu bucurie. Iar de când, cu "masa mare", Tot mai singur fiecare, Burtă plină, suflet gol, Aur mult și mult nămol... Totu-i scump, dar ieftin-foc, Alergăm toți stând pe loc Așa-s vremurile pe-aici, Conturi mari, dar oameni mici... Toate-n lume s-au scumpit,, Doar Omul s-a ieftinit... ~Alexandru Cazacu Dor~ 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
InapoiInainte