怎么用VBA实现选择集中的实体处于被选中状态

woxing1987

请教高手 怎么用VBA实现选择集中的实体处于被选中状态

徐亚龙

我也是一个新手，不过你可以看看这个程序，希望对你有所帮助
Private Sub CommandButton1_Click()
Dim ssetobj As AcadSelectionSet
Dim fType As Variant
Dim fData As Variant
On Error Resume Next
Set ssetobj = AcadApplication.ActiveDocument.SelectionSets.Add("jiaoliexu")
AppActivate AcadApplication.Caption
UserForm1.hide
BuildFilter fType, fData, -4, "<or", 0, "text", 0, "mtext", -4, "or>"
'在第二个-4前加一个“0, "dimension",”表示标注内容
ssetobj.SelectOnScreen fType, fData
Dim pickedobjs As AcadEntity
For Each pickedobjs In ssetobj
pickedobjs.color = acRed
pickedobjs.Update
Next
ssetobj.Delete
End Sub
Public Sub BuildFilter(typeArray, dataArray, ParamArray gCodes())
'ParamArray 用于过程最后的一个参数，表示该参数是包含任意个数元素的数组（Variant 类型）
'ParamArray 不能与 ByVal、ByRef或 Optional 一起使用。
Dim fType() As Integer, fData()
Dim index As Long, i As Long
index = LBound(gCodes) - 1
For i = LBound(gCodes) To UBound(gCodes) Step 2
index = index + 1
ReDim Preserve fType(0 To index)
ReDim Preserve fData(0 To index)
fType(index) = CInt(gCodes(i))
fData(index) = gCodes(i + 1)
Next
typeArray = fType: dataArray = fData
End Sub

徐亚龙

程序的作用是：
1.建立一个选择集（选择单行文字和多行文字）
2.用鼠标选取范围
3.使选中的部分的文字变成红色
所以说，如果文字变成红色，则说明已经在选择集里面了，你可以把pickedobjs.color = acRed
这句改成pickedobjs.HighLight = ture让文字亮选，即处于被选中状态
希望对你有帮助

wylong

详见：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=60174&page=2#pid490993

wuqiu1986

徐亚龙 发表于 2011-11-11 17:33
程序的作用是：
1.建立一个选择集（选择单行文字和多行文字）
2.用鼠标选取范围

处于高亮好像和选中是两回事吧，因为高亮并不能对其操作，仍然要手动选中才能操作，我也想让选择集中的某些实体处于被选中，有其他方法吗

zkyzzy

lisp很容易实现的，vb还没试过哈
(sssetfirst nil nil)
(sssetfirst nil ABC)
ABC为你的选择集，即将你的选择集内的对象都选中

彩虹VB

zkyzzy 发表于 2012-11-7 02:45
lisp很容易实现的，vb还没试过哈
(sssetfirst nil nil)
(sssetfirst nil ABC)

有完整代码吗？急需~