xiaohuameng 发表于 2008-3-27 00:05:00

关于不需要人机交互处理选择集

&nbsp; 本人想将图中特定的实体选择出来(不需要人机交互,程序自动处理),然后自动对其做一定处理后存盘,查看帮助后知道可以用过滤的选择集,但是我看<font color="#000080">SelectOnScreen等都需要</font><font color="#000000">人机交互,比如要选择图层"2"中内容为"1/500"的文字进行自动删除,</font><font color="#000000">选择出来后如何对其进行处理,哪位高手能帮帮忙,帮忙改下下面的程序段,谢谢!</font>
        <p>Sub Selectsst()<br/>&nbsp;&nbsp;&nbsp; Dim ssetObj As AcadSelectionSet<br/>&nbsp;&nbsp;&nbsp; Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")<br/>&nbsp;&nbsp;&nbsp; Dim FilterType(0) As Integer<br/>&nbsp;&nbsp;&nbsp; Dim FilterData(0) As Variant </p><pre class="Code"><p></p><p><font color="#000080">    FilterType(0) = 0&nbsp;<br/>    FilterData(0) = "TEXT"&nbsp;<br/>    sset.SelectOnScreen FilterType, FilterData</font><br/><br/>End Sub</p></pre>
页: [1]
查看完整版本: 关于不需要人机交互处理选择集