---

Hallo,

und noch ein Problem.
Wie kann ich mit VBA die Anzeigereihenfolge
(ähnlich der AutoCAD Funktion) einstellen ?

Stelli

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

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

---

sendcommand mit "_draworder" + Optionen

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas,

_draworder hatte ich auch gefunden, aber?

Wie wähle ich automatisch die Objekte.
Beispiel: Alle Grenzpunkte sollen über den
Grenzen liegen um so eine Freistellung zu erreichen.
Manuell mit Filtern kein Problem, aber es soll ja
automatisch mit VB gehen.

Noch eine Idee ?

Stell

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

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

---

Stichwort: Auswahl per Filter ... object.Select Mode[, Point1][, Point2][, FilterType][, FilterData] .. solltest du auch im Forum was finden.

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas,

mit dem Selset ist schon klar. siehe http://ww3.cad.de/foren/ubb/Forum259/HTML/000713.shtml

Nur wie kriege ich meine Selsets (Grenzen, Punkte) an das
_Sendcommand übergeben ??

Stelli1

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

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

---

in VBA ? .. keine Ahnung .. ich machs immer in Lisp

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo,

ich glaube ich habe einen Lösungsansatz.
Kopieren der Objekte -> dann sind sie oben
Löschen der alten

Code:

---

Private Sub CommandButton1_Click()
    Dim selset As AcadSelectionSet
    Dim Entity As AcadEntity
   
    On Error Resume Next
    Set selset = ThisDrawing.SelectionSets("Mysel")
    If Err.Number <> 0 Then
      Set selset = ThisDrawing.SelectionSets.Add("Mysel")
    End If
    On Error GoTo 0
   
    selset.Clear
    Me.Hide
    ThisDrawing.Utility.Prompt Chr$(10) & "Objekte wählen die nach oben sollen ...."
    selset.SelectOnScreen
    Me.Show 0
   
    For Each Entity In selset
        Entity.Copy
    Next Entity
   
    For Each Entity In selset
        Entity.Delete
    Next Entity
End Sub

---

Hat einer eine andere Idee oder Vorschläge ??

Stelli

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

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