[日积月累]：关于index

fjw_ok

在CAD中有索引INDEA（I）
选择时只有LAST选最后创建的，其实最后
一个索引号为0,倒数第二个为1。。。。
返回给定布局中倒数第几个创建的对象


Public Function EntLast(Optional Layout As String = "Model", Optional Index As Long = 1) As AcadObject

    Dim blk As AcadBlock

    Set blk = ThisDrawing.Layouts(Layout).Block
    Set entlast = blk.Item(blk.Count - Index)

End Function

abu

在ACAD的VBA环境中，数组的LBOUND永远是0，就算限定OPTION数据下界为1也没用，这不比其它（如WORD）VBA可以指定缺省下界。

efan2000

注意发贴，下次不得再发类似的贴子。

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/search.php?s=&action=showresults&searchid=44730&sortby=lastpost&sortorder=descending">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码