---

Hallo,
ich versuche am Anfang eines Makros zu bestimmen, ob genau ein Element ausgewählt ist, um das dann zu bearbeiten. Ansonsten soll die Aufforderung kommen, eines auszuwählen. Ich mache dazu:

    Set sSet = ThisDrawing.ActiveSelectionSet
    If sSet.Count = 1 Then

Aber das scheint nicht richtig zu sein, der Count 1 geht nicht weg, wenn man mit Escape die Markierung entfernt hat. Ich verstehe die VBA-Hilfetexte wohl (wie meistens) nicht richtig. Kann mir jemand auf den richtigen Dampfer helfen, bitte?
MfG,
wwwilli

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

---

Hi Willi,

Hier mal ein Beispiel aus der Hilfe, das dir weiter helfen sollte:

Code:

---

Sub Example_PickfirstSelectionSet()
    ' This example lists all the objects in the pickfirst selection set.
    ' Before running this example, create some objects in the active
    ' drawing and select those objects. The objects currently selected
    ' in the active drawing will be returned in the pickfirst selection set.
           
    Dim pfSS As AcadSelectionSet
    Dim ssobject As AcadEntity
    Dim msg As String
    msg = vbCrLf
   
    Set pfSS = ThisDrawing.PickfirstSelectionSet
    For Each ssobject In pfSS
        msg = msg & vbCrLf & ssobject.ObjectName
    Next ssobject
    MsgBox "The Pickfirst selection set contains: " & msg
   
End Sub

---

Du benötigst den PickfirstSelectionSet und nicht den ActiveSelectionSet.

In dem Beispiel gibt dir pfSS.Count die Anzahl der gewählten Element zurück.

Gruß, Carsten

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

---

Danke,
probiere ich am Montag.
Schönes WE,
wwwilli

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

---

Hallo,
das funktioniert nicht stabil bei mir. Es geht bei Ausführung mit F5 oder F8, aber nicht bei Ausführung über einen Button oder Menü Makro ausführen. Dann wird .Count immer 0, und danach ist auch nichts mehr ausgewählt. Was tun?
MfG,
wwwilli

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

---

Hmm.
Das scheints wohl hier schon mal gegeben zu haben: http://ww3.cad.de/foren/ubb/Forum259/HTML/000102.shtml#000007
Aber verstehen tu ich da die Lösung auch nicht... 
Schiebt mich jemenad wieder auf die Bahn?
MfG,
wwwilli

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

---

Hallo wwwilli,

Zitat:

---

Original erstellt von wwwilli:
Hallo,
das funktioniert nicht stabil bei mir. Es geht bei Ausführung mit F5 oder F8, aber nicht bei Ausführung über einen Button oder Menü Makro ausführen. Dann wird .Count immer 0, und danach ist auch nichts mehr ausgewählt. Was tun?
MfG,
wwwilli

---

Wenn du die Ausführung des Makros auf einem Button gelegt hast funktioniert eine Vorauswahl wenn du den Aufruf wie in dem Link beschrieben gestaltest.

Also du definierst (z.B. in der acad.lsp) unter Lisp einen Befehl zum Aufruf deines Makros. Dann geht es.

Wilfried Stelberg

------------------
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 Stelli,

danke.
Aber ich sagte ja schon, dass ich die dort beschriebene Lösung nicht verstehe. Ich erkenne nicht einmal, in welcher Sprache man dort zu mir spricht: Ist das Lisp? Welche der mehreren angegebenen Lösungen wäre wohl die richtige?

Wenn ich Dich recht verstehe, geht es ohne Lisp nicht? Ich mache einen Button mit einem benutzerdefinierten Befehl, der mir mit ^C^C +??? ein Lisp-Programm startet, welches mein VBA-Programm startet, und dann geht es?
Nä, oder?

Bekümmert:
wwwilli

[Diese Nachricht wurde von wwwilli am 01. Dez. 2007 editiert.]

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

---

Hallo Willi W,

Also du definierst in der Acad.lsp oder in der mnl Datei einer Menübar den Befehl:

Code:

---

(defun c:DemoSelection (/) (vla-runmacro(vlax-get-acad-object) "selection"))

---

Auf deinen Button legst du den Befehl

Code:

---

^C^C_DemoSelection

---

Dieser ruft folgende Funktion auf

Code:

---

Sub selection()

    Dim sset As AcadSelectionSet
   
    Set sset = ThisDrawing.PickfirstSelectionSet
   
    If sset.Count = 0 Then
       sset.SelectOnScreen
    End If
   
    MsgBox "Es wurden " & sset.Count & " Entitys gewählt"

End Sub

---

Und schon geht es.

Wilfried Stelberg

------------------
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 und danke.
Ich habe in ...\support eine acad2006.lsp, ist das das selbe, oder muss ich acad.lsp neu machen?

Und "sub selection()" steht in einem VBA-Projekt *.dvb? Muss nicht dessen Name oder wenigstens der des Moduls noch irgendwo auftauchen?
MfG,
wwwilli

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

---

Hallo,

ja die acad2006.lsp kannst du nehmen.

Wenn deine Funktion eindeutig ist brauchst du nicht explicit die DVB und das Modul mit angegeben. Ansonsten kannst du -glaub ich- auch die Variante wählen.

Code:

---

(defun c:DemoSelection (/) (vla-runmacro(vlax-get-acad-object) "Beispiele.dvb!Modul1.Selection"))

---

Wilfried Stelberg

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

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

---

Zitat:

---

Original erstellt von Stelli1:
Hallo,

ja die acad2006.lsp kannst du nehmen.

---

Sollte man aber nicht .. das wurde aber schon mal hier ausgewalzt uns sollte so ähnlich auch noch mal in der ACAD-Hilfe stehen!!!

------------------
  - 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
und danke an Euch, Stelli, Carsten und Thomas.
Das funktioniert.
Dass ich in meinem Alter noch wieder zu lispeln anfangen würde... Wer hätte das gedacht!
MfG,
wwwilli

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