- UID
- 61198
- 积分
- 0
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2003-6-27
- 最后登录
- 1970-1-1
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
请大家帮忙看一看,我的程序中需要同时对多个层中的多个实体类型及相关属性进行过虑选择,如果单个选可以,多选不行,怎么回事?
Dim grpType(11) As Integer
Dim grpData(11) As Variant
Dim filtType As Variant
Dim filtData As Variant
Dim sset As AcadSelectionSet
set sset=.....
grpType(0) = -4: grpData(0) = "<OR"
grpType(1) = -4: grpData(1) = "<AND"
grpType(2) = 8: grpData(2) = "12"
grpType(3) = 0: grpData(3) = "POINT"
grpType(4) = 30: grpData(4) = 123.0
grpType(5) = -4: grpData( 5) = "AND>"
grpType(6) = -4: grpData(6) = "<AND"
grpType(7) = 8: grpData(7) = "10"
grpType(8) = 0: grpData(8) = "LWPOLYLINE"
grpType(9) = 38: grpData(9) = 1002.233
grpType(10) = -4: grpData(10) = "AND>"
grpType(11) = -4: grpData(11) = "OR>"
filtType = grpType: filtData = grpData
sset.Select acSelectionSetAll, , , filtType, filtData
程序执行到这里就提示参数错!
是我的过虑设置有问题吗? |
|