Put ,"" as the third argument in the command call as in:
CommandLine.Command("_.EATTEDIT", myObjID, "")
Some improments you could make:
I: Let AutoCAD do the selection for you based on the object type, like so:
<CommandMethod("EdAtt")> _
Public Sub EdAtt()
Dim dWG As Document = DocumentManager.MdiActiveDocument
Dim selBlks As New SelectionFilter(New TypedValue() {New TypedValue(DxfCode.Start, "INSERT")})
Dim selRes As PromptSelectionResult =dWG.Editor.GetSelection(selBlks)
If selRes.Status = PromptStatus.OK Then
Using tRans As Transaction = theDWG.TransactionManager.StartTransaction
For Each insID As ObjectId In tRans.Value.GetObjectIds
Dim theIns As Entity = insID.GetObject(OpenMode.ForWrite)
CommandLine.Command("_.EATTEDIT", insID, "")
Next
myTRans.Commit()
End Using
myDWG.Editor.Regen()
End If
End Sub
II: Or use the PickFirst selection set like:
(But then you have to check for the entity type again.)
<CommandMethod("EdAtt2", CommandFlags.UsePickSet)> _
Public Sub EdAtt2()
Dim dWG As Document = DocumentManager.MdiActiveDocument
Dim theEd As Editor =dWG.Editor
Dim selRes As PromptSelectionResult = theEd.SelectImplied
If myPSR.Status = PromptStatus.OK Then
...
'AutoCAD 2011
if selID.ObjectClass().DxfName="INSERT" then
Dim selEnt As Entity = selID.GetObject(OpenMode.ForWrite)
'AutoCAD 2008
Dim selEnt As Entity = selID.GetObject(OpenMode.ForRead)
if selEnt.GetType().Name="INSERT" then
selEnt.UpgradeOpen()
...
