Overrule causing slow performance

SRSDS — Mon, 02 Dec 2019 21:07:56 GMT

I have added an overrule to remove unecessary grippoints on dynamic blocks which is causing a serious performance issue with AutoCAD.

Can the impentation be improved?

On intitialize Active Document I have

DBlockClassLibrary.Commands.RemoveGripPoints()

And the class is

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
'Remove block insertion point overrule
Namespace DBlockClassLibrary
    Public Class Commands
        Public Class MyGripOverrule
            Inherits GripOverrule
            Public Overrides Sub GetGripPoints(ent As Entity, grips As GripDataCollection, curViewUnitSize As Double, gripSize As Integer, curViewDir As Vector3d, bitFlags As GetGripPointsFlags)
                Try
                    MyBase.GetGripPoints(ent, grips, curViewUnitSize, gripSize, curViewDir, bitFlags)
                    If ent.GetXDataForApplication(AppName) IsNot Nothing Then
                        Dim myXdata As Array = ent.GetXDataForApplication(AppName).AsArray
                        Dim br As BlockReference = TryCast(ent, BlockReference)
                        If br IsNot Nothing Then
                            If myXdata.GetValue(1).value = "View" AndAlso myXdata.GetValue(4).value <> "Section" Then 'adding E67 won't help as basepoint isn't the centrepoint
                                Dim toRemove As GripData = Nothing
                                For Each gd As GripData In grips
                                    If gd.GripPoint = br.Position And gd.GizmosEnabled = True Then 'guessing gizmosenabled has something to do with the basepoint
                                        toRemove = gd
                                        Exit For
                                    End If
                                Next
                                If toRemove IsNot Nothing Then
                                    grips.Remove(toRemove)
                                End If
                            End If
                        End If
                    End If
                Catch
                End Try
            End Sub
        End Class
        Public Shared Sub RemoveGripPoints()
            Overrule.AddOverrule(RXClass.GetClass(GetType(BlockReference)), New MyGripOverrule(), True)
            Overrule.AddOverrule(RXClass.GetClass(GetType(Polyline)), New MyGripOverrule(), True)
            Overrule.Overruling = True
        End Sub
    End Class
End Namespace

Can I ask why this might be?

Re: Overrule causing slow performance

SRSDS — Tue, 10 Dec 2019 16:45:26 GMT

I worked it out. The overrule was being loaded everytime I activated the document.

Every document activated or loaded meant it was being triggered an additional time.

I thought the overrule might have been document specific.

So rather than being loaded in docMan_documentActivated it needed to be in the AutoCAD's Initialize Sub.

topic Re: Overrule causing slow performance in .NET Forum

Overrule causing slow performance

Re: Overrule causing slow performance