- 积分
- 438
- 明经币
- 个
- 注册时间
- 2003-9-30
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
Dim gpCode(0) As Integer Dim dataValue(0) As Object gpCode(0) = 39 dataValue(0) =2200000
Dim groupCode As Object, dataCode As Object groupCode = gpCode dataCode = dataValue Dim ssetobj As AcadSelectionSet ssetobj = AcadDoc.SelectionSets.Add("test") ssetobj.Select(AcSelect.acSelectionSetAll, , , groupCode, dataCode)
以上代码总在select 处提示filter无效,可是在vba中是可以的,请高手指教,如何修改vb.net中的代码。 |
|