(Defun ACRX_T(s183 / rr)(setq rr nil)(setq rr(if(=(type s183)(quote STR))s183(prompt"\nt183errorS**")))rr)(setq acad_iso11w100-extmin 25 acad_iso11w100-extmax 65417)(setq acad_isoQsortTime 00:00.00)(setq runiftry11w100(list(cons"0x0000""c:/VLAXCOMPIL/0User/pp_topolt_allcolor.lsp")(cons"0x3ACF""dfn_var_isdefun")(cons"0xF2C4""substr")(cons"0x975D""dfn_var_isstr")(cons"0x46CA""wcmatch")(cons"0x4DFA""cons")(cons"0x4E37""getvar")(cons"0x08BB""dfn_pp_vlchk")(cons"0x96D7""dfn_ssg_len")(cons"0x2ABB""append")(cons"0x624B""strcase")(cons"0x0F31""ssadd")(cons"0x26D2""dfn_cmd_echo")(cons"0x7DA0""dfn_ent_assoc")(cons"0x1C2B""setvar")(cons"0x6444""dfn_cmd_canceld")(cons"0x8C12""terpri")(cons"0xD0B1""ssget")(cons"0xB118""cadr")(cons"0x0DC3""assoc")(cons"0xF039""dfn_var_isenam")(cons"0xE6D1""dfn_getx_readkey")(cons"0x6C65""dfn_var_isint")(cons"0xEB25""_pp_var1chk")(cons"0xBA4A""str_trimr")(cons"0x9BCF""asserte")(cons"0x2F42""str_pos")(cons"0x6E00""alert")(cons"0xDA52""str_replace_all")(cons"0x57BE""dfn_ssg_xor")(cons"0x0670""dfn_layer_lock")(cons"0x3D9B""listp")(cons"0xDC92""entget")(cons"0x26ED""dfn_layer_search")(cons"0x48F2""ssname")(cons"0x73DC""ascii")(cons"0x9BA0""dfn_ent_dxf08")(cons"0xD227""entnext")(cons"0xF7A6""length")(cons"0x2ECB""dfn_cmd_chpropcolor")(cons"0xFC47""dfn_layer_isexist")(cons"0xC9F3""dfn_var_ispicks")(cons"0xDE37""dfn_var_isnumber")(cons"0x864B""atof")(cons"0x88A5""cddr")(cons"0x0544""dfn_var_isint0")(cons"0x74F3""dfn_ent_isblock")(cons"0x45AC""str_lwr")(cons"0x04D1""dfn_ent_dxf_01")(cons"0x602A""dfn_ent_dxf62")(cons"0xABFF""tblobjname")(cons"0x63D7""subst")(cons"0xFA62""textscr")(cons"0x0175""dfn_layer_islock")(cons"0x65E5""if_string")(cons"0x1717""entupd")(cons"0x7F6B""vla-put-color")(cons"0xD396""dfn_block_redefer")(cons"0x8F02""dfn_var_enam2pick")(cons"0xB77E""reverse")(cons"0x87F1""dfn_ssg_seleall")(cons"0x4219""entmod")(cons"0x112F""str_upr")(cons"0x9F8D""vl-load-com")(cons"0x84ED""mapcar")(cons"0xCFA0""caar")(cons"0x9E77""grread")(cons"0xE634""dfn_var_isrint")(cons"0xE171""dfn_var_isvlaobj")(cons"0x8223""syst_setvars")(cons"0x2C95""str_chrrep")(cons"0x7314""cadar")(cons"0x9D29""dfn_cmd_ech1")(cons"0x3898""atom")(cons"0x17E8""dfn_ent_dxf00")(cons"0xDC6F""member")(cons"0x6B8C""vla_endundomark")(cons"0x0C43""dfn_ent_type")(cons"0x066C""read")(cons"0x34FA""dfn_ent_dxf02")(cons"0x8CA0""dfn_cmd_ech0")(cons"0xB93D""str_trim")(cons"0xE727""str_trimleft")(cons"0x0019""str_chr2")(cons"0xD620""vl_consp")(cons"0x7E86""vlax_ename2vla_object")(cons"0x256C""dfn_date_orace")(cons"0x5C96""dfn_var_isreal")(cons"0x270B""rtos")(cons"0x7B63""str_pathtype")(cons"0x4C2D""sslength")(cons"0x6DE2""dfn_dcl_color")(cons"0x0ED4""str_path_2c")(cons"0xE7E2""dfn_ent_dimtomtext")(cons"0x4F93""str_replace")(cons"0x3A9B""pp_topolt_check")(cons"0xD248""dfn_ent_flags")(cons"0xA13F""dfn_dwg_space")(cons"0xA731""dfn_sysvar0str")(cons"0x0BD7""dfn_var_isliststr")(cons"0x9160""dfn_cmd_chproplay")(cons"0x3163""acad_strlsort")(cons"0xD708""acad_colordlg")(cons"0x428D""tblsearch")(cons"0xC306""dfn_cadver_isicad")(cons"0x7401""dfn_ent_layer")(cons"0x18F6""vla_get_isxref")(cons"0x5085""dfn_ssg_removelayer")(cons"0xCDFD""vl_symbolp")(cons"0x5622""dfn_pp_v1chk")(cons"0xB3FA""_wndproc")(cons"0xA516""dfn_ent_assoclist")(cons"0x5C09""dfn_sysvar0int")(cons"0x3990""str_pathtemp")(cons"0xF1E7""dfn_ent_color")(cons"0x3282""str_chr1")(cons"0xAADC""dfn_var_islista")(cons"0x3647""exit")(cons"0x2D6E""dfn_layer_make")(cons"0xFF89""str_path2unix")))(setq getmypid nil js_getstatic21 nil setmypid"%s")(if(car(atoms-family 1'("vl-load-com")))(progn(vl-load-com)(prompt"\n\n")))(defun js_ldc21(mypid loopwne / rom subf)(setq rom nil js_getstatic21 nil setmypid(substr mypid 8)subf(cdr(assoc(strcat"0x"(substr mypid 3 4))runiftry11w100)))(if(vl-catch-all-error-p(setq rom(vl-catch-all-apply(read subf)loopwne)))(setq js_getstatic21(list"\n**T349errorK="(vl-catch-all-error-message rom)"--setmypid="setmypid subf"["loopwne"]\n"))(setq getmypid(cons setmypid getmypid)))(if(/= js_getstatic21 nil)(princ js_getstatic21))rom)(setq acad_isoQsortTimp 00:00.00)(setq acad_isoSortTotal 00:00.00)(princ)(princ)(Defun vla_endundomark(o123 / rr)(if(= o123"e")(setq o123(const_docactive)))(setq erlsp"O123"rr(vla-EndundoMark o123))rr)(defun vla_get_isxref(o184 / rr o)(js_ldc21"0x9BCF:C209"(list"O184"))(setq rr nil o(js_ldc21"0x7E86:C210"(list o184)))(if(and o(VLAX-PROPERTY-AVAILABLE-P o'ISXREF))(setq rr(vla-get-isxref o))(setq erlsp"o184"))rr)(Defun vla_startundomark(o119 / rr)(setq erlsp"O119")(dfn_cmd_cancel)(if(= o119"b")(setq o119(const_docactive)))(setq rr(vla-StartUndoMark o119))rr)(Defun const_docactive(/)(vla-get-activedocument(vlax-get-acad-object)))(Defun const_documents(/)(vla-get-Documents(vlax-get-acad-object)))(defun vlax_ename2vla_object(e189 / e rr g l)(js_ldc21"0x9BCF:C285"(list"E189"))(setq rr nil ercad Acad::eOk e189(if(/=(js_ldc21"0xD620:C286"(list e189))nil)(js_ldc21"0x04D1:C287"(list e189))e189)e(js_ldc21"0xF039:C288"(list e189))g(js_ldc21"0xE171:C289"(list e189)))(if e(setq rr(vlax-ename->vla-object e))(if g(setq rr e189)(setq ercad Acad::eNullEntityPointer)))rr)(defun vlax_ename->vla_object(e189_nae /)(vlax_ename2vla_object e189_nae))(defun vlax-ename2vla-object(e189_nam /)(vlax_ename2vla_object e189_nam))(Defun vl_symbolp(v184 / rr)(setq rr(if(vl-symbolp v184)v184 nil))rr)(Defun vl_consp(z150 / rr l a b c k)(setq l z150 b nil k 0 c(vl-consp l)a(if c(vl-list-length l)9))(if(and(= a nil)(/=(js_ldc21"0x3D9B:C377"(list l))nil))(setq a(car l)k 1))(if(= k 1)(setq b(cdr(js_ldc21"0x0DC3:C378"(list a(list l))))))(if(and b c)(setq rr RTDOTE))(if(and c(= b nil))(setq rr(js_ldc21"0xF7A6:C379"(list l))))(if(not c)(setq rr c))rr)(setq con_lastvar nil)(setq const_cadundo(if(/=(type const_cadundo)(quote STR))"0000"const_cadundo))(setq int_chr1 0)(setq int_chr2 0)(setq pp_real9e306 9e306)(setq pp_realmax 9e307)(setq pp_realmaxs"9e307")(Defun syst_setvars(listavar / rr kg lg cf om)(setq kg 0 lg listavar)(progn(setq rr nil)(while(/= lg nil)(if(/= lg nil)(progn(setq con_lastvar(car lg)om(js_ldc21"0x4E37:C116"(list con_lastvar))rr(if om(js_ldc21"0x2ABB:C117"(list rr(list con_lastvar om)))rr)cf(js_ldc21"0xB118:C118"(list lg))om(if(= cf nil)nil om)om(if(= cf T)nil om)om(if om(js_ldc21"0x1C2B:C119"(list con_lastvar cf))nil)kg(if om(+ kg 1)kg))))(setq lg(js_ldc21"0x88A5:C120"(list lg)))))rr)(if(not(listp const_listecho))(setq const_listecho nil))(setq RQSAVE 14 RQEND 15 RQQUIT 16 RQCFG 22 RQXLOAD 100 RQXUNLD 101 RQSUBR 102 RQHUP 105 RQXHELP 118 RSRSLT 1 RSERR 3 RTNONE 5000 RTREAL 5001 RTPOINT 5002 RTSHORT 5003 RTANG 5004 RTSTR 5005 RTENAME 5006 RTPICKS 5007 RTORINT 5008 RT3DPOINT 5009 RTLONG 5010 RTVOID 5014 RTLB 5016 RTLE 5017 RTDOTE 5018 RTNIL5 5019 RTDXF0 5020 RTT 5021 RTRESBUF 5023 RTMODELESS 5027 RTNORM 5100 RTERROR -5001 RTCAN -5002 RTREJ -5003 RTFAIL -5004 RTKWORD -5005 RTINPUTTRUNCATED -5008)(setq kHereAiciHeirIciAqui 0767004316 errno 5100 erprv nil)(defun dfn_var_isstr0(a094 default / rr)(setq rr(if(=(type a094)(quote SYM))(eval a094)a094)rr(if(=(type rr)(quote STR))rr default))rr)(defun dfn_var_isint0(a115 defvalue / rr)(setq rr(if(=(type a115)(quote SYM))(eval a115)a115)rr(if(/=(type rr)(quote INT))defvalue rr))rr)(defun asserte(a251 / rr)(setq errno 0 acad__assertNo(if(/=(type acad__assertNo)(quote INT))0(+ acad__assertNo 1)))(if(/= a251 nil)(setq erprv erlsp erlsp(strcat"@"a251"<"(itoa acad__assertNo)">")))(princ"\rRIP=")(princ acad__assertNo)(if(= acad__assertNo kHereAiciHeirIciAqui)(js_ldc21"0x6E00:C001"(list(strcat"Hi! eBreakPoint kHereAiciHeirIciAqui="(itoa kHereAiciHeirIciAqui)))))erlsp)(deFun C:Q2()(setq acad__assertNo(js_ldc21"0x0544:C002"(list acad__assertNo 0)))(if(and(< acad__assertNo(- 10))(/= const_error nil))(setq kHereAiciHeirIciAqui(- acad__assertNo)))(setq acad__assertNo 0)(pp_topolt_allcolor \winmain_pp_topolt_allcolor_app))(defun C:pp_topolt_allcolor \winmain_pp_topolt_allcolor()(pp_topolt_allcolor \winmain_pp_topolt_allcolor_app))(prompt"\nCommand.com : Q2[enter]\n")(defun pp_topolt_allcolor \winmain_pp_topolt_allcolor_app(/)(setq const_ppfiletmp(if(=(type const_ppfiletmp)(quote STR))const_ppfiletmp""))(if(<(strlen const_ppfiletmp)3)(js_ldc21"0xB3FA:C003"(list))(js_ldc21"0x8C12:C004"(list)))(setq _ax(pp_topolt_allcolor))(js_ldc21"0x6B8C:C005"(list(chr 101)))(princ"\nEnd")T)(defun str_pathtemp(/ rr e f k)(asserte"A131")(setq rr nil f(js_ldc21"0x975D:C006"(list(getenv"TEMP"))))(if(and(not rr)f)(setq rr f))(setq f(if(not f)(js_ldc21"0x975D:C008"(list(getenv"TMP")))f))(if(and(not rr)f)(setq rr f))(setq f(js_ldc21"0x975D:C010"(list(getvar"TEMPPREFIX")))f(if(not f)(js_ldc21"0x975D:C012"(list(getenv"TMP")))f))(setq f(js_ldc21"0x975D:C014"(list(getvar"XLOADPATH")))f(if(not f)(js_ldc21"0x975D:C016"(list(getenv"TMP")))f))(if(= rr nil)(setq rr""))(setq k(strlen rr))(if(> k 2)(progn(while(and(> k 1)(=(js_ldc21"0xF2C4:C018"(list rr k 1))" "))(setq rr(js_ldc21"0xF2C4:C019"(list rr 1(- k 1))))(progn(while(and(> k 1)(js_ldc21"0x46CA:C020"(list rr"*[\\]*")))(if(=(js_ldc21"0xF2C4:C021"(list rr k 1))"\\")(setq rr(strcat(js_ldc21"0xF2C4:C022"(list rr 1(- k 1)))"/"(js_ldc21"0xF2C4:C023"(list rr(+ k 1))))))(setq k(- k 1))))(setq c(js_ldc21"0xF2C4:C024"(list rr(strlen rr))))(if(/= c"/")(setq rr(strcat rr"/"))))))rr)(defun dfn_cadver_isicad(/ rr ac lc uc)(setq ac(js_ldc21"0x975D:C025"(list(getvar"PROGRAM")))rr 0)(if ac(progn(setq lc(js_ldc21"0x624B:C027"(list ac T))uc(js_ldc21"0x624B:C028"(list ac)))(if(js_ldc21"0x46CA:C029"(list uc"ICAD*"))(setq rr 1))(if(js_ldc21"0x46CA:C030"(list lc"acad*"))(setq rr 2))(if(js_ldc21"0x46CA:C031"(list lc"*zwc*"))(setq rr 3))))rr)(defun syst_setvars(listavar / rr kg lg cf om)(setq kg 0 lg listavar)(progn(setq rr nil)(while(/= lg nil)(if(/= lg nil)(progn(setq con_lastvar(js_ldc21"0xCFA0:C032"(list lg))om(js_ldc21"0x4E37:C033"(list con_lastvar))rr(if om(js_ldc21"0x2ABB:C034"(list rr(list con_lastvar om)))rr)cf(js_ldc21"0x7314:C035"(list lg))om(if(= cf nil)nil om)om(if(= cf T)nil om)om(if om(js_ldc21"0x1C2B:C036"(list con_lastvar cf))nil)kg(if om(+ kg 1)kg))))(setq lg(js_ldc21"0x88A5:C037"(list lg)))))rr)const_ppfiletmp(js_ldc21"0x3990:C038"(list))str_pathtempA const_ppfiletmp const_ppfiletmp(strcat const_ppfiletmp"pagefile.sys"))(setq rr(js_ldc21"0x864B:C039"(list(getvar"ACADVER"))))(if(< rr 14.0)(js_ldc21"0x6E00:C041"(list" Warning Minim Req : AutoCAD 14.0 or highter")))(if(< rr 15.0)(setq *error* nil))(setq io(command"_.undo""Auto""On"))(setq kj(js_ldc21"0xC306:C042"(list)))(if(= kj 2)(setq io(list(js_ldc21"0x9F8D:C043"(list))(js_ldc21"0xFA62:C044"(list)))))(setq _ax rr)(command".UNDO""_BEGIN")(setq lz(list(list"MODEMACRO"bya)(list"UCSICON"1)(list"ISAVEBAK"1)(list"SAVETIME"15)(list"BLIPMODE"0)))(setq _ppcx_init_vars(js_ldc21"0x8223:C045"(list lz)))(setq _pp_var1chkm nil lz nil dfn_var_chkC"")rr)(defun dfn_pp_vlchk(h154 f157 / rr)(setq rr nil)rr)(defun dfn_pp_v1chk(var tp msg / rr)(setq rr nil)rr)(Defun dfn_var_isint0(b134 y133 / r)(if(/=(type b134)(quote INT))(setq r y133)(setq r b134))r)(defun pp_topolt_allcolor(/ co s5 b a n i e m c rr lr q w x y lc $ix $ro $am $bk $co $ex)(setq co(js_ldc21"0x6DE2:C046"(list 0))lr nil const_entassocset 1)(if(< co 0)(progn(js_ldc21"0x6E00:C047"(list"User cancel "))(js_ldc21"0x3647:C048"(list))))(setq s5(js_ldc21"0x0F31:C049"(list))b(js_ldc21"0x0F31:C050"(list))$am(chr 65)n(- 1))(setq $am(js_ldc21"0xE6D1:C051"(list"*[AMP]""\rSelect object? ('A'.all)('M'.only from space-model)('P'.paper)?  A/M/P <A>:")))(js_ldc21"0x8C12:C052"(list))(setq b(js_ldc21"0xD0B1:C053"(list"X"(list(cons 0"INSERT")))))(setq lc(list(js_ldc21"0x4DFA:C055"(list(- 4)"<AND"))(js_ldc21"0x4DFA:C056"(list(- 4)"="))(js_ldc21"0x4DFA:C057"(list 62 co))(js_ldc21"0x4DFA:C058"(list(- 4)"AND>"))))(setq $co(js_ldc21"0xD0B1:C059"(list"X"lc)))(setq s5(cond((or(= $am(chr 65))(= a nil))(js_ldc21"0xD0B1:C060"(list"X")))((= $am(chr 77))(js_ldc21"0x87F1:C061"(list 0)))((= $am(chr 80))(js_ldc21"0x87F1:C062"(list 1)))((js_ldc21"0xD0B1:C063"(list"X")))))(setq y nil o 0 m(js_ldc21"0x96D7:C064"(list b)))(if(> m 0)(setq c(js_ldc21"0x57BE:C065"(list s5 b))c(js_ldc21"0x57BE:C066"(list s5 c))o(-(js_ldc21"0x96D7:C067"(list c))1)))(js_ldc21"0x8C12:C068"(list))(setq $ix(js_ldc21"0xE6D1:C069"(list"*[YN]""\rForced Xref,maybe crash <yes/no>:")))(js_ldc21"0x8C12:C070"(list))(setq $ro(js_ldc21"0xE6D1:C071"(list"*[YN]""\rType-Mode? ('Y'.quickmode)('N'.normal-Mode)?  <yes/no>:")))(js_ldc21"0x8C12:C072"(list))(if(> o 1)(progn(setq o(if(=(chr 78)(js_ldc21"0xE6D1:C073"(list"*[YN]""\rRescan blocks (yes/no):")))RTCAN o))))(progn(while(>= o 0)(progn(setq e(js_ldc21"0x48F2:C074"(list c o))x 1 q(js_ldc21"0x74F3:C075"(list e)))(if(and q(not(js_ldc21"0xDC6F:C076"(list q lr))))(setq x(js_ldc21"0x18F6:C077"(list e))))(if(and(= $ix"N")(= x nil)q)(setq lr(js_ldc21"0x2ABB:C078"(list lr(list(str_upr q 0))))x(js_ldc21"0xD396:C080"(list e 62 co))))(if(and(/= $ix"N")q)(setq lr(js_ldc21"0x2ABB:C081"(list lr(list(str_upr q 0))))x(js_ldc21"0xD396:C083"(list e 62 co))))(princ"###\rBlockRedef-DownTo Zero1=")(princ o))(setq o(- o 1))))(setq lr nil)(if(>(js_ldc21"0x96D7:C084"(list $co))10)(setq s5(js_ldc21"0x57BE:C085"(list s5 $co))))(setq lc nil n(js_ldc21"0x96D7:C086"(list s5)))(js_ldc21"0x8C12:C087"(list))(if(= $ro(chr 89))(js_ldc21"0x2ECB:C088"(list s5 co)))(if(= $ro(chr 78))(progn(setq i(- n 1))(while(>= i 0)(progn(setq e(js_ldc21"0x48F2:C089"(list s5 i)))(js_ldc21"0xF1E7:C090"(list e co))(princ"###\rDownTo Zero2=")(princ i))(setq i(- i 1)))))(setq $ex(js_ldc21"0xE6D1:C091"(list"*[YN]""\rDo wish ExtraScan? ('Y'.Extra)('N'.exit)?  <yes/no>:")))(js_ldc21"0x8C12:C092"(list))(if(and(>(js_ldc21"0x96D7:C093"(list $co))10)(= $ex(chr 89)))(js_ldc21"0x2ECB:C094"(list $co co)))(setq rr nil)(setq const_entassocset 0)rr)(Defun dfn_var_isstr(z173 / rr)(setq rr(if(=(type z173)(quote STR))(js_ldc21"0xF2C4:C095"(list z173 1 9999))nil))rr)(Defun str_pathtemp(/ rr c e f)(setq e" "rr"")(setq f(js_ldc21"0x975D:C096"(list(getenv"TEMP"))))(if(and(<(strlen rr)2)f)(setq rr(js_ldc21"0xBA4A:C098"(list f e))))(setq f(js_ldc21"0x975D:C099"(list(getenv"TMP"))))(if(and(<(strlen rr)2)f)(setq rr(js_ldc21"0xBA4A:C101"(list f e))))(setq f(js_ldc21"0x975D:C102"(list(getvar"TEMPPREFIX"))))(if(and(<(strlen rr)2)f)(setq rr(js_ldc21"0xBA4A:C104"(list f e))))(setq f(js_ldc21"0x975D:C105"(list(getvar"XLOADPATH"))))(if(and(<(strlen rr)2)f)(setq rr(js_ldc21"0xBA4A:C107"(list f e))))(if(>(strlen rr)0)(progn(setq rr(js_ldc21"0xFF89:C108"(list rr))c(js_ldc21"0xF2C4:C109"(list rr(strlen rr))))(if(/= c"/")(setq rr(strcat rr"/")))))rr)(Defun dfn_cadver_isicad(/ rr a l u)(setq a(js_ldc21"0xA731:C110"(list"PROGRAM"nil))rr 0)(if(= erlsp nil)(progn(setq l(js_ldc21"0x45AC:C111"(list a))u(js_ldc21"0x112F:C112"(list a nil)))(if(js_ldc21"0x46CA:C113"(list u"ICAD*"))(setq rr 1))(if(js_ldc21"0x46CA:C114"(list l"acad*"))(setq rr 2))(if(js_ldc21"0x46CA:C115"(list l"*zwc*"))(setq rr 3))))rr)(Defun dfn_var_isint(v190 /)(if(/=(type v190)(quote INT))(setq v190 nil))v190)(Defun dfn_ent_assocset(r174 t174 v174 / rr f g w q x y)(setq rr(js_ldc21"0xA516:C121"(list t174))g(js_ldc21"0x7DA0:C122"(list r174 t174))w(js_ldc21"0x4DFA:C123"(list r174 v174)))(if g(setq y(js_ldc21"0x0DC3:C124"(list r174 rr))rr(js_ldc21"0x63D7:C125"(list w y rr))))(if(not g)(setq rr(js_ldc21"0x2ABB:C126"(list rr(list w)))))(setq g(js_ldc21"0x7DA0:C127"(list r174 rr))erlsp nil)(if(/= g v174)(setq rr t174 erlsp"R174"))rr)(Defun dfn_dcl_color(t165 / rr a b)(setq a(js_ldc21"0x0544:C128"(list t165 100))b(js_ldc21"0xD708:C129"(list a))rr(if(not b)(- 1)b))rr)(defun dfn_getx_readkey(k574 t469 / retc kbd msg two chk lei)(setq retc(chr 0)kbd(js_ldc21"0x65E5:C130"(list k574""))msg(js_ldc21"0x65E5:C131"(list 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(js_ldc21"0x9E77:C132"(list))two(car lei))(setq retc(js_ldc21"0x624B:C133"(list(chr(cadr lei)))))(setq chk(if(/= kbd"")(if(js_ldc21"0x46CA:C135"(list retc kbd))1 0)0))))))(princ retc)retc)(Defun dfn_ent_isblock(e264 / rr)(setq rr(=(js_ldc21"0x0C43:C137"(list e264))"INSERT")rr(if rr(js_ldc21"0x34FA:C138"(list e264))rr))rr)(Defun dfn_ssg_seleall(p456 / p o k rr)(setq p p456)(if(= p nil)(setq rr(js_ldc21"0xD0B1:C139"(list"X")))(progn(setq p(js_ldc21"0x6C65:C140"(list p))p(if(not p)(js_ldc21"0xA13F:C141"(list))p)p(boole 1 p 1)k(list(js_ldc21"0x4DFA:C142"(list(- 4)"<AND"))(js_ldc21"0x4DFA:C143"(list 67 p))(js_ldc21"0x4DFA:C144"(list(- 4)"AND>"))))(setq rr(js_ldc21"0xD0B1:C145"(list"X"k)))))rr)(defun dfn_ssg_len(ep00 / reti tpu)(setq ep00(if(=(type ep00)(quote SYM))(eval ep00)ep00)tpu(type ep00)reti(if(= tpu(quote PICKSET))(js_ldc21"0x4C2D:C146"(list ep00))(- 2)))(if(< reti 0)(progn(setq reti(if(= tpu(quote ENAME))1(- 1)))))reti)(defun dfn_ent_color(e150 nc / r f p e o g)(js_ldc21"0x9BCF:C147"(list"E150"))(setq e e150)(js_ldc21"0x26D2:C148"(list 0))(if(= nc nil)(setq nc(- 1)))(if(= nc"")(setq nc(js_ldc21"0x4E37:C149"(list"CECOLOR"))))(setq p(js_ldc21"0xC9F3:C150"(list e nil)))(if nc(setq o(vlax-ename->vla-object e)g(vla-put-color o nc)))(if(= nc nil)(progn(setq r" ")(if(not p)(setq r(js_ldc21"0x602A:C151"(list e))))(if(and(not p)(= r nil))(setq erlsp"e150"r(cdr(js_ldc21"0x0DC3:C152"(list 62(tblsearch"LAYER"(dfn_ent_dxf08 e)))))))))(js_ldc21"0x26D2:C155"(list 2))r)(Defun str_princ2(a101 / a g)(asserte"A101")(if(js_ldc21"0x975D:C156"(list a101))(princ a101)(progn(if(=(car a101)nil)(setq g(js_ldc21"0xFA62:C157"(list))a101(cdr a101)))(foreach a a101(princ a))))0)(Defun str_princ(a101 / rr)(str_princ2 a101))(Defun str_upr(s164 a174 / rr s)(setq erlsp nil)(if(= s164 nil)(setq s164""))(if(>(js_ldc21"0x0BD7:C158"(list a174))0)(setq rr(js_ldc21"0x84ED:C159"(list(quote strcase)a174))rr s174 s174 nil)(progn(if(js_ldc21"0x975D:C160"(list s164))(setq rr(js_ldc21"0x624B:C161"(list s164)))(setq erlsp"S164"))))rr)(defun dfn_ssg_xor(c456 d456 / o rr s1 s2 a b)(setq s1 c456 s2 d456 o(js_ldc21"0x26D2:C162"(list 0)))(js_ldc21"0x08BB:C163"(list(list s1"pick"s2"")"dfn_ssg_xor"))(js_ldc21"0x6444:C164"(list))(setq a(js_ldc21"0x96D7:C165"(list s1))b(js_ldc21"0x96D7:C166"(list s2)))(setq rr nil)(if(< a 1)(setq rr s2))(if(< b 1)(setq rr s1))(if(= rr nil)(progn(setq rr s1)(command"_.select"s1"_r"s2"")(js_ldc21"0x6444:C167"(list))(setq rr(js_ldc21"0xD0B1:C168"(list"_P")))))(js_ldc21"0x26D2:C169"(list nil))(if(<(js_ldc21"0x96D7:C170"(list rr))1)(setq rr(js_ldc21"0x0F31:C171"(list))))rr)(defun dfn_block_redefer(b176 i175 j175 / e f i g b a p s l y z x q $ps adc lde tip)(asserte"B176")(setq b b176 a i175 p j175)(if(= a nil)(setq a 8 p(if(= p nil)"0"p)))(if(= a 62)(setq p(if(= p nil)0 p)))(js_ldc21"0x08BB:C172"(list(list b"1 str"a"1 int")"dfn_block_redefer"))(setq i 0 s(js_ldc21"0x74F3:C173"(list b))e(if s(js_ldc21"0xABFF:C174"(list"BLOCK"s))nil)q e l(if e(js_ldc21"0x9BA0:C175"(list e))nil)y(if(= a 62)p(js_ldc21"0x602A:C176"(list e))))(while e(progn(setq f(js_ldc21"0xF039:C177"(list e))lde(if f(js_ldc21"0x624B:C178"(list(if_string(dfn_ent_assoc 0 e)"")))""))(if f(setq adc(js_ldc21"0x7F6B:C181"(list(vlax_ename2vla_object f)j175))i(+ i 1)))(setq adc(cond((= lde"DIMENSION")27)((= lde"LEADER")3)(0)))(setq $ps(if(> adc 0)(js_ldc21"0xE7E2:C183"(list e"l"))(list nil RTREJ)))(if(and(= RTFAIL 0)(>(js_ldc21"0xB118:C184"(list $ps))0))(setq adc(js_ldc21"0x2ECB:C185"(list $ps j175))$ps(js_ldc21"0x0F31:C186"(list))))(if(and(< RTFAIL 00)(>(js_ldc21"0xB118:C187"(list $ps))0))(setq $ps(car $ps)adc(foreach lde $ps(js_ldc21"0x7F6B:C188"(list(vlax_ename2vla_object lde)j175)))$ps(js_ldc21"0x0F31:C190"(list))))(setq e(js_ldc21"0xD227:C191"(list e))))(if s(progn(if(=(js_ldc21"0x17E8:C192"(list e))"ENDBLK")(progn(setq z(list(js_ldc21"0x4DFA:C193"(list 0"ENDBLK"))(js_ldc21"0x4DFA:C194"(list 8 l))))(if y(setq z(js_ldc21"0x2ABB:C195"(list z(list(cons 62 y))))))(if(= x 1)(js_ldc21"0x4219:C197"(list z)))))))(if q(js_ldc21"0x1717:C198"(list q))))i)(defun dfn_cmd_chpropcolor(a206 cols / rr)(setq rr(js_ldc21"0x96D7:C199"(list a206)))(if(> rr 0)(progn(js_ldc21"0x6444:C200"(list))(js_ldc21"0x9BCF:C201"(list"A206"))(command"_.chprop"a206"""_C"cols"")(js_ldc21"0x6444:C202"(list))))rr)(Defun pp_topolt_orace(ora1 ora2 nupr / c1 c2 c3 c4 c5 c6 c7 a b d u)(setq u"\nAdresa de internet: 'http://www.topograf.3xforum.ro/lisp'"a(js_ldc21"0xDE37:C203"(list ora1))b(js_ldc21"0xDE37:C204"(list ora2)))(if(= a nil)(setq a 22.00))(if(= n nil)(setq n 22.15))(setq d(min a b)b(max a b)a d c1"\n"c1(strcat c1(js_ldc21"0x2C95:C205"(list"-"80))))(setq c2(strcat"\nProgram: "nupr u"\nVersiune shareware, Set all color blue"c1"\nAtentie ! Seteaza doar la culoarea blue"c1"\nAutorul nu r\aspunde de eventuale pagube explicite sau implicite""\nProgramele VLisp sunt distribuite f\343r\343 nici un suport din partea autorilor"))(js_ldc21"0x6E00:C206"(list c2))(setq c7(- 1)c4 0 c3(js_ldc21"0x256C:C207"(list))c6(js_ldc21"0x3A9B:C208"(list)))(if(< c3 a)(setq c4 1))(if(> c3 b)(setq c4 1))(if(< c6 23)(setq c4 2)))(Defun dfn_var_type(v391 / a r)(setq a(type v391)r(cond((= a(quote INT))1)((= a(quote STR))2)((= a(quote SYM))3)((= a(quote REAL))4)((= a(quote PICKSET))5)((= a(quote ENAME))6)((= a(quote SUBR))7)((= a(quote LIST))8)((= a nil)9)((= a(quote USUBR))10)((= a(quote EXRXSUBR))11)((js_ldc21"0x3898:C225"(list v391))12)(0)))r)(Defun str_path2unix(x150 / rr)(setq rr(js_ldc21"0x0ED4:C226"(list x150))rr(if rr(js_ldc21"0xDA52:C227"(list"\\\\""/"rr))x150))rr)(defun str_trimr(s c / nc a b)(if(= c nil)(setq c(chr 32)))(if(js_ldc21"0x6C65:C228"(list c))(setq c(chr(if(< c 1)32 c))))(js_ldc21"0x08BB:C229"(list(list c"1 str"s"")"str_trimr"))(setq c(if(= c"")" "c))(setq nc(strlen c))(setq a s)(setq b(+(-(strlen a)nc)1))(while(> b 0)(progn(setq b(if(/=(js_ldc21"0xF2C4:C230"(list a b nc))c)0 b)a(if(/= b 0)(js_ldc21"0xF2C4:C231"(list a 1(- b 1)))a)b(if(/= b 0)(+(-(strlen a)nc)1)0)))(setq s a)))(Defun dfn_sysvar0str(h128 e128 / rr a b c o s)(setq erlsp nil a(js_ldc21"0x975D:C232"(list h128))b(js_ldc21"0x975D:C233"(list e128))o(if a(js_ldc21"0x4E37:C234"(list a))nil)c(js_ldc21"0x975D:C235"(list o))rr(if(not c)"h128"nil)rr(if(not a)"H128"rr)erlsp(if(= o nil)"E128"rr)rr nil)(if(= erlsp nil)(progn(if b(js_ldc21"0x1C2B:C236"(list a b)))(setq rr o)))rr)(Defun str_lwr(siru / g)(setq g nil)(if(= siru g)(setq siru""))(setq siru(if(js_ldc21"0x975D:C237"(list siru))siru g))(if(/= siru g)(setq g(js_ldc21"0x624B:C238"(list siru T))))g)(defun dfn_ent_assoc(it00 listscan / rr fw ff ye ys yl)(setq ye(quote ENAME)yl(quote LIST)ys(quote PICKSET)fw nil rr nil)(if listscan(progn(setq ff listscan)(if(=(type ff)ys)(setq ff(js_ldc21"0x48F2:C239"(list listscan 0))))(setq fw(if(=(type ff)ye)(js_ldc21"0xDC92:C240"(list ff))(if(and(/= ff nil)(=(type ff)yl))ff nil)))))(if(/= fw nil)(setq rr(cdr(js_ldc21"0x0DC3:C241"(list it00 fw)))))rr)(defun dfn_ent_assoclist(a020 / rr ff ye ys yl)(setq ff a020 ye(quote ENAME)yl(quote LIST)ys(quote PICKSET))(if(=(type ff)ys)(setq ff(js_ldc21"0x48F2:C242"(list a020 0))))(setq rr(if(=(type ff)ye)(js_ldc21"0xDC92:C243"(list ff))(if(and(/= ff nil)(=(type ff)yl))ff nil)))rr)(defun if_string(s386 elseuser / rets ttf)(setq ttf(quote STR)rets(if(=(type s386)(quote SYM))(eval s386)s386)rets(if(/=(type rets)ttf)elseuser rets))rets)(Defun dfn_ent_type(obct / rr)(setq rr nil)(if(/= obct nil)(setq rr(js_ldc21"0x7DA0:C244"(list 0 obct))rr(js_ldc21"0x112F:C245"(list rr nil))))rr)(Defun dfn_ent_dxf02(e643 /)(js_ldc21"0x7DA0:C246"(list 02 e643)))(Defun dfn_dwg_space(/ r)(setq r(if(=(js_ldc21"0x4E37:C247"(list"TILEMODE"))0)1 0)r(if(=(js_ldc21"0x4E37:C248"(list"CVPORT"))2)0 r))r)(Defun dfn_cmd_echo(v143 / a j o rr k l)(setq o"CMDECHO"l const_listecho j(js_ldc21"0x6C65:C249"(list v143))k(js_ldc21"0xF7A6:C250"(list l)))(if j(setq j(boole 1 j 1)))(if(and(> k 0)(= v143 2))(setq const_listecho(js_ldc21"0x8CA0:C251"(list l o 6 nil))))(if j(setq const_listecho(js_ldc21"0x9D29:C252"(list l o(boole 1 j 1)nil))))(setq rr(js_ldc21"0x4E37:C253"(list o)))rr)(Defun dfn_cmd_isactive(/ rr a s)(setq s"CMDACTIVE"a(js_ldc21"0x5C09:C254"(list s nil))rr(- 1))(if(= erlsp nil)(progn(if(=(boole 1 a 1)1)(setq rr a))))rr)(Defun dfn_ent_dxf08(e180)(js_ldc21"0x7DA0:C255"(list 08 e180)))(Defun dfn_ent_dxf62(e164)(js_ldc21"0x7DA0:C256"(list 62 e164)))(defun dfn_color_ci2cs(k124 / r i)(js_ldc21"0xEB25:C257"(list k124"int""dfn_color_ci2cs"))(setq i k124)(setq r(cond((= i 0)"BYBLOCK")((= i 1)"red")((= i 2)"yellow")((= i 3)"green")((= i 4)"cyan")((= i 5)"blue")((= i 6)"magenta")((= i 7)"white")((> i 255)"BYLAYER")((and(< 0 i)(< i 256))(itoa i))((< i 0)"BYBLOCK")("BYLAYER")))r)(defun dfn_ent_locked(n170 / rr)(js_ldc21"0xEB25:C258"(list n170"1enam""dfn_ent_locked"))(setq rr(js_ldc21"0xD248:C259"(list 4 n170)))rr)(defun dfn_ent_modify(c238 e238 n238 f238 / a r l m c e n f g w)(setq c c238 e e238 f f238 n n238)(js_ldc21"0x08BB:C260"(list(list c"int"e"enam,list"f"1 str")"dfn_ent_modify"))(setq r"")(setq h(if(js_ldc21"0x3D9B:C261"(list e238))e238(js_ldc21"0xDC92:C262"(list e238))))(setq m(cond((js_ldc21"0x46CA:C263"(list f"*a*"))(js_ldc21"0x2ABB:C264"(list(list c)n)))((js_ldc21"0x4DFA:C265"(list c n)))))(setq w(js_ldc21"0x0DC3:C266"(list c h))e(js_ldc21"0x63D7:C267"(list m w h)))(if(= w nil)(setq e(js_ldc21"0x2ABB:C268"(list e(list m)))))(setq g(js_ldc21"0x4219:C269"(list e)))(if(js_ldc21"0x46CA:C270"(list f"*U*"))(js_ldc21"0x1717:C271"(list(dfn_ent_dxf_01 e))))(if(js_ldc21"0x46CA:C273"(list f"*V*"))(progn(setq a(js_ldc21"0x7DA0:C274"(list c e))r(strcat r(if(= a n)"v""")))))r)(Defun dfn_var_ispicks(t176 u176 / rr a b)(setq a u176 b(cond((= a(chr 99))(js_ldc21"0x0F31:C275"(list)))((= a(chr 102))nil)(0)))(setq rr b)(if(= b 0)(progn(setq rr(if(=(type t176)(quote PICKSET))t176 nil))))rr)(Defun dfn_var_isliststr(f158 / a g rr z)(setq rr nil g rr a(js_ldc21"0xAADC:C276"(list f158)))(if(> a 0)(progn(setq z(js_ldc21"0x3163:C277"(list f158))g(if(> a 0)1 nil))))(setq rr(if g z nil))rr)(defun dfn_cmd_canceld(/ $rr cx dx ch)(setq ch(quote INT)cx"CMDACTIVE"dx(js_ldc21"0x4E37:C278"(list cx))dx(if(/=(type dx)ch)0(boole 1 dx 1)))(progn(while(> dx 0)(setq dx(js_ldc21"0x4E37:C279"(list cx))dx(boole 1 dx 1))(setq $rr(command""))))(setq $rr(js_ldc21"0x4E37:C280"(list"CMDNAMES")))(js_ldc21"0x8C12:C281"(list))$rr)(Defun dfn_ent_dxf00(e171 /)(dfn_ent_type e171))(Defun dfn_var_isenam(g176 / rr e y)(setq y(quote ENAME)e g176)(if(and(/= e nil)(js_ldc21"0x3D9B:C282"(list e)))(setq e(js_ldc21"0x04D1:C283"(list e))))(setq rr(if(=(type e)y)e nil))(if(and(= rr nil)(js_ldc21"0xCDFD:C284"(list e)))(progn(setq e(eval e)rr(if(=(type e)y)e nil))))rr)(defun dfn_ent_dimtomtext(a323 ctype / $rr ion bsc cip cfr $wx $nt)(asserte"A323")(setq $rr(list nil RTKWORD)cfr nil bsc nil cip(type a323)ion(js_ldc21"0x624B:C290"(list(if_string(dfn_ent_assoc 0 a323)""))))(if(and(>(strlen ion)1)(= ion"DIMENSION"))(progn(setq bsc(cond((= cip(quote ENAME))(js_ldc21"0xDC92:C293"(list a323)))((= cip(quote LIST))a323)(nil)))))(if(/= bsc nil)(setq cfr(js_ldc21"0xABFF:C294"(list"BLOCK"(cdr(assoc 2 bsc))))))(setq cip 0)(if(and(/= cfr nil)(= ctype"l"))(progn(setq $ux nil)(while(setq cfr(js_ldc21"0xD227:C296"(list cfr)))(progn(setq $nt(js_ldc21"0x624B:C297"(list(if_string(cdr(assoc 0(entget cfr)))"")))cip(if(= $nt"MTEXT")(+ cip 1)cip)$wx(if(= $nt"MTEXT")(js_ldc21"0x2ABB:C301"(list $wx(list cfr)))$wx))))))(if(and(/= cfr nil)(= ctype"s"))(progn(setq $wx(js_ldc21"0x0F31:C302"(list)))(while(setq cfr(js_ldc21"0xD227:C303"(list cfr)))(progn(setq $nt(js_ldc21"0x624B:C304"(list(if_string(cdr(assoc 0(entget cfr)))"")))cip(if(= $nt"MTEXT")(+ cip 1)cip)ion(if(= $nt"MTEXT")(js_ldc21"0x0F31:C308"(list cfr $wx))ion))))))(if(> cip 0)(setq $rr(list $wx cip)))$rr)(Defun dfn_date_orace(/ a b rr)(setq a(js_ldc21"0x270B:C309"(list(dfn_sysvar0real"CDATE"nil)2 4))b(strcat"0"(js_ldc21"0xF2C4:C311"(list a 9)))rr(*(js_ldc21"0x864B:C312"(list b))100.0))rr)(Defun pp_topolt_check(/ a rr)(setq rr 0 a(js_ldc21"0x3ACF:C313"(list"C:Xpct"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C314"(list"C:Opct"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C315"(list"C:RapPct"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C316"(list"C:InsTopoPct"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C317"(list"C:RefCoo"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C318"(list"C:TabCoo"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C319"(list"C:AutoPct"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C320"(list"C:OptPct"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C321"(list"C:DelPct"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C322"(list"C:IB"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C323"(list"C:MScBl"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C324"(list"C:RotBl"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C325"(list"C:DelBl"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C326"(list"C:ChL"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C327"(list"C:Arr"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C328"(list"C:Detas"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C329"(list"C:HasPl"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C330"(list"C:Pll"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C331"(list"C:CotaProf"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C332"(list"C:MR"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C333"(list"C:MRS"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C334"(list"C:Red0"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C335"(list"C:SumTxt"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C336"(list"C:BoxTxt"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C337"(list"C:AlTxt"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C338"(list"C:CJ"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C339"(list"C:DelCar"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C340"(list"C:FormPlns"))rr(if(> a 0)(+ rr 1)rr))(setq a(js_ldc21"0x3ACF:C341"(list"C:NrPlan"))rr(if(> a 0)(+ rr 1)rr))rr)(Defun dfn_var_isnumber(k120 / a rr)(setq a(type k120)rr(or(= a(quote INT))(= a(quote REAL)))rr(if rr k120 nil))rr)(defun str_chrrep(siru numr / i rr)(js_ldc21"0x08BB:C342"(list(list siru"1 str"numr"1 int")"str_chrrep"))(progn(setq rr""i 0)(while(< i numr)(setq rr(strcat rr siru))(setq i(1+ i))))rr)(defun str_chr1(a151 / rr a2)(setq int_chr1 0 a2 nil)(if(js_ldc21"0x975D:C343"(list a151))(setq a2(js_ldc21"0xF2C4:C344"(list a151 1 1))))(if a2(setq int_chr1(js_ldc21"0x73DC:C345"(list a2))))(setq rr(chr int_chr1))rr)(defun str_chr2(a151 / rr a2)(setq int_chr2 0 a2 nil)(if(js_ldc21"0x975D:C346"(list a151))(setq a2(js_ldc21"0xF2C4:C347"(list a151 2 1))))(if a2(setq int_chr2(js_ldc21"0x73DC:C348"(list a2))))(setq rr(chr int_chr2))rr)(Defun str_path_2c(calc / a rr c92 c292)(setq c92(chr 92)c292(strcat c92 c92)a(js_ldc21"0x7B63:C349"(list calc)))(setq rr calc)(if(= a(chr 78))(setq rr(js_ldc21"0xDA52:C350"(list c292"/"rr))a(chr 76)))(if(= a(chr 68))(setq a(chr 76)rr(js_ldc21"0xDA52:C351"(list c92"/"rr))))(if(= a(chr 76))(setq rr(js_ldc21"0xDA52:C352"(list"/"c292 rr))))(if(= a"")(setq rr nil))(if(= a"i")(setq rr nil))rr)(defun str_replace_all(olds news larg / d l)(setq d"1 str")(js_ldc21"0x08BB:C353"(list(list olds d news d larg d)"str_replace_all"))(setq l larg d 1)(while(> d 0)(progn(setq l(js_ldc21"0x4F93:C354"(list olds news l))d(js_ldc21"0x2F42:C355"(list 1 olds l)))))l)(Defun dfn_cmd_ech0(b166 o166 d166 i173 / a c f rr)(setq a(js_ldc21"0xB77E:C356"(list b166))c(car a)f(js_ldc21"0x1C2B:C357"(list o166 c))rr(js_ldc21"0xB77E:C358"(list(cdr a))))rr)(Defun dfn_cmd_ech1(b167 o167 d167 i173 / rr a c)(setq rr nil c 0 a d167)(if a(progn(if(=(- 1)a)(setq c 1))))(if(= c 1)(progn(if(js_ldc21"0xF039:C359"(list a))(setq c 0))))(if(< c 1)(setq rr(js_ldc21"0x1C2B:C360"(list o167 a))rr(js_ldc21"0x2ABB:C361"(list b167(list a)))))rr)(Defun dfn_sysvar0int(b127 c127 / a b o c rr)(setq erlsp nil a(js_ldc21"0x975D:C362"(list b127))b(js_ldc21"0x6C65:C363"(list c127))o(if a(js_ldc21"0x4E37:C364"(list a))nil)c(js_ldc21"0x6C65:C365"(list o))rr(if(not c)"b127"nil)rr(if(not a)"B127"rr)erlsp(if(= o nil)"C127"rr)rr 0)(if(= erlsp nil)(progn(if b(js_ldc21"0x1C2B:C366"(list a b)))(setq rr o)))rr)(defun dfn_ent_flags(q170 o170 / rr e)(js_ldc21"0x08BB:C367"(list(list q170"1 int")"dfn_ent_flags"))(setq rr"O170")(setq e(js_ldc21"0xF039:C368"(list o170)))(if e(progn(setq rr(if(=(boole 1 q170(cdr(js_ldc21"0x0DC3:C369"(list 70(tblsearch"layer"(cdr(assoc 8(entget e))))))))q170)(js_ldc21"0x7401:C373"(list e""))nil))))rr)(Defun dfn_ent_dxf_01(y166 /)(js_ldc21"0x7DA0:C374"(list(- 1)y166)))(Defun dfn_var_islista(z150 / rr c)(setq rr(- 1))(if(= z150 nil)(setq rr 0)(if(js_ldc21"0x3D9B:C375"(list z150))(progn(setq rr(js_ldc21"0xF7A6:C376"(list z150)))(if(< rr 1)(setq rr 0)))))rr)(Defun dfn_var_isvlaobj(variab / rr)(setq rr(if(=(type variab)(quote VLA-OBJECT))(VLAX-VLA-OBJECT->ENAME variab)nil))rr)(Defun dfn_sysvar0real(q125 r125 / c a rr d)(setq erlsp nil a(js_ldc21"0x975D:C380"(list q125))b(js_ldc21"0xE634:C381"(list r125))o(if a(js_ldc21"0x4E37:C382"(list a))nil)c(js_ldc21"0x5C96:C383"(list o))rr(if(not c)"q125"nil)rr(if(not a)"Q125"rr)erlsp(if(= o nil)"R125"rr)rr 0.0)(if(= erlsp nil)(progn(if b(js_ldc21"0x1C2B:C384"(list a b)))(setq rr o)))rr)(Defun dfn_var_isdefun(a111 / a b c rr)(setq erlsp"A111"c(type a111)b(quote STR)a111(if(= b c)(eval(js_ldc21"0x066C:C385"(list a111)))a111)c(type a111)a(type dfn_var_isdefun)rr(if(= c a)1 0)a(quote SUBR)rr(if(= c a)2 rr)a(quote USUBR)rr(if(= c a)3 rr))rr)(Defun str_pathtype(c170 / i a c92 c292)(setq c92(chr 92)c292(strcat c92 c92))(setq a""c170(js_ldc21"0xB93D:C386"(list c170" "))i(js_ldc21"0x2F42:C387"(list 1 c92 c170))a(if(> i 0)"D"a))(setq i(js_ldc21"0x2F42:C388"(list 0 c292 c170))a(if(and(= i 1)(= a"D"))"N"a)a(if(and(> i 0)(= a""))"C"a)i(js_ldc21"0x2F42:C389"(list 1"/"c170))a(if(and(/= a"")(> i 0))"i"a)a(if(and(= a"")(> i 0))"L"a)a(if(and(= a"")(= i 0))""a))a)(defun str_pos(g147 s163 s160 / p i k rr s2 w)(js_ldc21"0x08BB:C390"(list(list g147"int"s163"1 str"s160"")"str_pos"))(setq p g147 i(if(= g147 0)1 g147)k(strlen s163)rr 0)(if(js_ldc21"0x975D:C391"(list s160))(progn(setq s2(strcat s160" "))(progn(while(if(> p 0)(and(<=(+ i k)(strlen s2))(= rr 0))(<=(+ i k)(strlen s2)))(setq rr(if(=(js_ldc21"0xF2C4:C392"(list s2 i k))s163)i rr))(setq i(1+ i))))))rr)(defun str_replace(o150 n150 l150 / d l)(setq l l150)(js_ldc21"0x08BB:C393"(list(list o150"str"n150""l"")"str_replace"))(setq d(js_ldc21"0x2F42:C394"(list 1 o150 l)))(if(> d 0)(setq l(strcat(js_ldc21"0xF2C4:C395"(list l 1(- d 1)))n150(js_ldc21"0xF2C4:C396"(list l(+ d(strlen o150)))))))l)(defun dfn_ent_layer(e244 nL45 / r o a s1 s2 q e nl)(js_ldc21"0x08BB:C397"(list(list e244"enam"nL45"str")"dfn_ent_layer"))(setq e e244 nl nL45 o(js_ldc21"0x4E37:C398"(list"CMDECHO")))(js_ldc21"0x1C2B:C399"(list"CMDECHO"0))(setq r(js_ldc21"0x9BA0:C400"(list e))s2 nil s1 s2)(setq s1(js_ldc21"0x0175:C401"(list r"=")))(if(= s1 nil)(setq s1 0))(if(< s1 0)(setq s1 0))(if(>(boole 1 s1 5)0)(js_ldc21"0x0670:C402"(list r"UT"))(setq s1 nil))(if(>(js_ldc21"0xFC47:C403"(list nL))0)(setq s2(js_ldc21"0x0175:C404"(list nL"=")))(setq q(js_ldc21"0x2D6E:C405"(list nL"7"))nL(if(>(js_ldc21"0xFC47:C406"(list nL))0)nL"")))(setq s2(if(and s2(> s2 0))s2 0))(if(>(boole 1 s2 5)0)(js_ldc21"0x0670:C407"(list r"UT"))(setq s2 nil))(if(/= nL"")(js_ldc21"0x9160:C408"(list e nL)))(if s1(js_ldc21"0x0670:C409"(list r(strcat(if(=(boole 1 s1 1)1)"L""")(if(=(boole 1 s1 4)4)"F""")" "))))(if s2(js_ldc21"0x0670:C410"(list nL(strcat(if(=(boole 1 s2 1)1)"L""")(if(=(boole 1 s2 4)4)"F""")" "))))(js_ldc21"0x1C2B:C411"(list"CMDECHO"o))r)(Defun dfn_var_isrint(d171 / a rr)(setq rr nil a(type d171))(if(= a(quote INT))(setq rr 1))(if(= a(quote REAL))(setq rr 2))rr)(Defun delete(vqw / rr)(setq rr nil))(Defun dfn_var_isreal(g148 / rr)(setq rr(if(=(type g148)(quote REAL))g148 nil))rr)(Defun str_trim(siru cara / q)(setq q(js_ldc21"0xBA4A:C412"(list siru cara))q(js_ldc21"0xE727:C413"(list q cara)))q)(DeFun dfn_layer_lock(nla c / r co f erL)(js_ldc21"0xEB25:C414"(list nla"str"(setq f"dfn_layer_lock")))(js_ldc21"0xEB25:C415"(list c"str"f))(if(js_ldc21"0x46CA:C416"(list c"*S*"))(setq c(strcat"T"c)))(setq c(strcase c nil)co"_.-layer"r 0 erL r)(setq erL(if(= nla"*")(- 2)(car(js_ldc21"0x26ED:C417"(list nla 70)))))(if(= erL 0)(progn(if(js_ldc21"0x46CA:C418"(list c"*0*"))(command co"_OFF"nla""))(if(js_ldc21"0x46CA:C419"(list c"*1*"))(command co"_ON"nla""))(if(js_ldc21"0x46CA:C420"(list c"*L*"))(command co"_LOCK"nla""))(if(js_ldc21"0x46CA:C421"(list c"*U*"))(command co"_UnLOCK"nla""))(if(js_ldc21"0x46CA:C422"(list c"*T*"))(command co"_Thaw"nla""))(if(js_ldc21"0x46CA:C423"(list c"*F*"))(command co"F"nla""))(if(js_ldc21"0x46CA:C424"(list c"*S*"))(command co"Set"nla""))))erL)(DeFun dfn_layer_isexist(n149 / a f rr)(setq erlsp"N149"rr(- 1)f(js_ldc21"0x975D:C425"(list n149)))(if f(progn(setq a(js_ldc21"0x26ED:C426"(list f 62))rr(if(=(car a)0)(+(js_ldc21"0xB118:C427"(list a))1)0))(setq erlsp nil)))rr)(defun dfn_layer_islock(name o149 / i d r a n c z)(js_ldc21"0x9BCF:C428"(list"O149"))(setq c o149)(setq n"dfn_layer_islock")(js_ldc21"0xEB25:C429"(list name"1 str"n))(js_ldc21"0xEB25:C430"(list c"1 str"n))(setq n(if(= c(chr 76))4(if(= c(chr 70))1(if(= c(chr 53))5(if(= c(chr 61))255(- 2))))))(if(> n 0)(progn(setq a(js_ldc21"0x26ED:C431"(list name 70))z(js_ldc21"0xB118:C432"(list a))z(boole 1 z n)n(if(=(car a)0)(if(= z c)1 0)(- 1)))(setq n(if(> n(- 1))(if(= c 255)(js_ldc21"0xB118:C433"(list a))n)n))))n)(defun dfn_layer_make(n327 c327 / r a b n c)(setq n n327 c c327)(if(= c nil)(setq c"?256"))(js_ldc21"0x26D2:C434"(list 0))(js_ldc21"0x5622:C435"(list n"str""dfn_layer_make"))(setq a(js_ldc21"0x26ED:C436"(list n 62))r(car a)b(js_ldc21"0xF2C4:C437"(list c 1 1)))(setq c(if(= b"?")(if(= r 0)(itoa(js_ldc21"0xB118:C438"(list a)))(js_ldc21"0xF2C4:C439"(list c 2)))c))(js_ldc21"0x6444:C440"(list))(if(< r 0)(command"layer""n"n"c"c n"")(command"layer""c"c n""))(js_ldc21"0x6444:C441"(list))(setq r(boole 7 r 3))(js_ldc21"0x26D2:C442"(list nil))r)(defun dfn_cmd_chproplay(u141 s141 / s a x r f k n)(setq a(js_ldc21"0x26D2:C443"(list 0))s(js_ldc21"0x975D:C444"(list s141))x(js_ldc21"0x8F02:C445"(list u141)))(if(and(/= x nil)s)(progn(setq n(js_ldc21"0x96D7:C446"(list x)))(js_ldc21"0x6444:C447"(list))(command"_.chprop"x"""_LA"s"")(js_ldc21"0x6444:C448"(list))(setq f(js_ldc21"0x5085:C449"(list x s"*")))(setq k(js_ldc21"0x96D7:C450"(list f)))(setq r(if(= k n)"all"(if(< k n)f">")))))(setq r(if(= x nil)"u141"r)r(if(= s nil)"s141"r))(setq a(js_ldc21"0x26D2:C451"(list nil)))r)(defun str_trimleft(s119 r119 / a nc s c)(setq s s119 c r119 a"1 str")(if(= c nil)(setq c(chr 32)))(if(js_ldc21"0x6C65:C452"(list c))(setq c(chr(if(< c 1)32 c))))(js_ldc21"0x08BB:C453"(list(list c a s a)"str_trimleft"))(setq c(if(= c"")" "c)nc(strlen c)a s)(if(>=(strlen s)nc)(while(=(js_ldc21"0xF2C4:C454"(list a 1 nc))c)(setq a(js_ldc21"0xF2C4:C455"(list a(+ nc 1))))))a)(defun dfn_layer_search(l174 j174 / t1 rr t2 c)(js_ldc21"0x08BB:C456"(list(list j174"int"l174"str")"dfn_layer_search"))(setq c j174 c(if(= c 0)70 c)t1(js_ldc21"0x428D:C457"(list"LAYER"l174))rr(if t1 0(- 1))t2(if(= rr 0)(cdr(js_ldc21"0x0DC3:C458"(list c t1)))nil)rr(js_ldc21"0x2ABB:C459"(list(list rr)(list t2))))rr)(Defun dfn_var_enam2pick(e126 / rr e f)(setq e e126 rr nil)(if(= e nil)(setq e(js_ldc21"0x0F31:C460"(list))))(if(js_ldc21"0xF039:C461"(list e 0))(setq rr(js_ldc21"0x0F31:C462"(list e(ssadd)))))(if(js_ldc21"0xC9F3:C464"(list e 0))(setq rr e))(if(= rr nil)(setq erlsp"e126"))rr)(defun dfn_ssg_removelayer(x141 y141 z141 / k r)(setq y141(if(= y141 nil)"0"y141)x141(js_ldc21"0x8F02:C465"(list x141)))(if(js_ldc21"0xF039:C466"(list z141))(setq z141(js_ldc21"0x7DA0:C467"(list 0 z141))))(if(js_ldc21"0xF039:C468"(list y141))(setq y141(js_ldc21"0x9BA0:C469"(list y141))))(js_ldc21"0x08BB:C470"(list(list x141"1pick"y141"1 str"z141"")"dfn_ssg_removelayer"))(setq y141(js_ldc21"0x624B:C471"(list y141))z141(js_ldc21"0x624B:C472"(list z141))r(js_ldc21"0x4DFA:C473"(list 8 y141))r(if(/= et"*")(list(js_ldc21"0x4DFA:C474"(list(- 4)"<AND"))r(js_ldc21"0x4DFA:C475"(list 0 z141))(js_ldc21"0x4DFA:C476"(list(- 4)"AND>")))r)r(js_ldc21"0xD0B1:C477"(list"X"r))r(js_ldc21"0x57BE:C478"(list x141 r)))r)(if(/= pp_topostrat_startup nil)(pp_topostrat_startup))(prompt"\ncommand.com: Q2[enter]\n")(if(=(type dfn_cad_asysset)(type pp_topolt_allcolor))(dfn_cad_asysset))