沙漠骆驼工具箱源码-1文本相关-文本操作2
工具条：文本操作2，界面和代码如下：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事件的后面都注释了当前按钮的名称
Dim filtertype() As Integer '定义选择过滤器类型的dsf组码， 动态数组
Dim filterdata() As Variant '定义过滤器的值，为动态数组
Dim sset1 As AcadSelectionSet
Private Sub CommandButton14_Click() '数字批量增减
Me.Hide
On Error Resume Next
ReDim filtertype(3)
ReDim filterdata(3)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "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
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
End If
Dim zengliang As Double
zengliang = ThisDrawing.Utility.GetReal("请输入增量值(可以为负):")
Dim wenben1 As AcadEntity
Dim zifu As String
Dim xiaoshuweishu As Integer '记录小数位数
Dim changdu As Integer
Dim geshi As String
For Each wenben1 In sset1
xiaoshuweishu = 0
zifu = wenben1.textstring
changdu = Len(zifu)
For i = 1 To changdu
If Left(Right(zifu, i), 1) = "." Then
xiaoshuweishu = i
Exit For
End If
Next
zifu = Trim(str(Val(zifu) + zengliang))
geshi = "0." & Right("000000000000000", xiaoshuweishu - 1)
If xiaoshuweishu = 0 Then geshi = "0"
wenben1.textstring = Format(zifu, geshi)
Next
Me.show
End Sub
Private Sub CommandButton15_Click() '数字批量乘除
Me.Hide
On Error Resume Next
ReDim filtertype(3)
ReDim filterdata(3)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "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
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
End If
Dim zengliang As Double
zengliang = 1
zengliang = ThisDrawing.Utility.GetReal("请输入要乘的数(可以为负):")
Dim wenben1 As AcadEntity
Dim zifu As String
Dim xiaoshuweishu As Integer '记录小数位数
Dim changdu As Integer
Dim geshi As String
For Each wenben1 In sset1
wenben1.textstring = zifu
Next
Me.show
End Sub
Private Sub CommandButton21_Click() '数字消零
Me.Hide
On Error Resume Next
ReDim filtertype(3)
ReDim filterdata(3)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "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
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
End If
Dim wenben1 As AcadEntity
Dim i As Integer
Dim zifu As String
For Each wenben1 In sset1
zifu = wenben1.textstring
wenben1.textstring = Val(zifu)
Next
Me.show
End Sub
'计算角度格式是弧度
Function angle(ByVal p1 As Variant, ByVal p2 As Variant) As Double
angle = ThisDrawing.Utility.AngleFromXAxis(p1, p2)
End Function
Private Sub CommandButton22_Click() '求最大值和最小值
Me.Hide
On Error Resume Next
ReDim filtertype(4)
ReDim filterdata(4)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = 0
filterdata(3) = "dimension"
filtertype(4) = -4
filterdata(4) = "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
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
End If
Dim zuida As Double
Dim zuixiao As Double
Dim wenben1 As AcadEntity
Dim zigao As Double
zuida = Val(sset1(0).textstring)
zuixiao = zuida
For Each wenben1 In sset1
If wenben1.ObjectName <> "AcDbText" And wenben1.ObjectName <> "AcDbMText" Then
'qiuhe = qiuhe + wenben1.Measurement '尺寸标注文本
If wenben1.Measurement > zuida Then zuida = wenben1.Measurement
If wenben1.Measurement < zuixiao Then zuixiao = wenben1.Measurement
zigao = wenben1.TextHeight
Else
If Val(wenben1.textstring) > zuida Then zuida = Val(wenben1.textstring)
If Val(wenben1.textstring) < zuixiao Then zuixiao = Val(wenben1.textstring)
zigao = wenben1.height
End If
Next
newtextstyle2 '调用新建字体样式程序
ThisDrawing.SetVariable "textstyle", "wh_lkx"
Dim ppt1 As Variant
ppt1 = ThisDrawing.Utility.GetPoint(, "请拾取插入点:")
'ThisDrawing.ModelSpace.AddText "最大值：" & Format(Trim(str(zuida)), "0.000") & _
' " 最小值：" & Format(Trim(str(zuixiao)), "0.000"), ppt1, zigao
ThisDrawing.ModelSpace.AddText "最大值：" & Format(zuida, "0.########") & _
"最小值：" & Format(zuixiao, "0.########"), ppt1, zigao
sset1.Clear
Me.show
End Sub
Private Sub CommandButton23_Click() '文字求差
Me.Hide
On Error Resume Next
Dim wenben1 As AcadEntity
Dim wenben2 As AcadEntity
Dim basepnt As Variant
ReDim filtertype(4)
ReDim filterdata(4)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = 0
filterdata(3) = "dimension"
filtertype(4) = -4
filterdata(4) = "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 "请选择数字文本A(可以是标注）:" & vbCrLf
sset1.SelectOnScreen filtertype, filterdata
If sset1.count = 0 Then
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
Else
Set wenben1 = sset1.Item(0)
End If
sset1.Clear
ThisDrawing.Utility.prompt "请选择数字文本B(可以是标注）:" & vbCrLf
sset1.SelectOnScreen filtertype, filterdata
If sset1.count = 0 Then
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
Else
Set wenben2 = sset1.Item(0)
End If
Dim shu1 As Double
Dim shu2 As Double
Dim chazhi As Double
Dim zigao As Double
If wenben1.ObjectName <> "AcDbText" And wenben1.ObjectName <> "AcDbMText" Then
shu1 = wenben1.Measurement
zigao = wenben1.TextHeight
Else
shu1 = Val(wenben1.textstring)
zigao = wenben1.height
End If
If wenben2.ObjectName <> "AcDbText" And wenben2.ObjectName <> "AcDbMText" Then
shu2 = wenben2.Measurement
zigao = wenben2.TextHeight
Else
shu2 = Val(wenben2.textstring)
zigao = wenben2.height
End If
chazhi = shu1 - shu2
Dim ppt1 As Variant
newtextstyle2 '调用新建字体样式程序
ThisDrawing.SetVariable "textstyle", "wh_lkx"
ppt1 = ThisDrawing.Utility.GetPoint(, "请拾取插入点:")
Set qiuhetext = ThisDrawing.ModelSpace.AddText(Format(Trim(str(chazhi)), "0.000"), ppt1, zigao)
sset1.Clear
Me.show
End Sub
Private Sub CommandButton24_Click() '文字求商
Me.Hide
On Error Resume Next
Dim wenben1 As AcadEntity
Dim wenben2 As AcadEntity
Dim basepnt As Variant
ReDim filtertype(4)
ReDim filterdata(4)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = 0
filterdata(3) = "dimension"
filtertype(4) = -4
filterdata(4) = "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 "请选择数字文本A(可以使标注）:" & vbCrLf
sset1.SelectOnScreen filtertype, filterdata
If sset1.count = 0 Then
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
Else
Set wenben1 = sset1.Item(0)
End If
sset1.Clear
ThisDrawing.Utility.prompt "请选择数字文本B(可以使标注）:" & vbCrLf
sset1.SelectOnScreen filtertype, filterdata
If sset1.count = 0 Then
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
Else
Set wenben2 = sset1.Item(0)
End If
Dim shu1 As Double
Dim shu2 As Double
Dim shangzhi As Double
Dim zigao As Double
If wenben1.ObjectName <> "AcDbText" And wenben1.ObjectName <> "AcDbMText" Then
shu1 = wenben1.Measurement
zigao = wenben1.TextHeight
Else
shu1 = Val(wenben1.textstring)
zigao = wenben1.height
End If
If wenben2.ObjectName <> "AcDbText" And wenben2.ObjectName <> "AcDbMText" Then
shu2 = wenben2.Measurement
zigao = wenben2.TextHeight
Else
shu2 = Val(wenben2.textstring)
zigao = wenben2.height
End If
If shu2 = 0 Then
ThisDrawing.Utility.prompt "-------除数不能为 0 -------" & vbCrLf
MsgBox "除数不能为 0", vbCritical
Me.show
Exit Sub
End If
shangzhi = shu1 / shu2
Dim ppt1 As Variant
newtextstyle2 '调用新建字体样式程序
ThisDrawing.SetVariable "textstyle", "wh_lkx"
ppt1 = ThisDrawing.Utility.GetPoint(, "请拾取插入点:")
Set qiuhetext = ThisDrawing.ModelSpace.AddText(Format(Trim(str(shangzhi)), "0.000"), ppt1, zigao)
sset1.Clear
Me.show
End Sub
Private Sub CommandButton25_Click() '求平均值
Me.Hide
On Error Resume Next
ReDim filtertype(4)
ReDim filterdata(4)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = 0
filterdata(3) = "dimension"
filtertype(4) = -4
filterdata(4) = "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
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
End If
Dim qiuhe As Double
Dim pingjunzhi As Double
Dim wenben1 As AcadEntity
Dim zigao As Double
For Each wenben1 In sset1
If wenben1.ObjectName <> "AcDbText" And wenben1.ObjectName <> "AcDbMText" Then
qiuhe = qiuhe + wenben1.Measurement
zigao = wenben1.TextHeight
Else
qiuhe = qiuhe + Val(wenben1.textstring)
zigao = wenben1.height
End If
Next
pingjunzhi = qiuhe / sset1.count
Dim qiuhetext As AcadText
Dim ppt1 As Variant
newtextstyle2 '调用新建字体样式程序
ThisDrawing.SetVariable "textstyle", "wh_lkx"
ppt1 = ThisDrawing.Utility.GetPoint(, "请拾取插入点:")
Set qiuhetext = ThisDrawing.ModelSpace.AddText(Format(Trim(str(pingjunzhi)), "0.00"), ppt1, zigao)
sset1.Clear
Me.show
End Sub
Private Sub CommandButton26_Click() '纯数字递增
Me.Hide
On Error GoTo eee1
Dim wenben1 As AcadEntity
Dim basepnt As Variant
ThisDrawing.Utility.GetEntity wenben1, basepnt, "请选择纯数字文本(可以是小数):"
If wenben1.ObjectName <> "AcDbText" And wenben1.ObjectName <> "AcDbMText" Then
Me.show
Exit Sub
End If
Dim strtext As String
strtext = wenben1.textstring
Dim i As Integer
For i = 1 To Len(strtext)
If Left(Right(strtext, i), 1) = "." Then Exit For
Next
Dim xiaoshuoweishu As Integer
If i < Len(strtext) Then
xiaoshuoweishu = i
Else
xiaoshuoweishu = 0
End If
'MsgBox xiaoshuoweishu
Dim geshi As String
geshi = "0" & Left(".00000", xiaoshuoweishu) 'xiaoshuweishu 实际上多1位
Dim zengliang As Double
zengliang = ThisDrawing.Utility.GetReal("请输入增量值:")
Dim shuliang As Integer
shuliang = ThisDrawing.Utility.GetInteger("请输入复制个数(大于0):")
Dim ppt1 As Variant
Dim ppt2 As Variant
Dim basepnt1 As Variant
Dim basepnt2(0 To 2) As Double
Dim ddx As Double, ddy As Double
basepnt1 = wenben1.InsertionPoint
Dim copyobj As AcadEntity
ppt1 = ThisDrawing.Utility.GetPoint(, "请拾取第一点:")
ppt2 = ThisDrawing.Utility.GetPoint(ppt1, "请拾取第二点:")
ddx = ppt2(0) - ppt1(0)
ddy = ppt2(1) - ppt1(1)
For i = 1 To shuliang
strtext = strtext + zengliang
Set copyobj = wenben1.Copy()
copyobj.textstring = Format(strtext, geshi)
basepnt2(0) = basepnt1(0) + ddx * i
basepnt2(1) = basepnt1(1) + ddy * i
copyobj.Move basepnt1, basepnt2
Next
Me.show
eee1:
Err.Clear
Me.show
End Sub
Private Sub CommandButton27_Click() '修改小数位数
Me.Hide
On Error Resume Next
ReDim filtertype(3)
ReDim filterdata(3)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "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
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
End If
Dim xiaoshuweishu As Integer
xiaoshuweishu = 2
xiaoshuweishu = Abs(ThisDrawing.Utility.GetInteger("请输入小数位数(默认2位):"))
Dim wenben1 As AcadEntity
Dim zifu As Double
Dim geshi As String
geshi = "0." & Right("00000000", xiaoshuweishu)
If xiaoshuweishu = 0 Then geshi = "0"
For Each wenben1 In sset1
zifu = Val(wenben1.textstring)
If wenben1.textstring = zifu Then
'MsgBox "相同"
wenben1.textstring = Format(zifu, geshi)
End If
Next
Me.show
End Sub
Private Sub CommandButton6_Click() '递增复制
Me.Hide
On Error GoTo e1:
Dim wenben1 As AcadEntity
Dim basepnt As Variant
ThisDrawing.Utility.GetEntity wenben1, basepnt, "请选择文本(末尾是数字):"
If wenben1.ObjectName <> "AcDbText" And wenben1.ObjectName <> "AcDbMText" Then
Me.show
Exit Sub
End If
'MsgBox wenben1.ObjectName
Dim strtext As String
strtext = Right(wenben1.textstring, 1)
If Val(strtext) > 0 And Val(strtext) <= 9 Or strtext = "0" Then
Dim i As Integer
Dim j As Integer
For i = 2 To Len(wenben1.textstring)
strtext = Left(Right(wenben1.textstring, i), 1)
If Val(strtext) > 0 And Val(strtext) <= 9 Or strtext = "0" Then j = j + 1
If i > j + 1 Then Exit For
Next
j = j + 1
Dim zengliang As Integer
Dim chushizhi As Double
zengliang = ThisDrawing.Utility.GetInteger("请输入增量值:")
End If
If j = 0 Then
Me.show
Exit Sub
End If
r1:
chushizhi = chushizhi + zengliang
strtext = Left(wenben1.textstring, Len(wenben1.textstring) - j) & _
Val(Right(wenben1.textstring, j)) + chushizhi
Dim basepnt1 As Variant
basepnt1 = ThisDrawing.Utility.GetPoint(, "指定插入点:")
Dim copyobj As AcadEntity
Set copyobj = wenben1.Copy()
copyobj.textstring = strtext
copyobj.Move wenben1.InsertionPoint, basepnt1
If copyobj.ObjectName = "AcDbText" Then
copyobj.Alignment = acAlignmentMiddleCenter
copyobj.TextAlignmentPoint = basepnt1
Else
copyobj.AttachmentPoint = acAttachmentPointMiddleCenter
copyobj.InsertionPoint = basepnt1
End If
e1:
If Err.Number <> 0 Then
'MsgBox Err.Description
Err.Clear
Me.show
Exit Sub
Else
GoTo r1
End If
End Sub
Private Sub CommandButton7_Click() '超级递增(数在尾)
Me.Hide
On Error GoTo eee1
Dim wenben1 As AcadEntity
Dim basepnt As Variant
ThisDrawing.Utility.GetEntity wenben1, basepnt, "请选择文本(末尾是数字):"
If wenben1.ObjectName <> "AcDbText" And wenben1.ObjectName <> "AcDbMText" Then
Me.show
Exit Sub
End If
Dim strtext As String
strtext = Right(wenben1.textstring, 1)
If Val(strtext) > 0 And Val(strtext) <= 9 Or strtext = "0" Then
Dim i As Integer
Dim j As Integer
For i = 2 To Len(wenben1.textstring)
strtext = Left(Right(wenben1.textstring, i), 1)
If Val(strtext) > 0 And Val(strtext) <= 9 Or strtext = "0" Then j = j + 1
If i > j + 1 Then Exit For
Next
j = j + 1
Dim zengliang As Double
zengliang = ThisDrawing.Utility.GetReal("请输入增量值:")
Dim shuliang As Integer
shuliang = ThisDrawing.Utility.GetInteger("请输入复制个数(大于0):")
Dim ppt1 As Variant
Dim ppt2 As Variant
Dim basepnt1 As Variant
Dim basepnt2(0 To 2) As Double
Dim ddx As Double, ddy As Double
'Dim juli As Double
basepnt1 = wenben1.InsertionPoint
Dim copyobj As AcadEntity
ppt1 = ThisDrawing.Utility.GetPoint(, "请拾取第一点:")
ppt2 = ThisDrawing.Utility.GetPoint(ppt1, "请拾取第二点:")
ddx = ppt2(0) - ppt1(0)
ddy = ppt2(1) - ppt1(1)
'juli = ((ppt2(0) - ppt1(0)) ^ 2 + (ppt2(1) - ppt1(1)) ^ 2) ^ 0.5 '* (ppt2(0) - ppt1(0)) / Abs(ppt2(0) - ppt1(0))
For i = 1 To shuliang
strtext = Left(wenben1.textstring, Len(wenben1.textstring) - j) & _
Val(Right(wenben1.textstring, j)) + zengliang * i
Set copyobj = wenben1.Copy()
copyobj.textstring = strtext
basepnt2(0) = basepnt1(0) + ddx * i
basepnt2(1) = basepnt1(1) + ddy * i
copyobj.Move basepnt1, basepnt2
Next
Me.show
End If
eee1:
Err.Clear
Me.show
End Sub
Private Sub CommandButton19_Click() '超级递增(数在头)
Me.Hide
On Error GoTo eee1
Dim wenben1 As AcadEntity
Dim basepnt As Variant
ThisDrawing.Utility.GetEntity wenben1, basepnt, "请选择文本(文字开头是数字):"
If wenben1.ObjectName <> "AcDbText" And wenben1.ObjectName <> "AcDbMText" Then
Me.show
Exit Sub
End If
Dim strtext As String
strtext = Left(wenben1.textstring, 1)
If Val(strtext) > 0 And Val(strtext) <= 9 Or strtext = "0" Then
Dim i As Integer
Dim j As Integer
For i = 2 To Len(wenben1.textstring)
strtext = Right(Left(wenben1.textstring, i), 1)
If Val(strtext) > 0 And Val(strtext) <= 9 Or strtext = "0" Then j = j + 1
If i > j + 1 Then Exit For
Next
j = j + 1
Dim zengliang As Double
zengliang = ThisDrawing.Utility.GetReal("请输入增量值:")
Dim shuliang As Integer
shuliang = ThisDrawing.Utility.GetInteger("请输入复制个数(大于0):")
'Dim juli As Double
Dim ppt1 As Variant
Dim ppt2 As Variant
Dim basepnt1 As Variant
Dim basepnt2(0 To 2) As Double
Dim ddx As Double, ddy As Double
basepnt1 = wenben1.InsertionPoint
Dim copyobj As AcadEntity
ppt1 = ThisDrawing.Utility.GetPoint(, "请拾取第一点:")
ppt2 = ThisDrawing.Utility.GetPoint(ppt1, "请拾取第二点:")
ddx = ppt2(0) - ppt1(0)
ddy = ppt2(1) - ppt1(1)
'juli = ((ppt2(0) - ppt1(0)) ^ 2 + (ppt2(1) - ppt1(1)) ^ 2) ^ 0.5 '* (ppt2(0) - ppt1(0)) / Abs(ppt2(0) - ppt1(0))
For i = 1 To shuliang
strtext = Val(Left(wenben1.textstring, j)) + zengliang * i & _
Right(wenben1.textstring, Len(wenben1.textstring) - j)
Set copyobj = wenben1.Copy()
copyobj.textstring = strtext
basepnt2(0) = basepnt1(0) + ddx * i
basepnt2(1) = basepnt1(1) + ddy * i
copyobj.Move basepnt1, basepnt2
Next
Me.show
End If
eee1:
Err.Clear
Me.show
End Sub
Private Sub CommandButton8_Click() '文字求和
Me.Hide
On Error Resume Next
ReDim filtertype(4)
ReDim filterdata(4)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = 0
filterdata(3) = "dimension"
filtertype(4) = -4
filterdata(4) = "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
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
End If
Dim qiuhe As Double
Dim wenben1 As AcadEntity
Dim zigao As Double
For Each wenben1 In sset1
If wenben1.ObjectName <> "AcDbText" And wenben1.ObjectName <> "AcDbMText" Then
qiuhe = qiuhe + wenben1.Measurement '是标注文本
zigao = wenben1.TextHeight
Else
qiuhe = qiuhe + Val(wenben1.textstring)'单行或是多行文本 sset1.Item(0).textstring
zigao = wenben1.height
End If
Next
Dim qiuhetext As AcadText
Dim ppt1 As Variant
newtextstyle2 '调用新建字体样式程序
ThisDrawing.SetVariable "textstyle", "wh_lkx"
ppt1 = ThisDrawing.Utility.GetPoint(, "请拾取插入点:")
Set qiuhetext = ThisDrawing.ModelSpace.AddText(Format(Trim(str(qiuhe)), "0.000"), ppt1, zigao)
sset1.Clear
Me.show
End Sub
Private Sub CommandButton9_Click() '文字求积
Me.Hide
On Error Resume Next
ReDim filtertype(4)
ReDim filterdata(4)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = 0
filterdata(3) = "dimension"
filtertype(4) = -4
filterdata(4) = "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
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
End If
Dim qiuji As Double
Dim wenben1 As AcadEntity
qiuji = 1
Dim zigao As Double
For Each wenben1 In sset1
If wenben1.ObjectName <> "AcDbText" And wenben1.ObjectName <> "AcDbMText" Then
qiuji = qiuji * wenben1.Measurement
zigao = wenben1.TextHeight
Else
qiuji = qiuji * Val(wenben1.textstring)
zigao = wenben1.height
End If
Next
Dim qiujitext As AcadText
Dim ppt1 As Variant
newtextstyle2 '调用新建字体样式程序
ThisDrawing.SetVariable "textstyle", "wh_lkx"
ppt1 = ThisDrawing.Utility.GetPoint(, "请拾取插入点:")
Set qiujitext = ThisDrawing.ModelSpace.AddText(Format(Trim(str(qiuji)), "0.000"), ppt1, zigao)
sset1.Clear
Me.show
End Sub
Private Sub CommandButton10_Click() '数字改桩号
Me.Hide
On Error Resume Next
ReDim filtertype(3)
ReDim filterdata(3)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "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
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
End If
Dim xiaoshuweishu As Integer
'ThisDrawing.Utility.Prompt ("请输入保留的小数位数:") & vbCrLf
xiaoshuweishu = ThisDrawing.Utility.GetInteger("请输入保留的小数位数:")
Dim wenben1 As AcadEntity
Dim geshi As String
geshi = "0+000." & Right("000000000000000", xiaoshuweishu)
If xiaoshuweishu = 0 Then geshi = "0+000"
For Each wenben1 In sset1
wenben1.textstring = Format(wenben1.textstring, geshi)
Next
Me.show
End Sub
Private Sub CommandButton11_Click() '桩号批量增减
Me.Hide
On Error Resume Next
ReDim filtertype(3)
ReDim filterdata(3)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "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
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
End If
Dim zengliang As Double
zengliang = ThisDrawing.Utility.GetReal("请输入桩号增量值(可以为负):")
Dim wenben1 As AcadEntity
Dim i As Integer
Dim zifu As String
Dim xiaoshuweishu As Integer '记录小数位数
Dim changdu As Integer
Dim geshi As String
For Each wenben1 In sset1
xiaoshuweishu = 0
zifu = wenben1.textstring
changdu = Len(zifu)
For i = 1 To changdu
If Left(Right(zifu, i), 1) = "." Then xiaoshuweishu = i
If Left(Right(zifu, i), 1) = "+" Then Exit For
Next
zifu = Left(wenben1.textstring, Len(wenben1.textstring) - i) & Right(wenben1.textstring, i - 1)
wenben1.textstring = str(Val(zifu) + zengliang)
geshi = "0+000." & Right("000000000000000", xiaoshuweishu - 1)
If xiaoshuweishu = 0 Then geshi = "0+000"
wenben1.textstring = Format(wenben1.textstring, geshi)
Next
Me.show
End Sub
Private Sub CommandButton12_Click() '桩号改数字
Me.Hide
On Error Resume Next
ReDim filtertype(3)
ReDim filterdata(3)
filtertype(0) = -4
filterdata(0) = "<or"
filtertype(1) = 0
filterdata(1) = "text"
filtertype(2) = 0
filterdata(2) = "mtext"
filtertype(3) = -4
filterdata(3) = "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
ThisDrawing.Utility.prompt "-------选择失败-------by沙漠骆驼-------" & vbCrLf
Me.show
Exit Sub
End If
Dim wenben1 As AcadEntity
Dim i As Integer
Dim zifu As String
Dim changdu As Integer
For Each wenben1 In sset1
xiaoshuweishu = 0
zifu = wenben1.textstring
changdu = Len(zifu)
For i = 1 To changdu
If Left(Right(zifu, i), 1) = "+" Then Exit For
Next
wenben1.textstring = Val(Left(wenben1.textstring, Len(wenben1.textstring) - i) & Right(wenben1.textstring, i - 1))
Next
Me.show
End Sub
怎么用呢 ？？？？？？？？？？ 刚注意，这是VBA的源码，收藏一下。
页:
[1]