[讨论]Select acSelectionSetCrossing的奇怪想象!

丹雪 · 发表于 2005-6-1 12:31:00

有这样一段代码(其中objline 是存在的一条三维多段线):
Dim endpoint1(0 To 2) As Double
Dim endpoint2(0 To 2) As Double
Dim coord1 As Variant
Dim coord2 As Variant
'获得该三维多段线的的第一点和第三点
coord1 = objline.Coordinate(0)
coord2 = objline.Coordinate(3)
endpoint1(0) = coord1(0): endpoint1(1) = coord1(1): endpoint1(2) = coord1(2)
endpoint2(0) = coord2(0): endpoint2(1) = coord2(1): endpoint2(2) = coord2(2)
objline.Delete
dim gpcode(1) as integer
dim datavalue(1) as variant
gpcode(0) = 0
datavalue(0) = "line"
gpcode(1) = 8
datavalue(0) = "0"
setb.Select acSelectionSetCrossing, endpoint1, endpoint2, gpcode, datavalue
setb.erase
可运行的时候并没有将0层里面的直线清空啊!!
是不是Select acSelectionSetCrossing的点参数不能够是直接给的点,而必须是用户框选某些对象时获得的点呢?

esri · 发表于 2005-6-1 18:21:00

个人认为，首先你的过录器变量类型不对。再一个你用的交叉选择不可能把整层的要素删除。要清空0层的直线用带过录器的全选就可以了。
dim gpcode(1) as integer
dim datavalue(1) as variant
dim groupcode as variant
dim groupvalue as variant
gpcode(0) = 0
datavalue(0) = "line"
gpcode(1) = 8
datavalue(0) = "0"
groupcode = gpcode:groupvalue = datavalue
setb.Select acSelectionSetAll,,, groupcode, datavalue
setb.erase

丹雪 · 发表于 2005-6-1 18:49:00

首先感谢2楼的热情回答,但这里我想知道的是
Select acSelectionSetCrossing的点参数是否可以是直接给的点,而不一定必须是用户框选某些对象时获得的点!

armylee · 发表于 2005-6-1 18:55:00

可以

[讨论]Select acSelectionSetCrossing的奇怪想象!

发表回复

精选推荐