求大神帮忙改一下这个改属性块的程序
data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAywAAAG2CAYAAACd7AKRAAAgAElEQVR4nO3dPXbbxtoA4NF3shT5FvdkBdQK5DSp0qajSqdJlzJdGrq0utumShN6BdYKfFKE2gu/QqJEQyAwAAaYAfA8PnNsi/gZguK8eDGYwVUI4RgAAAAK9H+5KwAAAHCJhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACiWhAUAACjWd7krAG8cR9ru1UjbBYAxiYusnISFMpw3xk0N6HHA67H7AIDcxEV4cRXGy9vhrUu/baffxLEa5eoyTfUAgKmIi9BKwsI0Tr9lTVd5pmqUm14/p5EGYAwxPRviIrxwSxjjaktUTsuU0ChXX4+pOwB0Mfe4KCaSgR4WxjHFvbcxr0+1DwBospS46GIeGZjWmLSO4duGbs6N8vnrp/cFAF0sLS6GIC4yOT0spFG94jJ2o5urZ8WVJQBiiIuQjISF4aoN2FIb5errIaIeAKxLXXwQF2EQg+7pb82N8vkVsxBRJwCW7VI8EBdhMD0sdKdR7lc3AJapb2wQFyGKhIV4TVdN1twon78eWpYBYDnERXGRSbgljDhtUxyuvVE+OV0C0DgDLJu42O02MXGRAUxrTDuNcrc66LcEWDZxsdvr4iIDSVhoplHuVweNM8AyiYv9XhcXGcCvD5dplNPUIURsB4DyiYvj1xFq6GGhnkY5XR1cFgCYP3ExXR3FRDrya8O32noESmrw5lYHV5UA5kdcHKeO7kCgAwkLr3I3aHNolIduQ9ICMB+5Y84c4uLQOoqLRHBLGE9yN2hzaJRTbgOAsuWOOXOIi6nGrIiLtJCwUEaD1qaEOqbah35NgLLljjlrSVbERSJJWNZuTg1artfH2IfGGaBMuWPOWuOmuEgDCQuXldigTf36VPsAoHxriEkl1BEqJCxrNmQQXAkN2tzr6GoSQFlyxsXcMSnF60O3IS5ygYRlrSQr5dRR4wyQn2SlnDqKi1RIWNZIslJWHTXOAHlJVobfoiUuMiIJC6/W0OiWWkeNM0B51hqTSqiDuMgZCcvaXGo0ltrgdXk9dx00zgDTyxUXS49JJdWB1ZOwrIlkpVkJdQBgOpKVsuvgQh7PJCxrt4YGbw51PF9G4wyQT0nxQB0ghCBhWY+6hmENDd4c6hi7DADp5IiLS4lJU9bBhTyChGW91tDgzaGOdctonAHGJVmZVx3ExdWTsKxB9Yu/hgZvDnWMXQaAcc0hHqgDKyZhWZsSGpvcr8+hDq4mAYxj6ot4S4hJU70uLnKBhGXpzr/8a2nwSq9jl21onAHGM6d4sOQ6nI9XaVtGXFwlCcuSSVaWWQcA+pkyLq4lJpVQRxZPwrIGJTQmuV9fSh0AGG4J8WAJdZCsEEnCslTnXae5G5Pcr8+5Drq/AdKYKi4uOSZN+fqlZcTFVfKxL5VPdVlcXQIYRlxcFnFxVb7LXQFG5Mu8DIIsQBri4jKIi6vjlrAlcr/nsugHBRhGXFwWcXF1JCwAAECxJCwAAECxJCxLo9t7mXR/A/QjLi6TuLgqEhYAAKBYEhYAAKBYEpYl0e29bLq/AboRF5dNXFwNCQsAAFAsCQsAAFAsCctS6PZeB93fAHHExXUQF1dBwgIAABRLwgIAABRLwgIAABRLwgIAABTru9wVAABYjaYB4l0nCTjf1pQTDJz2a1IDJmJuhSUwE8r6+MwBLiu5jYw564qp+6XtjPm+q/ss6RiX/JkzmB4WAICpVC8Vn59kHyt/XzoBr3t9zMvPLm2TmTEsAAAlSNGzMkZycXVWIAMJCwBAKZp6TfR0sFISFgCAuWnq7ZDYsDASFgCAUlXHtcAKSVgAAObEWBJWRsICAFAqyQmY1hgAYLH63EoWkyRJpJiQHhYAgKnkejp9CsbRkIkeFgCApZpbUgQ19LAAAADFkrAAAADFkrAAAJQixRgXt4GxMBIWAIC5MyCeBZOwLMFV0FCtyTG4egbQZK5xUe9KP+Li4klYAABya0uwzk/Iq8vOMTmDDiQsAAC5HMPbhKNLb8FUz3WRJJGR57AAAIyt7gS/7mdNScf5rW5DkpwumhKT02tux2JkEhYAgLGlOqk/bWeqZEEyQgEkLAAAcyORYEWMYVmKuc6IQjdmQgGIIy6ug7i4ChIWAACgWBIWAACgWBKWJdH9vWy6vQG6EReXTVxcDQkLAABQLAkLAABQLAnL0uj+Xibd3gD9iIvLJC6uioQFAAAoloQFAAAoloRliXR/L4tub4BhxMVlERdX57vcFWBEGmcAeCUuwixJWJbsdEXp0lWItisUQ1+fYh9zqMPQOgqwAOmU3N6X8Poc6iAuro5bwpZKslJGHVI0yrq9AcaXu70v4fU51EFcXCUJyxrlbmzWUocUdQQgjdLb+9yvz6UOrJKEZcnqBhmW0NisoQ4aZYB5KKG9z/36XOrAaklY1qSExmYNdUjVKGu4AdKqXsgrob3P/fpc6hC7DItk0P3SnTfOuRubEhq83K93WQaA8ZTQ3ud+fS51OC3Daulhod1SGrzcr3dZJkQsB0B3pwt5udv73K/PpQ6nZULEciyWhGUNhjQWS2nwcr/eZZkQsRwA/dWN8TwRk8qpw2mZELEciyZhWYtLjfPQ+0Hn0ODlfj3lMgCkURcXU7TDuWPOHOJml2VCxHIsnoRlzXI3WEtodFMnK5IWgDyWEHPm8B5SLsNqSFjW5PxqUu4GawmNrkYZYN5OcXEJMWcO76HrMuIjzyQsazPFYMMSGrzcr/dZRsMMUKbcMWUJcTPlMqyOhIVv5W7Q5tDoSlYAlmPuMWcOcbPPMuIiZyQsa1Q30DCE/A3aHBpdjTLA8sw1Ls4hbvZZRlykQsLCk9wN2hwaXd3dAOuRO6YsIW6mXIZVk7Cs1fnVpNwN2hwa3bEaZY00QBnmFBfnEDf7LiMuUuNSJyhrkbtBm0Ojq1EGWI/cMWUJcbPvMuIiF+hhWbumlHUODV7u12O3oVEGmIfS42KbEuooLpKYHhaedG04Smnw5lhHjTJA+cTF7q/33Ya4SAs9LDwp6d7dVNsYQqMMsG7iYvfti4uM5LvcFaAgMf1tc2mUh2xDowxACOLimNs/HVdxkQhuCaNenxPu3A1qim1IVgCoIy6m276YSEcSFi47b1A0yv227woSwHKIi8O3L1mhBwkLzWJOuHM3qCm2oVEGIIa42H/74iI9GXTPMLkb1BTb0CgDkErumJZiG+IihdHDQpwx7t0tYRsaZQD6EBfjXxcXGUjCQrzzbvDcDWqKbaTevvEqAOsiLja/Li6SiISF7nI3qCm2MUajrEEGWKfcMS3FNsRFCiZhoZ9LV000ygCs0aVYIC7CYBIWhunSHR4ilplTo6yrG4Bz1bggLkISEhbSWFOjfKJBBqBO7Im7uAhRJCyk09RAL6lR1iADEENchCQkLKTXtUu89EZZgwzAEOIiDPJd7gqwQNXpDJuU3ChrkAFIYQlx0a1fZKSHhWnUNXQlNsoaZACmUHdRrOS4KCaSkYSF6U0xGLFLoyxJASCXLjFIXGSlJCzkc+k3L2aK5D6NctP+ACA3cRFqSVgoT9NvZFuj3bYuAMxNW2IhLrJwEhbmJea3VQMMwBrEnsGJi8ychAUAACjW/+WuAAAAwCUSFgAAoFgSFgAAoFgSFgAAoFgSFmBim7A77MNuuxln2/tD2I+y7Yy2+3DYb3PX4sl2Fw77XVjaIQagbEdFUZTpyva4Pz477I/bTcptb467w8vGj/vdpoD3O7BsdsfTWzoU8H42rwf4eNhvj5ukn5+iKIqivC16WIBpbX8Mt+f/fxhpP5//CL//MtbGp7IN+y8fwvXz/64/fAmHXc6ujU346Yfrl/9dv/sxfJ+xNgCsg4QFmNTmv++e//UYPv78PtyPtJ/Hf78OyoU22304Ho+Zy6dvk7vwlLTkuzvs+/Cfl3zlc7h79z7czz0nBKB4EhZgQmdX6D//Ebp1gGzCdtt2pv4Q/jk0bWITYvsnHu7fh5u7u3B3dxNubq7C1VXfchc+P2/z8ePNgO28lvcjZXmb3b45GTrvHfv812jJJgBUZb8vTVGUtZTX8Sv7bZf1Nsft64rHTcOyp+XejPc4jQU57BrXH/M9lzAG5WI5Gyuz39bXc/s6+Oi4M3ZFURRFma5kr4CiKGspr1nHcVt5bbPbP58Eb4/713HdtZ5OqM+SmK5akp60ZeqE5WxSg97qEpKzCQ0mT/oURVGUlZfsFVAUZSXlvJfk/OevM0+dTpQ3x+12e9xsnk/wX67+Hyo9M0/LbTeblxPoSz0sL/sYcrK92R63F3ofLpd+Cct2vx/Qi7F5PXax5eXDudB78k0PTP7fJUVRFGVVJXsFFEVZRYm98v92quMuyUZrwlJJljqV55P2Q6fpmLsnLNt9NYGboDT0fn1z/C68riiKoihjFYPu+dYxdwVYrNOA7ceP4aZxUHl15qnXgfqf//gl2SzIm+02egB+1fX1bfj0pftMX9cfvkSt8+n2ZSLj8OHLIWSdyTiEcP4ZPH78vdtg++0+HA673scashMXITsJyxRKa+za6nOMWAY62v74dNreOenY/hY+XIcQwufwV6JpqTa7Q/jy6VP4MuBEOn7Gr+6zhN19ftlL+Hj3c8fZ1Eaw+Sk85SuP4e8/O1Rmuw+HT7fh+vrDoGPNApUWY8RFKF72bp5Fl+qfUuozl/oqyygDZuh6e4vX+dPsE+g0AL/PeJQ+t4S9rDDd4PaGW8J6T25QZbC+EkJ5caapHnV/ctdXUVZY9LBM7Zhpn6fSVI/qz65GqxErs/nph3Ad+tzStQ1PHTPnV/Yfwi/vbsLd3V24ubl5c3vZqXei2ptx8/Hx6YXPd9/2aLy/T3ab2TK9fgYfY55H89I99DncVV97l+6WPhak5LhYJS5CFt/lrsCqTNnQDQ0AGmWS2YbfPlyH8Pnu4gMPN7t9+O2f929ffxn38nf49k6kh3DvEevTOH9YJAyV88JY17joIh4UQw/LmIYkDbHrXuo8q3NVKZf2p1Emoc3u13AbHsPH3+uzlc3uEL58uA23n94OLu897oVENmH3620I4TE8Pl6HH35qH4Wy+e+78avFOqWOi9WY2BT7xEXISsIypS5364XQnHw0qWt4x2hsc3Tjk99mFw6HfdhGjaB+7l0J1+HDhVm1vny4MCPWZhd+vQ3hzWD7zTbstgPq/+6/Bn/Hep7w4PHjz+Hnvx/D9X++j1/38d/wdbyaMUeXbkXOFRe71nXM9YBW2QfSLLKk/jO0DimWG7qOMvuy2e6Pr+Pd25/Hsdkd3g60jnkA4WZ7fH30yqZm3cNxv90cN31Ggw8a+J3iKfJT1HVz3HR9fkvNoPunHz3/f7vv9BycQc+7UZZXxvgztB4plhu6jqIoUUUPyxiOZ/+u63JuKlVdrwoNqevp/zGF1XmaCvg2XL/85DZ8Ou7D5c6Obfjth0O46zHQevPTr+HU8fLNs0u+fHje/3W4/fRb+P7+fbi5uwt3dzfh5iZu0P3j4Z+Otak3zbTGPW1+Cv/7cgyH/S6yJ6xuG089XJ/v3j89d+Xrv+Hx+ofQfFfYJrgjjFbiYjpziMfOG0hAwpLakC9ldd0hDXI1aRqThmhkm7A71N9ONWV5vXXrXFPS8jX8/vP7bg8ZfPbwy7unBKP6kMmbj+E57Qgfb562/XB/H+7vH8JDS1b08OfP4ebqKrybelawzX/D5OfwD/+EQwjh+vZD/AMuP52G1r8L/91swu5/H0L4ePM6EcLDP+EQrkPzXWHfh/88/5o8/uuGMJ4NiUfiYvs+xkwIUlwbr9YXejBLWEpDGtaUjXLTPq4q/++6vynqScXTNL7/bL8PX79+DeHhYSYD0NuTiMa1f3kXrn6p/PD7/zz1sLyZNSxmg/mP2+Gf6Wvw+PEmvIt58uR2H46f3oXPdz+HP7//LXwJH8PNN+t9Df8+hvDhx20I95eme3tNznK8VwpUykW8pn3MNS5ehbcJQep9V/cx1Bh1ZBUkLGM6fcnbvpxTNcrnfzftI2YZDc7ETOMbQooZqLZhvw/hd89eeevr7+Hu5iHcP2zD/hBqbuV7CP8cwsukBbXH75RQhsegg4VapcbF2PqUFhdP++zyXvruoysXOEnILWGpNDVmTVcnhn6hY+6lrdt/zFWkS925Gh2S24Ttvmk8zJPvT/cbHf7pkXBsw/74Kdzefgpf9kOmGVuoh4dw/xBC2ITw14Vb+b7++xhCwziW0zTUvXrAWJ4ccTF2jMmlcSpt+yw1Lube/7m6Y1lS/ZglCUsK1QYrtnFOcfXhqvLvS1MaXxrE2LbPKaZHZuU2Ybv/Ej7d3oZPh/akJYSn8RGb3aF2LMZpKMY3g/WPx3A8fnp9AOLtp3CoPvSlRNf/CR0mEk7j4T5c6sx7+PPv8BguPY/lbMB9r4SSRckVF+ti3NriYs6xIhIVRpRiSNV6S9MUhpemOEw1PWNbnS5tu22/TfXOfbyVWZXt/nUS5C5T+W53+5opjzcvUx2fXttsd8ft9tspfE/T6n4zHXKqcjYl8zTap46uL6/TL6c9Ds+fQd30xjHTVSvrKOJi3uM+ZZ3O9zf1vpVVFT0sfZ0OYQiXryDEXlHKdQWiz5Ur6OD+/bunaYdvXqcdfp3pK4TPdzXT+r77Jdz/E8Ltj9W+ltMMVK/jIx7uf4maIWwMsVMUn6ZTDuFzuIuaBjnBtMajeR7Hcv0h/Fb5eDY//fA8fqXyoE/WQ1zMp+4Y5th/KceDxZGw9HH+xYz5clYHxdW9lkrdPs6DSF2jkruhY9Ee7u/D/UPHpOL+r/D59sdvbw97mYHqEHJPQPX4+WP4I3KQxvev8/x2ePL7Y/h8dxNurvpNCz2m+7+esqlvE8pN+OmH5/f5+a/i6swE5h4Xq/Wee1yce/2hQsLSR5f7MqdslNs0JSvnjXd1naENX4ptsDJfw7+Pt+HXs3EmL1fwO53419mEXcQA/1oPf4afr67Cu/e/vIzzaJ4soN+4jvv378L7+/zTMNe6/z18fAwh3P4aXj6ezU/hNV+RrqxSiriYY8zDKVmp/uz877p1So2LOXs4us78Bh1IWKYwVbKSojGoCyBDtn288G9o9BD+/PsxXP/wUzidE596Kh7//nPAifwm7A5fwofb2/DpsAvdh92/TSLuf/83/HppW2cn8st5kOLTZxPCdfjwfF/Y9rcPbgejm0uxZuz9dF2mKX6XEhfnEFvbkkCIkH0gzeJK3SC0roPh+gxca9pX3c9jBj9W30+q+ijrLbGDs5+Xe1rmNIj8cNxtNi8D6werGzzeo2x2h/ptvVT0cNxthu8nvow16P7t9vfb189znH0piyhNcbHLNvruty0uNv2s7uclxcXY2N6nbmP9yf37qMyxZK/A8srQL2iKdZoa4bZGre7nQ+qjoVLOS/RsUs8zUu23x83Lif9p1qzNcbvdHrebzZskYdRZwmLqWlOXVIlRfEmRsHw7+1q1bHbV+dL6zmimrKLkjotNcW3OcbHtfaX6nMb4k/t3UplbyV6BZZVcX+rq8m0NWNP2614bUh8NlHJeOkx/ezopPhziT77zJCxn7+uUnGxy9jz0T1g2m+1xfzgcj4d9S6/Q6z70riiNpYS4GBPX5hgX2+o1dtwV35WJijEsqZwOaVXdw6naSnX9mH23Ld/08K6YbXWdPaVuP6Y7pNEmbHf7sD8baP/wyx/hcwjh+nk6479Lfnz6wy/h3d3nEK4/hC+Hfdifjev445eC6x1COB37w/EYvvzvx/DvHz+Hq3fvQ3O1v4Z/H1//d8g9dRvlERfr99f2s1gx9YIFyZ41zb4MvQrUtL0uy3dZv8tVpEvvM/dxV+ZZanpYNtvdcX84Hg/77ZvlX+8Ge/taXcnWw/JcqrdK5XmIYlwPy+m4Py24P+62scfs9SGe+d+rUlypixXi4njHOcXxSvFZ5/69UxZd9LAMcTqMJ7mmZDztu+s6XblqQ2r/3Ybd/hC+fPoQ3v19E969r0wxtd2HT7fP/779FA677vN6Te3hz7/DWcdDePfjLmxLqvZmE7b7w1NvyqcP4TZ8Dh/vbp56VO5jekmeZ1p77vX6eHcXTs+5vP10CPte80WzCCXExFM9Tvvvus5ctL3HJT1TBp5lz5pmVdqupkzZw9LnalDTel3WdUVF6VvOelgaxz9s92c9MWc9BpWB7dWSs4dlc1bnw+6s9+JU78lmCqv2sGy+7U15euW4j+5ROX122296ZLan91P5TDtvV5l3WXNcrPsz5fEe8rlMVQ9FSVOyV2AepU8DMXQ/MfvqWoe27aZMWDRmSk2p3jJVm1i8nAAfXm8z2pwP8r58sr3dH4+H/e71ZHqSsjluX8/kz+q2OW6r904933o16qxh5wnE4U16eNzvmpO+tm0e9jWznlWSlrbEUllAERf71S/VsRhj+THroijDSvYKLKtM1TD3aVxTNKZ9GmUNmnJezh6iUpesvPZS1D275O3YicN+f9xtt8dNzRTH7aV56t6Y9be7/Tcn8rWJ0nnPRCV5OOz3x/1+9zpN83Op29/m5fXtcdvQi/F2yuEhScR50tXSK3PWw3RKzqZNHJUii7hY/z66Ho8U66WMxeK7Mm3JXoFllaka5j51iNlebFDo0zBr1JTnst0fawfRv0xjXHcF/3y56onxmzPzw/HwXPb7/XF/9v/DNz0Oh9Z91ZdKohJ7Yr7ZHnf1mUsnrT1I1dvu+iYOZ4lWdK9VzWczfY+XUlQpNS7Gbq+EuJjy+KWKxWK7Mm3JXoFllbGSjaHb6NooDm2AJCtKl7LZPvecdBtX8TQuo2cC0PlhjtVxIM+3VvU8Ed9sd8fd/tCceNWIPT4vyV+f27/Ob3HrNHvY6fN8O07pdMwOkz9EU8leSoyLfZKFXHFxrH2n3Gbu3zFlDSV7BZZVUv5JUYch9Ux5LHJ/Lkqx5am3pOe4im/K6Vap7XG337/tWamcODc/FPG5bJ56Ul7O3Q/7425wPS8ch83mqe67p7q/9gh9k6102GbzbWMXj+Gph6RPovLNsaveBjcswVNmXHLHxdhtjB0X+2wrZQwd8p6qy6Y+X1CU9pK9AssquRvmah361jXl8cj9mSjFlu0+RaKSvmx2z8nCy/iY/HUat7wmKk+3t6Wa5evUU2Msy6pL7rjYZRulxMWxkoG+253iuChKQ7l6/gepnB/NPvPPD12/zzbqfgM8cwVWYbPdh//9GsLff/we/rx/CJ5XT3K542Kf9XPGxRTnAW3bT3F+ceJ8gQlIWFJL0bAO+fJXP80+jbPGB4BUSoqLfROWHA+FLjUWO18gAwnL0pw+zRxBAQBK0ze2iYn1HBcykLAAAADF+r/cFQAAALhEwgIAABRLwgIAABRLwgIAABRLwgIAABRLwgIAABRLwgIAABRLwgIAABRLwgIAABRLwpLS8bmUsp2USqwTAGUTF4EEroKvWzrVI3mVeTtDXfrNyFUfAOZFXAQS0MMyplSp4JQp5TG0XzWS4gLQx9zi4jHExUVgVN/lrsBipbra0mc7p0b10rqpuuddUQIg1pLjopgIo5KwLNmQBljDC8DS9I2LYiJkJWFZm7arSxplANZEXITiSViWrmtDq4EGYMnERZgdg+6nkGrMyFSaGmWDDgGIMfbkLbHbGLqvqyAuQmYSlrEdK3/n2kasmEZZ4wxAX3OIi12TIXERRuU5LF2kuEqT4mi3dUvnTmwAWIc5xMWpznLERRiNHpYuhjZGqaY9jG18x2w8pbkAiIvd6wB0pocllRRP4a37JPoODuyybp91AKCJuAgkoodlDBo3AHglLgIDmNY4heoVoD5d3GP2c6WYktG0jgDEEhfHcemYnO6XueqwbJfXYrebSoqeNRZFwjKWEk/wYxr/tmVS3W8MwLqIi/3F1KHL8qVqmwq7pN8dJiVhGcP5FYqYBnqKqxWplFgngMyOx9eG/OpKQ/mGuDjevpp6Iy6NxTn/PKrbrPaydH29r6YxT+e/OyX+DjA6CctQc7uKcamxK2FKSIAFOE9ezq0mkSk1Zlw6/HOJi03171qf0nq7UkzQwKJJWMZSbUAuNX7VqxS5GvqxGi+NEEAIoT6RWU0SE4K4WN3uydTPVistWamqq1e1h67UujMaCcsQXRqRmEZ5qBSNWlNDUNKASYAFWFxvjLjYvq0xeEgFCydh6auUK0BDjdUDcul4uDIC0GqWicxc42DVWM9gGRoX25aLea1r70rBv26si4RlqLYGIrbLO7VSG5mR6nUpuAMsySwG98dMm5sjLpZqqvda+q1g0EDC0kfTuXHdbBpN6+eeXaTt9b55QF3AGvG9Fhu4gVWY6qJJsW3dkLiYc6xjn33ljIt9kw7X9Jg5CcsQQxq6lMnB0HXHct4FXWiMBShRsYlJnSEX4drWFRfrpyge0lvSZd9djmGf4z1GPVgkCUtXdY1E7Bdpqu7Y0hqAGcVdgKnNKjlpkjpZSWkJcbFr4tL3vQydOGGo84RKosIzCctUSv/SLSReApRqMYnJuRSxrdTDUnq9YqaIvrRObC/LpWWaHlbZR92U103LsjoSllhjdoyIlAEAAA3qSURBVHnX6bKPpi9206wkACS3yMSkToq42GU9cfFbS+uFqHs/S3uP9CZhidG3Uc4xkLDvPpqCx9BtDt0OQOFWk6ScpIiLUx2ytcTFpYwXXcJ7IDkJS4ymaRgvKWl6xqYZWdq6YVM1ygAsx5C4mDsmhjCfuJg6CenyxPgut4PByCQssbo2GFPPq35pnzGNUdMEAikTr6Vc/QFAXGzbVowp4uLc425JF4DJ5v9yV4BEYr7Ex9B+ZeSqYVtDr6poaACYylLiYuw++oyRLaW35BjaPwvnEKumhyWHVA1EbPd6n+7sugdcnbbVZ30NDcA69L31KeW+S4yLddsbqpSEYywl3UZIVnpYcmj74nW54tK0bN3Viq4zsgydprDrPgFYnzXExfN1+8yq1uXWtNgpgpuWzZ0MSVY4o4cllzGn6ht7fvSu6wJAG3GxXUyy1dYLdOn1S/trWy9FnK9OBnD6GTyTsAyV4v7VvrdONV1R6bqtmH3lvtoCwPqsOS6OcavZkB6iMUlQaOA0dKhUVwJSXKUwCxcAuaWIi6nimbgIiyBhAQAAimXQPQAAUCwJCwAAUCwJCwAAUCwJCwAAUCwJCwAAUCwJCwAAUCwJS2p9Jok2sTQASyUuAgNJWFI6nv3dtbHts85QffcnkAAQQ1wEEvDgyJTqjmTME3ar6431VN7qE3+HfvKeHgxAE3ERSEAPy5j6NFxjNsrnf6fcJgDEEBeBHr7LXYHFmOpqUNt+Y9c5r19dXY89XwOAEOYVF6u6xL7z/YmLMAoJy9ydGsc+9wYDwNL0iYtiIhRNwjKGvldYhlyZ6XrFp6lx7vsaANRZclwERmcMSwqxDZkGD4A1iL1NSlwsz/GsQCH0sIwh5iqN+1wBWIO2E19xsRzVz6o65jX2NUhMwpLL6Yt+rPlZjrr0eQ0AUhEXy1Cd5rnuM1j6MaA4EpbUmq5EtC1zvtyQBtqMJQCUQlych669KY5jP7lmz5s5CctQMY1g36mHm7aZUpeBia6qANBEXBxH3xPdIcnaeY/XkFnXuux3brcI1tX3UvLnHKo3CcvUmr6AdVMxpvripu5Wn0tDAkDZxMV2dSe6McehbkzKpXUubad6m17b+xy7rpdO+tums66+jyZD3mOX7V+65Y43zBJWotRZ+fnVkS5XPfSuANDFWHEiZ1zM3btS3f8UPStVVyFu333qev4Z1O0n5ryl+jDsS7ev1f08Zp/V+rat37Re24O7qaWHZYiYhqpvYxZ7JSB29pUu6wDAWPqeSK8xLvbtTao7xtXbu1KfLPepa9PvQuznnbqXrEuyMtSYn8fC6GFJqe2L1efe0bbtx1xVqCsAkNIUJ/1jxcUSpUxWLv0/ldTJStOyU7l0i1oIaSaAMBFEJ3pY+qp+OYd+mWLvHe2yboyxp240GwbAusTGxbZ4sOa4mOL9xSQBOSYwqDOnHoa2W+ljxtBIVjrTwzKmtl/IroO/Uv1S55rRBIBlutTeN12l7rKdqtRxcSpjx0Vx90lMQtC3NyhG0z6vav5NKz0sfTR1fY51lWCsX+qmRKqu673PYL++2wBgXmLb9xRxYKq42Dbofu1xceyxuqdlp9Z3nyl6v3hDwtLVpZP56hcvV3df7H771KnkAANAHm3jF04n5Lmu/s89LjYdt9Jiate6NtW/hHErFEPC0kdpDURXUzQQdcFp7scNgHpdZ/sqzVRjOVLHxTn1zvSt6xQD8scet8RgEpYuYn9pSx1M1XfGkeo2unb5z6lBBSBen7hYkhLjYopB+VMZq65tt973delOmHOpe+FIQsLS1dx+WVM2an3nC5/bMQMgXpfZvEqIB+JiPjHHqUsSGZv0Na1b6kVmviFh6SJmCsZSrnqEUB8ojjU/j10fAM7N7QRvbnFxzJmsUkvxu5Cix6ur0s7dqGVa4zGV0pBXp9FLwZcbgNI13fYz57hYyvlFjK6zqOV8b85tiqWHJaW6+ean+OJ1vQ8zdtB9isGAsfsFYFnqYtMUcbHPrFpriYulnpCnTFZy3+Jl3O4oJCypVL8gsU8z7ftLXfo0h6U2igCML3bWJXEx3ba63to01TGJfYh227TYuVTP6UqbinklJCwp1H3Z6hqO6pd2yBewuv05XJXI3egAMK3zNv9Sj8v5suLieEo8mY5JVqaQchyL85xRSFiGavqyNX0BhjwZtrr9HA+mzPWALQDK1vSA5fPXL63X1ZLjYt17aUqiYk+8p0q+mupaSrJSt98+x6fEhHBBJCx9xf5itjXQQ43VNdm2btsXeowrXQCUS1xMM7VxNX6eb7dLXO27Xhexda2KeR7K+T5K5lxnEiZz6yrFgLkUV5HG3lesPleHAFiOOcXFKc54UsXFIWNy+jwUcYiuSUefsTYx76nr59tWr671dr4zGglLrCnuY70k1awkvkgApDLXuDinmHhpcH3X9XPNWJridq+SEpZL+5jD79LMSVhi6SkAgFfiIjARCQsAAFAsT7oHAACKJWEBAACKJWEBAACKJWEBAACKJWEBAACKJWEBAACKJWEBAACKJWEBAACKJWEBAACKJWEBAACKJWEZw7HH8l3XAYC5EBeBASQsY+nT2KZuoFNtT+AAYChxEejpKvjK9XcMT0ew7ufnrs5+HrP8+TpDjPXJpqgbAMuzxrgoJsLo9LAM1db4nTfKp79j1ylRyXUDIL81xcVS6wUL813uCizCpStEMetcuuqUWt/t6n8DoCtxEUhIwpJKU+Mc2/iOeaVGAwvAlMRFIBG3hA1RbUhjGuAcjXIqc6gjAPm0xYmlxUVgEnpYUmoaOBg7qHAsur4BKEEJcXFIMiQuwuT0sAzV1styvsylgYVtDWffqSBjtw8AqXSNizHbqBoaF4FZMa1xV7mPVmzyYepGAKYgLgIj08MyN7kDAwCURFyExTOGpavzPqmYbu+Y5dru4x16BWfovbpdx+YAsB7i4uvPh267az3G2F+XBDBm303b6zOOyXnHKklY+ohtkKuv52pUhl59alq/z1z7ACzLlHGxaZ0lx8USe5Jipq5uG6/UtE7156yWW8KGGuNLNLcv5tzqC8B4xMX09c05q+hVTWlTl3i0rduUxLowunp6WIao68Kudlmf/z91g9PUDQ8AU6u7bSs2LqaYBmipcbG0Hofz41ztZYm5pau6zBI/M5LSw5JKzIOvLv176H7rGrKUjVnq7QGwbE0xbuwr6OJiPrHjjFLfCsji6WHpq8vVgNPVhD5XEEp6uJXxKgDU6Togvm9vytAYtLS4KCazEhKWrpoa5baZMGIatpKv2PRtGHX1AixTW6ISE9PExWXo+jn1mWltSceLTiQsXXTtValbd2qxs6m0zfLRV/VeZY0NwDK0xcSYqYpzxIS5x8USEri249T1PV0a2+ScgWfGsHQV24DVNUh9vsBT6JOAxSihUQVgHENOtEu8gNXntrYh+5irKd/DEo4XSaSYk4MQLl9Jir2FrO6TGNrVnFLKK0ClBSkA0qqLAUPjYkljOkPIFxdTPkAzZh9NLs0Olvqzct6wem4J66JLg1e3bJcrSilnEasT27CMMRUzAMswZVxMZUhcLCHxGVuKcUdD1CW2JfbIMSm3hHUx9MtS9zCmkg1pmEu5VxmA8awtLg4x17gY8+DIKRI59wOtmh6Wrtq6r2NfqxqrizfmCz5WIzCHhhiAYcTFeOJiN3W9LaySHpal8aUGIJcSY1CJdUphjcnPUj9LWulhGaLpi9Plaa9jXUVKMXXjGhtEANITF4eb+oS9y7jbPuOZrir/TrV9FkfCklIpM1ukHrDfdz70VLOeAVC+S4Pqq+YeF4c8I0RcfLXm905nctaULh3JPrNwlfogqdh6lRKkAMhHXHyVIi5OPaXxGNMtVxO+LrOzOY9YLWNYpnAM7Vee5jIbxpB6lfqeAJiWuDh83dJceiZLqPm5xIOO9LCkcOmqSezPm77kfa5uxKwz9lUaPSwA69U1/omL3dbrs50h++nb0xKzrdiHjHatB4tiDMsQbY1P3RiQrl++Lo1tn27pvvfgtq035qBJAMrUNS7WrbPUuFi11LjYdME2lkSFCj0sXfW9t7bLly/VVY6Y7Y/dgOSeUQWAcaXqOZhiXEvM9sVFKI6EJVaKLuku67Xtr5RPTaMLsE7iYj1xEZKTsMRIMa3vkOkPzZoBQElyxsUuM1ABiyBhGYtGEwBeiYtATxIWAACgWJ7DAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFEvCAgAAFOv/AQXetgwlXZHfAAAAAElFTkSuQmCC求各位大神帮忙弄一下,
现在只能改一个选一下,我想一下子改完。
(defun hs-tukuangmc ()
"M")
(defun c:h9 () ;修改命令
(setq A (SSGET))
( LMSSK "零件件号" "D0-1" )
( LMSSK"零件名称" "入子" )
( LMSSK"零件材质" "SKH-9" )
( LMSSK"零件热处理" "60~62HRC%%D" )
( LMSSK"零件数量" "1 PCS" ))
(defun LMSSK (bq cz / ss is1 )
(princ "\n请选择图框:")
(setq ss (ssget ;"_C" pt1 pt2
(list (cons -4 "<or") (cons 2 (hs-tukuangmc)) (cons -4 "OR>"))
)
)
(setq i 0)
(repeat (sslength ss)
(setq s1 (ssname ss i))
(setq i (1+ i))
(hs-sxtx bq cz s1)
)
)
(defun hs-sxtx ( pn text s1 / aa a1 x bb)
(setq aa (vlax-safearray->list
(vlax-variant-value
(vla-GetAttributes (vlax-ename->vla-object s1))
)
)
)
(setq a1 (mapcar '(lambda (x)
(cons (vla-get-Tagstring x) x)
)
aa
)
)
(setq bb (cdr (assoc pn a1)))
(vla-put-textstring bb text)
)
试试这个行不行
ssyfeng 发表于 2022-9-27 08:58
试试这个行不行
好了,十分感谢 留个脚印,方便日后学习
页:
[1]