[VBA程序]：如何选中已知的entity

gogogo168

我想用程序实现选中对象的功能,对象已知,但是,如何选中它呢????望大家赐教!!!

即,已知对象,如何用程序选中这个对象,就像用鼠标选一样!!!!!使用添加到选择集中的方法,并没有选中!!!

不知道,我表达明白没?????

秦林

以下为对象选择，可实现先选择后操作和先操作后选择vba选择集函数
Option Explicit
'对象选择，可实现先选择后操作和先操作后选择
Function GetSelSet() As AcadSelectionSet
    Dim ss As AcadSelectionSet
    Dim ssName As String
    ssName = "PICKFIRST"
    On Error Resume Next
    Set ss = ThisDrawing.SelectionSets.Add(ssName)
    If Err Then
        Set ss = ThisDrawing.SelectionSets(ssName)
        ss.Delete
    End If
    Set ss = ThisDrawing.PickfirstSelectionSet
    If ss.Count = 0 Then
        Set ss = ThisDrawing.SelectionSets(ssName)
        If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)
        ss.Clear
        ss.SelectOnScreen
    End If
    Set GetSelSet = ss
End Function
'样例,若选择文本显示内容，其它则显示实体名称
Sub GetSS()
    Dim ss As AcadSelectionSet
    Dim Msg As String
    Dim ssobject As AcadEntity
    Msg = vbCrLf
    Set ss = GetSelSet
    For Each ssobject In ss
      If ssobject.ObjectName = "AcDbText" Or ssobject.ObjectName = "AcDbMText" Then
        Msg = Msg & vbCrLf & ssobject.TextString
      Else
        Msg = Msg & vbCrLf & ssobject.ObjectName
      End If
    Next ssobject
    MsgBox "选择到的对象如下: " & Msg
End Sub

macula55

对象添加到选择集中的同时设置对象的Highlight属性使其高亮显示，达到选中的效果。

mountains3

我看楼主的意思是直接操作对象，并不是从屏幕上选择

gdzhou

如果对象已知可以用对象的名柄来选择

gogogo168

把对象添加到选择集中是没有问题,但是我想达到,选定后,用list命令就可以查看的效果!!!!!!!!就像直接用鼠标选中的效果一样,,就是不知道如何让选择集中的数据达到那样的效果

eachy

Active Selectionset

秦林

最初由 gogogo168 发布
[B]把对象添加到选择集中是没有问题,但是我想达到,选定后,用list命令就可以查看的效果!!!!!!!!就像直接用鼠标选中的效果一样,,就是不知道如何让选择集中的数据达到那样的效果 [/B]

   你是说“让选择集中的数据达到用list命令就可以查看的效果”，用实体遍历的方法取得各个实体的属性，那你打算在什么地方显示？

狂刀

2. 
   
3. ;;将列表实体sslst添加到选集ssnam并亮显.
   
4. (defun ssaddandshow (ssnam sslst )
   
5.   (foreach x sslst  (ssadd x (eval ssnam)))
   
6.   (sssetfirst (eval ssnam) (eval ssnam))
   
7. )
   

<br /> ;;将列表实体sslst添加到选集ssnam并亮显.<br /> (defun ssaddandshow (ssnam sslst )<br />   (foreach x sslst  (ssadd x (eval ssnam)))<br />   (sssetfirst (eval ssnam) (eval ssnam))<br /> )<br />

雪山飞狐(lzh)

光靠VBA做不到,可能前期的工作用VBA做,后一部分用Lisp做,我以前做过类似的东东
Lisp的sssetfirst在VBA里没有对应的函数
还是用Lisp做好些