---

Hallo
Beim Kopieren voon Blöcken mit Attributen habe ich das Problem, dass oft die Aktualisierung der Attribute übersehen wird. Weiters werden bei uns einige Blöcke für die Erstellung der Stücklisten verwendet, und da werden z.b.: für den Block Oberfläche immer dieselben Werte (z.b.: RAL1000 Grübeige,.. sämtliche Ralfarben) verwendet.
Ich habe nun ein Makro erstellt, das unter Thisdrawing.AcadDocument_ObjectAdded überwacht welche Objecte der Zeichnung hinzugefügt wurden, und welches bei den betreffenden Blöcken ein Fenster mit Comboboxen, in denen einige Möglichkeiten vorgeschlagen sind öffnet.
Dies funktioniert soweit ganz gut.
Es gibt nun nur noch 2 Probleme mit meinem Makro.

1.) Geschwindigkeit von ACAD wird durch die permanente Objektüberwachung um einiges Verringert.

2.) Objekt ist im Moment wo es eingefügt wird noch geöffnet, das heisst ich kann es weder hervorheben, noch anderswie den User darauf aufmerksam machen welches Attribut er gerade ändert.

Habe mal gedacht ich versuche es über eine Selectionset, welches ich erst beim Abschluss der Befehle öffne, habe aber diesbzüglich nicht wirklich viel Erfahrung, bzw. hätte gerne vorher Feedback, ob dies eventuell beide Probleme lösen, bzw. zumindest verbessern  würde.

Falls von euch wer Ideen hat wie ich meine Problemstellungen lösen, bzw. verbessern kann bitte um Hilfe.

mfg Kamehama

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

---

Hallo Kamehama,

da ich von ACAD so gut wie Null Ahnung habe, kann ich dir möglicherweis nicht helfen. Da ich aber ziemlich fit in VB bin, eventuell doch. Wie überwachst du die Objekte, mit eine Timer oder ?

------------------
Gruß
Nepumuk

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

---

Hallo,

@Nepumuk: Die Überwachung erfolgt wenn der entsprechnende Event ausgelöst wird.

@kamehama: Du musst versuchen im Event möglichst direkt alles was du nicht berücksichtigst auszuschliessen (if Object.ObjectName = "AcDb...).
Über die Problematik das Objekte erst nach Befehlsende bearbeitet werden können waren in den letzten Artikeln schon einige Ansätze.

Du speicherst die hinzugefügten Objekte im Event AcadDocument_ObjectAdded in einen Stapel. Beim Event AcadDocument_EndCommand schaust du nach ob was in deinem Stapel ist und bearbeitest die Elemente und machst den Stapel leer.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hallo
Danke für euere Bemühungen.
Ich habe nun den Vorschlag von Stelli befolgt und erstelle nun eine Liste in welches ich jedes neue object hinzufüge:

Dim objStack() As AcadObject

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
    Unload frmAttrib
    ReDim objStack(0)
End Sub

Private Sub AcadDocument_ObjectAdded(ByVal Object As Object)
        ReDim Preserve objStack(UBound(objStack) + 1)
        Set objStack(UBound(objStack)) = Object
End Sub

Diese Liste arbeite ich nun beim event AcadDocument_EndCommand ab und editiere dort die einzelnen Attribute.
Nun habe ich durch diese Vorgehensweise 2 neue Problemstellungen:

1.) Wenn Befehl mittels ESC abgebrochen wird, wird Event Endcommand nicht ausgelöst.

2.) Wenn ich einen Block mehrmals Kopiere wird die Abfrage erst nach dem Positionieren des letzten Blockes ausglöst, für den User wäre es jedoch einfacher wenn sich diese Abfrage jeweils für den gerade positionierten Block beziehen würde.

Bitte um weitere Unterstützung wie bzw. ob ich diese beiden Probleme beheben kann.

Besten Dank im Voraus Kamehama

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