[编程交流] 带VBA的夹点和无夹点

 
Set sset = ThisDrawing.SelectionSets.Add("SS1")
   mode = acSelectionSetLast
   sset.Select mode
   ThisDrawing.SendCommand ("_grips" & vbCr & "1" & vbCr)
   sset.Highlight True

DisplayGrips Example [ActiveX and VBA Reference: AAR]Sub Example_DisplayGrips()     ' This example reads and modifies the preference value that controls     ' the display of selection set grips for the Stretch, Move, Rotate,     ' Scale, and Mirror grip modes.     ' When finished, this example resets the preference value back to     ' its original value.          Dim ACADPref As AcadPreferencesSelection     Dim originalValue As Variant, newValue As Variant          ' Get the selection preferences object     Set ACADPref = ThisDrawing.Application.preferences.Selection          ' Read and display the original value     originalValue = ACADPref.DisplayGrips     MsgBox "The DisplayGrips preference is set to: " & originalValue      ' Modify the DisplayGrips preference by toggling the value     ACADPref.DisplayGrips = Not (originalValue)     newValue = ACADPref.DisplayGrips     MsgBox "The DisplayGrips preference has been set to: " & newValue      ' Reset the preference back to its original value     '     ' * Note: Comment out this last section to leave the change to     '         this preference in effect     ACADPref.DisplayGrips = originalValue     MsgBox "The DisplayGrips preference was reset back to: " & originalValue End Sub