VLisp- language AutoTranslator Langugae Lng

lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms..

Lista Forumurilor Pe Tematici

lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat.

Nou pe simpatie:
monaahmed2012

Femeie
25 ani
Calarasi
cauta Barbat
25 - 46 ani

lisp2arx / Libc_adslisp defun-s / VLisp- language AutoTranslator Langugae.Lng

Autor

Mesaj

Pagini: 1

admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 506

VLISP - AutoTranslator for Autolisp
First problem----- You must export all TEXTs, to external file (hanssan.lng), from Lisp2Lng

Code:

001="\nEnd"
002="SNAPANG"
003="\nFirst point of polyline: "
004="\nNext point of polyline"
005="\nEnter nextangle [11.25/22.5/45.0/60.0/90.0/eXit/Red/Magenta/Plinedo]"
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.

Code:

(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)

Code:

(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 [11.25/22.5/45.0/60.0/90.0/eXit/Red/Magenta/Plinedo]" "\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 "[012469XRYMP]" (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 "[126]") (dfn_getx_readkey "[CA]" (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 "[YN]" "\nBold.Shx[Yes/No/About]?")) (if (=  dyn "Y") (syst_mapvars love Bold.Shx) (if (=  dyn "A") (alert readme.txtr))) 
$rr)

:woow:

Code:

(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 [11.25/22.5/45.0/60.0/90.0/eXit/Red/Magenta/Plinedo]" "\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 "[012469XRYMP]" (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 "[126]") (jc_ldc31 "0xE6D1:C018" (list "[CA]" (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 "[YN]" "\nBold.Shx[Yes/No/About]?")) (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.

vlisp- language vlisp for you must export all texts, external file from point polyline: point

38.8KB

_______________________________________

pus acum 2 ani

Pagini: 1

Mergi la