沙漠骆驼工具箱源码-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代码如下：
''''每个click事件的后面都注释了当前按钮的名称
Private Sub CommandButton1_Click() '表格文字中对齐
On Error Resume Next
'quxiao '调用取消命令
ThisDrawing.SetVariable "cmdecho", 0
ThisDrawing.SetVariable "HPBOUND", 1
Dim filtertype(0 To 3) As Integer '定义选择过滤器类型的dsf组码
Dim filterdata(0 To 3) As Variant '定义过滤器的值
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "or>"
Dim sset1 As AcadSelectionSet'文字选择集
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 Exit Sub
Dim textobj As AcadEntity
Dim p1 As Variant
Dim p2 As Variant
Dim pz(0 To 2) As Double
Dim textmiddlepoint(0 To 2) As Double
Dim text1 As AcadText '定义单行文本
Dim text2 As AcadMText'定义多行文本
Dim plineobj As AcadLWPolyline
Dim boundary1 As Variant
Dim boundary2 As Variant '文字边框
Dim move1(0 To 2) As Double '定义单行文本中点
For Each textobj In sset1
If textobj.ObjectName = "AcDbText" Then
Set text1 = textobj
pz(0) = text1.InsertionPoint(0)
pz(1) = text1.InsertionPoint(1)
Else
Set text2 = textobj
pz(0) = text2.InsertionPoint(0)
pz(1) = text2.InsertionPoint(1)
End If
Dim countnow As Integer'此处设定一个变量，用于记录当前图形个数，
'如果创建不成功，则图形个数不变，执行下一个next
countnow = ThisDrawing.ModelSpace.count
textobj.Visible = False '避免产生文字框多段线
ThisDrawing.SendCommand "(command ""-boundary""" & "(list " & pz(0) & " " & pz(1) & ")"""") "
'ThisDrawing.SendCommand "-boundary" & "(list " & pz(0) & " " & pz(1) & ")" & vbCr
textobj.Visible = True
If ThisDrawing.ModelSpace.count = countnow Then GoTo nexti
Set plineobj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.count - 1)
plineobj.GetBoundingBox p1, p2
plineobj.Delete '删除多段线
textmiddlepoint(0) = (p1(0) + p2(0)) / 2 '表格中心x点
textmiddlepoint(1) = (p1(1) + p2(1)) / 2 '表格中心y点
If textobj.ObjectName = "AcDbText" Then
text1.GetBoundingBox boundary1, boundary2
move1(0) = (boundary1(0) + boundary2(0)) / 2
move1(1) = (boundary1(1) + boundary2(1)) / 2
text1.Move move1, textmiddlepoint
Else
text2.AttachmentPoint = 5'正中对齐
text2.Move text2.InsertionPoint, textmiddlepoint '移动到矩形中点
End If
nexti:
Next
sset1.Clear
sset1.Delete
End Sub
Private Sub CommandButton2_Click() '左对齐
Me.Hide
ThisDrawing.SetVariable "cmdecho", 0
ThisDrawing.SetVariable "HPBOUND", 1
Dim filtertype(0 To 3) As Integer '定义选择过滤器类型的dsf组码
Dim filterdata(0 To 3) As Variant '定义过滤器的值
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "or>"
On Error Resume Next
Dim sset1 As AcadSelectionSet'文字选择集
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
sset1.Delete
Exit Sub
End If
Dim pointleft As Variant
pointleft = ThisDrawing.Utility.GetPoint(, vbCrLf & "请点取左对齐边界:")
If Err Then
Me.show
Exit Sub
End If
Dim textobj As AcadEntity
Dim p1(0 To 2) As Double
p1(0) = pointleft(0) '设置x坐标为固定值
'Dim move1(0 To 2)As Double
Dim move2(0 To 2)As Double
Dim boundary1 As Variant
Dim boundary2 As Variant
Dim text1 As AcadText '定义单行文本
Dim text2 As AcadMText'定义多行文本
For Each textobj In sset1
If textobj.ObjectName = "AcDbMText" Then
Set text2 = textobj
Select Case text2.AttachmentPoint
Case 1, 2, 3
text2.AttachmentPoint = 1
Case 4, 5, 6
text2.AttachmentPoint = 4
Case 7, 8, 9
text2.AttachmentPoint = 7
End Select
p1(1) = text2.InsertionPoint(1) '设置y坐标 insertionpoint 就是attachmentpoint 位置的坐标
text2.InsertionPoint = p1
Else
Set text1 = textobj
text1.GetBoundingBox boundary1, boundary2
move2(0) = p1(0): move2(1) = boundary1(1)
text1.Move boundary1, move2
End If
Next
sset1.Clear
sset1.Delete
Me.show
End Sub
Private Sub CommandButton3_Click() '中对齐
ThisDrawing.SetVariable "cmdecho", 0
ThisDrawing.SetVariable "HPBOUND", 1
Dim filtertype(0 To 3) As Integer '定义选择过滤器类型的dsf组码
Dim filterdata(0 To 3) As Variant '定义过滤器的值
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "or>"
On Error Resume Next
Dim sset1 As AcadSelectionSet'文字选择集
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
Dim pointleft As Variant
pointleft = ThisDrawing.Utility.GetPoint(, vbCrLf & "请点取中对齐边界:")
If sset1.count = 0 Or Err.Number <> 0 Then Exit Sub
Dim textobj As AcadEntity
Dim p1(0 To 2) As Double
p1(0) = pointleft(0) '设置x坐标为固定值
'Dim move1(0 To 2)As Double
Dim move2(0 To 2)As Double
Dim boundary1 As Variant
Dim boundary2 As Variant
Dim text1 As AcadText '定义单行文本
Dim text2 As AcadMText'定义多行文本
For Each textobj In sset1
If textobj.ObjectName = "AcDbMText" Then
Set text2 = textobj
Select Case text2.AttachmentPoint
Case 1, 2, 3
text2.AttachmentPoint = 2
Case 4, 5, 6
text2.AttachmentPoint = 5
Case 7, 8, 9
text2.AttachmentPoint = 8
End Select
p1(1) = text2.InsertionPoint(1) '设置y坐标
text2.InsertionPoint = p1
Else
Set text1 = textobj
text1.GetBoundingBox boundary1, boundary2
move2(0) = p1(0) - 0.5 * (boundary2(0) - boundary1(0)): move2(1) = boundary1(1)
text1.Move boundary1, move2
End If
Next
sset1.Clear
sset1.Delete
End Sub
Private Sub CommandButton4_Click()'右对齐
ThisDrawing.SetVariable "cmdecho", 0
ThisDrawing.SetVariable "HPBOUND", 1
Dim filtertype(0 To 3) As Integer '定义选择过滤器类型的dsf组码
Dim filterdata(0 To 3) As Variant '定义过滤器的值
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "or>"
On Error Resume Next
Dim sset1 As AcadSelectionSet'文字选择集
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
Dim pointleft As Variant
pointleft = ThisDrawing.Utility.GetPoint(, vbCrLf & "请点取右对齐边界:")
If sset1.count = 0 Or Err.Number <> 0 Then Exit Sub
Dim textobj As AcadEntity
Dim p1(0 To 2) As Double
p1(0) = pointleft(0) '设置x坐标为固定值
Dim text1 As AcadText '定义单行文本
Dim text2 As AcadMText'定义多行文本
Dim move2(0 To 2)As Double
Dim boundary1 As Variant
Dim boundary2 As Variant
For Each textobj In sset1
If textobj.ObjectName = "AcDbMText" Then
Set text2 = textobj
Select Case text2.AttachmentPoint
Case 1, 2, 3
text2.AttachmentPoint = 3
Case 4, 5, 6
text2.AttachmentPoint = 6
Case 7, 8, 9
text2.AttachmentPoint = 9
End Select
p1(1) = text2.InsertionPoint(1) '设置y坐标
text2.InsertionPoint = p1
Else
Set text1 = textobj
text1.GetBoundingBox boundary1, boundary2
move2(0) = p1(0) - boundary2(0) + boundary1(0): move2(1) = boundary1(1)
text1.Move boundary1, move2
End If
Next
sset1.Clear
sset1.Delete
End Sub
Private Sub CommandButton5_Click() '底端对齐
ThisDrawing.SetVariable "cmdecho", 0
ThisDrawing.SetVariable "HPBOUND", 1
Dim filtertype(0 To 3) As Integer '定义选择过滤器类型的dsf组码
Dim filterdata(0 To 3) As Variant '定义过滤器的值
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "or>"
On Error Resume Next
Dim sset1 As AcadSelectionSet'文字选择集
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
Dim pointleft As Variant
pointleft = ThisDrawing.Utility.GetPoint(, vbCrLf & "请点取底端对齐边界:")
If sset1.count = 0 Or Err.Number <> 0 Then Exit Sub
Dim textobj As AcadEntity
Dim p1(0 To 2) As Double
p1(1) = pointleft(1) '设置y坐标为固定值
'Dim move1(0 To 2)As Double
Dim move2(0 To 2)As Double
Dim boundary1 As Variant
Dim boundary2 As Variant
Dim text1 As AcadText '定义单行文本
Dim text2 As AcadMText'定义多行文本
For Each textobj In sset1
If textobj.ObjectName = "AcDbMText" Then
Set text2 = textobj
Select Case text2.AttachmentPoint
Case 1, 4, 7
text2.AttachmentPoint = 7
Case 2, 5, 8
text2.AttachmentPoint = 8
Case 3, 6, 9
text2.AttachmentPoint = 9
End Select
p1(0) = text2.InsertionPoint(0) '设置x坐标 insertionpoint 就是attachmentpoint 位置的坐标
text2.InsertionPoint = p1
Else
Set text1 = textobj
text1.GetBoundingBox boundary1, boundary2
move2(0) = boundary1(0): move2(1) = p1(1)
text1.Move boundary1, move2
End If
Next
sset1.Clear
sset1.Delete
End Sub
Private Sub CommandButton6_Click() '顶端对齐
ThisDrawing.SetVariable "cmdecho", 0
ThisDrawing.SetVariable "HPBOUND", 1
Dim filtertype(0 To 3) As Integer '定义选择过滤器类型的dsf组码
Dim filterdata(0 To 3) As Variant '定义过滤器的值
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "or>"
On Error Resume Next
Dim sset1 As AcadSelectionSet'文字选择集
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
Dim pointleft As Variant
pointleft = ThisDrawing.Utility.GetPoint(, vbCrLf & "请点取顶端对齐边界:")
If sset1.count = 0 Or Err.Number <> 0 Then Exit Sub
Dim textobj As AcadEntity
Dim p1(0 To 2) As Double
p1(1) = pointleft(1) '设置y坐标为固定值
'Dim move1(0 To 2)As Double
Dim move2(0 To 2)As Double
Dim boundary1 As Variant
Dim boundary2 As Variant
Dim text1 As AcadText '定义单行文本
Dim text2 As AcadMText'定义多行文本
For Each textobj In sset1
If textobj.ObjectName = "AcDbMText" Then
Set text2 = textobj
Select Case text2.AttachmentPoint
Case 1, 4, 7
text2.AttachmentPoint = 1
Case 2, 5, 8
text2.AttachmentPoint = 2
Case 3, 6, 9
text2.AttachmentPoint = 3
End Select
p1(0) = text2.InsertionPoint(0) '设置x坐标 insertionpoint 就是attachmentpoint 位置的坐标
text2.InsertionPoint = p1
Else
Set text1 = textobj
text1.GetBoundingBox boundary1, boundary2
move2(0) = boundary2(0): move2(1) = p1(1)
text1.Move boundary2, move2
End If
Next
sset1.Clear
sset1.Delete
End Sub
Private Sub CommandButton7_Click() '水平中对齐
ThisDrawing.SetVariable "cmdecho", 0
ThisDrawing.SetVariable "HPBOUND", 1
Dim filtertype(0 To 3) As Integer '定义选择过滤器类型的dsf组码
Dim filterdata(0 To 3) As Variant '定义过滤器的值
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "or>"
On Error Resume Next
Dim sset1 As AcadSelectionSet'文字选择集
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
Dim pointleft As Variant
pointleft = ThisDrawing.Utility.GetPoint(, vbCrLf & "请点取对齐边界:")
If sset1.count = 0 Or Err.Number <> 0 Then Exit Sub
Dim textobj As AcadEntity
Dim p1(0 To 2) As Double
p1(1) = pointleft(1) '设置y坐标为固定值
'Dim move1(0 To 2)As Double
Dim move2(0 To 2)As Double
Dim boundary1 As Variant
Dim boundary2 As Variant
Dim text1 As AcadText '定义单行文本
Dim text2 As AcadMText'定义多行文本
For Each textobj In sset1
If textobj.ObjectName = "AcDbMText" Then
Set text2 = textobj
Select Case text2.AttachmentPoint
Case 1, 4, 7
text2.AttachmentPoint = 4
Case 2, 5, 8
text2.AttachmentPoint = 5
Case 3, 6, 9
text2.AttachmentPoint = 6
End Select
p1(0) = text2.InsertionPoint(0) '设置x坐标 insertionpoint 就是attachmentpoint 位置的坐标
text2.InsertionPoint = p1
Else
Set text1 = textobj
text1.GetBoundingBox boundary1, boundary2
move2(0) = boundary1(0): move2(1) = p1(1) - 0.5 * (boundary2(1) - boundary1(1))
text1.Move boundary1, move2
End If
Next
sset1.Clear
sset1.Delete
End Sub
页:
[1]