社区 › VB › 提问lzh741206斑竹

ntchjie 发表于 2004-10-26 08:58:00

提问lzh741206斑竹

关于vbnet代码不能运行的问题
vbnet与vb不同在于原来的variant类型都变成了object类型，但是我在用选择筛选的时候发现代码老是通不过，典型的用getentity如下：
                                                       Dim acadobj As Object
                                                       Dim acaddoc, acadutil As Object
                                                       Dim returnobj As Object
                                                       Dim d As Object
                                                       acadobj = GetObject(, ".Application.16")
                                                       acaddoc = acadobj.ActiveDocument
                                                       acadutil = acaddoc.Utility
                                                       AppActivate("Autocad")
                                                       Call acadutil.GetEntity(returnobj, d, "..选择物体")                                       ***在这一句提示类型不匹配。

ntchjie 发表于 2004-10-26 09:04:00

同样这一句是筛选文本的，也运行不通过，在最后一句出现错误。                                                       
acadobj = GetObject(, "AutoCAD.Application.16")
                                                       acaddoc = acadobj.ActiveDocument
                                                       mospace = acaddoc.ModelSpace
                                                       acadutil = acaddoc.Utility
                                                       AppActivate("Autocad")
                                                       '选择文本创建选择集
                                                       sset = acaddoc.SelectionSets.Add("my")
                                                       '定义过滤组码数据
                                                       Dim gpcode(0) As Integer
                                                       Dim datavalue(0) As String
                                                       gpcode(0) = 0
                                                       datavalue(0) = "Text"
                                                       Dim groupcode As Object
                                                       Dim datacode As Object
                                                       groupcode = gpcode
                                                       datacode = datavalue
                                                       acadutil.prompt("请选择修改的文本：")
                                                       Call sset.SelectOnScreen(groupcode, datacode)

雪山飞狐_lzh 发表于 2004-10-26 09:51:00

不用Call Dim gpcode(0) As Short
Dim datavalue(0) As Object
下面是多余的
                                                       Dim groupcode As Object
                                                       Dim datacode As Object
                                                       groupcode = gpcode
                                                       datacode = datavalue

ntchjie 发表于 2004-10-26 15:18:00

在vb里面通常需要先定义数组再进行数据类型的转化（特别是在筛选多于1个的时候），是不是在net里面就没有必要转化了？还是因为这个只有一个筛选类型，所以没有？还是本来在net里面只要 Dim gpcode(n) As Short
Dim datavalue(n) As Object
sset.SelectOnScreen(gpcode,datavalue)
就可以了。试验了一下，原来这个比vb方便多了，省了两个变量和变量的转化。
谢谢斑竹，但是我第一楼的问题还不好解决，我拿掉了call后还是提示数据类型出错。

雪山飞狐_lzh 发表于 2004-10-26 15:33:00

vb里面这些也是多余的代码

查看完整版本: 提问lzh741206斑竹