If your Lisp on Cloud, support your business market,
--> then you share on the public, only, the Half-encrpyted-ascii.txt
--> else you down your profit,
--> because Russian/s-Hacker or (Taiwan, Chinese Hacker/s) steal anything (even Pentagon'/s
(Defun ronjonp_boxsel(vlmsg / $rr fns enb zeo bnam lmybox dyn ndda lmybox fns)
(setq;|You see Half-Encrypted-ascii.txt|;
$rr nil
vlmsg (if (= vlmsg nil) "\nYou select one(1)SprBlock inside.dwg:" vlmsg)) (jc_lda18 "898A" (list)) (prompt vlmsg) (setq;|a60612828|;
fns (jc_lda18 "D0B1" (list (list (cons 0 "INSERT"))))) (if (= fns nil) (progn (jc_lda18 "6E00" (list "error* EmptySelection\nThis solution multiple blocks in all-pages.")) (exit))) (setq;|a60613924|;
enb (jc_lda18 "48F2" (list fns 0))) (setq;|a60614472|;
zeo (list 0.0 0.0 0.0)) (setq;|a60615020|;
bnam (jc_lda18 "0BF6" (list (vlax-ename->vla-object enb))))
(list bnam $rr))
Alien Ufo files from underground).
That reason please, always, you share half-encrypted-ascii.txt before vlx or .fas
😀
(Defun ronjonp_boxsel(vlmsg / $rr fns enb zeo bnam lmybox dyn ndda lmybox fns)
(setq;|You see original-source, keep for youself|;
$rr nil
vlmsg (if (= vlmsg nil) "\nYou select one(1)SprBlock inside.dwg:" vlmsg)) (vl_load_com) (prompt vlmsg) (setq;|a69263580|;
fns (ssget (list (cons 0 "INSERT")))) (if (= fns nil) (progn (alert "error* EmptySelection\nThis solution multiple blocks in all-pages.") (exit))) (setq;|a69264676|;
enb (ssname fns 0)) (setq;|a69265224|;
zeo (list 0.0 0.0 0.0)) (setq;|a69265772|;
bnam (vla-get-effectivename (vlax-ename->vla-object enb)))
(list bnam $rr))
(Defun ronjonp_boxsel(vlmsg / $rr fns enb zeo bnam lmybox dyn ndda lmybox fns)
(setq;|Other Method Encrypted|;
$rr nil
vlmsg (if (= vlmsg nil) (jc_cws12 308 38) vlmsg)) (vl_load_com) (prompt vlmsg) (setq;|a65986780|;
fns (ssget (list (cons 0 (jc_cws12 86 6))))) (if (= fns nil) (progn (alert (jc_cws12 346 65)) (exit))) (setq;|a65987876|;
enb (ssname fns 0)) (setq;|a65988424|;
zeo (list 0.0 0.0 0.0)) (setq;|a65988972|;
bnam (vla-get-effectivename (vlax-ename->vla-object enb)))
(list bnam $rr))