Public Shared Sub acadnet_primitive_reanimate(ByVal Hndl As String)
If Hndl = "" Then Exit Sub
Dim doc As CAD_APS.Document = acadnet_document_Get()
If (doc Is Nothing) Then Exit Sub
Dim db = doc.Database
Using doc.LockDocument
Using trans As CAD_DBS.Transaction = db.TransactionManager.StartTransaction
Dim ln As Long = Convert.ToInt64(Hndl, 16)
Dim Hn = New CAD_DBS.Handle(ln)
Dim ID = db.GetObjectId(False, Hn, 0)
Dim dbObj = trans.GetObject(ID, CAD_DBS.OpenMode.ForWrite, True, True)
If (dbObj.IsErased) Then
dbObj.Erase(False)
Dim ent = DirectCast(dbObj, CAD_DBS.Entity)
ent.Visible = True
End If
trans.Commit()
End Using
End Using
End Sub