沙漠骆驼工具箱源码-3快速选择
文本操作1，界面和代码如下：1 界面：
http://data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAMoAAANICAYAAACG9XDmAAAgAElEQVR4Ae293+s1z5MfdJLNkuAPlJhERFZZJXHVBIxyPklYvFFx0RvRrBvRCw9hIX4DinohXkjYq3nwyovdGFeMuygGzFGz+X7V4FUEQ4wXnlVjQEmUwLpkIQrv/2DkVd3VXd1d3dMzZ86cmTP1wMPMmR/9o7peVdXd867X5Qc/+MFY+//Hf/BL4x/6/p8Yr9//4+Pf8f3/YPxN3/+j4+X7P2f/TQaH1wHoMnQaug0d/4Uf/KkqDoCPiwaS/+QHvzT+k9//xfGHDBiHVwgzbH2GHbr+j3//F0bovoaJAih/5Ad/0jyHeYzTGgh4mn/7B/95AZYEKD/9/f/stAIyy9tnec8iJ2BBepYAFHiSswjB+mmg6NEBYILBQkBBXGYTdVOeHuU50zN/4/f//TBnIaBg4s4C+PUWnwdZsEzseC4j8usEBoANeJULloBtdetcimDA7x9vYANLxxesIZvg+gVnsjqfrAgj2HCxwT/f4NuY9485YQS7kya0fqGZrM4nK8KIrXadb+AN7PPGnDBiQpsnNJPXSeW1+sD//E+Ol8tlvPzMSQUqlhZXl62V/b5pwuqD+fM/M15+4jJeLj/+fKdQzk/84f5yfvpHx8uP/WT/803F+8MO8D/9M7E8lL9Gv5r1moFZXSfXkPdrGqUo2ZLGPg2UnxkvPwbQNv5LIMg2/syPj5fLj46Xn2fF9WXNAa4s7xmQUVsu46XWVlnPh53/8G/5zeMP/Qv/dDRWHf3D8z/8m//WWe9M4mDyAa1h5DEaytdSTL7Xo3BrAUVVMK/46r2fc15ReicKKSVwGEATRwIIy2qhlz0xUEjpf+NvGn/oD/xTXYqP534Yz88E1yQOJh/QgCKv0SBOKEBt3sIKwOBZcpRzoSL0aoGhdc97RFl2r3FgA8B9JiD6upaGbSynGqjleHzgeVD+CbD0PrdI5xe9lAyGolTJ/Z8bLz1gyt+RllgqbP4cfstnGWyksKygbNGVo6Z8eXsTb9LR36KN3I4Jg1K8573VyYECHZ0CwdT9p/X86QIwuLC2msLxwM8NoUgxf9yV+xM/3j9BLzzKRFjE7UuOuVL73+wpvv9moDBo2CDkXoo8Xy1E9G2XIWXS9yXy2u6dGhhq11fRbZbPKoXlFpgLx5FDkCmvIN9h4DHAAIAWEPndBCheKYJC8Qqacl0qTlBEb/3JW0lP8EagoC+yrQxauejA7Q/AForM9+aMBct2J8ccFPnvVfRZ6+s6BXvl0ZQ5UV4xaFpjcE0+z0AhhahZSVGmfJfeEQqOe6Q8aKsoC8oTlM97jx8Ty8BoQ6JYCtACGEV9Sf9yLyXanDxXuc4KHtopnmNDFIBRq4v7ttbyuWhDTx9WfIbB8Rv+wd/uJu4Tc5dVdHyVQiAEGsxMUXgQE0VrCJjKEEocgOLL1xRFDgABBUqOUBAbn6I9PUBhoGl9CfW80aNohuj7CjDQD8hAyp3HQi2jMSah3/t6hkGC42o63OrrepXkFqvhZbQGaQMpgYJ38t+yHFaOAA7F8gePkk3qGYA/4UG6NVDQr+CV/HnwEGyEMsWXfaf3hVHgkEyWQfKRz+xL8efo4bE9Cg2cV86f+Em30ScHSg5scc7vZbvwBTAq4MNzsJTsEUJbhGLgXgCK8FoABQOF27U1ULje2pHaUwOK4lFQDoGH+1mRW62+HV9nkOAIcOW/5wBu1rOzHu4RIA9q7vqr71ZAgucLoIjFAS2ESICiWEwNFFq79goUrc/sPXKwSw9N/WHQKHLRZLDDazVQ1K6vqturFsYgwYCSReOVpsrg8GDmg8yDpAEF9/i93GMFoLCVVUKaPMTh37KsHqDwe/lRzgu4H9o8ItyryEbeZ7lqcuJ7BYhEKFyTo6xj5+dTYJi6/7SeP10ABMyDFeYHfvBZoaFMxUBmK1xsGXPFy3+zQnPZstwAFEX5QhsBHhGSaQpCz9ae8R5QBYRSL5XPwK2VWXvPX5dt5/6jXJaBBqBkXLSwjdvEnmbq90QbNTmudK0XBL3PLdL5RS+xANhr1AaKn+MBhdJPPcvv4DjXEqpA8QoABYPCoX5qDyuIogB7BYr01GxAJHCk7Ojcg1qV+RQw8vuKnIr61n/m2N96MUCkNe8SGgt/IiTjspYARSoOtVMAgoFC5XNbFCu/OlDWV6AuA8cGavY4vam9PO58/NM/S18Bz/3AkcD1W37zusvGXQLnhm997AUKAxdWFiERKboSbiRAYWVQrO6nAIXkohiCrcfxmfr+9M+uq/BL2/IRQFna+U9+j73JrLkUGw87FrgoLnyy8pyhb5in8fzFQLKeNzKgmPU0HejQARNSh5DO4Imsj23vY0AxoJgOdOiACalDSGZt29b2DPIxoBhQTAc6dMCE1CGkM1hM62PbaxpQDCimAx06YELqEJJZ27a1PYN8DCgGFNOBDh0wIXUI6QwW0/rY9poGFAOK6UCHDpiQOoRk1rZtbc8gHwbK19fXqP0PH9jxh3Z2jB8dmiwOJwtNx1vXGB8XPqk9DKDYP5PAkSXwve99b8R/6HJNz2vXGR8GlCNrgLW9SwKbA+VXfuVXRvtvMjiSDvziL/4ieZNNPQoEVHNRdl2f45lc3isXA0pl8cEU872KuTf5G1AMKObdO3TAgNIhpL1ZN2vP9t7OgGJAMY/SoQMGlA4hbWLBH9/G727fxseS9ty/jbdv92XvyvpQzm2FcmSZH3JuQNnJQD6+fTdebvfF1v3Z99kY3G+X8btvj8Xt4HI+7WhA2QIoj/t4v+f/b+N3393G+8PF21DQ2/2J2PvhvEGPgj7U9vj2ffs2fvuWt9X9/na7jJfvFnq9LeT8wjoMKC8UblNpEWoFpbuPt8ttvHe15T7ebt8U4OnKff92Gy+X78ZvHpDNNnXV/wSYD1y+AeVdgyeBcr+Nl0L5v42375Qw6H6bFRohJPuuNX8hT1QDHsDcC+DPBpAB5e1AeYzfbrnFv4+34G2kAsLzIER7jI8ilJMeBSD7brx9AwDk+8q5BGwhi1o7lHKKdz/rGQPKuwaYFRQWneYFYgLN95S2PSZDqMd4v31HK2g8/2mGW1TXbfymAk+Gh5+l+E2ZKHI3oChCmSvE6efv47c8tPqGyTwmzpgcP2gCHcqhUGzJChi8U1wgCOW1+ugXAfRlabTbloshRwNKS4lWu6dM1v3KEyvoHQru63PzCuFhOtpBy8NquPY1fj3Ksh7fbrT3Uq7GyRBOnHtgc3u7QNjR7qOUY0DZZDAVoOT13m9+efgxfvtOWyp+NFe6MM/BhmWh+FBw/AVltkczG4yLvdxnhGwGlFxhX/K7AyhfWPa9j1+YM3QvFUclnKv4yfMPbck5W/EyoNjfo7ze/fcA5ctNwr/Dcm4ZKk21MVH8DrAnz6uLB9mKlwHFgDKlhM/f14HyuH8bv90FKMib5EvF0Wu02pEovgFl9U9wLPTqUKqWgvbdE0B5YPn2pnx8CAv+3fjdd24+MXfS/DxQ8iXibGnYPIp5lD5l77PsalnkKS4EAppw53shmCN8x54EQHLfVHXtg3igPw2UYhnYQi85luZRtvIoAIIMs6jex4hvscpP2z1YLm4lq+pdHtjngBf6jlLozJnb9AGL23ejz2nylTOpSJ9+bkDZBCilN8InKPhKtwqCr6/xgU9Qcu+jtRfff9X2ULTnUfa9s2wP6G/B45V9+XSQoH8GlIoinWHwrY/9oDegGFBWXyH6RAAaUAwoBpQOHTCgdAjpEy2k9ak/7IKsDCgGFPMoHTpgQOkQklnfedb3E+X1FqCgUvtvMjiaDmyWzZ4rsqPj2TA5HFMOL+dHMcU4pmLYuKXj9nKgoAL7bzL4BB2YOw/rZtzqojSyh0wCO5cAe1cDys4Hypr3XglsBpQj0ZFZW40+T+qAXCJ+uUcxWjrbk5irZHt53oBim462O9+hAwaUDiHtxapZO97nkQ0oBhTzKB06YEDpEJJZ8vdZ8r3I3oBiQDGP0qED5wTKYxivt6H5N+stS/YYkAJV5OTqELQrD1kZe+p9LG5bq93Ne/dhvA3tv+Nvvs8yQHrYrj5Oe6nlcp4uu6sv3Kfsb1Lmvjt7Z34vy8OP4Vrk4+3uPHJcXa6LgHK/XcdrSA1U4zkZxtu1zBdcb999HEKZzynIU3IRSkXlXHsMwlR7H+NwvYzXoTRKDyX5eF1GU/VM3/88j6JyFN7G6zVSIizmTLzfxusFAycyvTO3yHB1dQiFSQYO72bJspP7tfc6rq+l4F+PweVA7qiT2u69UJEcHB73NpRJwyEDDUBUr/Y8jMCVPF1SBwydJ1VaS4ZT5XweULRBRqgVBkhkbtSerVyDMgJsg5pCCGVehLfILZRLwt1KTzQ1UM37jUyOuuV1IWCifAx47Tg4L5r3PTc4eV3FbwBIC++S8YHsHuO9eE67lsv5db/PBxRSqtx6uXBHc/FflO39Ng40J0EokIVduI9rSnjglPs+DoMgBoIVXjC/abL5asqNazdneYt+wbJX21sqGxmJXHFJuSOvC5QbYZLsW+rpEGpW5l4KUJycZVucgWOwTrOPyXefPz8ZUB7kylnYrMi34G1SgT7ugweIuA6g+ecfFErEkK5p9clT1WPu4t1HRam8x3sMQyAfku86pS5j+viM837TXJAwHjAAMCqi/8HjlpwtpNwiLEXYFMPUgbwuyy62B2RHzuNHD8d1yxDXXRuCAbhWvLvW1uevnQsoiIWHYRykNS2s2bRQYd2dEs1cJQogK5UsKgmUwytVa07zAIjztrJVz6+nv6etMdK6YuFh6MtWGYxAqrwA7a1oY9oWAkwxBs5zpwYN16QHU8oJIF7/3gcCBRPALLQa3CRyGLAS88hCIdBXi9CoIWx4GALIzVm6eXMOWPJUkRKr2phnJM+F9rl5T3rPhSdMc5fe61UeeN05XpLLLUMrGJQuGRlQnBD5rwi2WR5WlKXFmYhJuvQwQREd/yGsOxSHQhA/kUfINW+J2FnIa2WpkxR6NlBAPpRZ2AVlSDDRnKIShmpckPwu7XeIkCv1jm7lqipjyBtASYyVkxcm/rEsGKmsv3KsXnz+kR7lNkXvJjgT3QSUrWJ61EKUAJJkEP2AJvsksSwoNMKIfJWIFW0pUEjBAsihXBr/Y2wHrSbVJv53r9C5N8bz8MgKFyS3P58X3TGvEauDzX5DwQuAY4Ur34dxHovr3Pp4TqAEzsRhvE6BKlgqH7dfUyWIA+YmyZi8ynCDJt1eaZoKUyiLVPDauYjb8X7NG4Q+1Mpx13OFj32b9x76KT1Is9/Iri+9uroPxp7F74d19qe3/T3PnRQosO7YF2mEXWIw3NzELRFTuCOspROys+ZSOTThNxVmEVA4bBk6vElb2dHeRGFF/7W+yGvpezwXiytvzX77evNJP2Sez7VozIIHne6PbOOz56cBSrHUi7i4NbmGojzcwoDbQ/EDk1tuvwI2BRIMVFNhlgLF7188603QvlTh+xUxec/3A9ewSALv2uw33dfnHjL8ojqSeUx/+54FCd7/bKC0OBPhTfw3VTJUmhZqXCxw+yiNlazMKjcVZhFQfDiI+RJ5yFpY2KdUicJnbW/JRX68yH1EWewlMMfhpd58t/6Lw2C1PqzADW6OtNL3bK1+tO59HlDIU1wIBOo+gPcAbuA8DVx13qEpmPuYEcvE8QNH7bnyGiuROiBzgUL9iAqIMqGw9C3arP2P2M6lQOH+kOHwVl8Che/jiFUs+fuLNnVjG5J75NE5RE7nfslzKsgqZS589vOAAgt1vZY76vT9UIsz0W2w1b0LVmJuyzYa/eAUQGFF4OSAPaEFveM+81fb6svkRHOYh6nfV7HCcBuulc9d+LnWkTx3ajh0oPg9GlGWDK+C8vs2yXY7730ZL+jPDZutmOC3v14I5Yn6ll77QKCUlgScifjeSlUsL0S5OkXC9KsvtIdCA/PsoDQ28vzXs/X2OS+GDdN79+fleGfGd2W1L3trSgZw4CuHmmxQHj4UpRDXewWEupgX8m49ZBz2pjBG+GpiInwEiOA5V/qbl17gnAIovcKw50ojYzJxMjGg1CymXU/nEieXhwHl5ApgHqPPixpQDCjmOTp0wIDSISSzun1W95PlZEAxoJhH6dABA0qHkD7ZUlrf+rzlpkBBZfbfZHBUHXg5PwpXYMeUD9DkcUx5zPXC3QnwTCGOqRA2bvq4vQwo/KfAdjQJHFkCbDgMKEceRWv7yyWwGVAkJ56dG0fikXRg01WvbbKw9C33zXWf9vy55WpAsX0U23Ds0AEDSoeQzJuc25tg/A0oBhTzKB06YEDpEJJ5FPMoBhQDinmUDh0woHQIacqjIOmE+9vvCtkNUrhO/M2+rIOSvxVJ9lyWFck/It8pz3fMF+kzxhD1xAryL/u+vgc8PVBc9sF24ompgYjZVfT8v7jfmzHf1eVpJTgJAykTX4sZGFvton6FXFguOUVMeM0pSpH4ek7bkBDwOVlxm5GlZZ5M1ld+bkvP0YCS5cntEVr+TASKS9XKyd7cczp48jLy37kiuSRzncqCDCg9qY8WWPO8XXm7e3+jnJ7smr3lvfq50wMlHbCa5YUFLsl9mC7OMdc6K+1Yp8AgxZkSY2bJqcFM6RM4d5WvW2SZp+R71Ry8e+OL1MGdyj19RmMRmJLdq++fEijI88VhCNGnUdpO5J7iuQYPXJ+SNz0KMkCiXFEnhzt5Hi9NeWTZrAwIq1KvFdu7K77IRmb6IHchF5IR8U7W+sf93P54SqCwwuGoKWe83wJKpJcrPQrmE476AOVHpUYYJn+nA661ZR5QZHl9Gfapry/ji5TtEecwHoGGvG/OFcdElLMgdFxajgGlGSu3gNIzYMgOKTIjIt1rg4+FgCJCLFhYCUL2Si2wBUUgT+ao+Pg9/ViGlKEMVsQn+CKLsnz2fabcQIbO3LOW7/TI+rXPGFAYKJSqM0/n2VZsDChlak/CB8/ziBUrSkCNFKDealICcZ3iAGWt51HQ7rrnKhmuppRsRb5ID+B7kHtGPsvg3Nnx5EBxtAmYQyQcKGGQOoByy+ngEPI4MNyJX95RF5DVBFAarFjrAMWFd/vki3ThIOggZF8LLsog/ykAb3f/hEB5jHD3NKG+Irt9a5nyOaBwCIHVLMxTpHLwPXmk+0+GXvvhiyyVGP3jvZNEFhMGRMroXecnBIoj1+Qd7mTACkvWBxTwNsb4X2Gvxb7G4LhYmFxHG3CtLepkPnwJkCqjzMivvRfqRPgze58lekoK3RqeMdQj5Zlly8/7Sr/nlinLf/H5OYEihJoPWDrIfUBJlV8oVKgH5YDyoD4/SeuNAGgpPNirahPh1nvz5yi+PbD8oHmYZB+O7ad+KR6jlLsLy2gpXfl8pyafra4bUHhSGZRaDnIfUCY9ip+o61a8tcmpr3qR9xrcEivK1MDyEqAs4Ytk7pdsTyXZRyGmMGzQuv4SCdIsFjQ5Zq85N6CsAJRJj0IW9erYuu7z9g2aCq+C2ylK872FoRd/F0fHDkUmIiNe8cvaWnoUVnDsT82T0RZexYDyaqB4rkWiggZg/Eab5gW0AW8qfKZ88v3me3OBsogv8jG2PkWpA4UBs6/jSYHi2XQ9b2HqEb4cpRux7E7PK6JC+tW0GyjZ3FyELGoeGnmw9Mbisfx5ilO8x1yN7+SLFMAGUPRQdF4/pXF45flJgeIHg76yre8MI8Tg1bHaIOTfXbmvfP0qWG1S2piEp/X4nf1aOULxyvfy79Z8n3nO0HjXcV6+kC+ysrma9mFfgDk3UKrKsq9B2rMCnaVtBhQDi/0pcIcOGFA6hHQWq2n9rEcSBhQDinmUDh0woHQIySxt3dKeRTYGFAOKeZQOHTCgdAjpLFbT+ln3nJsCBZXZf5PBUXXg5fwoXIEddaozk8ux5DLX8xqH4/eONcAGyHXG62VAeTlnmFVgEthAAmxoDCgbCNuqOK4ENgPKkTj7rK3GMSl1YNNVL+NwrC8/znXn9vy2sjSg2D6KbTh26IABpUNIZr23td57lLcBxYBiHqVDBwwoHULao4WzNm3r5QwoBhTzKB06YEDJhNTzd/I1ax65HDNrh79Tr6Tt0coyDsdMftkYaTJ79TUDihwETic0O90oDywS5pVZ5Ck1T56NRdZbnDNfI5eLI1/ry3lFubdCnbUke8bh2AswA4pQUqT4ocyLPql2rxDlc5SGJ8mhCwWvZ3qR78rzPJ2PcThKo7H9uQGFgZIlkeas8FJ5u87hlaRHAkdKkm6oni/YOBwdAFqJ87rGgMd0xaMBBcKEcntOkzgQSBo9ndfrK8upG7Pau9xeQ07jAK9V1OUVRMlaWSSyA3mRcThuvgBhQFFBwq7dczFC2ROvwPfLY6nYDnCpVynfA0BpLpNN+svyWkCR5brs8F0U1RMJ+YhOQrHOWnujoZFtyc6R0tU4HDOhfH2Fz0X39q0XQh14kiGhlotcJ8i4frlciWzIZVi/jWDdbeUNLhV7JlByD0SkqbFN8FjG4VjqWBdAFbD3vndOj0J5eCspR2vCVBJVa0J+GiireBR99S20d26Sbqy4yXkXyWiaEiPUJ2WKupEJn8NMEKlmfVbfk2W84fyEQGlnWX92kHqAUiMA0kKZsryp0Mt5MONwXNfrnBAoqQDTlaY0xOEwpxbnI5l1MXkvQiXPEsz0dQ0CIALKk6EXr9ZpAAtGYLZH8QsewfK7+U/OAhDKr1h89I8z2CdGgeaJ85fQp+pb874BhUOAyuA2Fa54R5uPaNdSsPKAJsrjy9bqr30BYByOulxZvs8cDSirAkWL2/uBog2kBhR+rhbC4X7rPeNwnA8oA8qaQFFDmimg1D4vcWEdiEVTjkgf7jVCuJcBxTgcR/zdPBuq3mN3uiJeH97b8jA6qoU7UgBNy5yEXjVA1K73WbX++tPymu+pgE7flzJw556lDHMtYiOb3lsyDkcn088BSjaBlhP0XqroOuA+ACjK0jjtQWHTsLoZ215drMtrCrDvuW+h11ToNUzttzhLW6ewm9jTSLxSqQRNz9B4t3jPOBxnh0zSq54eKFIYc88RWtBOffPzFnwGMwW2EiAc7uDrgJ7PX9K2g/uxUqdxOC4CjAGlYZVT5asps10/g5wMKAaURRb2DOCQfTSgGFAMKB06YEDpEJK0LHZ+zlDTgGJAMY/SoQMGlA4hmRc5pxeR425AMaCYR+nQgU2Bgsrsv8ngqDrwcn4UrsCO61CjmRzfK0cZkvWcd3/rZQP73oE1+a8r/x5wyGe6gcJfD9vRJHBkCbDBkSDoOTegHHnUre2zJbAZUCQnnp0bR+KRdGDTVa89/uFWj+u0Z2wfxYDSsYZuQDGgGFAMKLbh2KEDBpQOIZlHMY9iQDGgmEfp0AEDSoeQzKOYRzGgZEDZA4ejBCalfL330dHJ94jK7taTprRObJSWty5YuF8tZoBX1j+3bAOKBApy4FIKnvvCcETPuEKpeQKf4gyFQ/4t0E4sAIpxOM6Qs9SByrkBRQgGKX72wuGItKcEWk7uLROCI8VShbWLLCXeLWga1lEcgJ4Tbc+1yvJ5y+slFI8Fw98K7HrDcQccjiwvUiIQHKlpkOC1kHiuRmjkuExeFtI0skwiFzL3YerYAopxOP7Kr3QLckrQq95X6elchsfJsGdFDkfwQd5uYACDwin1U8bGa4Oz/k55xoJs7sOisO0x0SeZSTOcEzsZ8iQLsDTKQb4yyjIpPSXOPcuZbiTW8YpBPopRr92z0EsFCQ/IdhyOlEwvn4vAenvq7Qd5vEpSO3XAAbRMcdXnwH3SntAbh+MX/cHhph9F1hD7juuUP3dHHI6aDGDdb2AnnuCOLN4NIHsUZEfBC5A1HyiUa847QB93Z+PBRwfEuWRCzlNexuv1St4HIHxZmFgzDAuun9Oj7JTDUSo7ZYIHQG6O5mGeMumrb6H8xjwjPJMok3E4nhAo7SzruqKwFZ0+Fsmx/VxDxtwqAdADln+gnMG3IVIqIOSat0Ts5jbG4Tg9VnPG+oRASQVIG1/aEqyfZIKqOpmgCku7JoejttITQKK1jybD5cqXcTim4zsHDK1nDShTtA+3y9gfhztrLr0Hr16l16YG05P2gGa6tUSczVuMw3FKrsvvG1BWBQrmBrfxLrzOXKC4uYlbIoZ3KIHSt5pVhoBCSWbPUfy7WCG8DbSa1m88PKOwX71jq13uo7h+XRZTZIj+JfJf57oBZU2gqAqoeRll8GiBAatLYh8C5UkF8ytgtVCQlRDHlwDFOByNw1EqmTxvKlxiuWqAqF1XwJKUh/vRQ7l9lH5SoWa7VUBPtcc4HE+7jwJAUAiwWw5HxxiMfZT6Jyu6gq8KFPJk6Sc1tAdlHI5dX5rMTle0x2+9ylg5Vbz7WzgcHyPqXbTR6L1SARTjcOxSahlNyPPTz1GkMOaer8bh6L+JAu/iDZPle/uTkul2GofjtIxSgzj1vAGlmBfME+CUgO3+Z8jTgGJAeSokOYshMKAYUAwoHTpgQOkQ0lmspvWzHiYaUAwo5lE6dMCA0iEks7R1S3sW2RhQDCjmUTp0YFOgoDL7bzI4qg68/BMWrsCO61KkmTzfI8+54Wb3Jyw2oO8ZUJP7a+T+MqBwXi87mgSOLAE2PAaUI4+itf3lEtgMKEfi7LO2Gsek1IFNV732+Jn9XDdqz59zT8WA0rGGbuA4JzjkuBtQDCi24dihAwaUDiFJy2Ln5/QuBhQDinmUDh0woHQIybzIOb2IHPfPAAp4QLKsibKT1fPHQH+jnifARsKJSV6UjQD2DKdktd9PtH0t7sVV+nV3OQbKJIHrA/szgOITvhGt3BwlIG6UnHbAMVpNZ0KcolNwWehTigVcG3x2FZHortZmtA8pgSQ5T+3Z5vX7OFQZuuYpFYxIkyKi2Y5YF7LErEGfR+2RSQI7659rRD4GKF+U7lMnKX3I7ItSkApQnOCR0tQpOjFDzVDUPE1Q/nvOAOFdAv+Q5pvXwkUAACAASURBVNSaUwY/u5aCo5zngesyWc4qx0cNquFR87INjudSzd0cAcvymToeCiha9vhScKklh6JfEqvsksrRe8ONhElgIKsE0h6ZO9j/niHsHBj576kBCfeRzTHkMfbphyTI5543skO+g3sRcpkDlFSOHemciPC1luT8w4ESlCgoicZ10iFEfj/zKIi/Zdb5/HdZfynwdEAncgBzO4qjQgREbZUgLuveJ/ciSIiGgvWLaPOK62BCvpbsXmQ0YjpZyJiSeQu5UXJzlEdGDWFxR2gr3p8a20N5lLwzmsDwDE04EZNPeQIJFEzsrzdaFHBeyk8Umb7tGgdKtgMZHTlMw3uONzF6teK35zWRZaTnLlcxz5HgRcNiQ6Yw6XsKcEBIpCjD4vCJ6ocnQP96FTHmT5btzQ2KuwcPns8Z035R28V8i3Qg/IbnvRKIpMGT9S49PyxQSGAtoQIElxaDrqQjAJvuYyRud56PwHXzuUiWnQs6H3Cs5shByu+j3QyCvCymiJD3U0X4cm1s5vwVirUL7kUNKLXE5W2gkAEMY+JkQWxkQzo3hYxj2CrkoRiNcgz05w8JFAIJBAY228JrwKp7XhECSyMW9uHMMAwFUEIdJFxtsJ1AUyCUCpADpwoUJMIOoUMcrLQd/jolzb64uVeVbAjP7oF7UZMdrqUGxSlsDSjIxcxhFcvAGUIySrTMLzwvVkGXbBc0gHQwoIB6gHnYIbBHyquOjhI44lyjpZhuoi/IeoQXSRVUG2w3YClQnALEPZ0SOGV7vBJUQpm0HV5JaED74nAiI5IK0JjU160r+uGYx2R7irJlPeG8lB3K4NW8KCv0rQYU2W9+LvPM3ui9ak/lUEDRVmdAx5aHOjFkygXshIxBdy4bq14iJs6AEkOgcrBZqRKg0ErLfSQuk9vdgRYWH0uqPo4ugaK1MV6Tisl1zjpCgUK4EhV+Thms2HgnaQ8pp5BfAEdsv+R4cXUCDHFRgsrmCKAHKJ5MSY556Iv3tFcqr3cOJdtaPz8UUIJAkgGR4UVdoZN3H95N80D7bPJOod0KTToJ9/MdWm1JFUMCJYZZrk0oj8GG55wVjdeSNiV9igOWKGblmXY5AIdXTHgTaRh6ygP4xTt5e+i3uF+2JR0TtyMf+4fnSTZURtujYGULIABHvVxAiVsEbrn/5rcEaFtACWfLNqbt0e5/AFCclcMnJxiEaD2nO09hmjrITrkwd9FWjaQgA1DwOUWw3C4EBEd8eBaghFcR4An3GgqbK2bPO8UzVPe7uBcZKD5sLuaUMVy+1zwKcbtwyI2x0eY3vDjjjQLoyFecp3wEUJx7dxa7UJKGElaB4kMolItPP1plOqD4VbNQF5YpU8/DZbwFKG/lXgRQsPqYTrZZHnx0izKaR8GCjQyjpoCiy53rWXr8CKA493/1LlkKdcKrcOgVFBzPi1Alj8mT51zZwaOIe8neh7iOQdoeKOxp787jNlfJXJ9o8056R9GHuoerLS6wR5kYC6pDA0r+ngGlablVSwCXfBV7JTyZ641LC6A4peJ5BddJIV3Y1EoHTgMKv6cd5z5fV8y0HVpdXySPuAKIZ7AXQR9aVmWkLbnHuua3ZwZQivGI9cb+GVD6gYL4k2jcNHeOb7mcMtBkDkDylG9hh1vyGYbQyn1Ppa6mcOiCECIDTJfic3202uaWWePAa8oQr6H8WfMuWGYf02PeFvosvIK7776BCzKaCI24vQDKvK+Hp4DilsfBV4m2TC82OKAglIuTeH9O3+5Z6DU6zsSMi10qQH6O1SwiDY3LkTzgOGITC4pE5daUSpSpfYVMn7BoE1TxXqiTvoCdERpSG1OPEMoqyncfe9ICRBLTR9CV7+KdYdbf3sz2KJW/+dHaAg7L6X0Q/4GoJnNl47GspyWP+r2PmKOsJQwrp64oZ5eNAaWwzKYsZweF1n8DigGlf254YlkZUE48+JrltGt6RGFAMaCYR+nQAQNKh5DMyupW9kxyMaAYUMyjdOjApkBBZfbfZHBUHXg5PwpXYMfXUKWZXLeV69yQ0zgcv7ftABkg9iHvlwHl5ZxhVoFJYAMJsKEyoGwgbKviuBLYDCiSE8/OjSPxSDqw6aqXcTjafsTcsGUvzxtQOtbQ9zJY1o73GRoDigHFNhw7dMCA0iEks+Tvs+R7kb0BxYBiHqVDBwwoHULai1WzdrzPs50SKJStsDOZApTTUTvM+1t3Vak55epewFltT+Pv0jdsO2Wv78hloMp65XZ+JlB8koFEgCLxQFfmFCFo+XydrMdzM1aSbVNboJhZviwGbZpRxBPqZAkUHO2Bkn3E0+ilZeC5NB1qIo9WzjKkDVKzzfdY9P3xReb9XvL7M4Hi89kmSimyuEvF7xFa+bwjOk3eJZKdiSwiKlCU9EW1/FaiD0ndAtTJ9Vo59Lz3Gsq7szOtZGXMT2mkA/DZdiSyyNo4997HAgWkQDL/lLTcMgH3oCTezoVYAgUkNjKLPjIcVvLhygHaBVB8/jKkKUISPPJGLrm1y7McU6BGD6V7uFxO4Xcm+3AdXqw7lVKWOV/KkcrRwSXrWvP8c4GSCFZmvO/jVZTEqgFYnvbMKRTH8Q4keXZJHiRZTsyWP4w3T8CqgrDmCYICOo8WFVmEY5TJ3YNWLUfJtCifU8DMnDMyYXk9BBVtyUNCn2U+8fTMJJA/C5o/ovFjMItyZR+TcX4deE4BFHCoyEFWlbMh8OrzULCEcbg9UCgnURIfIhYgk4or2xWA0q6HQaonIa8AhTJmwqAomRapn3oSQa4rl3G8PpNhgPuLvpJsAZAVFlK43IXHDwOKsLSeVFSzfMFDeCsWmLcqQtSAQmlbibDGWb4L5UAGwWqefZ2VGgpaAsXF4cJaok211KAvBgope7aAQArfARSAcrhzX/no+lwYgoqcGVwuUfqFkq7DsKBdamrYyXK4Hc8fPwwoUSDqRFBaai3EqAiegDK4HLkD5iaBHg9hF1Kegk/ShWBg8ho0C0jKdhmvyINM77i2op2FIsl2yjYlQAFAy7AEcyXkHA4KXvC/1DzK4PkwEVJmillrj2zbLvgi4/hH0K1zzYCSDLYi1JAhH5YehJsyDFCUrlIeAffqwxAKK1wo8wxQbpc8HMraoyq4eyZJcg0PFpKVu0m0XAjRQ7hSVgWnYwLs8nldmdG+pXyRvXXMf+5UQEm8TO5REDIJJafk1QiVbvAgcQk3DeX83onPrI4B1rOxO89D+xp+H+Xurfa7gJJk7QegBFCKybsKOEXZ8FzYJ4oKrwNCed/v7TBIk/HqbYMYwzn1Tj17IqB4ZWVBZkDJyX+cAjvvoc1RnGAzC85l50eui4/ivlOGJXMUjU4ha4+qXNkzaAuek0BBGCU3HNVyNEVH2d7LwZsUYZ/2jrgG+Yh3EqDwBqm4P6Xca94/DVCc4meDEqwflozzMCY+Ow8oqWdyE1Mf81eAsnSOQsqcLKs6Dxe8hargFaBkCoil56Boc5SeQPcuvsg4ZqHtwig9c+1DgcJ0bM4j4NOPYoKNAcXyI+YNnsQmhg2pwANQijX/NPS6YxMP4ZckG5IbkwpQQtlyQFUFxyan3ERd2aNkQEmUag5QmHSpVZ7sq/dotCydyTfZRyGmMCxUgGUN9OcuzJ3mU0nHMulX3o7G748DiptbuJUn/phRzj2WCEpVZhKqYp0TYWckqHOAUkzUc6C0KeSonyrglDarzwkFSwAqrid9xXU2UO/ii2y17bl7nwUU8hLppyS830G85H6Pg/c60qObJzh22lSoy4GSlpN6BHcPZV9zmjWynkoo2K2wvl4VAA4oxapXwwPkcwXV2OyCLzKTdwHk5fc/CyhVwXgKNmxC+lALYRe573DMPmgMvIvgFkzBFxVFsc7VNuQeIQJFnaMoHgUKyytCsQ3Z4KPdtGF5pdCyfF5pswIorO5hT+Y6xTu5K77ITBatsZh57yRAeUKA99t4E5P+VEH9Spq2m60NhFIWvv8Kk29+B8rHm4Z8jVZ9ys/00/aIfnoLX8bwbuM0DUdrYRx7H7l3hDp2yhcpZFWVy8JnDCgLBbf2QFh5AuQ7HBMDyg4HxUCzP9AYUAwocb/EZFGVhQHFlKOqHObZomczoBhQDCgdOmBA6RCSWdZoWc8qCwOKAcU8SocObAoUVGb/TQZH1YGX86NwBXbcB7WajcNz4zA3/DQOR+NwHM8IupcB5bhkZNZyk0CUABsFA0qUiZ2ZBAoJbAaUI3H2WVuNY1LqwKarXsbhaPsRc8OWvTxvQOlYQ9/LYFk73mdoDCgGFNtw7NABA0qHkMySv8+S70X2BhQDinmUDh0woHQIaS9WzdrxPs9mQFkVKMg5haTdGw4oconN4KNsgY3IlpS/1W+9U9xDXgAkD99SBquOoT52BpSWkL0SaoQ9OsMWkjEoaYbUOvbHdUipk5LUqrrSFODI+kfZYhrpj6be3+N9A0o2yMkgNfJowfqWnmMOUJSs8a22tO5p5K6t5yv3XI6xPONKAyxVQyJp72Re5WG8EqdMo8xK25JxecMzBpSW0DuBQqChkGUeULSEeKwQOtehY8TSPJx6bQBrlQZoXVHnAgXPx5xkec5lpQ5kyjxoWGZAmQLKtSTrgVIOgtw0epcSKClNhLSujXON6xDtVFKyMrC0o8vweE/oLNxzOuCIEawgJ/JEpzmbFoyIACFAc8nCTkpvG4ABNrQZ3qo1Lm+4Z0BpCT3zKDK1KPIa84S1BZRcgZdzHSIpNyy4Sz6nehDKbM+JwwFwxapTf7UE3zUSWCT5yxi4MpmRXERicgJN+A0GryuBqAxVa+3b33UDSjboiWIrQImhRhzMOUB5hutQy4uctJeTZAcrHtuYPqcBBd5QC9PaQAFTQJJJ03sarMTJOmmCr6SJlc/s+dyAMgEUYtxiRi3kLhbnzJU4Cyhrch0mbWc67xo45HUNKLg2ByguNSt7VVJymSTdLzDI1K33lZax3wEoA0qibFKZ3KoUyEmZjQpWkT2KPJ8HFIW0KPNccxWBrHUtPEo4J7l/JVCoDIRL5CHkvKbtUWJb8VyUTwDOQVe5Yr+czAwoE0C5DZG2TYJDns8FClHBhcTfCHnk6hErszwKWvCEYcstCCSEO/I+0Uc4YqN04HOgQMnj/o8DHs/BOoDiM9+rcxC6B8ImlGeT+RF/QJ8ORhxo/lOxo/09CgHg/gKgECuVV0x4k5o3aIBYyhqKXWMLk8/F8xQo6Cd7Sn7GrWJhEt8GCla2AALQaRAHjQQqneMedutBn+GoNo64RGwepaqMbgn1gbjb71ZLLyLPZ3sU1EnlLuA6VNq7HChgyKp8ckPzDYC5AhTPi+LoKWoLAb6f7K0emNfIsC4aUwboXo8GFEXxaLDwzRKWVytAkZttRJRK3zaV+yj1gXch17PeBOUvA8p18hsxt8qmAQV8KjKMmgJKe3m5LqP9AMmAUgHKffCDWwDF8RTKzbY40L1Amc91GOsolWcZUOKcpFX2V82jJHIzoLRk2J3X63BzFGK88goJplr/JWwMt1oMVRMK6Jmw5MQXK03EUDy5/1GCBAP0UqDAUEzOoQwo5wRKYi2jckagxGskIB+vO77DClD8M7SzrpVP98WEF0utrXjePz9F/a0PYDqZL59xeyRY7mWaarkfoj2PzcqEQJUn9cQnaaEXeRV2LaUAnUIdzqNoiuw5FKUnyPuLFaD0/gZch/j+a9Li58B2X/e2lR/v9G5iNp5TNh5zuR3ht81RKqA4wuBZGzMD8MKxNKC8ULimyNsp8qtlbUAxoFQ3il+tfEcq34BiQDGgdOiAAaVDSEeyfNbW14R7BhQDinmUDh0woHQIyaz0a6z0keS6KVBQmf03GRxVB17Oj8IV2PE57kCT3z7kN9cT8ob8hU9qBdgA72OAbRzWGYeanteuMz4mgcKfsNjRJHBkCbChqQGidt2AcuRRt7bPlsBmQJGceHZuHIlH0oFNV72O9jfzNVdq18+3XGxAsX0U23Ds0AEDSoeQzIOcz4PkY25AMaCYR+nQAQNKh5By62K/z+dhDCgGFPMoHTrw2UAh4ppjJlyb47UoXzDoIDoGPJRb4X4scw8v9B70t/Kv4nLcnivz84EScvy6Aaf0oT4jfeQY8WQ5GUEnK018rkH+E9KH9mYceTOHozciATgEMqQdmsqD3AkcSnPkM9LweSbfUHeV4g7J97QM+7350zrb2mFgTggURRFquavmZpmvlVMZCKQ/uqxELjov93CFvcsrdJJDGFQXS9qYyYL6WuNHacg5pquVSm9AWTdeVqjcZCrUYNGyQQ3XGwMYnpEgqJUjn5HnjfLTlKVSScrzVgK8KvmQKhuAQnrEJzwMZJEAw9PhJalYfV8acpBAofMlXJlS5gvPP86jPDjxGo7I8k6chAPRusHqLgNKg3aBsrT78EABymocjshYKfsmzqu0D7JtpCCC1o5lQ4SooGRArq/7+OCcyz4DZdXjIeG2aENxTtkv0wz3A3gePb1eYmgAlCe5MpPyFoKhVcbHAUV2FqDIQ5JlQCmtuKwnnCtACff84C3ncKy0AUp2QT8BJJk4u/J8aEdKFRFyLXOuYfII2vygXW7s71Q2SlFO5lGkh1zKlRnbIep5AkAfDBQXNuRAcYOQWeda2s9sACeF3wGUZzgcy/p9H69O6QHC3pWvxIjAWwklcvOJkjOlrL+lhGhbJ9AyOaP+nK8FdccwDGVXUteKfsxrb6svX/SXuZt+Pbxm45tlkUW8jKCWA5sUpzpVB6Gm4MkAYpWqpNJ2dGzektfKSQYPsXpKBEoZ45N4vj1ood9oH0IWJhJ6DOOQrfKFZ/M2kBcCgzAza8U6yZh48Onv49lK6BXCvXlAWZ8rM/an3of+Zz7WoySDDYXyivgMUG6FMmfK0AWUtTgcUbdbwaO+eoAQV0sCCkUZMJFnIHiwsSeC1XYsv6584o7XJuBJHZkc/D01zE3ec22j9r+AK3MNgHAZHwoUrL/fxrtY2bn71Zw9AGU+h2Op7OgHT7QlUKjsiaTdBKYgm8c4gOraZ9tnigtWEEzuQUlB86AqLYUOFNlGLk870pi8gitTAaVWf8+1zwQKKwEfhcCcUi2Zo2iT00xBOj0KZYnnGDuz6D2D9oV+CTAkQGG+FHE/KROrW/A+QTaO4mEYsOp1K3kY/T4KVrXY6yTlkWwzObC8O+Xhln1fRAHIbXny+IFAwaD5SW1QhmiRyXqBck4KrjagUOIwnwBQ0uXOO3aU5YS1Vo6si8/x7G0Bh6NSRw4UB8TL6MKmtK9Y3aKJO8smhFW6sqvy4j6Eo/4ut0ObmEf5v5grM7QxlUOsv+/65wFFcpSwMghhqXGzonwkyAIo+UpLpiC1ckT9cYDwLpS5f6UKYdUNIWS2p5Lso/j9i9sd30O5kIkm/Ph8RLCHRY/CipL1xbd5NlAe2KvBooL7zgvvp33EIoBYxuZ9GzIcbpFD1inHaxlXJvfvueOHAeWervrMAUoxUXefeUSPUqOjEwPQDZT5HI5QPjfJFvUJZc6XwR0gM6WUgC1kswwo+IIAntVR6yF0yz/OhCeWnw2lYxT2bwqgrMGVWcoqGqp59z4MKFnnE4/g7rn9A2WOMgmUrGypdHzeA5RFHI5tkMIC60BptLmQzRyguC8cHG2dBo6sXtRFy9GPhGWZFhA4DBbeLnqUWr/R1ty7Z3XymKx0PCVQipgZCq4AhcKGMEepDARWi2jD8upWh2rP+1Wl1TgchQJ0tVM8X4aV6JsDSs7DSGGdujfzCCSwXVYaHsyvnkUvrcs0AiW772XY5MrM+7nS748HSh6uYHOONx/DAGMAZNzshUtsvaqSZAOI572nSJdXN+Bw5FWu3nay4vSGXnd4DKW/XM6cI8I0rKIpRimMxSKuzJXa1+jLZwOl0XE5MHb+ekU7uowNKAamdKnc5KHKw4BiiqEqxtE9wNrtN6AYUAwoHTpgQOkQ0trWyco73pzIgGJAMY/SoQMGlA4hmQc4ngdYe8w2BQoqs/8mg6PqwMv/wpErsOM61Ggmx/fKca636mbcsoF978Ca/NeV/8uAMpsDzF4wCexQAmxwDCg7HBxr0n4ksBlQjsTZZ201jkmpA5uuehmHoy2zzg1b9vK8AcX2UWzDsUMHDCgdQtqLVbN2vM8jG1AMKOZROnTAgNIhJLPk77Pke5G9AcWAYh6lQwcMKB1CSqxahfsweaZapuMeTP+u3llryvmr/N1+We5jRMIH7W/8y2drngBlxMTl/e/Vynv+OtMA1rNRPl/HM/08EVDezJkI8FC2lxqlgcx91VIKPa3QLCWoZJ2hpHhKxn7OiJlkr5kgEgKYkdFFKr5LnSqS3wmDgswrMuUSA6cgKCLyImToBFNBzgrQkttz904ElK9xUVofMZhBGT07VfitPaNdQ36rSmZImRGxXe7zQMmVMtRX5PrqUa4sJ3OR3cWXQbm9lAw4Xk55m/LfoY2aXDe4diqgwGLWckrpnImed7BFwSbvEc1bXRlc8j3doraBIijlfL7jmH8LCbsdx4lmhZPcyKRQZf4ul5IVGe1joux+xewBimcXqLECo105wPLfG4Ch1eePA0qel1d33VmmSCK/KWnsisGbGCxnBdNwIwrfJfmOCg7liXW2gSIte+ZRhHKXVjh71itk5D/JQC3Kiu2WdWvnU0Bx8yFtXoake2F8Aqfk1QHfAyXh5PRGibggNwy7IIuPA0o+wMs5E6EAmDdIa54BLMTLiMfBxqUpkr9WhF1Q4q2BAooHjusVEAEoCukozTeqfWsBxVFKxHlKPRdyAfLCo2T1TBitXA+e/f3xQEE4UWY6dEqaTE4VwVepp8OzPvNhlWAnAqfwGFBKkTGRw7KoVPHddJAzBRfhZKFsPk1qyIyJTPOi7QXHYsWj0CS8GjZlCiwVPKnPzxGJOiPvW2o0qL+yHGpzVk/oR17Wa35/PlDAclu46TWE3gopssEiS50ms4ZSy/mSA1IP8LK2zwFKolwZ4HBvBlBiSATAC94YH0LBCxEdIAMM7cRz/DtpC/rk+DZpvoV7DJSwuhbroTnV3BSySX3Z+HTcOwFQ1uJMjMIlJa+sXn0FYp74PFtk0Lw5ZSk9mvQ4VD5nfy8GsQQKL6tOehQ5J0gWBRByQdn1yTy3P/Vs3L96e8Lz3lDo8xQPisBs7A0IAyX0P6snXOd2vPZ4CqCQpQwWqFTSMKBB+GKSKVe1wmTySmxZYSLKzxCJzyXxFF9QSBHfQ+kwn5HUcqhfAgW/c48T2phbfaFQ00CRygQ5ZNQJedleHk8BRU1eLtvhabEhOxojz58i+uX6bkDZ4BMKoRSw6jVvEICSDmRQUn+/VMj689qycw4KlK9d0+ZIed3ytzx3bUa/W+GOAhRtMl8tw4drUp5SwQESTzIbZSjnSe59Co3le5Bz/hshtJjTxfLqsl/zmXN4FAierOUCzkQFPKVCzhgsCkNKOjoNKOVAl4qPtrDHKttVPh/K9PIA3VuYN9Q8ylBy0YdyxByJroXfIAHK94zQnpSOL9B958DIfxtQZiiZorRhwCbvlYPU/27axlIh0/v1cuuK2wUURZFlWFS2q15ffNY9Q2BTyq/3xfW5aHcASikTPBv4JMl43QMZUWyPf88DRV008DyVAeCTY1+2Zapf+f2TeBS/mjTcHZENwgt19aVPoMWgdg0U2iCsd/ZOoXDZfQycs77Ym7gRN/wdyiTCEWpX8q1WxlocygQ4RNjFyj0bKNg0zbwjlxXqgkx5Na+2GevmZLwoQUpaeJS+sckVfK3fnw+URZyJ7UGZD5Tpr3UngcLsuV4B3Qpa3LCEQpTtqngUlBUWN7wi48vlmUBBfRz2BYUsgOI9VlJfKV+UJZfLyzlK+U6oMwHla577XKCszZlI5eHzCuwPpAraHDB6L7O6ysC2gaJT5+X1Ajzp5qq214NVJd6dz5QKSq5M5rG6h89tEkXGh6Ga8guggMmYv0PL25r/zoFCoE+8Y/pVBLUn92aKXPN6lv7+MKBswJmIkGDGAGkrV9pg0bJx19+jZMo9Sznqn5BQm4i/vqd8hH/5RF2+9yCe+Tl/M0PAkGUKlmBNXltf+zCgyMGy862V6ZPrM6DMssgGvk8GQ6tvBhQDygYbvsc3MAYUA4oBpUMHDCgdQmq5ZLt3fG/RM4YGFAOKeZQOHTCgdAipx+LYM5/tWTYFCiqz/yaDo+rAy/lRuAI7rkuRZvJ8jzznRg/G4fi99wyUAeS9cn8ZUPZDLmYtMQkslwAbKAPKchnamyeQwGZAkZx4dm4ciUfSgU1XvYzD8bOXUOeGJEd63oBi+yi24dihAwaUDiEdyfJZW1/jtQ0oBhTzKB06YEDpEJJZ6ddY6SPJ1YBiQDGP0qEDBpQOIc22fB/B82heRI67ASUBivE8OuXw6ZU4p3LPEUnplPSpRKra8z4/g3JmJO+QyvzKcwNKApRGcuzsuclBOTTPYyUfWEsGIk1RlE2tHFx3NBiOdUtkdFHLeb93M6Dkg98YqDKXLgbwc3keY8pSeFowiuW5tZAAzyu5KrcUKDElk0i4jaR7noOSAKaWY0B5y0TSeB6FBc9ZuchwpApOxqAIh7JnVAXPniFQDONDZKQk6kAwc3GKW7UcA8pbgBJDAzcAxvOYU0NkCg6vSaGS9ChZXmNVwUU5oAgc/P8b+GWQP/lGtBBgLg5eRS3HgLILoCDnbpqKFAODQQbZaXuQgiXMQ7jwmxNUTycGL9KqwvKKJNy4j0TWkYex1jahoGiHUL4iI2OnRxlkFkfvdUCcGtoi6oiGKGuHfy9JEO7lhPSrFOqp5dT6ud11m6PQQBnPY5yPQPmkgvss/Nn8xM1XxAqVquBcDsqAMcJc5zpervAk7j9yOfM5qMUp+XjBubkdICLI0zoNKN6iBUIb/1ta4ZrwWtcp6XQR13vhFwQ7np7t8eUUhUhBoWSpR5Meh8qvJgsXk2X0R1AozPcoKXoo7wAAIABJREFUrOyp4lDfxVxDl1f+LkK4NMx7gMKC5ye+rUkycB6PNx8NKDwAGPQQXpRKWoLik3kepYLLc798zgZgFlDc3sztJhiEPeEqeZXm6pkCUh63jY4GlCBoKIQn10EYwcoQ7s8brNJy19/Xlp2l92CQate0OVJet/wtz125KRDKa+l9nifRcwAKy6kVeiHk8vOZtA9MRIQ6PBvXcEvpJRbKn2W21tGAIgeCLKTxPOZzlEiYmoKGiId6gCJCKwYKjAPmI1eaj2A1zRsSFXB1I7MWEKbKMaBIoPiVrme9CYReWu7ewc6UUbSPlaw5qDIc8u/O53lM2xC8FnsQT9LEXoLaoyp4Wg6ei30QLGSSlEgtp1d2r3vOgBIU0S/jGs9jturFyuf2Uu6ZvC4XT0+nKngJFBgQvIN5Sfh/EUzBajnchvcdDSgYeON5TFeekuVhrMQNI7jgw55JAIvwnKqCl0BpekOUq5bzPoBwe88NFON5dN7jlvPIOwXHvgbtpqt7KHKX/j7ec7JSAlMsJ/9OrPpbLceA8oadeeN5ZCtZP0LBc/BMKCuITcPyOj+7xKNo5XB57zue26OIEKKuNO8bHGvTfmRvQDGwvMGr7wcAvcbIgGJAMaB06IABpUNIvVbHnjuep+gdMwOKAcU8SocOGFA6hNRrdew58yiaDnQTCTEjgCXp/lxF0hTkk65t6lFQmf03GRxVB17Oj8IV2PG9lGom/3XkP9dTdodeNkDrDJDJcR9yfBlQeI5iR5PAkSXAhsqAcuRRtLa/XAKbAeVInH3WVuOYlDqw6aqXLQ/b8vDcsGUvzxtQbMPRduY7dMCA0iGkvVg1a8f7PLIBxYBiHqVDBwwoHUIyS/4+S74X2RtQDCjmUTp0wIDSIaS3WbWnuCDhBXyKIZGA7m192bOcO9pmQOkQ0nzl2gEXJPUrS9Y9p6+PLMvKVCYW4l6cmZBiTnve/KwB5UUDQIne1qAvmMkFSTwjnPAaHgX8Ko9WQnFQN8xR8CfA9yJZzzdk8+dcBpRXDV4jkZuWlHstLsgUoB1KzWlSu+XQUWZ3WfMVdgtQaHUYUJ4Y1F1yQSYA7VBqA0rXYoYB5Qmg5JZnF1yQKwPlgblJshjQAb4VZZrL+F2/DShrDuoeuCDXBopPcRrzDutACRnv15TnjsoyoKw6GDvggpRACWGVSyOr5vul1apBTcAN613SVwAokjXrPoJW4nJJafTeZflfVa8BZVWggP/Ds3ZxuVJx+dqMI03Omawnf0/hgkyywQegNCbNE8/oQMn6mLfrA38bUNYeVCheSFaNJNVTlra1dOtYdK+3YSy8ATwBeEXyJWgJTLQlv5/314Bik/lXueF2uT4TPBQSSlvzBrnCVn6XFr3hHXyoFMAj2ICrbTagGFCqylFRytWeJ0v+Hi5ICtW8F4k0cA1wGVAMKKsp/mxguZDrWW+C9s/1KLHPOZVcBSwGFANKVJqKkswGQE85e+CCdAC7EdNuY8ULeySLVr30yfwjfDrTI6djPWOT+TXBsgsuSHBSOs7FLkMBj4LvwYQcaJPRfwQ53K5jupiA57PlYfDI+yXiuJBxLCBMycqAIhRkSljV+3vhgkRfiIr63hVOUH8IVPV9lGqf15DbgcowoCwerP1xQYLdePjg8OedoDWgLAbKZ4UW71TCI9RtQDGg9IdpJ5aVAeXEg38ES76XNhpQDCjmUTp0wIDSIaS9WDVrx/vmhQYUA4p5lA4dMKB0CMks+fss+V5kvylQUJn9NxkcVQdezo/CFdhxH9RqNg7PjcNcL2ccjt97TuCmsMeU38uA8nLOMKvAJLCBBNiwGVA2ELZVcVwJbAYUyYln58aReCQd2HTVyzgcbZl1btiyl+cNKLaPYhuOHTpgQOkQ0l6smrXjfR7ZgGJAMY/SoQMGlA4hmSV/nyXfi+wNKAYU8ygdOmBA6RDSbKu2lHvRZ0+JmeOjJX8Mt3FI6BfivbJ9j/E+3MvE2z6RRErj0CrnRffut/GGNLHd/XlRO2aMvQElEdabuRcpGV2aOiiCwGeR71KuyrMi2R2AR2mIusprKepjHG632UktKKOllm728SgBnoxRqy2vu2dAyQZBpiSNSrpgALx3mFWGUGTtPSSr6/Eq9eySyB4ZUxOt01dkxbyq7ZL5wdQk40Xy8WG8IfG4aKMmh3dcM6BkQEloE7J7r+RepMEvgAIPp2Syl8npQuZ8BrNMpeqsfQxxShIgKHMe6qkKThklNW9XB0qh0E8QLRVlZWPz6vunBMq+uBdFylOvjLebo3N4iGz0RHuXhEkARGnJ4SVcKlWXDI+yQPJ7yGSZsAQPVEYPKzB7nxxUX18SKNNhUz7XAgnREbJLnhIoufXZBfciLGTiUe4ipHFJv28yud19KMMdEe7B+yEkwjv3OybOjxEGgoAyaY3xDnsod6TM+IPGPe/Adhtw9ABvlu/nNA+fgHyKv6VZVtrGfFzX/G1A8Qo6ZIrhLOUUCdDXOM1d6JN296zyJEARSlC7nikRlPlydRNrmqxrYVmWZxj9vEsAcpkJEFsAkx5FtJnL0Y6Uo3mfc5EauAwoNJA74F5EOzwg4AFgoXkCPNwuWaJsWHbHuJV4maCU6aQ9Dr7zUjee4wzDOAxYqtVXrYhmD2FbwuIFzyQBMRMoBBLv6UCkermON20pO/RF1vW+cwOKH5C3cy+CC4WUP593yMm5UxSeL0QASAWSiov9lBspIkDH4ZhcOUuVXpaDc1c3Qqow70nmJHhG1pe/H38/AH6EgjkoHs7jgiwVoMF8yQG3XGTQ+xvreOV9AwpbLljzEKpg8KVyaIOxIvciZcOHkuB/XL7FwAMUsV1oR6ttTungZQAKgGOAZxIeIGHhgqeARS/CTtFfgDdrU0q5VwEK1Q+Phf/MVQ9P+Ci+BMCEHgCCJyWaCdBKiDa/EgC9ZRtQGCikgH75c2PuxbDyU8xFoITZkiyeKeYZXrFJ8eM8RVOC4I2onAmQfIHl2AM4GBGxmkayqwAlyFWADh5KAQHAmxoD+c4+zg0ockChPLf3cC+SUudAwSoWeZkbWeUHJt5NpXKeRANIuOYBQmRAwWpX3uP20DsSsHIBYAZQinIcCEqvuQ9wBJl9fVGarU3/FFhWvr9zDPo6qzGLBp8VU4LXW22ikPNxfH9YAgC4JV3e/8A8CPOB1IIjRMtDIunNnFzSd1iZZwCl4qkXyaqQEbfnNUfzKEHgfhkXsTKFG2lsPxfUiwa/ChQMvlNImseoK0WPEftBmAjjGXx0CFIhBgiRDHmaObefgjmYBwc+UszmKVjckIBEf/RPS/qBUpNJ7fpcmb/yeQMKgEJLlrliuOXXpR8OLhr8GlAw2acVI6/YlX0I2vVm5ZcGgJaAM+BTGIRlZ3wmky5c5LvnpIB4Xt0c7AVKuXrHir1IVqF/r/Eg3DY+nhsoe+FehOLfsCyaW214udpXvpgYpwrOgxqOCLseeUglFct50SQUo3fkM/o5L/fCe2HlTHqfUD8rs5dz7Zn2vEuvv6iD63rR8YRA2SH3Ig2uU1oKgaBYWFaVoZOmACt+kh5CNK2e6jUOV2tgxD7OdD8w/5JL2FuDoKe+EwJlHxaqZ3Dsmf2MlQGlai33M0gGmPePhQHFgFLslBswS2AaUAwoBpQOHTCgdAjJLGxpYc8mEwOKAcU8SocOGFA6hHQ262n9LT3opkBBZfbfZHBUHXj5R5FcgR2PScVm45aO21yPaxyOxuE4nhFELwPKccnIrOUmgSgBNgoGlCgTOzMJFBLYDChH4uyzthrHpNSBTVe9jMOxXHac68bt+ffI0IBi+yi24dihAwaUDiGZFX+PFd+T3A0oBhTzKB06YEDpENKeLJu15T3ezYBiQDGP0qEDBpQOIc224ks5HJGS6HadTfNWax/+Xl39W3SkJyryeL3HUtfavrfrBpQEKG/mcPS5u2rZSmYrD6UkyjOkIL1QngDvCZAgxzARIOX1iDI9b8uyBBainGSstr1uQMmEjxxTFzV/1cyBEaQ+/QremyOrvy1FKiDFm+iUey7fmfNILuWqo6yLSfYoGR+lWUKmFT0BN/qe5O3ymSuJ0oIIV12Wfaa4IDqLPCl4Nkb98uyX01SZBpR8EJD2swIUXaGQkytymcQBd6lMi9+DyyAfvYagphPUCO49ZH10qXyQlM5lfI/l5tR0OvciK7F7jykVQruoPS4RXqEslAIV3ClcpwdMLrPm7zLxHVNNAEB5hkrmYtmb9zklUDgfb1CWoAisEMoRyemKnL2OZEfPyatbM2dda9wfmUcR2RkTq0yKmT3bVFa9LQUw8jIaRmPyXV8WAZzTtRJFHmQGWj203yf+pjxmTiZIZxuNyMJ25/1Y4fcpgZIP8m44HPM5yiKglB6OCHyKVKtOYQtiH6lUM4HCniLKVzKZARgx33ERElLfHQdkfN+Asq8lySdonUvlyAfXZ1Ps4XDMgSIUtd+jINSRZESZ56Fwyt8HEJNns7b7Z7s8r6eZi97AAeOKOQyyRUr2X5q/OUqL+Lxrd/KcBO2bz82j0ABIy8fK0iL45GemjjnP+9TzWZ2vAgrPwYTHUq24qF+9P6G8kcPeeTk374BMPFBD+fK+Tja0pP413zGg+MHeA4cjcSZKNq2EZ16jqNPieTd5jhPwzHIH5fTMWQwaTenls9r9zmtRtg9PiMQGw/G3FNwszcTi/O62RwMKDzasa9iE43i6NRgrcjjKNkjFXQyUidCL65jhUTDJzlfdQkhG+yiyzii3ZDKPpWKxPEyrdvdMjsThct9XaG6MW3FAHVHPezgcOUTI5yHytzx3z2dzDwYbMflKpc2ek15iAiiyTky+i6VcrlOWydf8/smFSI080y8YgQUdXlj1wqqjf48AyatkoiyW0buO5lHkYJDivIvDMVNor2isnFJpp4Ei9z6Wh14SHPK8UNYKUL4waS/osu/uEx0J0rCYAhlIrkhpyN57bkCRQOElytZKUPJ8ffBKxa4/S4onFcfXIfcUyvJKYDkF7lj16gq90vIXAUWRFW3aEiW33GwEH8x9BLBi+DshL6XsAsArPmNACcJkUpz3cDi6Ca/7bop42aFMYmJPQEm+AMg8RejHSkDJgLsYKPQtGD57wQeaTK0HCnAJFHzm4r5CiMvFBpTdTdTezuGYkY1qzL2reZQvSYBa42V0/PJSaQGUK4hgta8YKt/H0TvF/pFblbuDji8YAvfVNH+u80rPsLTsc3uUXXA4+pg9eATdkgI8QzLJre3RRI8CnsUBljrhWITndMzBV9Bxcxgm66e5RUo3t9ijyHK/8HV2XGiAF8EytvM26DfafiVS1Tjp1+WxVOGXvndCoOyVw3ElhfBfLYePCrMQKigKrqsTZ7fXEZ7zih43Dxe2U3zPRWVjmRgeKqyCcbkOyOCvzNvwzt8nBAoPiB3fqXhHq9uAkoQGBp6jKfBW7TWgGFB2FeJspfhz6zGgGFAMKB06YEDpENJc62PPf14Ia0AxoJhH6dABA0qHkMxDfJ6HmDummwIFldl/k8FRdeDl/ChcgR1TLkCTxzHlMdcbGYejcTgah2NH6N4NlILjyy6YBA4oAY4AXuZRDigTa7JJoJDAZkCRnHh2bhyJR9KBTVe9jMPRllnnhi17ed6A0jEZ28tgWTveZ2gMKAYU25nv0AEDSoeQzJK/z5LvRfYGFAOKeZQOHTCgdAhpL1bN2vE+z2ZAeQVQFnM4thRBJmFoPde+59Ie1fhZJt5Ftpgiq0r7HQJ3RR6UbjVPkPeK8VihTANKIsR3cji6LIkxRRByfEmyUpnexxMY5Yn6fGKJkFIIeXyTZ1DHZbwk1zoUXcgIQJv9PnKUFdleXFs4E+bevaUBRSgBBosUoRjUecpEg+6VdpYCIDWpTC2ETCnhtwQKK1mWqSTJuMLPxLYHJVfSERXtpGeUPF4+IXcAY8jz5RLyqYovko2HenwWmJh13yceXEP22ZiGOp+4bkDJhVfLo0uZ2DPFpHd9SBQURlEuea/gcIyKnCQKf7hEdcin5XJvRaC4DPFKWyRQSBFjDi2XMyvm9QVobo2UQO6+aJtvT1XpWPE5G6SUqwIUpIu9ihxfru+NROCyvDecnxIoknqgtIwVRd+EwzEqJtpFublCAmsPFOTHqim4AAollxM5s8os8fA44FxR5ivk2aTSom4HWM4XhuR6Mk0qhYmJAgsS18GBAjTbF2SH9N4WSf3YA63myZM2RHlWAd75/CmBkgvt3RyOZL0DNwsG14GBJ7sOzD4M895JpXALQEmT2FU9ECclRx7gDDAMCLb0evJsl6/5ckXGR8XDeSVE/+T7AJUr32e1RLtDiLmecufj/MxvAwoGM1htOUhljK8Jejr1p0/+3VwtchY7KBOx5mb87JnlU1OcCqDcveLCCGCBoKTWZmrufNEgl0E7RINMyBtojMm+zZSDmA0BMkSKvrh304Tdmpzffc2AQoOGeUbO8hTnBMsHqZYfWCqjOyeF8W0IFleJ7bktbaA48N9YOYViErVCz6oXhUdy1a1sM7cFx9xrxHtsBDDZR9iVlkPvUQhY90ixrPTdLa8bUILVixNdGoDGpL5ngEjxawqpTXiRZZ6U6D4GBadl1UHNIO+oqDPFCR7FXZf8KqHNeKbWLgYUrD7aAsoGuRChndPcrQRAqA99YCBApqJumjcRmJ33RggXqCG4LTs5GlB4IKBAwQL3hF1tJaI5BMKtXLkouzyvZGWKTpb5RqESgzW2KX120qMEK39Pwy7mIRFzHam8QcFZLtmx7jnS9nE5xPsSPKOfO3kWgcK74DksGiCMa4aqel1c5yuOBpSgCADHezkck+VhtCsoWKkY/UDJQpoejxJkUtY7Cyi8XxP64eZDw4AVM0mf51caPdFpWPFrtOMVYGiVaUCRg0Ghyzs4HBF2PcrNTiiY5pXud9ph56XVMMDU/rtnr4JljuGkWx5+OPo3hD8UXmUgkrKonM8BSlgyZqCEkBNGqaT+RtlFnyrtCH3e6L4BJRE0x8q8fFla1N4BmqNQKBN7Cgg7klCLFSxpo2vTlEehVS6eOANAvPwqPQoBUdlHUerjfnf3i+c5KKvohwFF/WSb/0p/338K7JdxQW7jv5HKY2hWlp5jt0IJpSyUv1CwCNziWZTjPUravkwpJVD8POaVcxRqS9GPrE1eBuZRPFJ2CxTwCWLTjC2wn1SThV84qZwPFOfNZOjRKqMPKJ69SvSrXB52y7ey3hRoEZy43moTMf4K4IdyihVEA8qxPMouOBxZEUuFLZQS4cyAT91dmFYod+ZRIp2cYxvGezcs54olWlLm7Duu1ic+1dU8/4lP0SYApwIUfA0gVwXVrw004L3h2gnnKPvlcMwJTWufnuB6+dl6Y5MxKFbpOYPVD88wcFc89oZeBaHrim14sn8nBMp+hL+Jkj6pINZGpy8GFFMkNVw2gKQG1YBiQDGgdOiAAaVDSGZdU+t6RnkYUAwo5lE6dMCA0iGkM1pQ63PqRQ0oBhTzKB06sClQUJn9NxkcVQdezo/CFdjxmJyFNm7puM0NS7up6UzQqaBNHseWx8uAwl8P29EkcGQJsIEzoBx5FK3tL5fAZkA5EmeftdU4JqUObLrqtdu/R+lYHpzrbu35dB/i6PIwoBhIbB+lQwcMKB1COro1tPY/790MKAYU8ygdOmBA6RCSWeTnLfLRZWhAMaCYR+nQAQNKh5ASa1jhI0ye6SwT6UZbdAlqmai/QbGgvqO2BwnEr/PrV8uKHoc4T5ZkrqnIlakvIg1FrKu/r8+/cyKgvJOfUR8oNeXQhCKmfCXt/MfI2FJPyK2nDFpD+ZA9psj0MtUvJKAoGAXKFE5rtG9JGScCiufxKAZDV+KmMD1jVPOZKcX4+hrnAcXl6KKkfEX6n0ofms+tABTKLZymHKL0Qx6gMhWROz8uz+OpgFLml4oKpidvW5OfMdbFAJsLFOTrdXmzHL8jl1M9FkARdHEIdVBeyK3FxEIwKDdx3QEBz8oEgagTniPJ45XlByvaRVkqkWhQyXlcpDSCIdkPz+PHAaWVvK20cDGLOlENBNoHr9TK4BWDLzyHS1hX5vK9Q6GCQkYLDI4TcCjm7RpAcJonqSMauVJZW+1pGQYXwonyRPK8IvGeVjdAeDkPz+PHASVXnHfzM6I9peI5INY8SmGpCYx5qOST2Un+lXxOUngU6dWy8uYCBf0KRsLNJZIE4+IePMPReR4/Hijv52d8FVCgnJHWgQxEDoz8d1BeACYDini2BHb2rFLO1EocylS9ti8LRiMADaljRR3u3SzME/dz4/iK358PlK998DMGJRAD/JxHeRYoGUflEqCciOfxBEDBpHDC8grl7bFGZOGKOYQPa5SJammh1wi9vJVPQq/reJGrekL5y36VQGEwl+1VPArzn5yE5/EUQCGqgzBRx6DLSaiM2/m8vT9RzeiOOQI4CKWy8hxFYc6qT+a1MCNXVvyeMAAtoIg5CYFILFx0AaVhXMr3Wa768Qg8j+cACsXjXqmgPDVv0Bh8aZHnKkLt+VboxdY91rsuUPI2yd/y3NWf160rPLe1fL/x/EF4Hk8CFGajegc/4xfxM7ISyWMNKPKZeJ4rq/+9KPTKy0r3REpFL5+P7SpBUL5fPsPvH4Xn8TxAIa+i7U/UB5EHMz/OUYT8Xfn7OaBkcwx4Qwqf7vEjx1rolYdd9JVA3FMp+/cioPA8J7RdbkTqdaJtySZnZxQg5b7k/CRAeT8/ozY4zwGlA+AVoLjFDcfCNdCGJ+ZWcb5DQEnmVG4XP9+Z1/qEayXQ+tqahpsGlGjxtrAGu+Bn1BXlLUC53xKLjK998/2NUtF1pV0CFP1ToTp9XQ5O8yhrg2ZX/IxbAsV5iuv1qqzA3bs+q88p8mhzEkvsgjS19alQdVXwwDyPHxZ67ZefsbS++HuQlIm4fEYCzD0vlbX5POYh+fLx2sZozfLE8rTrl+7FShBLGb3u/MOA8jpBNZVyTYWxsrYNzTvlbUDpFJQB5dxGyIBiQNmlBd+bYTKgGFAMKB06YEDpENLerJu1Z/sw0IBiQDGP0qEDBpQOIZkF396C703mmwIFldl/k8FRdeDl/ChcgR2PTclm4+fGb663Mw7H75ninxE8LwPKyznDrAKTwAYSYKNgQNlA2FbFcSWwGVAkJ56dG0fikXRg01Uv43C0Zda5Yctenjeg2D6KbTh26IABpUNIe7Fq1o73eWQDigHFPEqHDhhQOoRklvx9lnwvsjegGFDMo3TogAGlQ0j9Vs3xIk5lds/Lc+mBSl6V/Dnt92LOxFX7nXocIiK6d5IdvbAdmryWXjOgNAYqMk85LsQ7ZcYfHPEP2KAGkWyOylESIngau0AWhPeSlK5457nEfADas2liv772x3G5VKlf8Z4BpQEUl3kR2QtB2jOMj3BMU5B+3YeQBgikOUkuqiQrowOFzHQYlJxz8LbaQ8+UDF1MahrAGNKsNjgTlXqoLVmC8SVKRx4yJEVPvc2S8vbwjgFFUZgwMCGFzhRQboEEpwkUSiEEwLHyONYsJs2BgrXCNnef30U+5YnwxqcsUjkTQxtEeZXMkpBHNXGdUk4LKA+RGyzIWSljb/cMKK1BWhkoCOWktwGopHdhFiyEdBFMXpF9Rsf4PHIPO4oJfvYBAlPieHc5fEMCbNHHVuK60iM1OC6RNzh4rvS8nQAv87iibXsDh2yPAaU1UKsC5TEizy8Lnye8/Dse/Zzl4ghSGQS4H8/dM2muXvYMLs/yFGci17ec45Lry44hRSvAI5NuZ8+15L7DewaU1qCsDBRWHCgnPMujsMhMYY20qEOSwpQVm71OK0QjUE1wJobyHphf5UpczqXC8y15ecYASuc6PEb0M4I7r+NYvw0o6sB7xq3B8Zzf7y496RCOWCHCPbcahiVatu5Tc5SbNskt5i4VJaIVtBqAyndac4Wo+CtyXMKbXIcRdOEkD4BQ668q87L9sY3vv2dAaQ1aAMBKk/mMhyQoQg9QmEtkDc7ErM/rcFxGLyQBWpSd1R1ksPPrBpTGAMVVpvWA4pTonoZdxA9/GwcfisFbzdkXkYq5SPEA1GD5o8LPKQttYO7KpD09RqAxBnPa8MpnDSiNQcKAu1WmtYGSTXKfVKZEMRv9qSsSwPEExyU8r9hEzdtDv8X9ejveH2LV2mZAaShWnG94oECh/YZcBFFKghPf8YPu38Eq1xU78ILZyi0PP0ZiLYYiUXiVgajRPh7UXDH5+qwjtXMBx6UC8rI9zkthJa6btqKj37P692R5BpSqAIWV5R35MGcpd+Z5kl4DCgaVVrl4ww0KdvF7ClLZUMdN2UeptnMhFVxRHivzjJUqv7iQ780k+yhEKQ7PfHef6mDvBxN+lkPRjn16FQNKbaDIwvK+h/MoWM3hDb/Eo4gyWkCJFhBKKTbeJFA8B+Kmc5Sv+RyXtLkZ5jWpcpcehe9jNXG+x4xy43K2PxpQhJInA0Jch1Cg23jD5Po2EENW+rlJOWDTQHFlyh36EHqFtrhddwZl0q7wTKy7rpgdn54s4rh8jK1PUVrtmerLXu8bUBTFo009sVkG63nnPQFSLMePGBTZ80W6OYjwFCg78Uwu/HKbcI5r8cZAzCe72XdceXgjPx9JQh25idniTFyb41LIEUDhFbC9Kv7cdhlQxAAH4fGehbh3T76/cpt0xa6z90KhHA8Unr8k10PZCOvSb8D056IHWX5/A45LHzrG5eY12v3+MgwoQWHfPxjLAWBtf7XsDCgGlPCh5quV7cjlG1AMKAaUDh0woHQI6ciW0Nq+TlhqQDGgmEfp0AEDSoeQzCqvY5WPLEcDigHFPEqHDmwKFFRm/00GR9WBl/OjcAV2NCq7T9CBuSGkcTgah+P4CYo/tw8vA8pxycis5SaBKAEGlAElysTOTAKFBDYDypE4+6ytxjEpdWDTVS/jcLT9iLlhy16eN6B0rKGpn12JAAAYeUlEQVTvZbCsHe8zNAYUA4ptOHbogAGlQ0hmyd9nyfciewOKAcU8SocOGFA6hLQXq2bteJ9nM6CsAhTH3TjsJBUPGLhklhf83lseLaa9KPIOrDIe6wPqpEDxGVBkwogGMY7LZp9lV0kGNMvTldybMWicrV5mUlHOb8gJ1gAlpQsSFHP32yXkI0NWGCIbEuXerheRe7jV3vPyPJ4UKE4ZoEBatpDa9Xrosx5QZA5fvb7puvK8WgwUysWVJdtDHXxfry8FzlqpiPI29tT9zmdODRQWfMpPOK2I7j2X+sfl1/KkogNTtDEhENKd3sZbuO7uk0fQUooqSsxtjMd6+zj3V57nC6zDIPehvMdKHXOAAgLYWs6uVI4pwGL73fUWUFrJ9fJytvptQPm6j8jZFRPK3VxOYBGauHvuekh6l4RXmfKKpHelQmTPynIUJS4VofG+LyuvMwGCUkdyH3m5mmGolJU498n2Eg/dKCcHc5A/ldMKc9sALOW1zvMnBAom3uAi8Tlws2R3iZKBFluz/FK56TxT3j0ABaSnHuzwKAHgBJTIxYJnkvtF3+AVh5FTyUpFTGSlvCefTc4PyPN4QqD4NKc+k3yqBMj5K60ZQMWJuluWKQOKCE9KZcqelQqmWPtEwTRQyvf9eV5n4jGUOpL7SnlYADg7z+M5gUITWBDnpEy9SLCdhA5Qmi4aBgDME/H4dziOz5WWyUpVT6VYe/YK8ejmQ+r7EihNj5JSO0wCBbQXhcHI+qwBTLt2UJ7H0wKFLDWWSpm6wAOCroPUVHCUQNnbJDiZ0mQ8Kin4DuhRgmERXlV4zdLriecSsKDvLgyUBuQIPI/nBgol1Va8hqIEBJYLVo8UEhx4Amlxdw+UeXMUNioR8FHh+0HiCI9UT6uEg3PK3eLZUwOFuEzA+e4n9mF50wMl/AYFA3jhMyoGHiBpHXFN/pbn7vnXeRTmrc9XlMLyMKglfOgjd8SnQy94CLT7vDyPJwSK3/8YHCd6VBgRh7NHCZ7Bf6KiroCVig9w8CrTlkBh4OKIOQ39zsHNfRMhUR9QmOvlnDyPJwSKs45QDg4DSKECKCR5qVgFg4LJCTsrWh52UTwfV87eAhS06QKwYgk85V/RQKFdk6CL5y7kmkObx5/M5Hszidc7AM/jSYGSxsvEinURew3C6kKJXGzulIQ9BSuPm4i6b8cG2rjExmRcASOgiBUofDfW3plP5w9xtYs39xrvE3idh0vaif4Qo5cDTb4n0geUc/M8nhYoUI7gUWj1SzDxCqDgExReiqWvcNmT4MiLAf4axf+Y8PNKWjZfceAqQzUGHQE2p6iT9dF54321PnhQhJXDKMlaQ53kAYWRKOpDyJV6JbxLdODoK8qthKStT1FKT1tbKdvH9ZMCxXmHABSvgPcBX9beRnxNm97TBuseFgGk0uXnAE+6Wee+DFCVywM2LyP97chS1fcBXAHS5L3invOC7huwGCom7xjPY/ijtpMCBVayQuVMS5XRiySKo1nb3VxrMPVC4fmTnby9CoCwejbgs5VHL9U1FkgGPyfSjEp5zTxKPhBfXyGRmKUrKhXmOEA8d9vP61EUQJvSnhsMrfE3oBhgQhzeUpSz3zOgGFAMKB06YEDpENLZran1/4sIsDZN0m1Ct3nAEXXAPIp5FAu9OnRgU6CgMvtvMjiqDrw89OIK7Ggcjp+gA3NDR+NwNA5H43DsCNu6gRK25u3EJHBgCbA3fJlHObBsrOkmgSCBzYAiOfHs3DgSj6QDm6562UeRtocyN2zZy/MGlI7J2F4Gy9rxPkNjQDGg2IZjhw4YUDqEZJb8fZZ8L7I3oBhQzKN06IABpUNIe7Fq1o73ebbTA4X4Dou/J+eUP71/M94YQMr7lSbFfofCr8WZiOyaLl9Yo89Txgd/p1/N3vJEuVP1PnH/5ECppP6hBBPrKDeSKExndKkpx/44EynPmcyzvFD5SC6TqZlqctn++rmBUgEEK0OSfA7ZDHMFURmlIi0dPEdfcrn6wD8HtFjuWllPSDa1lEgaaJCdJWE0E4n8ksSA8foVOY7VXGGxP1t75VMDJSiPTMvjQyVkfYyDgdSqSBLXEYol4MvoIDRFmromkvHF9jiFCUnEp8qoJsbjcvoVcC5QUkPxGGOu50qdSG27w7DsxEDJ8goTHwqS0/mQK3CnzJyvSKCQkkeKOOehkBI1yyapeia2sJXjyzkTfXbJjMuSMuMXnoB5LzPlR/8FgxlAQzwzAtiUDywAo5JrTTyfG4utfp8XKDSIPpWoT9CNQZN5eSnsoWTXmQK0Bi4ARcuAj9Sk03OflC4v1h08YKt+7Z7v65VCoA6vSGXo3jD1ENy26X5R2wU5E4Em/HayAog4fe1WAOit56RAgZfAyotPJSoz2XtFA2gQKyPrumPb6lQwBgp5pGEcZDzP9zRlltd2wZmoAaWy+EEZ8+sGwFGIC/l5T4O5i1RUZ5hignN5793n5wQKlifvmGgrQBH5dmlwiEQIFvMyXohxS040sSqVhVaY9F8BEChOyhHZ4mhPFUFwtQQAaYrLFr1xhFKCJWzw/JQAoQRvKD8vQ6sP17Q8xTWPgvzGWRJvGAsuA8YkeBVXP6jMJ+cx1TbnfVjv9wmBgry6zrqlQAHffJZvlwYV84kKKQ8sqaB4cMBycwoebMlPOCd0ku9RuVD4fNVtUmHgAVx4KesuylbLKftGFh+KPSAZuFToGlByRcVzkWTJyct57r2tcqWG6+TpilKgiNAAikNhUoyZH+qKV6lMuYAjNURU2uIZTVFRf7D8M9/15bFioz4JlD56ibxvUPIYFlHZYRm3AyhEHaF5I6aVAD8mvHU2Dpps3nDthB4lWrkaUMhiipCAJp4IF+7xXafsuTLl9/Hbh1HknaKiTYMF4PDP+/CJvdT0u57AVSwcJEBh4Ij7ZZlp3yCrhJzI7xFFgqLGHMXP90AxMWSraG4l0O09Yc6I8JZC3LASpsl0+2sGFGxs8WQe85MkpoayXmld3ylpvg+QKlOpbG5AoWRQkughOgca4Lq9izOR++b4WNTVqAD+ikfx8z1HOeFkWS2HjQLoOJKwrlNWL/YyBhQJFCFst+olvmtC6ABrl1hhVqZ0MPFuwkdCClUJO0SdJdBcyJXWmdZVvEMT5GF8njMRfbtmc5GybseqpQEFfC0yjJoCSt0jFX1syqxs4xrvG1A8UMKuu1j14lAHoRiRhxaWTgAFlhBsXSJkcwMEJYJHcSxeXOb04L2bM1H0bVIxNaDkCmtAuXDeotrgcxqLvf3NfJijeEUgnnbxjRE8A+2i1+Jl8hSYhFa4DJMJLBTfeaTJFZ5dcCbOAArkkHjaHCT4bUD5GKA4oINmDTyO02GHo6bGBFWGGE4p8Pl+6V08WC5y3iOUSvFmifGh+2LC29VGV75cAUvKrHqLKaC4PRLIiSbgnUBRP5D0e0/93lbIrNr+dZ85d+g18Oah4yDERB6rMs8MmOM/bJdBn6gEz4W6eREhB1xtsDfgTOS5zqQiNshbk3cbzykbj31grsln/eunBsreBsPas76CryVTA0pi9fY7UGsNuJWzbIwNKAaU5MNEA5IOJAOKAcWA0qEDBpQOIZmV1a3smeRiQDGgmEfp0AEDSoeQzmQ5ra+699wUKKjM/psMjqoDL+dH4QrsaByOn6ADc70uf+I1+QnLJwjH+mAgZx14GVD4o0g7mgSOLAEDypFHz9q+mQQ2A8qROPusrcYxKXVg01Wvvf09ytxY057Xl07PIBcDiu2j2IZjhw4YUDqEdAaLaX1se0sDigHFPEqHDhhQOoRk1rZtbc8gHwOKAcU8SocOGFA6hHQGi2l9bHtNA4oBxTxKhw4YUDqEZNY2s7ZgCKOM9r1ZY7L3E5mDZcuVR0m6k3sugfcduYtnZ/Jv1Tn/3kGA4lOLIqXp7e4SyXF6UyKlcYnlBiSY80meOaE05bPy17ppE7hMek9PrF2WizxYXL9Irs3X/EDL97iNRwNiSAwYsu3PV7zQZ85lRgm6S1lzXd1jlwNtpd8HAQrTMHB+WihlzOWLlKeOUs4BKk+GPT/5m0vcPZXztygXyb7zRHBKJnpqb8jr9YSSraQEQWlnlIe+53JeUk58p5FwDzI0j9KrKFKQaXpOEAC5pHVvBEo1rahrU/Qe9/G2hiWeodRRGXtlPf2cAWVaRiz37r9H4c87n/vWS4JDKp+kf3sXUGTbFAEKr1IjMmWhPnVEGFOkd1XaswLIDCj9ct0YKOBc9Cy+RAnHFNSRas4lgubrsSNFiNSjKEK5a8rL5aJd7TCEgS3bGttXK3/+dVcPKKuXcbWLeZbnZaE5H9HRcc5jF+YyUJCn+ernYahzeTpaGTFksklCL9HGEOaKaxSSsxwwZ+SwPCuzRwfEM8eZozBLFMIWEHbefNyaMOhKAfHE2h+VyTRP/OUxhEi9QIGSgNZhakBQ3tQzYmBykBD1BNFHeFKi2jkvHvAx0Md1Kgpl6GflSpVXcj8SUMCsHKgw2Bi4esiIcBuUY5Bz6HNaV9L/BCig2QNZbb7i5hKgR4PlmM6WAzeV16GAwqy6CF8GojsbRiLtCRNjN1hRWGLQ5k4Gu4HilGrSq3iKiFJB0gFJFCQoUf8zRC0B9mKiqsiVqaccyJAXSqTywxtGumv2KLK92jV5v33eBxSApKQI5H45LpqBuGoGv8DD9547HgsoUDYsD9Pk3QmWqOSCQr0BKAzACY9xJ5ptR2W9lpXLFY+Mxj2nz5uvIFB4ArQHN604ecpxrlMDhXaNn58+TgPFeVX2dpV+0Tgw0CvPBH3pv38soGBu4t09E9OkcfEWQAHlmhMwFCMuW+p1k4KE8FBa6P5BmlaylcvyoQ4BZgAvPLheUuXTQKFd62/7BFA4hNSW4KXiA9DgzGQDJu89cX4woKTKWIY76X0epFShO5WqFnoFpXeU1BEo9b0XeJPgRWrlPjGI3M/1jlBazIVgvZ1M8z0lDRTatf42TQBFKH457n5MwbPil941FuP+tpQ6cjCgyJUvp6hpzP9ioBDhabSsJQAx2NkKWBay1FbmnhnEV7xLcx2vnJpiaqDQrvW3rR8oLMNkQo+xkQaJVkZvo8pCvMAoHQ4oyT4E2HeziTyvYPGEnpSZV12EVWoNYPIOv8tHvySZPCMUStYfn8nA5cviNrba8q57aHswQhnYY7+iUdCudbWd5hTZCuWFtwG8l2bZezkXdYkyXJu9F/TvhX4sAAj34XBA4YbbsQwPTCavk4kB5QkrY4r5OsXcm2wNKAYU+3uUDh0woHQIaW/WzdqzvSczoBhQzKN06IABpUNIZsG3t+B7k7kBxYBiHqVDBwwoHULam3Wz9mzv4QwoBhTzKB06sClQUJn9NxkcVQdezo/CFdjR6N0+QQfmhr7dfwr8CcKxPhjIWQdeBhROLmFHk8CRJWBAOfLoWds3k8BmQJGceHZuHIlH0oFNV72ey+u1/dr53FjUnv/cMTKgdKyhGwA+FwC9Y2tAMaDYhmOHDhhQOoTUa3Xsuc/1PAYUA4p5lA4dMKB0CMk8xed6it6xNaAYUMyjdOiAAaVDSL1Wx577XM/zWUA5IbeggXMbcH4UUJjvb5XEcgfhFlwXKCJxnHFlJiHpRwEFSoMsgqsAJYRkc1J9bmPd1gVH1mZksE8IemSWS84k/+LUtUH2rm2UGVJm+dQSdSs5nZH9/h4yiWb9zOqYkqkBZVJgJwOKz9kbyWMjUM7MlWlA+SSgrMLhCG/B4HCeI+TzDURC7/Iosm2KhxBeJclRPTnGSlnZOwcBissSTwmwjVswiZ3TkMEp8HIOR6cwyF7vwOHk7kJZyT/5HqBoWfW1/t/usq3TIEjL0J8/CFA8z3zgQEzDoTNwCzq2qQn+RuKSzDLDMwFPZiFbyhHmeSfkyqzJ5ThAIUIbLSQ4N7dgPrDEa/IUh6OnWiAmYOPKZPkeCCiCOMi4BdXway0OR7AuG1dmGoIdCiiRFfg63oxbUAULW8DnjsaVmcvvWEChpUvjFswHcf3f6WS9nESn97n+Yr+jZ14kVqq4HDrujCvzYEBxHI5MMFoOoL7hGCanPQNXPJMuHCSDiUGWG2GeGHRLbsGkPUXb0/BhzrOQLVO6QX587sp4MVB2yJV5OKAkg2bcgi8Lv5J9COPKpAynm2ZhmWPV7NnlHsFkt67sDudRTAHWVQCTZ588DSgrxvWmdH1Kd0Q5GVAMKC+b5xwRELU2G1AMKAaUDh0woHQIqWZl7Prnhlr52BpQDCjmUTp0wIDSIaTcutjv83gSHmsDigHFPEqHDmwKFFRm/00GR9WBl+/McwV2NHq3T9ABDsd6j8bh+D1T/E9Q/Ll96AUIP9cNlM24w6wik8ALJcCAYgD0Hg0oLxwUK3p/EtgMKEfi7LO2Gsek1IFNV72Mw/F8+w+94cnenzOgdKyh730QrX2vN0AGFAOKbTh26IABpUNIZrFfb7H3LmMDigHFPEqHDhhQOoS0d2tn7Xu9xzOgZEBBjt8k3VB2v66U9/F2G8bH5POPjmdeP/D1fpR1IwOlxjMyT1bHlo8BRSo28nRdkMPqMTscud+ulIbUAeUxPu738V78H8bb9ZLlAisVc44Sb/MsMkfmub34Wp+sji4fAwoDBSxOSG49KAoOFi9khedn8yPeTRLhHUH557UxzwLpvElnGR8gHwMK09ldb+Og0ph5jhBkd88BQr8RUtTudSqSWu773yUwBMOBzPZsRAYKM9ljwtvU6QA/Qz7nBgpSd95u40ChFtKEZmEX7uPaUAsvUsqJr/uwKGzbJnyaDzwtFa1MtcrtRlhVMzJDYOkCncRx5XNaoDBFAg82HUXC6AcRas4hy9Tz8Sbls+d4HGNC/zxQJDiPLZ/TAkVVYIRhwYvMDKcCyB7KJJ5DFhyH8XZ50YR+FQ7HqNwElNuQ9Ge4lvO4yPkY3y3kuwf5sKFacDSgeKE5jvorzTcQe+vzkZoiYB5TCz8ig1WhPAsGrF2Gs9rPcjhyHet5lL3IpzZ+09fPC5QHLP8wDrcbkRLxPgFCrnlLxG5ucyVLW5nLoMwnV8Uwsb5i0jz1H95K/l/A4bguULaRD7f5VcfTAuWhrHAFkISVHhEyJfsk0QKBaBUTWW2SGwZtBaCEsia8ENoBoFwRMj0qwJ0og+taI/Tam3y4b3OPpwVKKqjHSBtiV30H+ouYvlxsLkMy4hDxgNsDUHiBQrYx7WcEeM/17tBr0Bc99iafnj7Xnjk9UNzcxC0REw134Wn6Vmv2AJTaIK95vdXPR2M1r/Uec3Ou2c61yzovULBCdMMmmghPwsqMt7x+Bay+mRYt9NEVISpW7fMbF4Zqq1608ThgbudW8zSPdnT5nBcoapwe+RrdPkpjJSt7/+iKEIESwa9da/Yzk4l8v/nehnM42aY55waUZHCdNaVPMmZ+lnJ0RehVmmY/E1mmgGu+Z0BxwuLEM/tNLvEY7/i8nj5XmbuH4vpYKAKFdlf60JJDkl5l3PNzRT8b4JD9KN47mHzO6VEePt7GHoqfp2hxtRzo9vmD9mN4LyZ59uE+IHyu/NQ6J+V3Kuo676Cf/eForPP48jknUDZVrr0oubUjAne+LFYByq//L/69EWkj/8pf/zX1D572H3rNF9wzQrd3jyfvpUD5y3/91wgbhJEf/oWBfvyPv/pXDSjmrVQdOLpxWAqUP/+rf5WwQRj5G/7df4t+/Nz/8T+rQjKPcjwLenTFXrv9S4Hyx/7PB2GDMPK3/cF/iX78M3/++wYU8yiqDqytuFuXtxQo/+L/9GcIG4SRH/l9/+j4637pZ8ff+mf+o/E//St/sRCUeRTzKFsr9tr1LQHKn/y//9L4I//dLxA2fuT3/vh4+dEf+4fGv+mP/GuEnH/sf/gvx//1r/1KAhYDigFlbcXdury5QPlLv/ar40/8uT9FmAA2gBECChDDq1//+i//WRUoqMz+mwyOqgNz+FH+zV/+7wkkwMTfdf19EShAzG/7qX+Wbv4t/+1/OP4bv/xnx7/41/4fAgxXYEejsvsEHWh5M3gSgAQYwJbJb/upf45AQh7lt//O70b+/1v/0L9MD+Chf+LP/Vfjn/i//vfxE4RjfTCQsw7UgII5CYdbBJJ/5Q8GXAAfl7/3H/hHRvn/7/znf38Iw37DD/7o+FN/4b8Z/+O//L+M/9uv/er4q//f/5uEZbVK7brNa/auA9Bl6DR0G6tbv/G//mMh3Prb/8DvH/++3/V7E1zQHAWuhf//jt/5e8a/+7sfH//mf+dfpRk/0GX/TQafrgNY+cXE3c1Jfvf4O37X7xl/9Md+d8CFCpS/5+//h+kBLB1jDRkbLtid5An/pwvN+vf5hgG6DJ2GbkPHsaDFzgIAyYHy/wNsKg4YGQdUAwAAAABJRU5ErkJggg==
2代码如下：
Dim layerobj As AcadLayer
Dim filtertype() As Integer '定义选择过滤器类型的dsf组码， 动态数组
Dim filterdata() As Variant '定义过滤器的值，为动态数组
Dim selectobjname As String '确定选择对象名称
Dim selectlayername As String '确定选择图层名称
Dim selectcolor As Integer '确定选择颜色0-256
Dim selectblockname As String '确定选择块名称
Dim selectwidth As Double '确定选择宽度
Dim syscolor As String '系统变量 当前颜色值 0～256
Private Sub CheckBox1_Click()'列出当前所有图层
ComboBox1.Enabled = CheckBox1.value
ComboBox1.Clear
For Each layerobj In ThisDrawing.Layers
ComboBox1.AddItem Trim(layerobj.name)
Next
ComboBox1.Text = ComboBox1.List(0)
If CheckBox1.value = True Then selectlayername = "0"
End Sub
Private Sub CheckBox2_Click() '获取当前模型空间颜色 0-256 颜色索引值
If CheckBox2.value = True Then
syscolor = ThisDrawing.GetVariable("cecolor")
ThisDrawing.SendCommand "color "
Label1.Caption = ThisDrawing.GetVariable("cecolor")
selectcolor = ThisDrawing.GetVariable("cecolor")
If LCase(selectcolor) = "bylayer" Then selectcolor = 256
If LCase(selectcolor) = "byblock" Then selectcolor = 0
End If
End Sub
Private Sub CheckBox3_Click() '列出当前所有图块名称 ，默认情况下0-2 是一个模型加两个布局
ComboBox3.Enabled = CheckBox3.value
ComboBox3.Clear
Dim str As String
Dim i As Integer, j As Integer
For i = 0 To ThisDrawing.Blocks.count - 1
str = Left(ThisDrawing.Blocks.Item(i).name, 1)
If str = "*" Then j = j + 1
Next
For i = j To ThisDrawing.Blocks.count - 1
ComboBox3.AddItem ThisDrawing.Blocks.Item(i).name
Next
If ComboBox3.ListCount > 0 Then
ComboBox3.Text = ComboBox3.List(0)
selectblockname = ComboBox3.List(0)
Else
selectblockname = ""
CheckBox3.value = False
ComboBox3.Enabled = False
End If
End Sub
Private Sub CheckBox4_Click()
ComboBox4.Enabled = CheckBox4.value
If CheckBox4.value = True Then selectwidth = ComboBox4.Text
End Sub
Private Sub ComboBox1_Click()
selectlayername = ComboBox1.Text
End Sub
Private Sub ComboBox3_Click()
selectblockname = ComboBox3.Text
End Sub
Private Sub ComboBox4_Click()
selectwidth = ComboBox4.Text
End Sub
Private Sub CommandButton1_Click()
Me.Hide
If selectobjname = "block" Then '选择块，排除多线，
If CheckBox1.value = False And CheckBox2.value = False And CheckBox3.value = False Then
' ReDim filtertype(4) '全关闭 选择所有块
' ReDim filterdata(4)
' filtertype(0) = 2
' filterdata(0) = "*"
' filtertype(1) = -4
' filterdata(1) = "<not"
' filtertype(2) = 0
' filterdata(2) = "hatch"
' filtertype(3) = 0
' filterdata(3) = "mline"
' filtertype(4) = -4
' filterdata(4) = "not>"
Call createssetfilter(filtertype, filterdata, 0, "insert")
ElseIf CheckBox1.value = True And CheckBox2.value = True And CheckBox3.value = True Then
ReDim filtertype(2)'图层，颜色，块名 全打开
ReDim filterdata(2)
filtertype(0) = 2
filterdata(0) = selectblockname
filtertype(1) = 8
filterdata(1) = selectlayername
filtertype(2) = 62
filterdata(2) = selectcolor
ElseIf CheckBox1.value = True And CheckBox2.value = False And CheckBox3.value = False Then
' ReDim filtertype(4) '图层打开
' ReDim filterdata(4)
' filtertype(0) = 2
' filterdata(0) = "*"
' filtertype(1) = 8
' filterdata(1) = selectlayername
' filtertype(2) = -4
' filterdata(2) = "<not"
' filtertype(3) = 0
' filterdata(3) = "hatch"
' filtertype(4) = -4
' filterdata(4) = "not>"
Call createssetfilter(filtertype, filterdata, 0, "insert", 8, selectlayername)
ElseIf CheckBox1.value = False And CheckBox2.value = True And CheckBox3.value = False Then
' ReDim filtertype(4) '颜色打开
' ReDim filterdata(4)
' filtertype(0) = 2
' filterdata(0) = "*"
' filtertype(1) = 62
' filterdata(1) = selectcolor
' filtertype(2) = -4
' filterdata(2) = "<not"
' filtertype(3) = 0
' filterdata(3) = "hatch"
' filtertype(4) = -4
' filterdata(4) = "not>"
Call createssetfilter(filtertype, filterdata, 0, "insert", 62, selectcolor)
ElseIf CheckBox1.value = False And CheckBox2.value = False And CheckBox3.value = True Then
ReDim filtertype(0) '块名打开
ReDim filterdata(0)
filtertype(0) = 2
filterdata(0) = selectblockname
ElseIf CheckBox1.value = True And CheckBox2.value = True And CheckBox3.value = False Then
' ReDim filtertype(5) '图层打开，颜色打开
' ReDim filterdata(5)
' filtertype(0) = 2
' filterdata(0) = "*"
' filtertype(1) = 8
' filterdata(1) = selectlayername
' filtertype(2) = 62
' filterdata(2) = selectcolor
' filtertype(3) = -4
' filterdata(3) = "<not"
' filtertype(4) = 0
' filterdata(4) = "hatch"
' filtertype(5) = -4
' filterdata(5) = "not>"
Call createssetfilter(filtertype, filterdata, 0, "insert", 8, selectlayername, 62, selectcolor)
ElseIf CheckBox1.value = True And CheckBox2.value = False And CheckBox3.value = True Then
ReDim filtertype(1) '图层打开，块名打开
ReDim filterdata(1)
filtertype(0) = 2
filterdata(0) = selectblockname
filtertype(1) = 8
filterdata(1) = selectlayername
ElseIf CheckBox1.value = False And CheckBox2.value = True And CheckBox3.value = True Then
ReDim filtertype(1) '颜色打开，块名打开
ReDim filterdata(1)
filtertype(0) = 2
filterdata(0) = selectblockname
filtertype(1) = 62
filterdata(1) = selectcolor
End If
ElseIf selectobjname = "lwpolyline" Then '选择多段线
If CheckBox1.value = False And CheckBox2.value = False And CheckBox4.value = False Then
ReDim filtertype(3) '全关闭 选择所有多段线ok
ReDim filterdata(3)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "lwpolyline"
filtertype(2) = 0
filterdata(2) = "POLYLINE"
filtertype(3) = -4
filterdata(3) = "or>"
ElseIf CheckBox1.value = True And CheckBox2.value = True And CheckBox4.value = True Then
ReDim filtertype(3) '图层，颜色，宽度 全打开 ok
ReDim filterdata(3)
filtertype(0) = 0
filterdata(0) = selectobjname
filtertype(1) = 8
filterdata(1) = selectlayername
filtertype(2) = 62
filterdata(2) = selectcolor
filtertype(3) = 43
filterdata(3) = selectwidth
ElseIf CheckBox1.value = True And CheckBox2.value = False And CheckBox4.value = False Then
ReDim filtertype(4) '图层打开 ok
ReDim filterdata(4)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "lwpolyline"
filtertype(2) = 0
filterdata(2) = "POLYLINE"
filtertype(3) = -4
filterdata(3) = "or>"
filtertype(4) = 8
filterdata(4) = selectlayername
ElseIf CheckBox1.value = False And CheckBox2.value = True And CheckBox4.value = False Then
ReDim filtertype(4) '颜色打开 ok
ReDim filterdata(4)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "lwpolyline"
filtertype(2) = 0
filterdata(2) = "POLYLINE"
filtertype(3) = -4
filterdata(3) = "or>"
filtertype(4) = 62
filterdata(4) = selectcolor
ElseIf CheckBox1.value = False And CheckBox2.value = False And CheckBox4.value = True Then
ReDim filtertype(1) '宽度打开 ok
ReDim filterdata(1)
filtertype(0) = 0
filterdata(0) = selectobjname
filtertype(1) = 43
filterdata(1) = selectwidth
ElseIf CheckBox1.value = True And CheckBox2.value = True And CheckBox4.value = False Then
ReDim filtertype(5) '图层打开，颜色打开 ok
ReDim filterdata(5)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "lwpolyline"
filtertype(2) = 0
filterdata(2) = "POLYLINE"
filtertype(3) = -4
filterdata(3) = "or>"
filtertype(4) = 8
filterdata(4) = selectlayername
filtertype(5) = 62
filterdata(5) = selectcolor
ElseIf CheckBox1.value = True And CheckBox2.value = False And CheckBox4.value = True Then
ReDim filtertype(2) '图层打开，宽度打开ok
ReDim filterdata(2)
filtertype(0) = 0
filterdata(0) = selectobjname
filtertype(1) = 8
filterdata(1) = selectlayername
filtertype(2) = 43
filterdata(2) = selectwidth
ElseIf CheckBox1.value = False And CheckBox2.value = True And CheckBox4.value = True Then
ReDim filtertype(2) '颜色打开，宽度打开ok
ReDim filterdata(2)
filtertype(0) = 0
filterdata(0) = selectobjname
filtertype(1) = 62
filterdata(1) = selectcolor
filtertype(2) = 43
filterdata(2) = selectwidth
End If
Else '选择text,mtext ,point ,circle,dimension,hatch
If CheckBox1.value = False And CheckBox2.value = False Then
ReDim filtertype(0) '图层，颜色全关闭 选择所有
ReDim filterdata(0)
filtertype(0) = 0
filterdata(0) = selectobjname
ElseIf CheckBox1.value = True And CheckBox2.value = True Then
ReDim filtertype(2) '图层，颜色 全打开
ReDim filterdata(2)
filtertype(0) = 0
filterdata(0) = selectobjname
filtertype(1) = 8
filterdata(1) = selectlayername
filtertype(2) = 62
filterdata(2) = selectcolor
ElseIf CheckBox1.value = True And CheckBox2.value = False Then
ReDim filtertype(1) '图层 打开
ReDim filterdata(1)
filtertype(0) = 0
filterdata(0) = selectobjname
filtertype(1) = 8
filterdata(1) = selectlayername
ElseIf CheckBox1.value = False And CheckBox2.value = True Then
ReDim filtertype(1) '颜色 打开
ReDim filterdata(1)
filtertype(0) = 0
filterdata(0) = selectobjname
filtertype(1) = 62
filterdata(1) = selectcolor
End If
End If
Call selectobjprograme(filtertype, filterdata)
Erase filtertype
Erase filterdata
ThisDrawing.SetVariable "cecolor", syscolor
Me.show
End Sub
Private Sub CommandButton2_Click()
Me.Hide
End Sub
Private Sub Image1_Click()
ThisDrawing.SendCommand "color "
Image1.BackColor = cirobj.color
Label1.Caption = ThisDrawing.GetVariable("cecolor")
End Sub
Private Sub CommandButton3_Click()
MsgBox "时间：2011年11月19日 " & vbCr & _
"名称：快速选择 V1.0 " & vbCr & _
"by：沙漠骆驼 " & vbCr & _
"qq：549738552 " & vbCr & vbCr & _
"当前时间：" & Now, vbInformation, "快速选择--by沙漠骆驼"
End Sub
Private Sub Label1_Click()
If CheckBox2.value = True Then
ThisDrawing.SendCommand "color "
Label1.Caption = ThisDrawing.GetVariable("cecolor")
selectcolor = ThisDrawing.GetVariable("cecolor")
If LCase(selectcolor) = "bylayer" Then selectcolor = "256"
If LCase(selectcolor) = "byblock" Then selectcolor = "0"
End If
End Sub
Private Sub OptionButton1_Click()
CheckBox3.Enabled = False
CheckBox3.value = False
CheckBox4.Enabled = False
CheckBox4.value = False
selectobjname = "text"
End Sub
Private Sub OptionButton2_Click()
CheckBox3.Enabled = False
CheckBox3.value = False
CheckBox4.Enabled = False
CheckBox4.value = False
selectobjname = "mtext"
End Sub
Private Sub OptionButton3_Click()
CheckBox3.Enabled = False
CheckBox3.value = False
CheckBox4.Enabled = False
CheckBox4.value = False
selectobjname = "circle"
End Sub
Private Sub OptionButton4_Click()
CheckBox3.Enabled = False
CheckBox3.value = False
CheckBox4.Enabled = False
CheckBox4.value = False
selectobjname = "point"
End Sub
Private Sub OptionButton5_Click()
CheckBox3.Enabled = False
CheckBox3.value = False
CheckBox4.Enabled = True
selectobjname = "lwpolyline"
End Sub
Private Sub OptionButton6_Click()
CheckBox3.Enabled = False
CheckBox3.value = False
CheckBox4.Enabled = False
CheckBox4.value = False
selectobjname = "dimension"
End Sub
Private Sub OptionButton7_Click()
CheckBox3.Enabled = True
CheckBox4.Enabled = False
CheckBox4.value = False
selectobjname = "block"
End Sub
Private Sub OptionButton8_Click()
CheckBox3.Enabled = False
CheckBox3.value = False
CheckBox4.Enabled = False
CheckBox4.value = False
selectobjname = "hatch"
End Sub
Private Sub UserForm_Initialize()
'初始化 当前图层 当前颜色 多段线宽度
'On Error Resume Next
ComboBox1.Text = ThisDrawing.Layers.Item(0).name
Dim i As Integer
For i = 0 To 39
ComboBox4.AddItem Format((i + 1) * 0.05, "0.00"), i
Next
ComboBox4.AddItem Format(2.5, "0.00")
ComboBox4.AddItem Format(3, "0.00")
ComboBox4.Text = ComboBox4.List(2)
Label1.Caption = ThisDrawing.GetVariable("cecolor")
selectobjname = "text"
syscolor = "256"
End Sub
'条件选择过滤器函数,以夹点方式显示选择集
Private Sub selectobjprograme(filtertype() As Integer, filterdata() As Variant)
Dim sset1 As AcadSelectionSet
Dim element As AcadEntity
On Error Resume Next
Set sset1 = ThisDrawing.SelectionSets.Add("ss1")
If Err.Number <> 0 Then
Err.Clear
Set sset1 = ThisDrawing.SelectionSets.Item("ss1")
sset1.Clear
End If
ThisDrawing.Utility.prompt ("请选择对象:")
sset1.SelectOnScreen filtertype, filterdata
If sset1.count = 0 Then
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
ThisDrawing.Utility.prompt "-------请重新选择过滤条件进行选择-------" & vbCrLf
Exit Sub
End If
ThisDrawing.SetVariable "nomutt", 1
With ThisDrawing
.SendCommand "(setq ss1 (ssget ""p""))" '命令行(setq ss1 (ssget "p"))
.SendCommand "(sssetfirst nil ss1)" & vbCr
.Utility.prompt "正在选择......" & vbCrLf
End With
ThisDrawing.SetVariable "NOMUTT", 0
ThisDrawing.Utility.prompt "-------选择成功-------by沙漠骆驼-------" & vbCrLf
ThisDrawing.Utility.prompt "一共选择了" & sset1.count & "个对象。" & vbCrLf
sset1.Clear
sset1.Delete
End Sub
如果能有lisp代码那就好了。谢谢楼主分享啊。 怎么没人支持这么好的源码 可以同时选择多个图层吗？ 看不懂，先留个脚印 支持一下VBA 感谢分享代码，学习了，一直用lisp，对这个不是太了解
页:
[1]