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

Inainte

 
eu aici cum transform un stdcall to pot apela functiile cu operator sel-ent sel-ptoEu aici cum transform un stdcall to safecall. Eu pot apela functiile cu operator princ~1() getstring(~1"xxxxxxx") (setq sel-ent (entsel)) (setq sel-pto (vl-catch-all-apply 'vlax-curve-getclosestpointtoprojection (list (vlax-ename->vla-object (car sel-ent)) (cadr sel-ent) (getvar "viewdir"))))
25.10.202157.8KB
(setq edata (if esel (entget (car   etype (if esel (cdr (assoc 0 subetype     (if (= subetype (setq edata (if esel (entget (car esel))) etype (if esel (cdr (assoc 0 edata)))) (wcmatch subetype "LINE,LWPOLYLINE,VERTEX,@LINE,RAY,HATCH,DIMENSION,LEADER,*SOLID,3DFACE,WIPEOUT,TRACE,REGION,IMAGE,VIEWPORT,TOLERANCE") (if (= subetype "LEADER") (= (cdr (assoc 72 subedata)) 0) T); STraight, not Splined (if (= subetype "VERTEX") (= (boole 1 8 (cdr (assoc 70 subedata))) 0) T)));
18.10.202135.5KB
(prompt (prompt "\nSelect Objects (also Hatches) for area count: ") (setq ss (ssget '( (0 . "CIRCLE,ELLIPSE,*POLYLINE,SPLINE,HATCH") (-4 . "") (-4 . "NOT>") ) ) ) ;(setq fname (getfiled "Define name of exported file" dwgName "SDF" 1)) (prompt "\n\nLayer-Area:\n----------------------------------\n") Selects text with text height of 1.0 or with colour set to 3, but not both. (ssget '((0 . "TEXT") (-4 . "")))(setq ByA " ") Selects lines with colour not set to 256 (ByLayer). (ssget '((0 . "LINE") (-4 . "")))(setq ByA " ") Select text with alignment point with Y-coordinate less than or equal to 10.0 units, with any X & Z coordinate value. (ssget '((0 . "TEXT") (-4 . "*,<=") (11 0.0 10.0 0.0)))(setq ByA " ") Select circles with a center at an elevation of 4.0 units (ssget '((0 . "CIRCLE") (-4 . "*,*,=") (10 0.0 0.0 4.0)))(setq ByA " ") Selects all text objects residing entirely inside the rectangle with vertices at (3,2), (5,2), (5,4) and (3,4) (ssget "_W" '(3 2) '(5 4) '((0 . "TEXT"))) (setq ByA " ")
14.10.202154.8KB
in limba am experienta cu proiecte lungi in surse sau sunt interesat sa lcrez pe sursele dvs. uneleTitle=Delphi in limba romana 2021Octombrie= ---------------- Eu am experienta cu proiecte lungi in surse Delphi.Delphi3, BDs(fastest), sau Delįphi10.3CommunityEdtiion. Eu sunt interesat sa lcrez pe sursele dvs. Unele probleme le pot rezolva, foarte multe probleme buguri-depinde de sistemele de operare, tipurile de tehnologii pe care le integrati.
11.10.202176.5KB

 
melatonina
11.10.202172.2KB
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
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
03.10.202160.6KB
1)you extract the from you do not burn the any cd)
2)you install (you must install on drivesqrt(y)+2*sqrt(1/y)-3=0 sqrt(y)+2*sqrt(1/y)=3(*2) (a+b)^2=(a*a+2*a*b+b*b)=9 (*2)=> sqrt(y)^2+2*(sqrt(y)*sqrt(1/y))+sqrt(1/y)^2=9 (*2)=> sqrt(y)^2+2*0000000000000001+sqrt(1/y)^2=9 (*2)=> (sqrt(y))^2+(sqrt(1/y))^2=7 (*3)=> y+(1/y)=7 (*4)=>( y*y+1)/y=7*y (*5)=>(y*y+1)=7*y (*6)=> y*y-7*y+1=0 ClickHere= 1)You extract the setup-vlaxcompil*.exe from *.iso(please you do not burn the any CD) 2)You install setup-vlaxcompil*.exe (You must install on drive C:) Post Install== 3)After, You run \bin\cecolord.exe. You press the button,only F3 inside CecolordMenu and you wait two second. 4)You run the application \bin'gif78exp.exe you press Numlock+ScrollLock and you selectop ACM_Stop from 5)You run Chiajnax.exe from \bin\Chiajnax.exe Q2)(*3)=> y+(1/y)=7 (x+1)/(x-2)+(x-2)/(x+1)=7 (x^2+2x+1)+(x^2-2x+4)=7*(x+1)*(x-2) 2*X*X+5=7*(x*x-2x+x-2) 2*x*x+5=7*(x*x-x-2) Q1)Result y1=6.8541019 y2=0.1458980 You must put the condition/s Y<>0 X-2<>0 -> x<>2 x+1<>0 -> x<>-1 (x-2)/(x+1)>0 True=)x-2>0 and x+1>0 True=) x-2<0 and x+1<0 False0) x-2>0 and x+1<0 False1) x-2<0 and x+1>0
01.10.202152KB

 
the    at means, the defmacro 
you add isinside calls short

 ;;you use for disabled
 ;;in you addThe ;;t020errorA at means, the defmacro "userfct_ReplaceTwoSlashwithTwosemicolon" isMissing userfct_ReplaceTwoSlashwithTwosemicolon=;;? //Fix: You add userfct_ReplaceTwoSlashwithTwosemicolon=;; isInside File=-about library before name_all_short_call=-all calls short ;;you use "userfct_ReplaceTwoSlashwithTwosemicolon" for disabled ;;in (lisp=;;)(C#=//) If you add +hcw then You collect all Comments to a file on disk
30.09.202171KB
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
title=v
  - acad.pgpTitle=v
25.09.202129.4KB
tbl 0 0 0 0)
      tbl 0 (* hgt 400.))
      (mapcar '(lambda (r1 r2 c1 c2) tbl r1 r2 c1 c2)) (vla-unmergecells tbl 0 0 0 0) (vla-setcolumnwidth tbl 0 (* hgt 400.)) (mapcar '(lambda (r1 r2 c1 c2) (vla-mergecells tbl r1 r2 c1 c2)) '(0 0 0 0) '(1 0 1 1) '(0 1 3 4) '(0 2 3 4) ) (mapcar '(lambda (r c s) (vla-settext tbl r c s)) '(0 0 0 0 1 1) '(0 1 3 4 1 2) '("Point \\PNo." "Coordinates" "Angles \\P(Deg.)" "Lengths \\P(m)" "X" "Y" ) ) (mapcar '(lambda (row) (vla-setrowheight tbl r (* hgt 250.)) (mapcar '(lambda (st) (vla-settext tbl r (setq c (1+ c)) st) (vla-setcellalignment tbl r c acMiddleCenter) ) row ) (setq r (1+ r) c -1 ) ) lst ) ) ) (princ) ) (vl-load-com) ;;============================================= ;; Break many objects with a selected objects ;; Selected Objects create ss to be broken ;;============================================= (defun c:BreakTouching (/ cmd ss1 ss2) ;; get all objects touching entities in the sscross ;; limited obj types to "LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE" (defun gettouching (sscros / ss lst lstb lstc objl) (and (setq lstb (vl-remove-if 'listp (mapcar 'cadr (ssnamex sscros))) objl (mapcar 'vlax-ename->vla-object lstb) ) (setq ss (ssget "_A" (list (cons 0 "LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE") (cons 410 (getvar "ctab")))) ) (setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))) (setq lst (mapcar 'vlax-ename->vla-object lst)) (mapcar '(lambda (x) (mapcar '(lambda (y) (if (not (vl-catch-all-error-p (vl-catch-all-apply '(lambda () (vlax-safearray->list (vlax-variant-value (vla-intersectwith y x acextendnone) )))))) (setq lstc (cons (vlax-vla-object->ename x) lstc)) ) ) objl) ) lst) ) lstc ) (command "._undo" "_begin") (setq cmd (getvar "CMDECHO")) (setvar "CMDECHO" 0) (setq ss1 (ssadd)) ;; get objects to break (if (and (not (prompt "\nSelect object(s) to break with & press enter: ")) (setq ss2 (ssget '((0 . "LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE")))) (mapcar '(lambda (x) (ssadd x ss1)) (gettouching ss2)) ) (break_with ss1 ss2 nil) ; ss2break ss2breakwith (flag nil = not to break with self) ) (setvar "CMDECHO" cmd) (command "._undo" "_end") (princ) ) :surprised:
25.09.202136.3KB

 
minmize this source 

(defun checkval ()
 (or
   (and
     (numberp (atof (get_tile     (numberpMinmize this source (defun checkval () (or (and (numberp (atof (get_tile "left_offset"))) (numberp (atof (get_tile "left_overhang"))) (numberp (atof (get_tile "right_offset"))) (numberp (atof (get_tile "right_overhang"))) ) ;end and (set_tile "error" "Offset and overhang inputs must be numbers!") )) with (vl-every (mapcar '(lambda (x)(numberp (atof (get_tile x)))) (list "left_offset" "left_overhang" "right_offset" "right_overhang"))) (0.816176 6.48044 10.7246 10.3981 1.90985 8.48824 1.69765 3.39529 24.2404 1.63235 22.3306 1.50176 14.7075 17.4335 13.3526 13.3526 14.5769 5.8275 1.25691 11.8019 9.30441 7.72103 8.03118 4.35838 2.17103 3.65647) I need help that 1. Which member have less than 4 than set to 4, and it will deduct from greater than 4. (mapcar '(lambda ( x ) (cond ( (< x 4) 4 ) ( (> x 4) (- x 4) ) ( t x ) )) lst)
25.09.202133KB
eu descarc  din orange pr vivia803g
 
 =d 

  .isoEu descarc din Orange Pr Vivia803g =D
25.09.202142.4KB
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
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

 
briscad v2012 version
 



do not forget, you can search the , even isinside you got the error,CorelCad-version BrisCAD v2012 version TopoGlist_jc10aro.lsp Do not forget, you can search the "defun.crasher.vlx" , even isInside *.Vlx. After you got the error, then you type (getmypid) from appYour.vlx, not from appYour.lsp You notepad.exe and you press CTRL+F inside appYour_jc10aro.lsp, after you got errorcode from (getmypid "Youapp.vlx")
21.09.202124.6KB
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
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
the blocked myapp two findclose stop execute and slow-down    isfound :=  sr) = 0;
    if then gotoThe FindClose(SR.FileHandle) blocked myApp two minutes. The FindClose stop execute and slow-down myApplication.dpr begin SR.FindHandle:=0; axlock.h:=0; IsFound := FindFirst(StartDir+udm_free.FileMask, faAnyFile-faDirectory, SR) = 0; if (isFound=false) then goto PickBoxSize; repeat ArcLength:=length(udm_free.files); if (udm_free.lower=1) then SR.Name:=LowerCase(SR.Name); if (udm_free.res_field) and (udm_free.count<1) then begin udm_free.files:=concat('00=',StartDir,SR.Name,#13#10);udm_free.count:=0;end else if (udm_free.res_field) and (udm_free.count<999)and(udm_free.count>0) then udm_free.files:=concat(udm_free.files,'Zip'+kDigits3,'=',StartDir,SR.Name,#13#10) else if (udm_free.res_field) and (udm_free.count>999) then udm_free.files:=concat(udm_free.files,inttostr(udm_free.count),'=',StartDir,SR.Name,#13#10) else udm_free.files:=concat(udm_free.files,SR.Name,#13#10); inc(udm_free.count); if (udm_free.hWndStatusbar<>0) then SendMessage(udm_free.hWndStatusbar,SB_SETTEXT, 0,integer(SR.Name)); IsFound := FindNext(SR) = 0; if (IsFound)and(SR.FindHandle<>INVALID_HANDLE_VALUE)and(SR.FindHandle<>0) then axlock.h:=SR.FindHandle; until (not IsFound); if (axlock.h<>0)and(axlock.h<>INVALID_HANDLE_VALUE) then FindClose(axlock.h);
13.09.202146.9KB

 
jc_aro10, java
 jc_aro10, javaGifPendulum= Title=Freelancer2020- Jc_aro10, Java
10.09.202151.7KB
perhaps many concat/s of paths , you slow-down speed of found this    :    : str63=    :Perhaps many concat/s of paths , You slow-down speed of Delphi. With complex-projectDpr I found this method. Var ktoolvesa_enhance : Str63='c:\vlaxcompil\cl_aclayer\cobmpdcl\2021\f1enhanc.bmp'; ktoolvesa_redcore : Str63= 'a:\vlaxcompil\0user\gimagex\a14redcore.bmp'; ktoolvesa_jpegtop : Str63='a:\vlaxcompil\0user\gimagex\jc_pin25.jpg'; ktoolfini_topovlex0ini:Str31='a:\vlaxcompil\bin\topovlex.ini'; ktoolsize_asm25pin: Str48='a:\vlaxcompil\0user\minidump\asm_jc_pin25.h'; Str63='a:\vlaxcompil\0user\minidump\asm_noFunctionDefinition.lsp'; ktoolsize_BootSect: Str48='a:\vlaxcompil\0user\initrd10.lsp'; ktoolsize_asmjc18lda:Str48='a:\vlaxcompil\0user\minidump\asm_jc_lda18.lsp'; ktoolsize_asmsaveqas:Str48='a:\vlaxcompil\0user\minidump\asm_saveqas.lsp'; ktoolsize_eNoVarAlreadySetq:Str48='a:\vlaxcompil\0user\minidump\asm_varlist.txt'; ktoolsize_asm10aro: Packed array of AdChar='aa:\vlaxcompil\0user\minidump\asm_jc_aro10.h'; ktoolsize_dupldc31: AnsiString='a:\vlaxcompil\0user\temp\dup_jc_ldc31.txt'; ktoolsize_acrxth8 : AnsiString='a:\vlaxcompil\0user\minidump\asm_acrxt.h'; ktoolsize_asm11ldc: Str48='a:\vlaxcompil\0user\minidump\asm_jc_ldc11.h'; // ktoolsize_asm21ldc = EuModific40Pozitia2Caracter'; ktoolsize_asm31ldc: Str48='a:\vlaxcompil\0user\minidump\asm_jc_ldc31.h'; ktoolsize_asm25pin: Str48='a:\vlaxcompil\0user\minidump\asm_jc_pin25.h'; ktoolsize_eNoFunctionDef: Str63='a:\vlaxcompil\0user\minidump\asm_noFunctionDefinition.lsp'; ktoolsize_BootSect: Str48='a:\vlaxcompil\0user\initrd10.lsp'; ktoolsize_asmjc18lda:Str48='a:\vlaxcompil\0user\minidump\asm_jc_lda18.lsp'; ktoolsize_asmsaveqas:Str48='a:\vlaxcompil\0user\minidump\asm_saveqas.lsp'; ktoolsize_eNoVarAlreadySetq:Str48='a:\vlaxcompil\0user\minidump\asm_varlist.txt'; ktoolsize_asm10aro: Packed array of AdChar='aa:\vlaxcompil\0user\minidump\asm_jc_aro10.h'; {--} Function Bta_conv_clistene_dof:integer; Var axlock:record h:boolean;end; actc:record h:integer;end; Begin ktoolvesa_desktop:=con_systemdrive; ktoolvesa_jpegtop:=con_systemdrive; kstarhome_goerror:=con_systemdrive; Assert_one(364,'0'); vl_file_forcedirectories(ktoolvesa_jpegtop,true); SetCursorPos(0,0); result:=clistene_osmode(jc_swapassword.isPincode25,con_systemdrive); axlock.h:=(OdDbDeepCloneFiler.hWndStatusbar<>0); actc.h:=clistene_imagehlt(); if (result=RTCAN)and(axlock.h)and(clistene_get_VisibilityEdge1(actc.h)) then Begin SendMessage(OdDbDeepCloneFiler.hWndStatusbar,SB_SETTEXT, 0,integer(pchar(Scho.a))); Scho.a:=''; exit; End else if (result=RTCAN) then Begin Scho.a:='t364errorA'+ktoolvesa_desktop+')'; ShowMessage(Scho.a);Exit;End else if (result<1)and(axlock.h)and(clistene_get_VisibilityEdge1(actc.h)) then Begin SendMessage(OdDbDeepCloneFiler.hWndStatusbar,SB_SETTEXT, 0,integer(pchar(coreslsp_t364f))); Exit; End; jc_swapassword.isPincode25:=aloword(result); result:=RTNORM; End;
09.09.202136.6KB
bim revit scanare3d, lidar
09.09.202147.5KB
Freelancer2020-Floorpĺan-s
04.09.202132.4KB

 
eu  folosesc axest site pentru descarcare mp4 din filme  hagi - viitorul constanta to Eu folosesc axest site pentru descarcare MP4 din filme youtube.com DAY3=
24.08.202145.7KB
we develope library file(a) with excels and  
  
{--}
we have a library files  for mix betweenTtile=Freelancer2020-Excel 2021-IUNIE= We develope library file(a) with Excels and VisualLisp. {--} We have a library files for mix between visual-lisp-api and msexcel files.. Only me, can develope the BIG-autolisp programs in C++ syntax.. Only me, can develope autolisp-portable with C# and C++. Why are big lisp? Becaue, I use the libraries files with many functions ,you see pp_topoglist.cpp. {--} 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 . Code: We have one library files with 1446 functions with autolisp-functions and he have 1.5Mb source-ascii-lisp. We have one libraryfile with 388functions and excel-files.preprocessing.with visual-lisp.
23.08.202155.9KB
emacslispViewporterCreator= RenameFile.dcl= AltiumDesigner=
23.08.202157.4KB
catalog cu reduceti
  kauffland pantelimonCatalog cu reduceti
21.08.202145.2KB

 
delphi32- why anyone do not develope
21.08.202138KB
1.4 what is the difference between wine, crossover, and is the base of the project, where most of1.4 What is the difference between Wine, CrossOver, and Cedega? Wine is the base of the project, where most of the work is being done. Wine is not perfect, but tens of thousands of people nevertheless use "vanilla" Wine successfully to run a large number of Windows programs. DAY0=
21.08.202177.7KB
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
@start nircmd @start nircmd trayballoon "24 Hour Limit" "Removed" "shell32.dll,-1001" 9000
17.08.202140.2KB

 
dela zwsoft
 
looking for suitable cad software for topography and 
see how #zwcad2022 can easily2021-08-31=Webinar inregistrare dela ZwSoft Looking for suitable CAD software for topography and cartography? See how #ZWCAD2022 can easily apply to them with Aplitop at the free webinar! Meet us at 23:00 (GMT+8) on August 31, 2021: 2021-08=
09.08.202165.1KB
:hi:  tamplarieCompasTamplarie= :hi: Arctic1000=
04.08.202142.4KB
here you view the do not remember, you keep and safe the both source/s and for test from
 

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

 
i study  geodedic system, gis,
 utm ,lati-long .i develope 
tokenizer rtf,lisp), for  i writeI 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
04.08.202154.6KB
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
here  you see wget.exe,  -mk -w 20 -mk -w 20              => to request sent, awaiting 301 movedHere you see Wget.exe, crash B:\TEMP>wget -mk -w 20 forums.autodesk.com/autodesk/attachments/autodesk/130/413 144/3/topografie_izohipsele.dwgwget -mk -w 20 sk/attachments/autodesk/130/413144/3/topografie_izohipsele.dwg --12:00:59-- 3144/3/topografie_izohipsele.dwgwget => `forums.autodesk.com/autodesk/attachments/autodesk/130/413144/3/to pografie_izohipsele.dwgwget' Connecting to forums.autodesk.com:80... connected! HTTP request sent, awaiting response... 301 Moved Permanently Location: /topografie_izohipsele.dwgwget --12:01:02-- k/130/413144/3/topografie_izohipsele.dwgwget => `https/forums.autodesk.com/autodesk/attachments/autodesk/130/41314 4/3/.listing' Connecting to https:21... https: Host not found --12:01:26-- k/130/413144/3/topografie_izohipsele.dwgwget => `https/forums.autodesk.com/autodesk/attachments/autodesk/130/41314 4/3/topografie_izohipsele.dwgwget' ==> CWD not required. ==> PORT ... https: Unknown error Delhi-source-Urlmon, var UrlMonHandle: HMODULE=0; errcode:integer=0; URLDownloadToCacheFile: function(Caller: IUnknown; URL: PAnsiChar; FileName: PAnsiChar; FileNameBufLen: DWORD; Reserved: DWORD; StatusCB: IInterface {IBindStatusCallback}): HResult; stdcall; procedure LoadFromURL(URL: string; Stream: TMemoryStream); procedure InitURLMon; const UrlMonLib = 'URLMON.DLL'; { Do not localize } sURLDownloadToCacheFileA = 'URLDownloadToCacheFileA'; { Do not localize } begin if not Assigned(URLDownloadToCacheFile) then begin UrlMonHandle := LoadLibrary(UrlMonLib); if UrlMonHandle = 0 then raise Exception.CreateResFmt(@SUrlMonDllMissing, ); URLDownloadToCacheFile := GetProcAddress(UrlMonHandle, sURLDownloadToCacheFileA); end; end; var FileName: array of Char; pp:pchar; begin InitURLMon; pp:=@URL; fillchar(pp,sizeof(FileName),0); if URLDownloadToCacheFile(nil,pp , @FileName, SizeOf(FileName), 0, nil) <> S_OK then raise Exception.CreateResFmt(@SErrorDownloadingURL, ); Stream.LoadFromFile(FileName); end;
02.08.202122.2KB
why  two  layouts display same  source  of last richedit?Why two layouts display same source of last RichEdit? with Notebook1 do begin if (ctab='.gif') then ctab:=ExtractFileName(OpenDialog1Gif.FileName) else ctab:=ExtractFileName(ctab); inc(kQvLayoutpin); Case LAYOUTREGENCTL of kVpRegenType_nam:; kVpRegenType_lwr:ctab:=lowercase(cTab); kVpRegenType_upr:ctab:=Uppercase(ctab); else End; ctab:=concat(ctab,'.',kTwoDigitLookup); Pages.Add(cTab); IMAGEHLT.Parent := AScrollBox; IMAGEHLT.OnMouseMove := Notebook1MouseMove; AScrollBox.Parent := Pages.Objects as TPage; IndexCtl := Pages.IndexOf('Default'); if IndexCtl<>-1 then Pages.Delete(IndexCtl); TabSet1.Tabs := Pages; TabSet1.TabIndex := Pages.Count - 1; end; I use mutiple RichEdit,always You open and create a New RichEdit WordP := TRichEdit.Create(Self); with WordP do begin Align:=AlClient; Visible := True; PopupMenu := PopupMenu1; end; vla_rtf_ActiveLayout(kVpRegenType_upr+10,fnam,WordP);
31.07.202149.9KB
Inainte