---

Hallo,

habe ein Beispiel aus der "Hilfe" ausprobiert und bekomme andauernd den Fehler:

Run-time error '-2145320932 (8021001c):
AutoCad main window is invisible

Sub Example_SelectOnScreen()
    ' This example adds objects to a selection set by prompting the user
    ' to select ones to add.
   
    ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
   
    ' Add objects to a selection set by prompting user to select on the screen
    ssetObj.SelectOnScreen
   
End Sub

Ich versuche, ein Makro zu erstellen, das mir dem Objekt, das ich auswähle, einen XData-Entry hinzufügt.
Wenn ich den Code unter "ThisDrawing" einbaue, geht es, wenn ich jedoch in einer dvb-Datei ein Makro hinzufüge, aus der Sub dann eine Function, die in einem eigenen Modul ist, aufrufe, die dann den Code beinhaltet, geht es nicht.

Die anderen Makros aus der dvb-Datei funktionieren und darin verwende ich ebenfalls ssets, jedoch nicht mit SelectOnScreen. Muss man bei diesem Modus auf was besonders achten?

Bitte um Rat,
Lg Peter

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

---

Hi Peter,

Kannst du mal ein Modul, wie du es dir zusammenbaust uploaden?!
So ohne weiteres kann ich dein Problem nicht nachvollziehen. Arbeitest du vielleicht mit einem Formular, das du vergisst auszublenden bevor du den SelectOnScreen machst?!

Gruß, Carsten

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

---

Hallo Carsten,

danke für deine Bemühungen, bin gerade draufgekommen, dass es an dem Formular liegt :/. Hab davor dann en frmMain.Hide eingebaut und es funktioniret tadellos.

Da fällt mir noch was ein in Zusammenhang mit SelectionSets - Kennst du eine Funktion, die mir ein Array aus Koordinaten liefert für verschiedene Formen?

Ich habe zB einen Punkt und will darum mit einem gewissen Radius einen Kreis legen bzw. ein 8eck usw. Ich bräuchte eine Funktion, die mir ein Array aus Koordinaten liefert, die ich später für ein SelectionSet verwenden kann, wenn ich in einem gewissen Bereich etwas suchen will.

Derzeit suche ich innerhalb eines Quadrates, wobei ich die Seitenlänge angebe und eine selbst implementierte Funktion (nicht allzu schwer  ) die gewünschten Koordinaten berechnet.

Fällt dir dazu etwas ein?

liebe grüße
Peter

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

---

Hi Peter,

Wenn du die Koordinaten für für das Achteck (oder was auch immer) schon hast kannst du ja mit der SelecByPolygon-Methode den Selectionset ausführen.
Um die Punkte zu berechnen kannst du dir die Methode PolarPoint mal anschauen. Hier kannst unter Angabe von einem Punkt, einer Distanz und einem Winkel den daraus resultierenden Punkt berechnen.

Gruß, Carsten

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

---

Hallo Carsten,

super, genauso so etwas wie PolarPoint habe ich gesucht (im Hinblick auf SelectByPolygon).

Danke!

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