yang686526

[求助]如何在vb.net开发autocad时在创建选择集时加入过滤机制
www.dimcax.com
[求助]如何在vb.net开发autocad时在创建选择集时加入过滤机制看看下面的代码，不知有何错误？总是通不过，请各位大侠帮忙！
public acadapp as autocad.acadapplication
public currentdocument as autocad.acaddocument
private sub test()
try
acadapp = getobject(, "autocad.application")
catch
acadapp = createobject("autocad.application")
finally
acadapp.visible = true
end try
currentdocument = acadapp.activedocument
dim sset as autocad.acadselectionset
try
sset = currentdocument.selectionsets.item("newset")
sset.clear()
catch
sset = currentdocument.selectionsets.add("newset")
end try
dim filtertype(0) as integer
dim filterdata(0) as object
filtertype(0) = 0
filterdata(0) = "line"
sset.selectonscreen(filtertype, filterdata)
end sub
vba的基本用法对于一些vba的基本用法，可能你还不太了解。对于这句dim filterdata(0) as object，既然已经声明为对象型的，后面赋值时应该用set 变量=对象，而你却用了filterdata(0) = "line"，这是对字符型进行赋值，明显错误。
注：过滤机制中也没有用到对象型的数据。
在vb.net中给对象赋值无需使用set
确实，在vb.net中，对一些数据类型做了改变，原来的variant类型已经被object所取代。而对于数据类型占用的字节数，也发生了变化。如vb6的integer类型被short所取代。而vb6的long类型被integer所取代。
上例中的dim filtertype(0) as integer应更改为dim filtertype(0) as short，才符合所占的字节长度。
sub newselt(byval ptt1 as object, byval ptt2 as object)
mycad.activedocument.utility.prompt("请等待...")
'创建选择集
on error goto error_handler
sset = createsset("ss1")
dim mode as integer
mode = acselect.acselectionsetcrossing
dim gpcode(0) as object
dim datavalue(0) as object
gpcode(0) = 0
datavalue(0) = "line"
gpcode(0) = -4
datavalue(0) = "<or"
gpcode(1) = -4
datavalue(1) = "<and"
gpcode(2) = 0
datavalue(2) = "line"
gpcode(3) = -4
datavalue(3) = "and>"
gpcode(4) = -4
datavalue(4) = "<and"
gpcode(5) = 0
datavalue(5) = "polyline"
gpcode(6) = -4
datavalue(6) = "and>"
gpcode(7) = -4
datavalue(7) = "<and"
gpcode(8) = 0
datavalue(8) = "lwpolyline"
gpcode(9) = -4
datavalue(9) = "and>"
gpcode(10) = -4
'datavalue(10) = "or>"
dim groupcode as object, datacode as object
groupcode = gpcode
datacode = datavalue
sset.select(mode, ptt1, ptt2，groupcode,datacode)
msgbox(sset.count)
exit sub
error_handler:
msgbox("error in getintersectionpoints: " & err.number & ", " & err.description)
end sub
上述代码中sset.select(mode, ptt1, ptt2，groupcode,datacode)内后两个参数有问题，如取消就可运行，但没法过滤不要的东西，哪个大侠帮忙，看下有什么问题，急急急………………………………