如何让图形处于被选中状态（类似于鼠标框中后的效果）

偶尔做做怪 · 发表于 2014-9-28 23:12:00

最近做程序发现个小问题，通过选择集筛选的图形执行完程序后，在CAD图中无法处于被选中状态（类似于鼠标框中后的效果），因为我还有很多后续操作需要人工判断执行，不知道哪位达人能否相助。是否有代码可以实现此功能？

wangshuping42 · 发表于 2014-9-29 07:43:00

highlight方法

琴剑江山_10184 · 发表于 2014-9-29 08:24:00

highlight 系统变量改为1

maiko · 发表于 2014-9-29 10:19:00

(sssetfirst nil (ssget))

cheng5276 · 发表于 2014-9-29 18:21:00

ed.SetImpliedSelection(res2.Value.GetObjectIds());

偶尔做做怪 · 发表于 2014-9-30 14:54:00

谢谢大家问题解决了

wz0406 · 发表于 2015-1-12 09:00:00

你是怎样做到的，共享一下，我搞了好多天，也没搞成

偶尔做做怪 · 发表于 2015-1-14 11:07:00

一段测试代码
Public Shared Sub 筛选()
      Dim dm As DocumentCollection = Application.DocumentManager
      Dim ed As Editor = dm.MdiActiveDocument.Editor
      '获取当前数据库作为目标数据库
      Dim Db As Database = dm.MdiActiveDocument.Database
      dm.MdiActiveDocument.LockDocument()
      Dim ids() As ObjectId
      Dim N As Integer = 0
      Using trans As Transaction = Db.TransactionManager.StartTransaction()
         Dim bt As BlockTable = trans.GetObject(Db.BlockTableId, OpenMode.ForRead)
         Dim btr As BlockTableRecord = trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForRead)
         ' 遍历选择集.
         For Each EntId As ObjectId In btr
            Dim en As Entity = trans.GetObject(EntId, OpenMode.ForRead)
            If TypeOf en Is Line Then
                  ReDim Preserve ids(N)
                  ids(N) = EntId
                  en.Highlight()
                  N = N + 1
            End If
         Next
         ed.SetImpliedSelection(ids)
      End Using
End Sub

woxing1987 · 发表于 2015-9-3 15:12:00

感谢楼上的分享

如何让图形处于被选中状态（类似于鼠标框中后的效果）

发表回复

精选推荐