wz0406 发表于 2015-1-11 20:08:47

请大师帮助,如何高亮并显示多义线的各节点

本帖最后由 wz0406 于 2015-1-11 20:11 编辑

我查了一下NET的帮助文件,有Highlight、UnHighlight、PushHighlightC:\Users\忠\Desktop\捕获.PNG,前两个会用,要实现上图效果不知怎样做

wz0406 发表于 2015-1-11 20:12:08

Public Sub HighlightEntity(ByVal ObjID As ObjectId, ByVal Hight As Boolean)
      Dim db As Database = Application.DocumentManager.MdiActiveDocument.Database
      Dim trans As Transaction = db.TransactionManager.StartTransaction()
      Using trans
            Dim ent As Entity = CType(trans.GetObject(ObjID, OpenMode.ForWrite, False), Entity)
            If Hight = True Then
                ent.Highlight()

            Else
                ent.Unhighlight()
            End If
            trans.Commit()
      End Using
    End Sub
页: [1]
查看完整版本: 请大师帮助,如何高亮并显示多义线的各节点