Object selection grips

Hello all,
Can anyone help me, how to show the grips of an entity on the screen, if we know the entity handle through VBA (e.g. If we select an entity on screen, grips will be shown)

vijaya

 

It's not possible except via AcadX (www.acadx.com) and, presumably,
AcadUnsupported library... If I guess right, Tony T. developed functions for
pickfirstselectionset manipulation, and AcadUnsupp.arx offers similar
functionality but not within VBA (VB and external libraries only if I'm
right).

Regards,
Maksim Sestic

we know the entity handle through VBA (e.g. If we select an entity on
screen, grips will be shown)

 

Activate grips in vba (newer versions of AutoCAD)

Sure you can. You have to invoke SELECT command from VBA in AutoCAD command prompt and then pass entities through lisp (handent <handle>) function. There are some examples in free plugins on abccorsicad.it website. Anyway, try this in your vba code:

Public Sub test()
Dim c As Collection, obj As AcadEntity
Set c = New Collection
For Each obj In ThisDrawing.ModelSpace
If TypeOf obj Is AcadLine Then
c.Add obj
End If
Next
SetSelection c
End Sub
Private Sub SetSelection(objs As Collection)
Dim obj
If ThisDrawing.PickfirstSelectionSet.Count > 0 Then
'just send any command to remove grips
ThisDrawing.SendCommand Chr(27)
End If
ThisDrawing.SendCommand "_SELECT" & Chr(13)
For Each obj In objs
ThisDrawing.SendCommand "(handent """ & obj.Handle & """)" & vbCr
Next
ThisDrawing.SendCommand vbCr
End Sub