沙漠骆驼工具箱源码-4面积统计
工具条：面积统计，界面和代码如下：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代码如下：
Option Explicit '强制要求变量声明
Dim sumarea As Double
Dim xiaoshuweishu As Integer
Dim zigao As Double
'Dim bilichi As Double
Dim xbilichi As Double
Dim ybilichi As Double
Dim danwei As String
'框选对象进行分类统计 里面用的
Private Type layerclass '根据图层分类
name As String '图层名称
summianji As Double '面积
End Type
Dim layermianji() As Double ' 存储每个图层中图元 的面积和
Dim allmianji As Double'用来存储总的面积
Dim mianjitongji() As layerclass
Dim currenttextstyle As String
Dim currentlayername As String
Dim arealayer As AcadLayer
Private Sub CommandButton1_Click() '框选对象直接求总面积
Me.Hide
On Error Resume Next
'quxiao '调用取消命令
currenttextstyle = ThisDrawing.GetVariable("textstyle")
currentlayername = ThisDrawing.ActiveLayer.name
Set arealayer = ThisDrawing.Layers.Add("面积统计")
arealayer.color = acGreen
ThisDrawing.SetVariable "cecolor", "256"
With arealayer
.LayerOn = True
.Lock = False
.Freeze = False
End With
ThisDrawing.ActiveLayer = arealayer
Dim sset1 As AcadSelectionSet
Dim filtertype(9) As Integer '定义选择过滤器类型的dsf组码
Dim filterdata(9) As Variant '定义过滤器的值
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "CIRCLE"
filtertype(2) = 0
filterdata(2) = "ARC"
filtertype(3) = 0
filterdata(3) = "SPLINE"
filtertype(4) = 0
filterdata(4) = "lwpolyline"
filtertype(5) = 0
filterdata(5) = "POLYLINE"
filtertype(6) = 0
filterdata(6) = "REGION"'面域对象
filtertype(7) = 0
filterdata(7) = "HATCH"'填充对象填充的面积属性在 2006 版本中支持 Hatch 对象
filtertype(8) = 0
filterdata(8) = "ellipse" '椭圆对象
filtertype(9) = -4
filterdata(9) = "or>"
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
Me.show
Exit Sub
End If
zigao = ComboBox1.Text
xbilichi = ComboBox2.Text
ybilichi = ComboBox4.Text
xiaoshuweishu = ComboBox3.Text
sumarea = 0
Dim duixiang As AcadObject
For Each duixiang In sset1
sumarea = sumarea + duixiang.Area
Next
If OptionButton1.value Then
danwei = "㎡"
sumarea = sumarea * xbilichi * ybilichi / 10 ^ 6
ElseIf OptionButton4.value Then
danwei = "亩"
sumarea = sumarea * xbilichi * ybilichi / 10 ^ 10 * 15
Else
danwei = "K㎡"
sumarea = sumarea * xbilichi * ybilichi / 10 ^ 12
End If
Dim basepoint As Variant
Dim geshi As String
newtextstyle1 '调用新建字体样式程序
ThisDrawing.SetVariable "textstyle", "wh_lkx1"
geshi = "0." & Right("00000", xiaoshuweishu)
basepoint = ThisDrawing.Utility.GetPoint(, "请拾取插入点:")
Dim mianjitext As AcadText
Set mianjitext = ThisDrawing.ModelSpace.AddText("当前图形比例尺x方向：1:" & xbilichi _
& "y方向：1:" & ybilichi, basepoint, zigao)
basepoint(1) = basepoint(1) - zigao * 2
Set mianjitext = ThisDrawing.ModelSpace.AddText( _
"对象个数:" & sset1.count & "。" & _
"总面积为:" & Format(sumarea, geshi) & danwei, basepoint, zigao)
'恢复文字样式
ThisDrawing.SetVariable "textstyle", currenttextstyle
'恢复图层
ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item(currentlayername)
Me.show
End Sub
Private Sub CommandButton2_Click()
Me.Hide
End Sub
Private Sub CommandButton3_Click() '点击封闭区域求面积
Me.Hide
'设置ucs为世界坐标系
ThisDrawing.SendCommand "ucs" & vbCr & "w" & vbCr
Dim currentosmode As Integer
currentosmode = ThisDrawing.GetVariable("osmode")
On Error Resume Next
ThisDrawing.SetVariable "cmdecho", 0
ThisDrawing.SetVariable "HPBOUND", 0 '边界创建为面域 面域是从闭合的形或环创建的二维区域。
'闭合多段线、直线和曲线都是有效的选择对象。
'曲线包括圆弧、圆、椭圆弧、椭圆和样条曲线。
ThisDrawing.SetVariable "OSMODE", 0
'ThisDrawing.ObjectSnapMode = False '关闭对象捕捉
currenttextstyle = ThisDrawing.GetVariable("textstyle")
currentlayername = ThisDrawing.ActiveLayer.name
Set arealayer = ThisDrawing.Layers.Add("面积统计")
With arealayer
.LayerOn = True
.Lock = False
.Freeze = False
End With
ThisDrawing.ActiveLayer = arealayer
newtextstyle1 '调用新建字体样式程序 宋体
ThisDrawing.SetVariable "textstyle", "wh_lkx1"
'ThisDrawing.Regen acActiveViewport '重生成一下图形
Dim basepoint As Variant
'Dim plineobj As AcadObject
Dim mianyu As AcadRegion'定义面域对象
On Error GoTo ee1
r1:
basepoint = ThisDrawing.Utility.GetPoint(, "请拾取封闭区域内的某一点:")
Dim countnow As Integer'此处设定一个变量，用于记录当前图形个数，
'如果创建不成功，则图形个数不变，退出程序
countnow = ThisDrawing.ModelSpace.count
ThisDrawing.SendCommand "-boundary" & vbCr & "a" & vbCr & "i" & vbCr & "n" & vbCr & vbCr & vbCr & _
"(command (list " & basepoint(0) & " " & basepoint(1) & ")"""")" & vbCr
'ThisDrawing.SendCommand "(command ""-boundary """ & "(list " & basepoint(0) & " " & basepoint(1) & ")"""") "
If ThisDrawing.ModelSpace.count = countnow Then
Me.show
ThisDrawing.SendCommand "ucs" & vbCr & "p" & vbCr
Exit Sub
End If
Set mianyu = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.count - 1)
Dim objarea As Double
objarea = mianyu.Area
zigao = ComboBox1.Text
xbilichi = ComboBox2.Text
ybilichi = ComboBox4.Text
xiaoshuweishu = ComboBox3.Text
If OptionButton1.value Then
danwei = "㎡"
objarea = objarea * xbilichi * ybilichi / 10 ^ 6
ElseIf OptionButton4.value Then
danwei = "亩"
objarea = objarea * xbilichi * ybilichi / 10 ^ 10 * 15
Else
danwei = "K㎡"
objarea = objarea * xbilichi * ybilichi / 10 ^ 12
End If
Dim geshi As String
geshi = "0." & Right("00000", xiaoshuweishu)
Dim mianjitext As AcadText
Set mianjitext = ThisDrawing.ModelSpace.AddText("面积=" & Format(objarea, geshi) & danwei, basepoint, zigao)
mianjitext.color = acGreen
mianyu.color = acRed '红色显示多段线
' ThisDrawing.Regen acActiveViewport
' ThisDrawing.Application.Update
Dim groupobj As AcadGroup '定义组对象
Dim appendobjs(0 To 1) As AcadEntity
Set appendobjs(0) = mianjitext
Set appendobjs(1) = mianyu
Set groupobj = ThisDrawing.Groups.Add("*")
groupobj.AppendItems appendobjs
ee1:
If Err.Number <> 0 Then
'如果按了空格 或是回车 或是出现了其他错误
'MsgBox Err.Description
Me.show
Err.Clear
'恢复文字样式
ThisDrawing.SetVariable "textstyle", currenttextstyle
ThisDrawing.SetVariable "osmode", currentosmode
'ThisDrawing.ObjectSnapMode = True '打开对象捕捉
'恢复图层
ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item(currentlayername)
ThisDrawing.SendCommand "ucs" & vbCr & "p" & vbCr
Exit Sub
Else
GoTo r1
End If
'恢复文字样式
ThisDrawing.SetVariable "textstyle", currenttextstyle
ThisDrawing.SetVariable "osmode", currentosmode
'ThisDrawing.ObjectSnapMode = True '打开对象捕捉
'恢复图层
ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item(currentlayername)
'ThisDrawing.SendCommand "REGEN" & vbCr
'恢复上一个坐标系
ThisDrawing.SendCommand "ucs" & vbCr & "p" & vbCr
End Sub
Private Sub CommandButton4_Click() '框选对象进行分类统计
Me.Hide
zigao = ComboBox1.Text
xbilichi = ComboBox2.Text
ybilichi = ComboBox4.Text
xiaoshuweishu = ComboBox3.Text
On Error Resume Next
quxiao '调用取消命令
currenttextstyle = ThisDrawing.GetVariable("textstyle")
currentlayername = ThisDrawing.ActiveLayer.name
Set arealayer = ThisDrawing.Layers.Add("面积统计")
arealayer.color = acGreen
ThisDrawing.SetVariable "cecolor", "256"
With arealayer
.LayerOn = True
.Lock = False
.Freeze = False
End With
ThisDrawing.ActiveLayer = arealayer
Dim sset1 As AcadSelectionSet
Dim filtertype(9) As Integer '定义选择过滤器类型的dsf组码
Dim filterdata(9) As Variant '定义过滤器的值
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "CIRCLE"
filtertype(2) = 0
filterdata(2) = "ARC"
filtertype(3) = 0
filterdata(3) = "SPLINE"
filtertype(4) = 0
filterdata(4) = "lwpolyline"
filtertype(5) = 0
filterdata(5) = "POLYLINE"
filtertype(6) = 0
filterdata(6) = "REGION"'面域对象
filtertype(7) = 0
filterdata(7) = "HATCH"'填充对象填充的面积属性在 2006 版本中支持 Hatch 对象
filtertype(8) = 0
filterdata(8) = "ellipse" '椭圆对象
filtertype(9) = -4
filterdata(9) = "or>"
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
Me.show
Exit Sub
End If
Dim i As Integer
Dim j As Integer
ReDim layermianji(ThisDrawing.Layers.count - 1)
Dim mianjiobj As AcadObject
For i = 0 To ThisDrawing.Layers.count - 1
For Each mianjiobj In sset1
If ThisDrawing.Layers.Item(i).name = mianjiobj.Layer Then
layermianji(i) = layermianji(i) + mianjiobj.Area
End If
Next
If layermianji(i) <> 0 Then'记录面积不为零的图层个数
j = j + 1
End If
Next
' If j = 0 Then
' Me.Show
' Exit Sub
' End If
ReDim mianjitongji(0 To j - 1)
Dim jj As Integer
For i = 0 To ThisDrawing.Layers.count - 1
If layermianji(i) <> 0 Then
mianjitongji(jj).name = ThisDrawing.Layers.Item(i).name
mianjitongji(jj).summianji = layermianji(i)
jj = jj + 1
End If
Next
allmianji = 0
For i = 0 To UBound(mianjitongji)
If OptionButton1.value Then
mianjitongji(i).summianji = mianjitongji(i).summianji * xbilichi * ybilichi / 10 ^ 6
ElseIf OptionButton4.value Then
mianjitongji(i).summianji = mianjitongji(i).summianji * xbilichi * ybilichi / 10 ^ 10 * 15
Else
mianjitongji(i).summianji = mianjitongji(i).summianji * xbilichi * ybilichi / 10 ^ 12
End If
allmianji = allmianji + mianjitongji(i).summianji'求总面积
Next
If OptionButton1.value Then
danwei = "㎡"
ElseIf OptionButton4.value Then
danwei = "亩"
Else
danwei = "K㎡"
End If
Dim basepoint As Variant
basepoint = ThisDrawing.Utility.GetPoint(, "拾取统计表格插入点:")
'画统计表格
newtextstyle1 '调用新建字体样式程序
ThisDrawing.SetVariable "textstyle", "wh_lkx1"
Dim biaotoukuan As Double '设定 表格长度
Dim biaotougao As Double '设定 表格高度
If zigao < 4 Then
biaotoukuan = 20
biaotougao = 8
Else
biaotoukuan = zigao * 8
biaotougao = zigao * 2.5
End If
Dim hengxian As AcadLWPolyline
Dim p1p2(0 To 3) As Double
p1p2(0) = basepoint(0): p1p2(1) = basepoint(1)
p1p2(2) = basepoint(0) + 4 * biaotoukuan: p1p2(3) = p1p2(1)
ThisDrawing.ModelSpace.AddLightWeightPolyline p1p2
p1p2(0) = basepoint(0): p1p2(1) = basepoint(1) - biaotougao
p1p2(2) = basepoint(0) + 4 * biaotoukuan: p1p2(3) = p1p2(1)
ThisDrawing.ModelSpace.AddLightWeightPolyline p1p2
For i = 0 To UBound(mianjitongji)
p1p2(0) = basepoint(0): p1p2(1) = p1p2(1) - biaotougao
p1p2(2) = basepoint(0) + 4 * biaotoukuan: p1p2(3) = p1p2(1)
ThisDrawing.ModelSpace.AddLightWeightPolyline p1p2
Next
For i = 0 To 4
p1p2(0) = basepoint(0) + biaotoukuan * i
p1p2(1) = basepoint(1)
p1p2(2) = p1p2(0)
ThisDrawing.ModelSpace.AddLightWeightPolyline p1p2
Next
Dim p2p4(0 To 7) As Double
p2p4(0) = basepoint(0): p2p4(1) = p1p2(3)
p2p4(2) = basepoint(0): p2p4(3) = p1p2(3) - biaotougao
p2p4(4) = basepoint(0) + 4 * biaotoukuan: p2p4(5) = p2p4(3)
p2p4(6) = p2p4(4): p2p4(7) = p2p4(1)
ThisDrawing.ModelSpace.AddLightWeightPolyline p2p4
Dim mingcheng As AcadText
Dim charudian(0 To 2) As Double
charudian(0) = basepoint(0) + biaotoukuan * 0.5
charudian(1) = basepoint(1) - biaotougao * 0.5
Set mingcheng = ThisDrawing.ModelSpace.AddText("序 号", charudian, zigao)
With mingcheng
.Alignment = acAlignmentMiddleCenter
.TextAlignmentPoint = charudian
End With
charudian(0) = basepoint(0) + biaotoukuan * 1.5
charudian(1) = basepoint(1) - biaotougao * 0.5
Set mingcheng = ThisDrawing.ModelSpace.AddText("图层名称", charudian, zigao)
mingcheng.Alignment = acAlignmentMiddleCenter
mingcheng.TextAlignmentPoint = charudian
charudian(0) = basepoint(0) + biaotoukuan * 2.5
charudian(1) = basepoint(1) - biaotougao * 0.5
Set mingcheng = ThisDrawing.ModelSpace.AddText("面 积", charudian, zigao)
mingcheng.Alignment = acAlignmentMiddleCenter
mingcheng.TextAlignmentPoint = charudian
charudian(0) = basepoint(0) + biaotoukuan * 3.5
charudian(1) = basepoint(1) - biaotougao * 0.5
Set mingcheng = ThisDrawing.ModelSpace.AddText("单 位", charudian, zigao)
mingcheng.Alignment = acAlignmentMiddleCenter
mingcheng.TextAlignmentPoint = charudian
'插入序号和单位
For i = 1 To UBound(mianjitongji) + 1
charudian(0) = basepoint(0) + biaotoukuan * 0.5
charudian(1) = basepoint(1) - (i + 0.5) * biaotougao
Set mingcheng = ThisDrawing.ModelSpace.AddText(i, charudian, zigao)
mingcheng.Alignment = acAlignmentMiddleCenter
mingcheng.TextAlignmentPoint = charudian
Next
For i = 1 To UBound(mianjitongji) + 1
charudian(0) = basepoint(0) + biaotoukuan * 3.5
charudian(1) = basepoint(1) - (i + 0.5) * biaotougao
Set mingcheng = ThisDrawing.ModelSpace.AddText(danwei, charudian, zigao)
mingcheng.Alignment = acAlignmentMiddleCenter
mingcheng.TextAlignmentPoint = charudian
Next
Dim geshi As String
geshi = "0." & Right("00000", xiaoshuweishu)
charudian(0) = basepoint(0) + biaotoukuan * 2
charudian(1) = basepoint(1) - (i + 0.5) * biaotougao
Set mingcheng = ThisDrawing.ModelSpace.AddText( _
"对象个数:" & sset1.count & "。" & _
"总面积=" & Format(allmianji, geshi) & danwei, charudian, zigao)
mingcheng.Alignment = acAlignmentMiddleCenter
mingcheng.TextAlignmentPoint = charudian
'插入图层名称和面积数据
For i = 1 To UBound(mianjitongji) + 1
charudian(0) = basepoint(0) + biaotoukuan * 1.5
charudian(1) = basepoint(1) - (i + 0.5) * biaotougao
Set mingcheng = ThisDrawing.ModelSpace.AddText(mianjitongji(i - 1).name, charudian, zigao)
mingcheng.Alignment = acAlignmentMiddleCenter
mingcheng.TextAlignmentPoint = charudian
Next
For i = 1 To UBound(mianjitongji) + 1
charudian(0) = basepoint(0) + biaotoukuan * 2.5
charudian(1) = basepoint(1) - (i + 0.5) * biaotougao
Set mingcheng = ThisDrawing.ModelSpace.AddText(Format(mianjitongji(i - 1).summianji, geshi), charudian, zigao)
mingcheng.Alignment = acAlignmentMiddleCenter
mingcheng.TextAlignmentPoint = charudian
Next
charudian(0) = basepoint(0)
charudian(1) = basepoint(1) + biaotougao * 0.5
Set mingcheng = ThisDrawing.ModelSpace.AddText("当前图形比例尺x方向：1:" & xbilichi _
& "y方向：1:" & ybilichi, charudian, zigao)
'恢复文字样式
ThisDrawing.SetVariable "textstyle", currenttextstyle
'恢复图层
ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item(currentlayername)
sset1.Clear
sset1.Delete
Me.show
End Sub
Private Sub UserForm_Initialize()
'quxiao '调用取消命令
Dim i As Integer
For i = 1 To 19'设置字体高度
ComboBox1.AddItem Format(i / 2 + 0.5, "0.0")
Next
For i = 15 To 95 Step 5'15---95
ComboBox1.AddItem i
Next
For i = 100 To 1000 Step 50 '100---500
ComboBox1.AddItem i
Next
ComboBox2.AddItem 1 '设置当前图形水平比例
ComboBox2.AddItem 2
ComboBox2.AddItem 5
ComboBox2.AddItem 10
ComboBox2.AddItem 20
ComboBox2.AddItem 25
ComboBox2.AddItem 50
For i = 3 To 6
ComboBox2.AddItem 10 * ComboBox2.List(i)
Next
For i = 3 To 6
ComboBox2.AddItem 100 * ComboBox2.List(i)
Next
For i = 3 To 6
ComboBox2.AddItem 1000 * ComboBox2.List(i)
Next
For i = 3 To 6
ComboBox2.AddItem 10000 * ComboBox2.List(i)
Next
ComboBox2.AddItem 4000000
For i = 0 To 23 '设置当前图形垂直比例
ComboBox4.AddItem ComboBox2.List(i)
Next
ComboBox3.AddItem 1 '设置小数位数
ComboBox3.AddItem 2
ComboBox3.AddItem 3
ComboBox3.AddItem 4
ComboBox3.AddItem 5
End Sub
' '创建新的字体样式
'Private Sub newtextstyle() '创建新的字体样式
' Dim typeFace As String
' Dim SavetypeFace As String
' Dim Bold As Boolean
' Dim Italic As Boolean
' Dim charSet As Long
' Dim PitchandFamily As Long
' Dim lkxtextstyle As AcadTextStyle
' Dim currenttextstyle As AcadTextStyle
' Set currenttextstyle = ThisDrawing.ActiveTextStyle
' '获取当前字体样式的参数
' currenttextstyle.GetFont typeFace, Bold, Italic, charSet, PitchandFamily
' Set lkxtextstyle = ThisDrawing.TextStyles.Add("wh_lkx")
' With lkxtextstyle
' .SetFont "宋体", False, False, charSet, PitchandFamily
' .width = 0.8 '设置宽度比例
' End With
'End Sub
大佬厉害呀，分享这么多 大哥怎么最近公布了这么多源码呀 664571221 发表于 2022-2-10 10:57
大哥怎么最近公布了这么多源码呀
希望能对明经好友有一些帮助吧 xj6019 发表于 2022-2-9 16:00
大佬厉害呀，分享这么多
希望能对你有些帮助 大哥怎么最近公布了这么多源码呀 怎么用呀:lol
页:
[1]