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

InapoiInainte

 
(mapcar (quote setvar) (quote ( (MAPCAR (quote SETVAR) (quote ("skpoly" "snapmode" "orthomode" "cmdecho" "plinetype") ) (quote (1 0 0 1 0)) ) (setq svnames (list "osmode" "cmdecho" "blipmode" "plinewid")) (setq svvals (mapcar (quote getvar) svnames)) (alert "Author:=kajanthangavel") (alert "You type here your-program code") (mapcar (quote setvar) svnames svvals)
01.08.202076.5KB
(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
title dvd english x32 din 2021 title a84."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,1)/casper/vmlinuz35 bootfrom=/dev/*%iso_path% noeject noprompt lang=%lang% vt.default_utf8=0 apm=power-off nomce libata.force=noncq hpsa.hpsa_allow_any=1 loglevel=1 tz=localtime video=1024x768 initrd (hd0,1)/casper/initrd35 boot
15.07.202137.4KB
you repair this source, for gnulisp version 2.2 or want transform the into gnulisp? crash iHello Please you repair this source, for GnuLisp version 2.2 or CommonLisp.? I want transform the "(nn_vmload)" into GnuLisp? :rolleyes: First crash I localize with (setq..... inside (nn_vmload) You call with (nn_vmload) at console (defun nn_vmload () (setq a1 (reduce '+ (list 272 480 757 1360 1561) 0) b1 (reduce '* (list 4 11 25 3673) 1) c1 (reduce (read "CSCE") (list 4 11 25 3673) 0) d1 (reduce (read "ESCTNU") (list 4 11 25 3673) nil) ) (princ "a1=")(princ a1)(terpri) (princ "b1=")(princ b1)(terpri) (princ "c1=")(princ c1) (terpri) (princ "d1=")(princ d1) (terpri) (setq labc (list "a" "b" "a" "a" "a" "c" "c") a2 (taskf2 labc nil) ) (setq b2 (taskf3 labc nil) ) (setq d2 (taskf4 labc nil) ) (princ "a2=") (princ a2)(terpri) (princ "b2=")(princ b2) (terpri) (princ "d2=")(princ d2)(terpri) ) (princ "\nNn_vmload=") (defun csce (v1 v2) (if (numberp v1) (+ v2 1) v2 ) ) (defun reduce (f x v) (if (null x) v (apply f (list (car x) (reduce f (cdr x) v))) ) ) (defun taskf2 (vlc $rr) (setq $rr (if (and vlc (cadr vlc) (equal (car vlc) (cadr vlc))) (taskf2 (cdr vlc) $rr) (if (cadr vlc) (cons (car vlc) (taskf2 (cdr vlc) $rr)) vlc ) ) ) $rr ) (princ "\nTaskf2") (defun taskf3 (lst $rr) (while lst (setq $rr (cons (car lst) $rr)) (if (member (car lst) lst) (setq lst (vl-remove (car lst) (cdr lst))) ) ) $rr ) (princ "\nTaskf3") (defun taskf4 (lst $rr) (setq lst3 (car (list nil "rem=Store here all alreadyScannedValue/s")) ) (while (car lst) (setq lres (cdr lst) cnt (if (member (car lst) lst3) 0 1 ) ) (and (= cnt 1) (while lres (if (= (car lst) (car lres)) (setq cnt (+ cnt 1)) 0 ) (setq lres (cdr lres)) ) ) (and (> cnt 0) (setq lst3 (cons (car lst) lst3) $rr (append $rr (list (cons cnt (car lst)))) ) ) (setq lst (cdr lst) ) ) $rr ) (princ "\nTaskf4") (defun esctnu (valorex outres) (if (null valorex) outres (append outres (list valorex)) ) )
26.10.202160.4KB

 
(if (not (or (= ext1 (if (not (or (= ext1 ".LSP"); Autolisp files (= ext1 ".VLX"); AutoCAD AutoLISP Macro Application (Autodesk, Inc.) (= ext1 ".FAS"); AutoCAD Fast-load Auto LISP (Autodesk, Inc.) (= ext1 ".ARX"); ObjectARX files (= ext1 ".NRX"); NanoCad module DLL like Arx or Brx (= ext1 ".CRX"); Core ObjectARX files (= ext1 ".DVB"); VBA files (= ext1 ".DBX"); ObjectDBX files (= ext1 ".VLS"); ObjectDBX files (ZWCAD analoque format to VLX) (= ext1 ".ZELX"); ObjectDBX files (ZWCAD analoque format to FAS) (= ext1 ".MNL"); AutoCAD AutoLISP Functions Related to Menu (Autodesk, Inc.) (= ext1 ".DES") ;BrisCAD Encryipted Lisp );or );not (progn (princ "\nIts not a path to a Autocad App file") (exit) );progn );if .CL=Generic LISP Source Code .EL=eMacs Lisp Source Code .ELC=eMacs Lisp Byte-compiled Source Code .GC1=Golden Common Lisp 1.1 Source Code .GC3=Golden Common Lisp 3.1 Source Code .KCL=Kyoto Common LISP Source Code .L=LISP Program File /LEX Program File .LISP=Translators File of Lisp .LISPM=Machine File Bitmap for Lisp .LSP=Program File Lisp .WKS=XLISP Workspace
17.03.202145.4KB
please you compile with will why we need, develop encrypted is best way for selling the another2024-aprilie= 2021-noeibmrie= Please you compile pp_topoglist.vlax with jc_pin25.lsp You will understand.. Q=Why, why we need, develop encrypted source.ascii.lisp? A=Encrypted asciil-lisp.lsp is best way for selling the source/s on freelancer-com, another way you will failed marketing yourPrograme.Vlx on the internet
16.11.202155.4KB
how to rename my program inside see the picture below, on path muicache contain many installed toHow to rename my Program inside OpenWidth? You see the picture below, on top-Right-Corner. This path MUICache contain many Installed Programs. How to extract all names-of-InstalledPrograms to TStringList? "LangID"=hex:09,04 "C:\\DOCUME~1\\adruianb\\LOCALS~1\\Temp\\mia4\\BorCreateUDL.exe"="BorCreateUDL" "C:\\WINDOWS\\Microsoft.NET\\Framework\\v2.0.50727\\regasm.exe"="Microsoft .NET Assembly Registration Utility" "C:\\WINDOWS\\Microsoft.NET\\Framework\\v1.1.4322\\regasm.exe"="Microsoft .NET Assembly Registration Utility" "C:\\Program Files\\Mozilla Firefox\\firefox.exe"="Firefox" "C:\\Program Files\\Internet Explorer\\IEXPLORE.EXE"="Internet Explorer" "@explorer.exe,-7024"="Internet" "@explorer.exe,-7025"="E-mail" "@shell32.dll,-22054"="Paint" "@shell32.dll,-22051"="Notepad" "@explorer.exe,-7023"="&Run..." "@explorer.exe,-7020"="&Search" "@explorer.exe,-7021"="&Help and Support" "@C:\\WINDOWS\\system32\\SHELL32.dll,-9319"="Printers and Faxes" "@xpsp1res.dll,-10077"="Set Program Access and Defaults" "@C:\\WINDOWS\\system32\\SHELL32.dll,-9216"="My Computer" "@shell32.dll,-21790"="My Music" "@shell32.dll,-21779"="My Pictures" "@C:\\WINDOWS\\system32\\SHELL32.dll,-9227"="My Documents" "@xpsp1res.dll,-11004"="Outlook Express" "@C:\\WINDOWS\\system32\\rcbdyctl.dll,-152"="Remote Assistance" "@shell32.dll,-22075"="Windows Catalog" "@C:\\WINDOWS\\system32\\xpsp1res.dll,-10077"="Set Program Access and Defaults" "@shell32.dll,-21761"="Accessories"
15.07.202135.2KB
unit =you can execute onto one uses main issue is how to password of dictionary ? (setq $dbUnit =You can execute programe.Lisp onto one Drawing.dwg File? Interface Uses odg_anexa16.dwg; Q1=The main issue is how to password of Dictionary ? (setq $db "muLisp7829") (vlax-ldata-put $db "4E37" "getvar") (vlax-ldata-put $db "6E00" "alert") (vlax-ldata-put $db "6444" "dfn_cmd_canceld") (vlax-ldata-put $db "066C" "read") (vlax-ldata-put $db "F2C4" "substr") (vlax-ldata-put $db "0DC3" "assoc") (vlax-ldata-put $db "4DFA" "cons") A1=You keep secret the "bootsdi.wim.lsp", This is installer for Lisp onto odg_anexa16.dwg as AcDbDictionary. :nod: Implementation
10.04.202145.2KB

 
//rem: ctrl+s ); ); delphi32 - customize shortcut for submenu //rem: ctrl+s PackSavetofilearchive1.ShortCut:=Shortcut(83, ); About1.shortcut:=shortcut(VK_F3, );
15.03.202143.3KB
jewerly requested for , you must learning this de joburi similare cu odesk= of menus and with axesJewerly Requested for , You must learning this tools:= Site de joburi similare cu odesk= Interface Walkthrough of menus and controls Working with Axes and Basic Planes (OXY, OXZ, OYZ) Building and deforming Primitive Solids Using the Parametric History Tree to Edit Objects Setting Materials Booleans Basic Ring Construction, including Sweeping Wizard Open vs. Closed Shanks Setting Stones and Pearls on a Ring Reference objects from History Tree Basic Rendering Unit 2: Parametric Solid Modelling Strategies Sketch Mode vs. Part Mode Working with Vector Lines Using Sweeps, including Building Your own Rail and Cross-Sections Repairing Bad Sweeps Scale to Height Building a 3-Stone Ring Building Eternity Bands Placing Text on a Surface Unit 3: Stone Setting Tools in 3Design Extruding Shapes Using Scanned Images Creating 3-Way Diagrams from Scanned Images Building More Complex Ring Shapes Using Tapered Extrude Using Revolve Using Circular Duplication Unit 4: Modelling Strategies for Other Types of Jewellery Making Signet Rings Using Loft Making Perfect Domed Shapes Hollowing Out Shapes Applying and Manipulating Pave on a Surface Making Chains
08.10.202176.7KB
(defun os ce bm blk ent obj ppt dst ept ref len ipt par slp ang loopw nop mov rol ror) (defun pp_enblock_bsps(/ os ce bm blk ent obj ppt dst ept ref len ipt par slp ang loopw nop mov rol ror) (command "_.undo" "_be") (setq os (getvar "osmode") ce (getvar "cmdecho") bm (getvar "blipmode") blk "") (setvar "osmode" 0) (setvar "cmdecho" 0) (setvar "blipmode" 0) (progn (setq ent nil) (while (= ent nil) (setq ent (entsel "\nSelect polyline near reference end:")))) (progn (setq loopW 1) (while (< loopW 100) (setq mov (entsel "\nSelect BlockN:") rol (if (/= mov nil) (assoc 2 (entget (car mov))) nil) ror (if rol (cdr rol) nil) blk (if (and (= (type ror) (quote STR)) (> ror "")) ror (getstring T "\nBlock name:(enter.loopw) ")) loopw (if (and (> blk "") (tblsearch "block" blk)) 100 32)))) (progn (setq loopW 1) (while (> loopw 0) (progn (setq obj (car ent) ppt (if obj (osnap (cadr ent) "NEA") nil) dst (if ppt (getdist "\nDistance to Block Insertion:") nil) ept (if dst (vlax-curve-getendpoint obj) nil) ref (if ept (vlax-curve-getdistatpoint obj ppt) nil) len (if ref (vlax-curve-getdistatpoint obj ept) (- 3)) dst (if (and (> len 0) (> ref (/ len 2.0))) (- len dst) dst) ipt (if (> len 0) (vlax-curve-getpointatdist obj dst) nil) par (if (> len 0) (vlax-curve-getparamatpoint obj ipt) nil) slp (if par (vlax-curve-getfirstderiv obj par) nil) ang (if par (atan (/ (cadr slp) (car slp))) nil)) (if ang (entmake (list (cons 0 "INSERT") (cons 2 blk) (cons 10 ipt) (cons 50 ang)))) (terpri) (setq loopw (if (and obj dst ept ipt) 3 (- 5010)))))) $rr)
07.07.202036.7KB
0767004316 erprv nil)(defun / rr qw)(setq int))(setq a251(abs a251 str))(setq erprv erlsp layername (princ)(setq kHereAiciHeirIciAqui 0767004316 erprv nil)(Defun asserte(a251 / rr qw)(setq acad__assertNo(+ acad__assertNo 1))(if(=(type a251)(quote INT))(setq a251(abs a251)a251(strcat"a"(if(< a251 100)"0""")(itoa a251))))(if(/=(type a251)(quote STR))(setq a251"a251err<>str"))(if(= acad__assertNo kHereAiciHeirIciAqui)(alert(strcat"You acad::eUserBreak\n"(itoa kHereAiciHeirIciAqui))))(setq erprv erlsp erlsp(strcat"\n"a251"<"(itoa acad__assertNo)">"))erlsp)(prompt"\nCommand.com=STB\n")(DeFun C:STB()(setq acad__assertNo 0)(dfn_cad_asysset)#endregio(setq layer.dll(getvar"CLAYER"))(setq tplay(getString T(strcat"\nGiveMe LayerName forBrlock<"layer.dll">:")))(if(= tplay nil)(setq tplay layer.dll))(setq idok(if(tblsearch"LAYER"tplay)tplay"0"))(setq _ax(pp_citruset idok))(command)(princ"\nEnd")rr)(defun dfn_cad_asysset(/ rr io kj su bya lpt)(setq su"")(setq lpt(list(list"MODEMACRO"(strcat su" "))(list"ORTHOMODE"0)(list"ISAVEBAK"1)(list"SAVETIME"15)(list"BLIPMODE"0)))(syst_setvars lpt)(setq io(vl-load-com))rr)(defun pp_citruset(slayerxp / $rr ndx ssst $db $i nm enb ene en3 nop jsr dyn)(setq $i(- 0 1)ssst(ssget))(if(= ssst nil)(progn(alert(strcat"\n*error* eSubSelectionSetEmpty_i550\n""Like_citrus-----------\n"":-Title(~LISP similar to commandBlock~)\n"":-Warning : Entmakex contain Bugs or Crash"))))(setq ene nil ndx 0)(progn(setq $db T)(while $db(setq $i(+ $i 1)nm(strcat"Block-"(itoa $i)))(setq $db(tblobjname"block"nm))))(setq st(getpoint"\nInsertion point: ")st(if(= st nil)(getvar"VIEWCTR")st)enb(entmake(list(cons 0"BLOCK")(cons 100"AcDbEntity")(cons 67 0)(cons 8 sLayerxp)(cons 100"AcDbBlockReference")(cons 2 nm)(cons 10 st)(cons 70 0))))(princ)(if enb(repeat(sslength ssst)(list(entmake(cdr(entget(ssname ssst ndx))))(princ)(setq ndx(+ 1 ndx)))))(if(> ndx 0)(setq ene(entmake(list(cons 0"ENDBLK")(cons 100"AcDbBlockEnd")(cons 8"0")))))(setq $rr(if ene(entmake(list(cons 0"INSERT")(cons 2 nm)(cons 6(getvar"CELTYPE"))(cons 8 sLayerxp)(cons 66 0)(cons 10 st)(cons 41 1)(cons 42 1)(cons 43 1)(cons 50 0)(cons 71 0)(cons 44 0)(cons 45 0)))nil))(princ)(setq dyn(dfn_getx_readkey"""\nErase old entities(y.yes)(n.no)(d.yes-da): "))(if(and(> dyn"")(wcmatch dyn"**"))(setq jsr(command"_.ERASE"ssst""))(setq $rr ssst))$rr)(setq syst_setvarname"")(Defun syst_setvars(listavar / $rr lpi $db om cfr)(setq $rr nil)(foreach lpi listavar(if(>(car lpi)"")(setq $db(car lpi)om(getvar $db)$rr(if om(append $rr(list(list $db om))$rr)(setq cfr(cadr lpi)om(if(= cfr nil)nil om)om(if(= cfr T)nil om)syst_setVarName $db om(if om(setvar $db cfr)nil))))))$rr)(defun dfn_getx_readkey(k574 t469 / retc kbd msg two chk lei)(setq retc(chr 0)kbd(if(> k574"")k574""))(setq msg(if(> t469"")t469"\nt469errorStr:"))(prompt msg)(progn(setq chk(if(>(strlen kbd)1)0 1))(while(= chk 0)(progn(setq two 0)(while(/= two 2)(setq lei(grread)two(car lei))(setq retc(strcase(chr(cadr lei))))(setq chk(if(> kbd"")(if(wcmatch retc kbd)1 0)0))))))(princ retc)retc)(prompt"\ncommand.com= stb\n") wanted to achieve the following in LISP, relating to creating a block: - Select elements. - Choose a point (usually Endpoint for one of the lines). - Once the point is selected, two things happen. (1) Elements are deleted (2) A block is inserted with anchor or base at previous chosen point. This is done all on one step, triggered by the chosen point. The above is similar to the BLOCK command which converts elements into a block. But I prefer not to enter a name, just to use randomly generated name. (setq acad_iso11w100-extmin 4932 acad_iso11w100-extmax 59089) (setq acad_isoQsortTime 00:00.00) (setq runiftry11w100 (list (cons "0x0000" "c:/VLAXCOMPIL/0User/autofcol.lsp") (cons "0x2A7A" "entmake");;County.xml=4 (cons "0x4E37" "getvar");;County.xml=2 (cons "0xE6D1" "dfn_getx_readkey");;County.xml=2 (cons "0x46CA" "wcmatch");;County.xml=2 (cons "0x6E00" "alert");;County.xml=2 (cons "0xABFF" "tblobjname");;County.xml=1 (cons "0x2ABB" "append");;County.xml=1 (cons "0x7EBC" "atoi");;County.xml=1 (cons "0x8223" "syst_setvars");;County.xml=1 (cons "0x63D7" "subst");;County.xml=1 (cons "0xD0B1" "ssget");;County.xml=1 (cons "0x4C2D" "sslength");;County.xml=1 (cons "0x7F6B" "vla-put-color");;County.xml=1 (cons "0x1344" "dfn_cad_asysset");;County.xml=1 (cons "0x624B" "strcase");;County.xml=1 (cons "0x9E77" "grread");;County.xml=1 (cons "0xDC92" "entget");;County.xml=1 (cons "0xA3DF" "getpoint");;County.xml=1 (cons "0x9F8D" "vl-load-com");;County.xml=1 (cons "0x48F2" "ssname");;County.xml=1 )) (setq getmypid nil js_getstatic12 nil setmypid "%s") (if (car (atoms-family 1 '("vl-load-com"))) (progn (vl-load-com) (prompt "\n\n"))) (defun js_ldc11(mypid loopwne / rom subf) (setq rom nil js_getstatic12 nil setmypid (substr mypid 1 4) subf (cdr (assoc mypid runiftry11w100))) (if (vl-catch-all-error-p (setq rom (vl-catch-all-apply (read subf) loopwne))) (setq js_getstatic12 (list "\n**T349errorH=" (vl-catch-all-error-message rom) "--setmypid=" setmypid subf "\n")) (setq getmypid (cons setmypid getmypid)) ) ;_ end of if (if (/= js_getstatic12 nil) (princ js_getstatic12)) rom) (setq acad_isoQsortTimp 00:00.00) (setq acad_isoSortTotal 00:00.00) (princ) ;;;inf=You run "c:\VLAXCOMPIL\0User\onlinesetup.cmd" before compile&link with external compilator. ;;;nam=autofcol.lsp ;;;{$R dfn_cad_amain} ;;;Inp: a251=int, ;;;rem: a251=tchar. (setq kHereAiciHeirIciAqui 0767004316 erprv nil) (Defun asserte(a251 / rr qw) (setq;|a2846|; acad__assertNo (+ acad__assertNo 1)) (if (= (type a251) (quote INT)) (setq;|a2898|; a251 (abs a251) a251 (strcat "a" (if (< a251 100) "0" "") (itoa a251)))) (if (/= (type a251) (quote STR)) (setq;|a3004|; a251 "a251err<>str")) (if (= acad__assertNo kHereAiciHeirIciAqui) (js_ldc11 "0x6E00" (list (strcat "You acad::eUserBreak\n" (itoa kHereAiciHeirIciAqui))))) (setq;|a3070|; erprv erlsp erlsp (strcat "\n" a251 "<" (itoa acad__assertNo) ">")) erlsp) ;;;Inf: Here is starting routine (prompt "\nCommand.com=STB\n") (DeFun C:STB() (setq;|a3367|; acad__assertNo 0) (js_ldc11 "0x1344" (list )) #endregio ;;;{$R (call_stas)} ;------------------------Stdcall pp_citruscolor (setq _ax (pp_citruscolor "0")) ;------------------------ ;;;{$R -cad_amain_callend} ;;;rem:---------------------------------------------------------------------- (command) (princ "\nEnd") rr) ;;;rem:---User Labels----cad_aPages----- ;;;rem:---pp_citruscolor----cad_aPages----- ;;;{$R dfn_cad_asysset} (defun dfn_cad_asysset( / rr io kj su bya lpt) (setq su "") (setq;|a5329|; lpt (list (list "MODEMACRO" (strcat su " ")) (list "ORTHOMODE" 0) (list "ISAVEBAK" 1) (list "SAVETIME" 15) (list "BLIPMODE" 0))) (js_ldc11 "0x8223" (list lpt)) (setq;|a5493|; io (js_ldc11 "0x9F8D" (list ))) rr) ;;;{$E} ;;;{$R pp_citruscolor} (Defun pp_citruscolor(sLayerxp / $rr ndx ssst $db $i nm enb ene en3 nop jsr dyn rgb ldc joc) (setq;|a11783|; $i (- 0 1) ssst (js_ldc11 "0xD0B1" (list ))) (if (= ssst nil) (progn (js_ldc11 "0x6E00" (list (strcat "\n*error* eSubSelectionSetEmpty_i550\n" "Like_citrus SetColor-----------\n" ":-Title(~LISP similar to commandBlock~)\n" ":-Warning : Entmakex contain Bugs or Crash"))))) (setq;|a11901|; ldc (js_ldc11 "0x4E37" (list "VIEWCTR")) ene nil ndx 0) (progn (setq;|a11959|; $db T) (while $db (setq;|a11983|; $i (+ $i 1) nm (strcat "kBlockColor_i" (itoa $i))) (setq;|a12039|; $db (js_ldc11 "0xABFF" (list "Block" nm))))) (setq;|a12079|; st (js_ldc11 "0xA3DF" (list ldc "\nInsertion point(nil.viewcenter): ")) st (if (= st nil) ldc st) enb (js_ldc11 "0x2A7A" (list (list (cons 0 "BLOCK") (cons 100 "AcDbEntity") (cons 67 0) (cons 8 sLayerxp) (cons 100 "AcDbBlockReference") (cons 2 nm) (cons 10 st) (cons 70 0))))) (princ) (setq;|a12375|; rgb (if enb (js_ldc11 "0xE6D1" (list "" "\nSetColor new(0.no-skip)(1.red)(3.green)(5.blue)(R.red)(G.green)(B.Blue)(2.yellow): ")) 0)) (setq;|a12419|; rgb (if (= rgb "R") 1 (if (= rgb "G") 3 (if (= rgb "B") 5 (js_ldc11 "0x7EBC" (list rgb)))))) (if enb (repeat (js_ldc11 "0x4C2D" (list ssst)) (list (setq;|a12561|; joc (js_ldc11 "0x48F2" (list ssst ndx)) nop (if (> rgb 0) (js_ldc11 "0x7F6B" (list (vlax-ename->vla-object joc) 72)) nop) ele (cdr (js_ldc11 "0xDC92" (list joc))) ele (if (> rgb 0) (js_ldc11 "0x63D7" (list (cons 62 rgb) (assoc 62 ele) ele)) ele)) (js_ldc11 "0x2A7A" (list ele)) (princ) (setq;|a12801|; ndx (+ 1 ndx))))) (setq readme.txt "(Subst (cons 62...)) return failed, IF-ele notContain(62.color)") (if (> ndx 0) (setq;|a16069|; ene (js_ldc11 "0x2A7A" (list (list (cons 0 "ENDBLK") (cons 100 "AcDbBlockEnd") (cons 8 "0")))))) (setq;|a16165|; $rr (if ene (js_ldc11 "0x2A7A" (list (list (cons 0 "INSERT") (cons 2 nm) (cons 6 (getvar "CELTYPE")) (cons 8 sLayerxp) (cons 66 0) (cons 10 st) (cons 41 1) (cons 42 1) (cons 43 1) (cons 50 0) (cons 71 0) (cons 44 0) (cons 45 0)))) nil)) (princ) (setq;|a16533|; dyn (js_ldc11 "0xE6D1" (list "" "\nErase old entities(y.yes)(n.no)(d.yes-da): "))) (if (and (> dyn "") (js_ldc11 "0x46CA" (list dyn "**"))) (setq;|a16605|; jsr (command "_.ERASE" ssst "")) (setq;|a16645|; $rr ssst)) $rr) ;;;{$R syst_setvars} (setq syst_setvarname "") (Defun syst_setvars(listavar / $rr lpi $db om cfr) ;_ASSERT_OK (setq;|a19113|; $rr nil) (foreach lpi listavar (if (> (car lpi) "") (setq;|a19185|; $db (car lpi) om (js_ldc11 "0x4E37" (list $db)) $rr (if om (js_ldc11 "0x2ABB" (list $rr (list (list $db om)) $rr) (setq;|a19321|; cfr (cadr lpi) om (if (= cfr nil) nil om) om (if (= cfr T) nil om) syst_setVarName $db om (if om (setvar $db cfr) nil))))))) $rr) ;;;{$R dfn_getx_readkey} ;;;inf:wait until press keys k (defun dfn_getx_readkey(k574 t469 / retc kbd msg two chk lei) (setq;|a22122|; retc (chr 0) kbd (if (> k574 "") k574 "")) (setq;|a22182|; msg (if (> t469 "") t469 "\nt469errorStr:")) (prompt msg) (progn (setq;|a22232|; chk (if (> (strlen kbd) 1) 0 1)) (while (= chk 0) (progn (setq;|a22288|; two 0) (while (/= two 2) (setq;|a22326|; lei (js_ldc11 "0x9E77" (list )) two (car lei)) (setq;|a22374|; retc (js_ldc11 "0x624B" (list (chr (cadr lei))))) (setq;|a22414|; chk (if (> kbd "") (if (js_ldc11 "0x46CA" (list retc kbd)) 1 0) 0)))))) (princ retc) retc) ;;;{$E} ;lib:free (prompt "\ncommand.com= stb\n") 
14.08.202039.2KB

 
please help, you see transform to , the programe , you see inside Please Help, You see transform your-program to Autopipe_original.lsp Inside "Arctic_masina_despalat.dwg" , the programe autopipe_original.lsp work-fine , you see winpipe.gif, :knuppel2: But inside "ftct sample2007a.dwg" the programe Autopipe_original.lsp draw many slope-lines (with color red-black???errors)
17.08.202015.7KB
la o să regreti singur, tu ai cel mai bun canon personal, canon iertare de in lumeafreelancer2022feb= La batrănete,tu o să regreti singur, tu ai cel mai bun canon personal, canon iertare de păcate in lumea ortodoxa=5anii fără salariu ; doar dacă acum tu ai banii să trăiesti prezentul si tu mai lucrezi decent pe unde apuci.. Dacă tu esti sărac acum in 2022, eu te inteleg pe partea de răfuieli cu IPS
08.03.202226.6KB
jc_aro10, java jc_aro10, javaGifPendulum= Title=Freelancer2020- Jc_aro10, Java
10.09.202151.7KB
problem with opensuse dual boot cannot install grub.mbr inside execute and from x:\windows /sProblem with OpenSuse dual boot Windows8? Q=I cannot install grub.mbr inside Win8boot? A=You execute bcdboot.exe and bcdedit.exe from F:\Windows\system32 bcdboot X:\windows /s S: Note: Replace "X" with the volume letter of the Win10 partition. BCDBoot copies the boot files from the Windows partition to the EFI System partition and creates the BCD store in the same partition. title Mini7 on Hdd0 Partition1/ Julia Queen 629MB rootnoverify (hd0,0) find --set-root /HBCD/7/7.BIN chainloader /HBCD/7/7.BIN tpm --init All device/s name for Boot (fd0) (hd0) (cd) (ahci0) (ata0) (crypto0) (usb0) (cryptouuid/123456789abcdef0123456789abcdef0) (mduuid/123456789abcdef0123456789abcdef0) (lv/system-root) (md/myraid) (md/0) (ieee1275/disk2) (ieee1275//pci@1f\,0/ide@d/disk@2) (nand) (memdisk) (host) (myloop) (hostdisk//dev/sda) #region dos_isolinuxbin title dos\isolinux.bin\n find --set-root /HBCD/isolinux.bin chainloader /HBCD/isolinux.bin title a79.koha-live-dvd.iso Password=koha123 set filedia=/1/XMPE/iso_linux/koha-live-dvd.iso find --set-root %filedia% map %filedia% (0xff) map --hook root (0xff) chainloader (0xff) #endregion DVD-cu-win10-direct-depe-HardDisk title a79.En_windows_10_Instllation Kit/Enterprise_2015_ltsb_x86_dvd_6848454.iso" set filedia=/1/XMPE/iso/en_windows_10_enterprise_2015_ltsb_x86_dvd_6848454.iso find --set-root %filedia% # map %filedia% (0xff) # map --hook # root (0xff) # chainloader (0xff) set isofile=/1/XMPE/iso/Extra.Small.Windows.XP.USB.Flash.Edition.iso You set floppy-drive in A:\ after the os-starting., you see bellow. title a50. ERD Commander 5.0 ENG.for wxp86. root (hd0,0) map --mem /HBCD/500/firadisk.img (fd0) map --mem /HBCD/500/ERD50_XPx86.iso (0xff) map --hook chainloader (0xff) boot You checking many records Title/s with fake-boot inside WinXP. You checking many records Title/s with fake-boot inside Win7 You checking many records Title/s with fake-boot inside Win8.1 You execute MobaLiveCd.exe inside Win*all(you see picture bellow).
16.12.202055.4KB

 
you see here encrypted in ascii.lsp for main reason is inside zwcad/cam with vlisp. : You see here encrypted in Ascii.lsp for Debugger-on. The Main Reason is Debugger=on inside ZwCad/Cam with VLisp. : :wink: (Hint-one " Your sources the "topoglist-ascii.lsp" is more-complex OR more-encrypted") . The entire process-re-crypted inside Text.Lsp is full-automatic. Now You can develop debug-mode/release-mode for Big-program.Lsp or .FAS You can compile debug mode and release mode, even inside AutoLisp-Source You load the application. You run this app with the command Q2 If crash any location, then you enter the command "(princ setmypid)" Wow! You re-open BrisBlade or Vlide, and You search for this error. The Original-Source was pp_topoxcad.txt Multumesc, fileshare.ro
02.04.202029.4KB
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
- drracket + clojure projectComplex-Clojure2022Mai24=
24.05.202257.9KB
the old autocad, or nanocad do not have first, what is ? (setq ss (ssget The old AutoCad, or NanoCAd do not have First, What is getpropertyvalue ? (setq ss (ssget "F" vlst '((0 . "INSERT") (66 . 1))) );end_setq (repeat (setq cnt (sslength ss)) (setq bent (ssname ss (setq cnt (1- cnt))) tlst (cons (list (getpropertyvalue bent "POINT") (rtos (/ (getpropertyvalue bent "POSITION/X") ccf) 2 acc) (rtos (/ (getpropertyvalue bent "POSITION/Y") ccf) 2 acc) ) tlst ) );end_setq );end_repeat Second.You replace (getpropertyvalue ofBlock) with this function (setq bent (car (entsel))) (setq atts (vlax-invoke (setq blk (vlax-ename->vla-object bent)) 'getattributes ) ) (foreach att atts (cond ( (eq (vla-get-tagstring att) "POINT") (setq elev (vla-get-textstring att)) ) ) ) (setq pt (vlax-get blk 'insertionpoint)) Thids.vla-AutoLispR14 - getpropertyvalue eMissing in My Briscad
11.09.202040.2KB

 
first. you compile to to or you send the you client, files are then, you client can test in allFirst. You compile to programe.c2s.txt to programe.jc_pin25.lsp OR *Jc_aro10.lsp. Second. You send the "programe.jc_pin25.lsp" you client, because the files *jc_pin25.lsp. are full-ascii-text then, you client can test *jc_pin25.lsp in all C.A.D compatible with AutoCad2004+, BrisCad, ZwCad, GstartCad. You view the soure jc_pin25.lsp= After, You got the money$ inside Paypal.com, then You send the source "(defun nn_vmload...", bellow, you send to your Buyer. You see the source jc_aro10.lisp Best Regards..
17.09.202153.3KB
eu nu inteleg logica atacului armat asupra civila (scolii , gradinite, comandati rusii nu auTiberiumSun1999downlloading= PatchIonShick= Eu nu inteleg logica atacului armat asupra infrastructura civila (scolii , gradinite, spitale..etc). Comandati rusii nu au minte ;acestia fac de răs si pot distruge "viitorul relatiilor-militare" dintre Rusia cu alte state; precum multe state pot judeca strămb armata Rusiei (state ca Iran, Coreea de-Nord; Egipt ) coreeni de nord pot judeca : noi Corea de Nord nu mai cumpărăm armament din Rusia in 2025anul; distrugerea grădinitelor din Ucraina demonstreaza slaba calitate a rachetelor din Rusia. Eu nu inteleg; căte prostie poate sa existe? intr-un om inteleg; la un grup de 20oameni se iarta dar la 30mii+ de lideri combatantii rusii-!
03.02.202381.1KB
, relativ recent, autodesk a scos de pe site-ul oficial object arx 2007 noi am plasat pe un site de=======================BUG=================================== Intr-adevar , relativ recent, Autodesk a scos de pe site-ul oficial Object Arx 2007 Noi am plasat pe un site de incredere Object ARX 2007. Iata link-ul Kitul asta merge cu siguranta cu acad 2007 si Visual Studio 2005. In kit este un director samples in care sunt mai multe proiecte ceare se build-uiesc usor cu VS2005 ptr acad2007.
21.09.202070.2KB
q1:=how to compile the source bellow to c#. and .net? (setq 1558 59089) (setq 00:00.00) (setqQ1:=How to compile the source bellow to C#. and .net? (setq acad_iso11w100-extmin 1558 acad_iso11w100-extmax 59089) (setq acad_isoQsortTime 00:00.00) (setq runiftry35w100 (List (cons "0xD3B1" "pp_rolisonfelipe.vlax") (cons "4C28" "start_list");;County.xml=8 (cons "96CB" "end_list");;County.xml=8 (cons "066C" "read");;County.xml=5 (cons "6E00" "alert");;County.xml=2 (cons "0B26" "dfn_dcl_i_save");;County.xml=1 (cons "DC7E" "load_dialog");;County.xml=1 (cons "46CA" "wcmatch");;County.xml=1 (cons "28FD" "vl-prin1-to-string");;County.xml=1 (cons "0616" "assert_cxx");;County.xml=1 (cons "E6D1" "dfn_getx_readkey");;County.xml=1 (cons "624B" "strcase");;County.xml=1 (cons "3A50" "open");;County.xml=1 (cons "D518" "set_tile");;County.xml=1 (cons "B118" "cadr");;County.xml=1 (cons "D364" "new_dialog");;County.xml=1 (cons "1322" "close");;County.xml=1 (cons "4CDB" "write-line");;County.xml=1 (cons "9E77" "grread");;County.xml=1 (cons "D016" "vl-filename-mktemp");;County.xml=1 )) (setq getmypid 0 setmypid (list "\n~pp_rolisonfelipe.vlax~")) (defun jc_dup35(mypid loopwne / rom subf ansi.sys) (setq subf (cdr (assoc (substr mypid 3 4) runiftry35w100))) (setq ansi.sys (strcat (chr 126) (substr mypid 8) (chr 126))) (if (/= ansi.sys (car setmypid)) (setq setmypid (cons setmypid)) (setq ansi.sys nil)) (setq getmypid (1+ getmypid)) (setq rom (apply (read subf) loopwne)) (if ansi.sys (setq setmypid (cdr setmypid))) rom)
15.04.202129.7KB

 
i have three tools.arx for like name , but for , only now the price is too high) the parse the andI have three tools.arx for autocad2010 like name "dansmark.arx" , but for , only acad2007..acad2010( now the price is too high) The "dansmark.arx" parse the Drawing.dwg and he after create the file LISP-autogenerator,vlx. You got "LISP-autogenerator,vlx" from me, (but, only, after you hire-me) , You execute "LISP-autogenerator,vlx", and now you can customize the originals entities inside Drawing.dwg onto other/s ------------------ You execute the source LISP-autogenerator,vlx in anyAutoCAD-version and you got the blocks., circles,,dimension, If you need the LISP-autogenerator,lsp, then I am hire for work together.
07.08.202343KB
you open file.dfm and you copy the to ==if you like, my solution, then you please make a You open file.dfm and you copy the PageControl to your-Application. ==If you like, my solution, Then you please make a donation. (Paypal.com " ")
20.04.202158.9KB
help me to create automatic layouts for the attached request you to please provide me the lisp/fas -Everyone, Please help me to create automatic layouts for the attached drawing Also request you to please provide me the LISP/FAS file. VLisp - pp_sudhakar99919.vlax nop (command "._layout" "s" id "._pspace") ssvp1 (js_aro10 "C053ssget" (list "x" (list (js_aro10 "C051cons" (list 0 "VIEWPORT")) (js_aro10 "C052cons" (list (- 4) "*,>,*")) (list 10 0 TitleBlockHeight 0)))))) (setq ssvp2 (if (/= ssvp1 nil) (js_aro10 "C056ssget" (list "x" (list (js_aro10 "C054cons" (list 0 "VIEWPORT")) /*c2s: vl.load_com(); $rr=nil,grids=nil,GridLayer="GRID";GridAttribute="MAPSHTNUM"; SourceLayout="001", TitleBlockHeight=86, KeyZoomFactor=0.5; lpt=layoutlist(); if (lpt==nil) $rr=alert("error**eNoLayout_i607"),$rr=exit(); if (length(lpt)<1) $rr=alert("error**eEntityInInactiveLayout_i09"),$rr=exit(); ss=ssget("x",lISt(cons(0,"INSERT"),cons(8,GridLayer))); if (ss==nil) $rr=alert("error**eNoLabelBlock_i603"), $rr=str_princ(list("\nNo grid blocks on layer '",GridLayer,"' found.")), $rr=exit(); if (sslength(ss)<1) $rr=alert("error**eNullBlockName_i17"), $rr=exit(); $i=0; princ("\nLayout.Old=("); for(lbr=lpt;car(lbr);lbr=cdr(lbr)) nop=str_princ(list(itoa($i),"=\"",car(lbr),"\";")), $i=$i+1; princ(")"); id=dfn_getx_int("GiveMe IndexOf-layout:",0); id=(id==nil)?0:abs(id), id=(id>=length(lpt))?(length(lpt)-1):id, SourceLayout=nth(id,lpt); str_princ(list("SourceLayout=",SourceLayout)); $rr="Author Lanny Schiele(c)2020"; */ Is it valuable for personal enlightenment? Definitely yes. Can productive work still be done with it? Absolutely, but that advantage has lessened. Will you gain status points for being able to prove you know it? Probably not, unless you are applying to one of the few corps that use Lisp, or have your own clients, where you decide what tech you want. Be prepared to be writing C/C++ bindings to libraries for Lisp if you want to reuse code from others. (vl-load-com) (setq $rr nil grids nil gridlayer "grid") (setq gridattribute "mapshtnum") (setq sourcelayout "001" titleblockheight 86 keyzoomfactor 0.5) (setq lpt (layoutlist)) (if (= lpt nil) (setq $rr (alert "error**enolayout_i607") $rr (exit))) (if (< (length lpt) 1) (setq $rr (alert "error**eentityininactivelayout_i09") $rr (exit))) (setq ss (ssget "x" (list (cons 0 "insert") (cons 8 gridlayer)))) (if (= ss nil) (setq $rr (alert "error**enolabelblock_i603") $rr (str_princ (list "\nno grid blocks on layer '" gridlayer "' found.")) $rr (exit))) (if (< (sslength ss) 1) (setq $rr (alert "error**enullblockname_i17") $rr (exit))) (setq $i 0) (princ "\nlayout.old=(") (progn (setq lbr lpt) (while (car lbr) (setq nop (str_princ (list (itoa $i) "=\"" (car lbr) "\";")) $i (+ $i 1)) (setq lbr (cdr lbr)))) (princ ")") (setq id (dfn_getx_int "giveme indexof-layout:" 0)) (setq id (if (= id nil) 0 (abs id)) id (if (>= id (length lpt)) (- (length lpt) 1) id) sourcelayout (nth id lpt)) (str_princ (list "sourcelayout=" sourcelayout)) (setq $rr "author lanny schiele(c)2020") (js_aro10 "C006vl-load-com" (list )) (setq $rr nil grids nil gridlayer "grid") (setq gridattribute "mapshtnum") (setq sourcelayout "001" titleblockheight 86 keyzoomfactor 0.5) (setq lpt (js_aro10 "C007layoutlist" (list ))) (if (= lpt nil) (setq $rr (js_aro10 "C008alert" (list "error**enolayout_i607")) $rr (js_aro10 "C009exit" (list )))) (if (< (js_aro10 "C010length" (list lpt)) 1) (setq $rr (js_aro10 "C011alert" (list "error**eentityininactivelayout_i09")) $rr (js_aro10 "C012exit" (list )))) (setq ss (js_aro10 "C015ssget" (list "x" (list (js_aro10 "C013cons" (list 0 "insert")) (js_aro10 "C014cons" (list 8 gridlayer)))))) (if (= ss nil) (setq $rr (js_aro10 "C016alert" (list "error**enolabelblock_i603")) $rr (js_aro10 "C017str_princ" (list (list "\nno grid blocks on layer '" gridlayer "' found."))) $rr (js_aro10 "C018exit" (list )))) (if (< (js_aro10 "C019sslength" (list ss)) 1) (setq $rr (js_aro10 "C020alert" (list "error**enullblockname_i17")) $rr (js_aro10 "C021exit" (list )))) (setq $i 0) (princ "\nlayout.old=(") (progn (setq lbr lpt) (while (car lbr) (setq
21.09.202065.3KB
nu tineti la job) sau la locul de munca, este posibil sa va i-a ca deci voi uitati-de familie ,LazarusJobs= AutoCAd-All-Tools= Nu tineti la familie(sau job) sau la locul de munca, este posibil sa va i-a ca pseudo-ingeri; deci voi uitati-de familie , daca va rapeste ;rudele dvs deja decedate va inlocuiesc in familie actuala , inlocuiesc la locul tau de munca. Daca tu vrei ca decedatul tau (unchi , var, matusa, frate ,tataie, sau sora ta) vrei sa ajunga iar iar iar iar in IAD=Hell ?? atunci tu gandeste-te la familie si intoarce-te acasa.. Deci tu ai mila100%de tataie ta, de unchiul de varul sau de fratele tau deja mort in cimitir, si tu uita100% de tot ce a ramas deja. Doamne milueste-e vai vai vai vai vaie vaie vai vaiete vaiete vai vai vai vaiete noi cei ramasi si Eu= rau pacatosul noi suntem numai numai iad. Eu=iad pacatos, negru de pacate.
22.06.202253.2KB

 
matrixrom= flex si bison carteMatrixRom= BibliotecanNationala= EdituraEconomica=
10.05.202257.5KB
pptx to pdf= convert online pptx to pdfPPTx to pdf=
22.04.202438.8KB
lista limbajelor de invatati modern limbaje deLista limbajelor de programare:
12.10.202076.2KB
is there any ssget parameter which excludes frozen and off layers ? (defun $rr allIs there any ssget parameter which excludes FROZEN and OFF layers ? (defun dfn_ssgx_islayeroff(/ $rr all lcd) /*c2s: lcd=list(cons(-4,""), cons(-4,""), cons(-4,""), cons(-4,""), cons(-4,""), cons(-4,"or>")); all=ssget("x",lcd); $rr=(type(all)==quote(PICKSET))?list(sslength(all),all):list(RTREJ,all); */$rr)
31.07.202058KB

 
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) MainProblem cu SUA, nu este totalul multor trucurii ,(hotii, furturi- noi trebuie sai iertam9%=tva) educatia financiara americană este o Religie(ex. de religie=Catolicism, sau iudaism), Adică oameni din SUA au descoperit alt tip de religie2000anul, dogmatica-religioasa-economică .?> iar acum americanii au probleme cu recunoasterea acestei religiei.lor, de câtre Alieni pe alte planete.(Venus, sau Marte.. si de aceea ei ne sparg pe noi cu inflatia economică). Alieni Pleiadieni, asa zic pe internet, americanii.Sua isi mută dogmatica-religia lor.. in *secret* la economia; pe Marte hollow-black ascunsă de văzul lumii-clasice.(China, Isreael, Rusia...) #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
ticks=tldr use (cons 410 (getvar 'ctab)) with your ssget to limit your selection set. the onlyTicks=tldr use (cons 410 (getvar 'ctab)) with your ssget to limit your selection set. The only chance currently, to get around this problem, is to also check the 410 dxf group cde and compare with current layout; when using (ssget), the filter list should also contain (list 410 (getvar "CTAB")) to prevent selecting entities from other layouts. s1p=ssget(""); s1l=vl.remove_if(quote(listp),mapcar(quote(cadr),ssnamex(s1p))); But even Acad has a very strange problem here - unfortunately, that (similar) issue comes very rarely, but as verified with other developers, some mysterious problems are caused by that similar issue in Acad as well. (setq s1p (ssget "_P" (list (cons 8 "pattern_1"))) s1l (vl-remove-if (quote listp) (mapcar (quote cadr) (ssnamex s1p))))
30.11.202130.7KB
nicholas smith i think you're asking about and x1 are different names for the same = integer of 0:Nicholas Smith I think you're asking about "unions": X and X1 are different names for the same variable/value. type TPointNamedWhatever = record Case Integer of 0: (X, Y, Z: Integer); 1: (X1, Y1, Z1: Integer); 2: (CoordinateX,CoordinateY,CoordinateZ:single); 3 (kDxfXCoord,kDxfYCoord,kDxfZCoord:ads_real); end;
07.09.202075.7KB
if you need to add package to your project, you can install the nuget package manager extension forIf you need to add package to your project, you can install the NuGet Package Manager extension for vscode and after that install your packages to your project like this. Press Ctrl+Shift+P Then select "Nuget Package Manager:Add Package" Enter package name Ex: EntityFramework select package name and version NuGet-Downloadinghttps://devblogs.microsoft.com/nuget/nuget-end-of-xp-support Use NUnrar, there is also a nuget package for easy installation. Install-Package nunrar
13.08.202236.4KB

 
all names of function are hidden/s with numbers. i replace all names of functions with we makeAll Names of Function are hidden/s with Numbers. I replace all names of functions with numbers. If we make dynamically Numbers then is impossibile to decrypted by ArchStruct. 10 J (†) Înălțarea Domnului (Ispasul); Ziua Eroilor; Sf. Mc. Alexandru și Antonina; Sf. Sfințit Mc. Timotei, ep. Prusiei (Nu se fac nunți) 11 V Sf. Ap. Bartolomeu și Barnaba; Sf. Ier. Luca, arhiep. Crimeei (Dezlegare la pește. Nu se fac nunți) 12 S Sf. Cuv. Onufrie cel Mare și Petru Atonitul
11.06.202158.6KB
just curious, has anyone written any games in lisp they'd like to share? i was thinking of writingJust curious, has anyone written any games in LISP they'd like to share? I was thinking of writing one, like the 'Wheel of Fortune', just for fun. Downloadin.link=
01.11.202375.4KB
the filedefun is you try switch use_opt=1 to two-ways for re-define of , isinside The filedefun dfn_cad_amain2 is Missing Fix1 Please you try switch use_opt=1 to use_opt=2 user_options use_opt=2 opt1=AutoCAD_Lisp opt2=AutoCAD_Lisp_No_Header Exists two-ways for re-define of "user_opt". High-Priority.isInside Autoexec.bat , "user_opt=AutoCAD_Lisp_No_Header" Low-Priority. isInside "about library"
29.09.202138.1KB
re:i RE:i "Eu am doctori la clinica mea pe care i-am adus de afară, studiau în străinătate. Sunt români şi le dau 4000-5000 pe lună. Ei mi-au spus despre aceste tratamente pentru că se făceau studii pe afară. Cel mai bun este ivermectina. Se găseşte doar la mine, acum în România. E din Ucraina, dar nu îl aduc eu. Îl cumpăr aici. Eu am ivermectină ser. Ivermectina pastilă e slabă. Este şi ieftină, cum ai vindeca un om cu 10 lei. Când a existat pe piaţa din România s-a luat imediat, la început. Acum nu mai există. Am doar eu. Ei vor să consume lumea Remdesivir pe care au dat zeci de milioane şi nu e bun pentru COVID. Ivermectina este cel mai bun tratament, pe lângă arbidol.
08.08.202252.4KB
InapoiInainte