---

Hallo,
Haber schon längerem eine Anwendung in VB.net geschrieben und lief auch sehr gut. Aber mit ACad 2015 merke ich eine erhebliche Verlangsamung der Anwendung. Was für einen Grund kann dies haben.
Danke
Johann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Du könntest ja schon selbst mal nachsehen in welchem Part es lahmt und dann hier angeben. Welche Vorgänge werden abgearbeitet? Die Info 2013-2015 ist schon arg allgemein.
Hast du die Möglichkeit 2013 noch zu testen oder steht das nicht mehr zur Verfügung?

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
Ich habe mir das nocheinmal näher angeschaut.
Es kommen häufig Abfragen auf die geöffnete ACad Datei mit den beiden Funktionen.

Code:

---

    Public Function LayerAbfrage(ByVal LayerName As String)
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Dim TrAct As DatabaseServices.Transaction = Nothing
        Dim tAcadDoc As ApplicationServices.Document = ApplicationServices.Application.DocumentManager.MdiActiveDocument
        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
            Dim acLyrTbl As LayerTable
            acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForRead)
            If Not acLyrTbl.Has(LayerName) Then
                LayerAbfrage = 0
            Else
                Dim tSelSet As EditorInput.SelectionSet = getObjectsOnLayer(tAcadDoc.Editor, TrAct, LayerName)
                If tSelSet IsNot Nothing Then
                    LayerAbfrage = 1
                Else
                    LayerAbfrage = 0
                End If
            End If
        End Using
    End Function

    Public Function Blockabfrage(ByVal strBlockName As String)
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Dim TrAct As DatabaseServices.Transaction = Nothing
        Dim tAcadDoc As ApplicationServices.Document = ApplicationServices.Application.DocumentManager.MdiActiveDocument
        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
            Dim acLyrTbl As BlockTable
            acLyrTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)
            If Not acLyrTbl.Has(strBlockName) Then
                Blockabfrage = 0
            Else
                Dim tSelSet As EditorInput.SelectionSet = getObjectsOnBlock(tAcadDoc.Editor, TrAct, strBlockName)
                If tSelSet IsNot Nothing Then
                    Blockabfrage = 1
                Else
                    Blockabfrage = 0
                End If

            End If
        End Using
    End Function

---

Alles andere ist eigentlich nur Textlesen und Textschreiben in einer bestimmten Reihenfolge (für eine CNC-Maschine).
Bis ACad 2013 ca. 8 sec., bei Acad 2015 15 sec.
Danke
mfg
Johann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wäre jetzt interessant zu wissen, was sich hinter "getObjectsOnLayer" und "getObjectsOnBlock" verbirgt bzw. wozu diese Abläufe notwendig sind. Wozu werden Objekte auf Layer und Objekte "auf"(?) Block gebraucht.
Und wenn dieses mit SelectionSets gebaut wird, dann können Geschwindigkeitsunterschiede vielleicht sogar mit Zoom-Ausschnitt und/oder mit der Graphikhardware und -treibern zu tun haben.
Mit dem Code hier kann ich mal nicht erkennen, was unterschiedlich sein sollte, aber eben auch nicht probieren, ob es bei mir auch Unterschiede in der Performance zeigen würde.

------------------


www.cars4fun.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
Mit diesen beiden Funktionen werden nur Layer bzw. Blöcke mit einen bestimmten Namen gesucht. Wenn diese dan vorhanden sind, wird in einer Textdatei nur text geschrieben.
danke
Johann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Mit diesen beiden Funktionen werden nur Layer bzw. Blöcke mit einen bestimmten Namen gesucht. Wenn diese dan vorhanden sind ...

---

Versteh ich leider nicht, wozu dann ein SelectionSet notwenig wird, wenn gesucht werden soll, ob ein Layer existiert. Probier mal einen Performance-Vergleich ohne SelectionSet-Bildung.

------------------


www.cars4fun.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

wenn es darum geht alle Objekte eines bestimmten Layers abzufragen:

hier ein Beispiel.

Schöne Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

wenn es darum geht alle Objekte eines bestimmten Layers abzufragen

---

Dann hoffe ich nicht, dass man eine Schleife durch alle Layer macht und bei jedem Layer ein neues SelectionSet. Das wäre gähnend langsam. Dann alle Objekte auf einmal selektieren und deren Layer ansehen/zählen.

------------------


www.cars4fun.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
Habe die beiden Funktionen umgeändert;

Code:

---

    Public Function Blockabfrage(ByVal strBlockName As String)
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Dim TrAct As DatabaseServices.Transaction = Nothing
        Dim tAcadDoc As ApplicationServices.Document = ApplicationServices.Application.DocumentManager.MdiActiveDocument
        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
            Dim acLyrTbl As BlockTable
            acLyrTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)
            If Not acLyrTbl.Has(strBlockName) Then
                Blockabfrage = 0
            Else
                ' Dim tSelSet As EditorInput.SelectionSet = getObjectsOnBlock(tAcadDoc.Editor, TrAct, strBlockName)
                'If tSelSet IsNot Nothing Then
                Blockabfrage = 1
                'Else
                'Blockabfrage = 0
                'End If

            End If
        End Using
    End Function

---

Funktioniert auch 1 sec. Geschwindigkeitssteigerung, muss die Geschwindigkeitseinbuße noch suchen.
mfg
Johann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP