efan2000 求救

bamboo

上次你说了 提取文档的对象属性是针对文档的所有层，那我怎么才能提取我要指定的层上对象属性呢？

efan2000

使用选择集，指定过滤条件就可以。具体说明看帮助文件。

以下代码提示用户选择要包含在选择集中的对象，但仅当选择的对象是位于层 MyLayer 上时才将其添加到选择集中：

Sub Ch4_FilterMtext()
   Dim sstext As AcadSelectionSet
   Dim FilterType(0) As Integer
   Dim FilterData(0) As Variant
   Set sstext = ThisDrawing.SelectionSets.Add("SS2")
   FilterType(0) = 8
   FilterData(0) = "MyLayer"
   sstext.SelectOnScreen FilterType, FilterData
End Sub

bamboo

sstext.SelectOnScreen filtertype,filterdata
当执行此语句时，总是有错误：对象SelectOnscreen的方法IAcadSelectionSet失败。
谢谢！！！

efan2000

执行到这里发生错误，并不等于是这个句子错误，可能的原因是sstext对象为空，即为Nothing，也可能是filtertype或者filterdata的类型不正确，就如不是数组的，或者filtertype的数组类型不是整型等等。与前面的代码结合起合，按F8进行单步调试，仔细检查一下，相信你很容易就会找到原因的。

bamboo

您能给我具体解释一下 filtertype,filterdata，还有filtertype的不同取值结果怎样。谢谢！！[br]

bamboo

efan2000

R2004版的中文帮助文件中包含了一个中文的开发人员手册，仔细参考一下，会大有好处的，可以更好的掌握AutoCAD VBA的开发基础。

efan2000

bamboo

bamboo