rociceblue 发表于 2008-12-20 15:21:00

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

自己找了个在限定范围内查找对象的函数和方法，可是为什么选择不上对象呢？
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 发表于 2008-12-20 16:22:00

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

woaishuijia 发表于 2008-12-21 11:04:00

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

chen_0801 发表于 2008-12-21 11:58:00

为什么要用call呢 ?
页: [1]
查看完整版本: 有人知道没啊？请教！！！