[求助]提示Select 在SelectionSet上失败！请高手指教！！

esri · 发表于 2004-2-15 21:56:00

Dim mysel As AcadSelectionSet
dim gpcode(2) as integer
dim gpvalue(2) as variant
dim groupcode as variant
dim groupvalue as variant gpcode(0) = 0 : gpvalue(0) = "insert"
gpcode(1) = -4 : gpvalue(1) = "="
gpcode(2) = 2 : gpvalue(2) = blockr.name
groupcode = gpcode
groupvalue = gpvalue
set mysel = acaddoc.SelectionSets.Add("mysel")
mysel.select acSelectionSetAll,,,groupcode,groupvalue
在运行到mysel.select acSelectionSetAll,,,groupcode,groupvalue这句时，提示Select 在SelectionSet 上失败！请高手指教！！

王咣生 · 发表于 2004-2-16 21:28:00

你写的还挺离谱:
&ltRE class=Code>Sub Example_Select()
' This example adds members to a selection set, first by crossing and
' then by filtering for circles.

' Create the selection set
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")

' Add all object to the selection set that lie within a crossing of (28,17,0) and
' (-3.3, -3.6,0)
Dim mode As Integer
Dim corner1(0 To 2) As Double
Dim corner2(0 To 2) As Double

mode = acSelectionSetCrossing
corner1(0) = 28: corner1(1) = 17: corner1(2) = 0
corner2(0) = -3.3: corner2(1) = -3.6: corner2(2) = 0
ssetObj.Select mode, corner1, corner2

' Add all the Circles to the selection set that lie within the crossing of (28,17,0) and
' (-3.3, -3.6,0) by filtering from the current drawing
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
gpCode(0) = 0
dataValue(0) = "Circle"

Dim groupCode As Variant, dataCode As Variant
groupCode = gpCode
dataCode = dataValue

ssetObj.Select mode, corner1, corner2, groupCode, dataCode

End Sub

esri · 发表于 2004-2-16 23:42:00

blockr是我得到的AcadBlockreference对象 blockr.name 是我得到了块名，经检查确实得到了。
acaddoc 是我得到的ActivateDocument 这也是没有错的
gpcode(0) = 0 : gpvalue(0) = "insert"
gpcode(1) = -4 : gpvalue(1) = "="
gpcode(2) = 2 : gpvalue(2) = blockr.name
我是想得到以blockr.name为过滤条件的选择集
Dim mysel As AcadSelectionSet
dim gpcode(2) as integer
dim gpvalue(2) as variant
dim groupcode as variant
dim groupvalue as variant
gpcode(0) = 0 : gpvalue(0) = "insert"
gpcode(1) = -4 : gpvalue(1) = "="
gpcode(2) = 2 : gpvalue(2) = blockr.name
groupcode = gpcode
groupvalue = gpvalue
set mysel = acaddoc.SelectionSets.Add("mysel")
mysel.select acSelectionSetAll,,,groupcode,groupvalue
mysel.select acSelectionSetAll,,,groupcode,groupvalue 这句就是过不去啊
我用的是VB

mccad · 发表于 2004-2-17 12:05:00

copy


       Dim ss As AcadSelectionSet
       Set ss = CreatSSet
       Dim FilterType As Variant
       Dim FilterData As Variant
       Dim FType(1) As Integer
       Dim FData(1) As Variant
       FType(0) = 0
       FData(0) = "INSERT" '图元名
       FType(1) = 2
       FData(1) = "B-BTL"   '图块名
       FilterType = FType
       FilterData = FData
       ss.Select acSelectionSetAll, , , FilterType, FilterData

以下是用到的创建空白选择集的函数：

copy


Function CreatSSet() As AcadSelectionSet
       On Error Resume Next
       ThisDrawing.SelectionSets("mccad").Delete
       Set CreatSSet = ThisDrawing.SelectionSets.Add("mccad")
End Function

[求助]提示Select 在SelectionSet上失败！请高手指教！！

发表回复

精选推荐

浏览过的版块