alway489 发表于 2006-4-21 23:50:00

实在没有办法，重新提问。

<P>昨天问了个问题就是如何清除一个图层上的所有东西，虽然我也知道用选择集选中图层上的所有对象，然后删除。但是发现不管用哪个属性，都不能自动的删除，而是要手动的去选择进结果集，然后才行。</P>
<P>各位有没有什么好招可以实现自动啊。</P>
<P>实在没有办法了。</P>

雪山飞狐_lzh 发表于 2006-4-21 23:55:00

/object/acad2004/idh_select.htm

freezl 发表于 2006-4-23 20:22:00

Sub Ch4_AddToASelectionSet()<BR>&nbsp;&nbsp;&nbsp; ' 创建新的选择集<BR>&nbsp;&nbsp;&nbsp; Dim sset As AcadSelectionSet<BR>&nbsp;&nbsp;&nbsp; Set sset = ThisDrawing.SelectionSets.Add("SS1")<BR>&nbsp;&nbsp;&nbsp; '定义过滤器类型为图层<BR>&nbsp;&nbsp;&nbsp; Dim gpcode(0) As Integer<BR>&nbsp;&nbsp;&nbsp; gpcode(0) = 8<BR>&nbsp;&nbsp;&nbsp; '图层名为0图层<BR>&nbsp;&nbsp;&nbsp; Dim datavalue(0) As Variant<BR>&nbsp;&nbsp;&nbsp; datavalue(0) = 0<BR>&nbsp;&nbsp;&nbsp; '选择0图层上所有的实体，并高亮显示<BR>&nbsp;&nbsp;&nbsp; sset.Select acSelectionSetAll, , , gpcode, datavalue<BR>&nbsp;&nbsp;&nbsp; sset.Highlight (True)<BR>End Sub
页: [1]
查看完整版本: 实在没有办法，重新提问。