[求助]怎样实现批量修改图幅号？
<p><font size="4">我有一批分幅图，因为新标准的出现，不得不修改图幅号，但由于分幅图太多，手工修改太慢，所以想请教大家怎样批量修改，具体如下：</font></p><p><font size="4">比如说一幅图中，</font></p><p><font size="4">西南角的坐标分别为：X=2546600.000米 Y=516500.000米</font></p><p><font size="4">那么CAD（南方CASS）中自动生成的图幅号就是：2546.60-516.50（图幅号即是X/Y缩减一位数并小数点向前移动两位）。</font></p><p><font size="4">现在新标准要求的图幅号是：AB</font></p><p><font size="4">其中A=X+5, B=Y+5</font></p><p><font size="4"> 即上面的图幅号应修改为：2546605516505</font></p><p><font size="4">因为涉及比较多的分幅图，所以看能不能实现一个小程序，打开一幅分幅图后，点取西南角的坐标，则原来的图幅号自动改为新的图幅号。</font></p><p><font size="4">先谢谢大家了！<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 28pt; LINE-HEIGHT: 25pt; mso-char-indent-count: 2.0; mso-line-height-rule: exactly;"><shapetype id="_x0000_t202" path="m,l,21600r21600,l21600,xe" ospt="202" coordsize="21600,21600"><stroke joinstyle="miter"></stroke><path oconnecttype="rect" gradientshapeok="t"></path></shapetype><shape id="_x0000_s1028" stroked="f" filled="f" type="#_x0000_t202" style="MARGIN-TOP: 21.8pt; Z-INDEX: 3; LEFT: 0px; MARGIN-LEFT: 138.75pt; WIDTH: 99pt; TEXT-INDENT: 0px; POSITION: absolute; HEIGHT: 15.6pt; TEXT-ALIGN: left;"><textbox inset="0,0,0,0" style="mso-next-textbox: #_x0000_s1028;"></textbox></shape><p><font face="Times New Roman"> </font></p></p><p><br clear="all" style="mso-ignore: vglayout;"/></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 107.95pt; LINE-HEIGHT: 25pt; mso-char-indent-count: 7.71; mso-line-height-rule: exactly;"><shape id="_x0000_s1027" stroked="f" filled="f" type="#_x0000_t202" style="MARGIN-TOP: 19.8pt; Z-INDEX: 2; LEFT: 0px; MARGIN-LEFT: 180pt; WIDTH: 18pt; TEXT-INDENT: 0px; POSITION: absolute; HEIGHT: 15.6pt; TEXT-ALIGN: left;"><textbox inset="0,0,0,0"><font face="Times New Roman"></font></textbox></shape></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 28pt; LINE-HEIGHT: 25pt; mso-char-indent-count: 2.0; mso-line-height-rule: exactly;"><shapetype id="_x0000_t202" path="m,l,21600r21600,l21600,xe" ospt="202" coordsize="21600,21600"><stroke joinstyle="miter"></stroke><path oconnecttype="rect" gradientshapeok="t"></path></shapetype><shape id="_x0000_s1028" stroked="f" filled="f" type="#_x0000_t202" style="MARGIN-TOP: 21.8pt; Z-INDEX: 3; LEFT: 0px; MARGIN-LEFT: 138.75pt; WIDTH: 99pt; TEXT-INDENT: 0px; POSITION: absolute; HEIGHT: 15.6pt; TEXT-ALIGN: left;"><textbox inset="0,0,0,0" style="mso-next-textbox: #_x0000_s1028;"></textbox></shape><p><font face="Times New Roman"> </font></p></p><p><br clear="all" style="mso-ignore: vglayout;"/></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 107.95pt; LINE-HEIGHT: 25pt; mso-char-indent-count: 7.71; mso-line-height-rule: exactly;"><shape id="_x0000_s1027" stroked="f" filled="f" type="#_x0000_t202" style="MARGIN-TOP: 19.8pt; Z-INDEX: 2; LEFT: 0px; MARGIN-LEFT: 180pt; WIDTH: 18pt; TEXT-INDENT: 0px; POSITION: absolute; HEIGHT: 15.6pt; TEXT-ALIGN: left;"><textbox inset="0,0,0,0"><font face="Times New Roman"></font></textbox></shape></p> <p>可以实现，发一个您的cad例图看看，在上面举例说明新图号放置的位置</p>
页:
[1]