---

Hallo,

hab da als VB'ler ein Problem:
Ich möchte mit VBA Entity`s bearbeiten. Das klappt alles prima.
Der notwendige Befehl in AutoCAD wird über ein VB Makro erzeugt.

Code:

---

    ' Befehl einrichten
    vlst_cmd = "(defun c:" & vlst_Befehl & " (/) (vla-runmacro(vlax-get-acad-object) """ & vlst_Befehl & """))" & Chr$(13)
    ThisDrawing.SendCommand vlst_cmd

---

Letztendlich wird per VB ein lisp Befel ausgeführt

Code:

---

(defun c:MeinBefehl (/) (vla-runmacro(vlax-get-acad-object) MeinVBAMakro))

---

Klappt alles prima: Makro startet, Aufforderung zur Objektwahl, Maske geht auf.
Das Problem ist, dass ich in VBA irgendwie nicht abfragen kann ob der Benutzer vor dem Ausführen des Befehls schon ein Objekt ausgewählt hat.
Deshalb meine Idee Unterstützung in lisp:
1. abfragen ob was angeklickt ist
2. Unter einer sysvar die Selection als Collection speichern
3. VB Makro starten
4. Sysvar holen
5. Ist was gewählt worden
dann läufst wie gehabt.
Leider kann ich Schritte 1-3 nicht als lisp umsetzen!
Einer von euch vielleicht ???

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

Das Problem ist die Variablenübergabe! Mit Sysvars geht das nicht!!
Das Abfragen nach einer vorhandenen Selektion geht mit (ssget "_i")

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

ich weiss leider nicht wie es in lisp vorgeht.
In VBA hat man auch benannte Selectionsets.
- Kann man so ein Selectionset in lisp erzeugen ?
- Oder die Collection in ein Dictonary ?
- oder doch die verborgene Möglichkeit mit VBA diese Elemente lesen?

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

in Lisp würde das bei mir so aussehen
(if(or(setq AUSWAHL(ssget "_i")) ;_schon was gewählt?
      (setq AUSWAHL(ssget))      ;_ wenn nicht, dann wähle aus
  )
  (progn
    (setq i -1)
    (repeat(sslength AUSWAHL)  ;_durchlaufe die Auswahl
      (setq OBJ (ssname AUSWAHL(setq i (1+ i))
      machwas mit OBJ
    ) 
  )
) 

aber evtl kannst du in VBA was mit dem ActiveSelectionSet des Cocuments machen?

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

---

KopievonVLAX.cls.txt

Hi Stelli,

SysVars heißen so, weil sie nun mal Systemvariablen sind. Da sind eben nur System-Informationen drin. Bei dir geht's aber um User-Daten.

In der angehängten VBA-Klasse ist das drin, was du benötigst. Und hier findest du Anleitung, wie du die Klasse für ein neueres AutoCAD anpassen musst:
http://makeashorterlink.com/?C1092161C

Gruß, Axel Strube-Zettler

------------------
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Hallo,

vielen Dank für die Antworten!

Ich habe doch noch die verborgene Möglichkeit in VBA gefunden.

Code:

---

    Set sset = ThisDrawing.PickfirstSelectionSet
    If sset.Count = 0 Then
        On Error Resume Next
        ThisDrawing.Utility.Prompt Chr$(10) & "*** IS VBA TOOLS  Info Funktion ***"
        ThisDrawing.Utility.GetEntity entity, pkt, Chr$(10) & "Objekt wählen: "
        On Error GoTo 0
    Else
        Set entity = sset(0)
    End If

---

Wenn der Befehl wie im ersten Post beschrieben definiert wurde wird auch die bereits erfolgte Auswahl übernommen.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

[Diese Nachricht wurde von Stelli1 am 02. Nov. 2005 editiert.]

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