帮忙看一下下面程序的问题！

zhumb

Public Sub s()
Dim i As Integer
Dim ft(1) As Integer
Dim fd(1) As Variant
Dim Sset As AcadSelectionSet
If ThisDrawing.SelectionSets.Count <> 0 Then
For i = 0 To ThisDrawing.SelectionSets.Count - 1
Set Sset = ThisDrawing.SelectionSets.Item(i)
Sset.Delete
Next
End If
Set Sset = ThisDrawing.SelectionSets.Add("AA")
Sset.SelectOnScreen
If Sset.Count = 0 Then Exit Sub
ft(0) = 8: fd(0) = Sset.Item(0).Layer
ft(1) = 62: fd(1) = Sset.Item(0).color
Sset.Clear
Sset.Select acSelectionSetAll, , , ft, fd
Sset.Highlight (True)
End Sub 运行上面宏后，符合要求的对象高亮显示，但是这些被选中的对象不像在CAD里直接选取一样，能够通过颜色下拉列表直接改变其颜色？这是为什么？有什么办法可以解决该问题。

mccad

注意这只是高亮显示，而不是选中状态。
选中状态只有手工才能做到。通过程序做不了。

zhumb

vba难道就这么弱？

mccad

你看看LISP行不行。呵呵。

qhq0309

在vb中试试

今晚打老虎

你用图层区分颜色不就行了，选中的对象放到别的颜色的图层里。退出选择就再放回来。

qhq0309

多侃侃