---

Einen schönen guten Morgen!

Ich habe ein für mich etwas unbegreifliches Problem.
Ich habe einige Werkzeuge mit SelectionSets gemacht und nun festgestellt, dass diese im Blockeditor nicht funktionieren.
Die Verwendung von PickfirstSelectionSet fürt zum Fehler:
"Aufrufmethode Clear von Schnittstelle IAcadSelectionSet fehlgeschlagen."

Und der Gebrauch von SelectOnScreen führz zu folgendem:
"Objektvariable oder With-Blockvariable nicht festgelegt."

Beides funktioniert außerhalb des Blockeditors tadellos nur im Blockeditor kommen diese nichtssagenden Meldungen.
Ich wäre unsagbar dankbar, wenn mir jemand sagen könnte, wer wie was, der die das und überhaupt warum das so ist.

Danke!

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

---

Hi Nemorem1,

Welche Autocad-Version hast du denn?! Bei mir im AutoCAD 2008 kann ich im Blockeditor ohne Probleme ein SelectonScreen nutzen.
Poste doch mal deinen Code, vielleicht finden wir dann eine Lösung.

Gruß, Carsten

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

---

Hallo,

ich habe es mitlerweile hinbekommen, dass zumindest SelectOnScreen funktioniert, was noch immer nicht klappt ist PickfirstSelectionSet, der Code sieht aufs wesentliche reduziert so aus:

Sub Pen1()
    Dim PenSelSet As AcadSelectionSet
    Dim PenObjs As AcadEntity
    Set PenSelSet = ThisDrawing.SelectionSets.Add("PENOBJ")
    Set PenSelSet = ThisDrawing.PickfirstSelectionSet
    If PenSelSet.Count < 1 Then PenSelSet.SelectOnScreen
    PenSelSet.Delete
End Sub

Im Blockeditor bleibt es dann bei der Fehlermeldung: Aufrufmethode Clear von Schnittstelle IAcadSelectionSet fehlgeschlagen. Außerhalb funktioniert das ganze tadellos.

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

---

Hi,

Ich hab noch einmal versucht, mit deinem Code, das Problem nachzustellen.
Allerdings bekomme ich keine Fehlermeldung und der Code funktioniert einwandfrei (AutoCAD 2008 SP1).

Gruß, Carsten

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

---

Dann muss ich mich wohl auf AutoCAD 2008 gedulden, aktuell läuft noch 2007. Steht hier eh schon neben mir, nur der Modulhersteller verzögert noch den Einsatz...

Danke für das Feedback!

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

---

Hi,

Ich habe deinen Code auch mal im ADT 2006 Sp1 ausprobiert und er läuft ohne Probleme.
Erkläre doch mal deine Vorgehensweise, bis das der Fehler auftritt.

Gruß, Carsten

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

---

Also ich habe auch ADT2007 Sp1 und im Blockeditor wenn ich den Code ausführe bekomme ich den gleichen Fehler!!

Dieser Code funktioniert bei mir aber (ohne Pickfirst-Selectionset)
auch im Blockeditor

Global SSETG
Sub InitSset()
 
  On Error Resume Next
      ThisDrawing.SelectionSets.Item("ACAD_Temp").Delete
     
      Set SSETG = Nothing
      Set SSETG = ThisDrawing.SelectionSets.Add("ACAD_Temp")
SSETG.SelectOnScreen
End Sub

mfg Chris

[Diese Nachricht wurde von c.schojer am 20. Okt. 2007 editiert.]

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