---

Hallo, habe folgendes vor:
Doppelklick soll eigenes Programm öffnen.
Zweck: EED's bequem mit Doppelklick per Dialogbox editieren, usw.
Ein Versuch mit Reactor, funktioniert erstmal, störend ist hier
aber, daß nachher acad das ausführt, was normalerweise bei
Doppelklick kommt.
Frage: kann man das abstellen, oder bin ich da auf dem "Holzweg"?

Code:

---

(defun
  FIT-MOUSE-DOUBLECLICK
                        (REAKTOR BACKLIST / ELI SS)
  (if
    (setq SS (ssget (car BACKLIST)))
    (progn
      ;; zum testen ohne EED's:
      (setq ELI (entget (ssname SS 0)))
      ;; mit EED's:
;;;      (setq ELI (entget (ssname SS 0) '("FI_TOOLS_020502")))
      (if
        ;; zum testen ohne EED's:
        ELI
        ;; nur wenn EED's und richtiger Anwendungsname:
;;;        (= "FI_TOOLS_020502" (car (last (assoc -3 ELI))))
          (progn
            ;; zum testen alert statt Programm:
            (alert (strcat "Element: " (cdr (assoc 0 ELI))))
            (princ "\nund mach NICHT, was acad normalerweise macht. ")
          )
          (princ "\nmach, was acad normalerweise macht. ")
      )
    )
  )
  (prin1)
)
(defun
  FIT-MOUSE-REAC
                (/)
  (if
    (not *FIT-MOUSE-REAC*)
    (progn
      (vlr-mouse-reactor
        NIL
        '((:vlr-begindoubleclick . FIT-MOUSE-DOUBLECLICK))
      )
      (setq *FIT-MOUSE-REAC* t)
    )
  )
)
(FIT-MOUSE-REAC)

---

Gibt es hierzu noch andere Lösungsansätze?
Übringens: FiT bedeutet nicht daß ich fit bin (oder doch? ;-), sondern ist
nur die Abkürzung für "Namenskürzel" und "Tools" und verwende ich als
prefix für Programme und Variablen um Namenskonflikten aus dem Weg
zu gehen.

...code nicht geändert, nur schöner formatiert...
------------------
Gruß Gerald

[Diese Nachricht wurde von FiT am 11. Dez. 2004 editiert.]

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

---

Hallo,
habe eine Lösung gefunden:
"Objekt vor Befehl"; Systemvariable "PICKFIRST"!
"FIT-MOUSE-DOUBLECLICK" sieht jetzt so aus und funktioniert:

Code:

---

(defun
  FIT-MOUSE-DOUBLECLICK
                        (REAKTOR BACKLIST / ELI SS)
  (if
    (setq SS (ssget (car BACKLIST)))
    (progn
      ;; zum testen ohne EED's:
;;;      (setq ELI (entget (ssname SS 0)))
      ;; mit EED's:
      (setq ELI (entget (ssname SS 0) '("FI_TOOLS_020502")))
      (if
        ;; zum testen ohne EED's:
;;;        ELI
        ;; nur wenn EED's und richtiger Anwendungsname:
        (= "FI_TOOLS_020502" (car (last (assoc -3 ELI))))
          (progn
            (setvar "PICKFIRST" 0)
            ;; zum testen alert statt Programm:
            (alert (strcat "Element: " (cdr (assoc 0 ELI))))
;;;            (princ "\nund mach NICHT, was acad normalerweise macht. ")
            (setvar "PICKFIRST" 1)
          )
;;;          (princ "\nmach, was acad normalerweise macht. ")
      )
    )
  )
  (prin1)
)

---

Hmm... das eröffnet neue Perspektiven in Sachen Anwenderführung...
Hat jemand Verbesserungsvorschläge?

------------------
Gruß Gerald

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

---

Hallo ich beide

Bin ich dumm oder was? Wie muß ich das Programm aufrufen. (FIT-MOUSE-DOUBLECLICK  ??? ???)?

Danke für eine Antwort

------------------
  Martin 

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

---

Hallo,
@Martin
Programm Code speichern: LW:\irgendwo\FIT-MOUSE-REAC.LSP
Prog. laden: acad-Befehlszeile: (load "LW:\irgendwo\FIT-MOUSE-REAC.LSP")
Reactor wird in letzter Zeile aktiviert (FIT-MOUSE-REAC).
Prog ausführen: Doppelklick auf irgend ein Zeichnungselement.
@Alle
Das ganze funktioniert noch nicht richtig, mal wird das Eigenschaftsfenster angezeigt, mal nicht.
Und wenn ich ein Programm oder (command ... ) ausführen will tut sich nichts bzw. Fehler in VLisp (siehe Kommentar im Code).
Stelle dieses Thema hier zur Diskussion und bitte um Vorschläge und Verbesserungen.

Code:

---

(defun
  FIT-MOUSE-DOUBLECLICK
                        (REAKTOR BACKLIST / ELI SS)
  (if
    (setq SS (ssget (car BACKLIST)))
    (if
      (< (sslength (last (ssgetfirst))) 2)
        (progn
          ;; zum testen ohne EED's:
          (setq ELI (entget (ssname SS 0)))
          ;; mit EED's:
;;;          (setq ELI (entget (ssname SS 0) '("FI_TOOLS_020502")))
          (if
            ;; zum testen ohne EED's:
            ELI
            ;; nur wenn EED's und richtiger Anwendungsname:
;;;            (= "FI_TOOLS_020502" (car (last (assoc -3 ELI))))
            (progn
              (setvar "PICKFIRST" 0)
              ;; zum testen alert statt Programm:
              (alert (strcat "Element: " (cdr (assoc 0 ELI))))
              ;; warum erzeugt z.B. das einen Fehler:
                (command "_line" "0,0,0" "100,100,0" "") :_???
;;;            (princ "\nund mach NICHT, was acad normalerweise macht. ")
              (setvar "PICKFIRST" 1)
            )
;;;          (princ "\nmach, was acad normalerweise macht. ")
          )
        )
    )
  )
  (prin1)
)
(defun
  FIT-MOUSE-REAC
                (/)
  (if
    (not *FIT-MOUSE-REAC*)
    (progn
      (vlr-mouse-reactor NIL '((:vlr-begindoubleclick . FIT-MOUSE-DOUBLECLICK)))
      (setq *FIT-MOUSE-REAC* t)
    )
  )
)
(FIT-MOUSE-REAC)

---

------------------
Gruß Gerald

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

---

Danke Fit

Hatt nur den Teil des Programms gelanden der im zweiten Beitrag steht und erkenne jetzt dein Problem. Leider kann ich Dir dabei nicht helfen da ich mit Reaktoren und co. so gut wie nicht auskenne. Die Idee ist aber nicht schlecht.

------------------
  Martin 

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

---

In einer Reactorcallback funktion können keine Command Befehle ausgeführt werden - grundsätzlich nicht!

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Danke für den Hinweis, CADwiesel,
ein Test mit (entmod ... ) - ich will ja die EED's ändern - geht auch nicht. Um vernünftigen Zugriff auf die EED's zu haben, muß ich mich erstmal damit beschäftigen: (set_eed ... )(get_eed ... ) ...
Es geht darum, vohandene, von einem fremden Programm erzeugte EED's zu ändern - schön wäre mit Doppelklick...
Ich studiere hierzu gerade die "XED.LSP" von: http://xarch.tu-graz.ac.at/autocad/code/adesk/ghindex.html

------------------
Gruß Gerald

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

---

Hallo Leute,
kurzer Zwischenbericht meiner derzeitigen Studien bezüglich:
Doppelklick öffnet eigenes Programm.
(command... und auch (entmod... geht nicht (im callback), aber:
(vla-sendcommand... funktioniert; und auch z. B.
(vla-startundomark...
(vla-endundomark...
(vla-highlight...
(vla-setxdata...
(vla-getxdata... ...usw. funktioniert.
Also konzentriere ich mich auf die vla-* Funktionen.
Habe auch eine jetzt endlich lauffähige Version hinbekommen, bin noch am testen und verbessern, und werde das demnächst posten.
weihnachtlicher Gruß aus Würzburg.

------------------
Gruß Gerald

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