Page 1 of 1

Grips Active

Posted: Tue Nov 11, 2003 9:08 am
by AHM
I want to detect active grips on the screen
and after that a selection set is made through the VBA macro look what I just
think below:
sub GripsAtive()
Dim SS As SelectionSet
Set SS = ThisWorkspace.ActiveDocument.SelectionSets.Add("SS")
if gripsactive then
SS.SelectOnScreen 'selection is made
rest of the code
else
exit sub
end if
end sub
Is it possible to do that

Thank you
AHM

Posted: Tue Nov 11, 2003 10:45 am
by ssc
AHM,

Are you trying to return the currently selected objects? That is the objects on the screen selected by grips. If so try:

Private Sub TESTING()
Dim SS As SelectionSet

Set SS = IntelliCAD.ActiveDocument.ActiveSelectionSet
'...do stuff with selection set
'.....
End Sub


ssc

Posted: Tue Nov 11, 2003 12:36 pm
by AHM
ssc,
Thank you for your reply It resolved
my problem.

AHM