例如选择扩展属性为212100的多段线，可以不虑遍选择集吗？
本帖最后由 yswoyh 于 2014-6-4 18:58 编辑例如选择扩展属性为212100的多段线，可以不循环虑遍选择集吗？
能不能在选择之前过滤掉不需要的编码线
选择两种扩展编码实体线型，如何做。
多谢各位老师
可以，使用选择集。
下例过滤包含由“MY_APP”应用程序添加的扩展数据的圆：
Sub Ch4_FilterXdata()
Dim sstext As AcadSelectionSet
Dim mode As Integer
Dim pointsArray(0 To 11) As Double
mode = acSelectionSetWindowPolygon
pointsArray(0) = -12#: pointsArray(1) = -7#: pointsArray(2) = 0
pointsArray(3) = -12#: pointsArray(4) = 10#: pointsArray(5) = 0
pointsArray(6) = 10#: pointsArray(7) = 10#: pointsArray(8) = 0
pointsArray(9) = 10#: pointsArray(10) = -7#: pointsArray(11) = 0
Dim FilterType(1) As Integer
Dim FilterData(1) As Variant
Set sstext = ThisDrawing.SelectionSets.Add("SS9")
FilterType(0) = 0
FilterData(0) = "Circle"
FilterType(1) = 1001
FilterData(1) = "MY_APP"
sstext.SelectByPolygon mode, pointsArray, FilterType, FilterData
End Sub
多谢！多谢！我实验一下，不懂得地方请多多指教。
页:
[1]