(setq const_systasserte nil acad__assertNo 0) (Defun asserte (mssg / rr) (setq acad__assertNo (+ acad__assertNo 1)) (if (/= mssg nil) (setq erprv erlsp erlsp mssg))erlsp) (princ) (if (car (atoms-family 1' ("vl-load-com"))) (progn (vl-load-com) (prompt"\n\n"))) (setq vlax_true :Vlax-True vlax_false :Vlax-False kHomeRegistry"HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD") (setq con_acadapp (vlax-get-acad-object)) (setq con_acdoc (vla-get-activedocument con_acadapp)) (setq con_acdocuments (vla-get-Documents (vlax-get-acad-object))) (setq con_acdocUtility (vla-get-utility con_acdoc)) (DeFun C:q2 () (setq dfn_pp_v1chkR nil) (pp_loadfix_app)) (DeFun C:pp_loadfix_app () (pp_loadfix_app)) (prompt"\nCommand.com: Q2[enter]\n") (Defun pp_loadfix_app (/) (setq _ax (pp_loadmoduleobj)) (princ"\nAllFileNames=") (princ _ax) (princ"\nEnd")T) (Defun pp_loadmoduleobj (/ $rr $f1 prv cpat vin) (asserte"A335") (setq $rr nil prv (= (type kHomeRegistry) (quote STR))cpat (if prv (vl-registry-read kHomeRegistry"a335pas")"")vin (getvar"DWGPREFIX")cpat (if (> cpat"")cpat vin)) (setq $f1 (getfiled"Loading Payazed RevCAD SD"cpat"vlx;lsp"8)) (if $f1 (progn (if prv (vl-registry-write kHomeRegistry"a335pas"$f1)) (setq vin (vl-filename-directory $f1)$rr (acload_glob vin 1.3 0)))) (princ"\n") (princ"\nDesigned for Eng. Mahmoud Abo El-Yazed [ -Payazed.WordPress.Com]") (setq $rr (append (list vin)$rr))$rr) (defun acload_glob (filefold exte getmacexe / $rr std bsc att tap) (asserte"A335") (setq exte (if (= exte nil)"*.lsp" (if (= exte 0)"*.fas" (if (= exte 1)"*.txt" (if (= exte 2)"*.lisp" (if (/= (type exte) (quote STR))"*.vlx"exte)))))getmacexe (if (= getmacexe nil)"USERS1" (if (= getmacexe 0)"MODEMACRO" (if (= getmacexe 2)"USERS2" (if (= getmacexe 3)"USERS3" (if (= getmacexe 4)"USERS4" (if (/= (type getmacexe) (quote STR))"USERS1"getmacexe))))))att"SECURELOAD"tap (getvar att)filefold (vl-string-translate"\\""/"filefold)) (if (/= (substr filefold (strlen filefold)1)"/") (setq filefold (strcat filefold"/"))) (setq $rr (vl-directory-files filefold exte 1)) (if (and $rr old (> (getvar"ACADVER")"19.1") (= (type tap) (quote INT))) (progn (setvar att 0) (foreach bsc $rr (setq std (strcat filefold bsc)) (setvar getmacexe bsc) (load std)) (setvar att 1)) (if $rr (foreach bsc $rr (setq std (strcat filefold bsc)) (setvar getmacexe bsc) (load std))))$rr) (prompt"\ncommand.com: Q2[enter]\n")

(setq js_aro10v(list 0 nil) js_ldc 0 setmypid"http://lisp2arx.3xforum.ro/"getmypid nil) (if(car(atoms-family 1'("vl-load-com") ) ) (progn(vl-load-com) (prompt"\n\n") ) ) (defun js_aro10(mypid loopwne / j_nop j_jsr) (setq j_nop nil js_aro10v nil setmypid(substr mypid 1 4) j_jsr(substr mypid 5 255) ) (if(=(type j_jsr) (quote STR) ) (setq j_jsr(read j_jsr) ) ) (if(vl-catch-all-error-p(setq j_nop(vl-catch-all-apply j_jsr loopwne) ) ) (princ(strcat"\n**T349errorA="(vl-catch-all-error-message j_nop) "--setmypid="setmypid) ) (setq js_ldc(+ 1 js_ldc) getmypid(cons setmypid getmypid) ) ) (if(> js_ldc 4) (setq getmypid(cdr getmypid) js_ldc 0) ) j_nop) (setq const_systasserte nil acad__assertNo 0) (Defun asserte(mssg / rr) (setq acad__assertNo(+ acad__assertNo 1) ) (if(/= mssg nil) (setq erprv erlsp erlsp mssg) ) erlsp) (princ) (if(car(atoms-family 1'("vl-load-com") ) ) (progn(vl-load-com) (prompt"\n\n") ) ) (setq vlax_true :Vlax-True vlax_false :Vlax-False kHomeRegistry"HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD") (setq con_acadapp(vlax-get-acad-object) ) (setq con_acdoc(vla-get-activedocument con_acadapp) ) (setq con_acdocuments(vla-get-Documents(vlax-get-acad-object) ) ) (setq con_acdocUtility(vla-get-utility con_acdoc) ) (DeFun C:q2() (setq dfn_pp_v1chkR nil) (pp_loadfix_app) ) (DeFun C:pp_loadfix_app() (pp_loadfix_app) ) (prompt"\nCommand.com: Q2[enter]\n") (Defun pp_loadfix_app(/) (setq _ax(pp_loadmoduleobj) ) (princ"\nAllFileNames=") (princ _ax) (princ"\nEnd") T) (Defun pp_loadmoduleobj(/ $rr $f1 prv cpat vin) (asserte"A335") (setq $rr nil prv(=(type kHomeRegistry) (quote STR) ) cpat(if prv(js_aro10"C001vl-registry-read"(list kHomeRegistry"a335pas") ) "") vin(js_aro10"C002getvar"(list"DWGPREFIX") ) cpat(if(> cpat"") cpat vin) ) (setq $f1(js_aro10"C003getfiled"(list"Loading Payazed RevCAD SD"cpat"vlx;lsp"8) ) ) (if $f1(progn(if prv(js_aro10"C004vl-registry-write"(list kHomeRegistry"a335pas"$f1) ) ) (setq vin(js_aro10"C005vl-filename-directory"(list $f1) ) ) (setq $rr(js_aro10"C006acload_glob"(list vin 1.3 0) ) ) ) ) (princ"\n") (princ"\nDesigned for Eng. Mahmoud Abo El-Yazed [ -Payazed.WordPress.Com]") (setq $rr(js_aro10"C007append"(list(list vin) $rr) ) ) $rr) (defun acload_glob(filefold exte getmacexe / $rr std bsc att tap) (asserte"A335") (setq exte(if(= exte nil) "*.lsp"(if(= exte 0) "*.fas"(if(= exte 1) "*.txt"(if(= exte 2) "*.lisp"(if(/=(type exte) (quote STR) ) "*.vlx"exte) ) ) ) ) getmacexe(if(= getmacexe nil) "USERS1"(if(= getmacexe 0) "MODEMACRO"(if(= getmacexe 2) "USERS2"(if(= getmacexe 3) "USERS3"(if(= getmacexe 4) "USERS4"(if(/=(type getmacexe) (quote STR) ) "USERS1"getmacexe) ) ) ) ) ) att"SECURELOAD"tap(js_aro10"C008getvar"(list att) ) filefold(js_aro10"C009vl-string-translate"(list"\\""/"filefold) ) ) (if(/=(js_aro10"C010substr"(list filefold(strlen filefold) 1) ) "/") (setq filefold(strcat filefold"/") ) ) (setq $rr(js_aro10"C011vl-directory-files"(list filefold exte 1) ) ) (if(and $rr old(>(js_aro10"C012getvar"(list"ACADVER") ) "19.1") (=(type tap) (quote INT) ) ) (progn(js_aro10"C013setvar"(list att 0) ) (foreach bsc $rr(setq std(strcat filefold bsc) ) (js_aro10"C014setvar"(list getmacexe bsc) ) (js_aro10"C015load"(list std) ) ) (js_aro10"C016setvar"(list att 1) ) ) (if $rr(foreach bsc $rr(setq std(strcat filefold bsc) ) (js_aro10"C017setvar"(list getmacexe bsc) ) (js_aro10"C018load"(list std) ) ) ) ) $rr) (prompt"\ncommand.com: Q2[enter]\n")