请大师帮助,如何高亮并显示多义线的各节点
本帖最后由 wz0406 于 2015-1-11 20:11 编辑我查了一下NET的帮助文件,有Highlight、UnHighlight、PushHighlightC:\Users\忠\Desktop\捕获.PNG,前两个会用,要实现上图效果不知怎样做 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]