大神们帮帮忙啊

startpoint · 发表于 2013-5-9 10:13:00

在模型空间不同位置重复插入同一块对象，然后建立选择集，用selectonscreen选择对象，为什么选中某一对象的时候，另一对象同时也会被选择，我是新手，求指点啊

startpoint · 发表于 2013-5-9 16:46:00

为什么没有人回复啊

齐天大圣3386 · 发表于 2013-5-10 05:55:00

你把代码帖出来看看

startpoint · 发表于 2013-5-10 09:13:00

Sub xiugaibianyaqi()
If mdlconnectdb.opendb = False Then
Exit Sub
End If
Dim chandle As Variant
'安全创建选择集
On Error Resume Next
Dim sset As AcadSelectionSet
If Not IsNull(ThisDrawing.SelectionSets.Item("example")) Then
Set sset = ThisDrawing.SelectionSets.Item("example")
sset.Delete
End If
Set sset = ThisDrawing.SelectionSets.Add("example")
sset.SelectOnScreen
chandle = sset.Item(0).Handle
MsgBox ("chandle=") & chandle
sset.Delete
End Sub
若是模型空间重复插入两个块对象，输出的句柄永远是最后插入对象的句柄值，为什么？

startpoint · 发表于 2013-5-10 09:15:00

Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
If mdlconnectdb.opendb = False Then
Exit Sub
End If
Dim objselect As AcadBlockReference
Dim basepnt As Variant
Dim xdatatype As Variant
Dim xdatavalue As Variant
Dim strcode As String
Dim pt As Variant
Dim my(0 To 2) As Double
'选择对象并判断类型
On Error Resume Next
retry:
ThisDrawing.Utility.GetEntity objselect, basepnt, vbCrLf & "选择所要添加属性的对象："'处理未选择到实体的错误
If Err 0 Then
Err.Clear
GoTo retry
End If
'保存当前选择对象的句柄
mdlpubvariable.enthandle = objselect.Handle
MsgBox ("enthandle=") & objselect.Handle
End sub
这种方法也是？新手，好多东西刚知道个皮毛，求指教