有人知道没啊？请教！！！

rociceblue

自己找了个在限定范围内查找对象的函数和方法，可是为什么选择不上对象呢？

count总是0 啊！！！！！

Dim sel1 As AcadSelectionSet

Dim p1(0 To 2) As Double
Dim p2(0 To 2) As Double
p1(0) = 0: p1(1) = 0: p1(2) = 0
p2(0) = 300: p2(1) = 300: p2(2) = 0
Set sel1 = ThisDrawing.SelectionSets.Add("sel3")

Call sel1.Select(acselectionsetcrossing, p1, p2) '选择对象
msgbox sel1.count

谁知道啊！！！

谁知道啊 ！！！

谁知道啊！！！

谁知道啊 ！！！

谁知道啊！！！

谁知道啊 ！！！

tnt1095

函数在什么地方啊,把函数拿出来看看

woaishuijia

选择之前在你栏选的范围里没有图元对象，当然结果是0了。可以自己在图形界面画上几个再试，这段代码没有大问题。要是从鸡蛋里挑骨头，在代码中没有看到sel1.delete，用过的选择集应该及时删掉。

chen_0801

为什么要用call呢 ?