如何获取某涂层中的所有多段线？
代码如下：For Each element In sstext
If element.Layer = "123" And element.EntityType = acCircle Then
a = CDbl(TextBox1.Text) + 1
TextBox1.Text = a
End If
If element.Layer = "123" And element.EntityType = acLWPolyline Then
b = CDbl(TextBox2.Text) + 1
TextBox2.Text = b
End If
Next
第一个if 选择“123”图层中的圆，执行没问题；
第二个if选择“123”图层中的多段线，没有执行结果。
是不是 acLWPolyline 有问题？
页:
[1]