---

Hallo,

ich habe kaum Ahnung von LISP und muss einen Reactoren haben der auf das einfügen von dem Desgin Center reagiert.
Also dort will ich dann eine ARX-Datei/ARX-Funktion aufrufen - weil da kann ich richtig Progrmamieren

Weil ich will das nach jedem Einfügen aus dem DC gezählt wird wie oft das Teil schon eingefügt wurde und mit den Verfügbarkeitswerten verglichen wird.

Aber erst einmal das eine, danach kann ich wieder rum probieren.

Vielen Dank schon einmal

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

---

Hmm .. so richtig weiter bist du ja seit damals nicht gekommen ...

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

---

ach man
du bist gemein!

ich hatte von damals sehr viel zutun mit der Schule und Prüfungen und wollte mich jetzt mal wieder ran setzen.

hatte vorhin auch was im Forum gefunden kann aber damit net umgehen 

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

---

Wieso steigst du nicht gleich mal in ein Flugzeug als Pilot ein?
und arbeitest dich dann langsam bis zum Fusgänger rauf?
Wenn du auf diesem Niveao anfangen willst, empfehle ich dir die Suche zu bemühen und alles was du über Reaktoren findest mal auszuprobieren.
Mir ist leider der Schlüssel für die Cockpittür des Fliegers abhanden gekommen 

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

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

---

Guten Nacht 

ich habe es nun endlich geschafft den Reactor von MapCar zuverstehen und grob anzupassen!

Code:

---

; Funktion zum Setzen des Reaktors
(defun add-cmd-reactors( / )
  (vl-load-com)
  (vlr-command-reactor nil
    '( (:vlr-commandWillStart . cmd-start-callback))
  )
  (vlr-command-reactor nil
    '( (:vlr-commandEnded . cmd-end-callback))
  )
)

; Funktion zum Setzen der Reaktoren
(defun add-cmd-reactors( / )
  (vl-load-com)
  (if(not *cmd-reactor-added*)
    (progn
      (vlr-command-reactor nil
      '( (:vlr-commandWillStart . cmd-start-callback))
      )
      (vlr-command-reactor nil
      '( (:vlr-commandEnded . cmd-end-callback))
      )
      (setq *cmd-reactor-added* 'T)
    )
  )
)

; allgemeine Cmd-Callback-Funktion
; (vor der Befehlsausführung)
(defun cmd-start-callback(reactor argslist / )
  (cond
    ( (member(car argslist)'("ACDCINSERTBLOCK"))
    (alert "VORHER")
    ;Funktion die ausgeführt werden soll (dim-start-callback reactor argslist)
    )
    ( (=(car argslist)"BHATCH")
      (bhatch-start-callback reactor argslist)
    )
  )
)

; allgemeine Cmd-Callback-Funktion
; (nach der Befehlsausführung)
(defun cmd-end-callback(reactor argslist / )
  (cond
    ( (member(car argslist)'("ACDCINSERTBLOCK"))
    (alert "NACHHER")
      ;Funktion die ausgeführt werden solls (dim-end-callback)
    )
    ( (=(car argslist)"BHATCH")
      (bhatch-end-callback)
    )
  )
)

; Sicherstellen, dass die ActiveX-
; Funktionen geladen sind
(vl-load-com)
; Reaktoren beim Laden starten
(add-cmd-reactors)

---

Problem bis jetzt!
wenn ich über DC einen Block einfüge, muss ich rechte maustaste --> block einfügen klicken, damit der Reactor anspring
Welcher Befehl ist es, wenn ich den Block einfach rüber ziehe?
in der Befehlshistory (F2) habe ich nichts gesehen!!

Ist der Reactor überhaupt so ok?
ich habe die Sache überschätzt!
denn ich dachte es sind nur 5-15Zeilen Code

an der Stelle wo die Alerts stehen, kann dann meine ARX oder eben LISP-Funktion, die dann aufgerufen wird rein
und sonst sollte das ding ganz gut laufen odeR?

ICH DANKE EUCH!
Ihr habt mir jetzt schon gezeigt, dass LISP eben ganz anders ist als PHP/Delphi/C++
weil einfach nicht die Menge an Leuten vorhanden sind
Die Leute die es Können, verdienen damit Geld und Leute wie ich kommen kaum bzw. sehr schwer in die Szene rein

Schönen Abend noch
Danke schon einmal

gruß norbert

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

---

Wenn du in der Befehlszeile nicht erkennen kannst, welcher Befehl beim Drag&Drop aus dem DC aufgerufen wird, muss du in der Reaktor-Funktion einfach beim Aufruf IMMER die übergebene Argumentliste ausgeben lassen, dann sieht du ja, welcher Befehl gestartet wurde, und ob der Reaktor überhaupt reagiert.
Bau dir einfach mal ein (print arglist) in die Funktion ein.

------------------
Mit freundlichem Gruß

Udo Hübner

[Diese Nachricht wurde von CAD-Huebner am 29. Jun. 2007 editiert.]

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

---

Guten morgen,
klingt logisch - werde dann mal schauen, wie ich es schaffe, mir so eine liste aus zugeben
oder einfach nur (print arglist) einfügen?

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

---

Hallo...es geht nicht so richtig 

Code:

---

; allgemeine Cmd-Callback-Funktion
; (vor der Befehlsausführung)
(defun cmd-start-callback(reactor argslist / )
  (print arglist) ; Ausgabe Arglist
  (cond
    ( (member(car argslist)'("ACDCINSERTBLOCK"))
    (alert "VORHER")
    ;Funktion die ausgeführt werden soll (dim-start-callback reactor argslist)
    )
    ( (=(car argslist)"BHATCH")
      (bhatch-start-callback reactor argslist)
    )
  )
)

---

als Ausgabe kommt
Befehl: Doppelte Definition von Block Verschubleiter  ignoriert.

Befehl:
Befehl:
nil

was soll ich tun?

Danke schon einmal

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

---

Nicht blind meine Tippfehler abschreiben, es muss natürlich (print argslist) heißen.

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Hallo

super...DANKE

schönes Wochenende noch

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

---

Guten abend,

wie bekomme ich den Blocknamen von dem eingefügten Block raus?

Code:

---

(defun c:blocknamereturn( )

;gibt Blocknamen zurück...
(if (setq OBJEKT (ssget "_:S" '((0 . "INSERT"))))
  (setq blname (cdr(assoc 2 (entget (ssname OBJEKT 0)))))
)
(alertblname)
)

---

Die Funktion habe ich mir aus einem AutoCAD Buch glaub zusammen gebastelt!
denn bei der Funktion, muss ich den Block immer erst auswählen!

Aber wie bekomme ich jetzt, automatisch den Blocknamen von dem eingefügten Block zurück?

oder muss ich bei "INSERT" den Befehl anpassen?

Vielen Dank schon einmal

mfg
Norbert Baum

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

---

(setq blname (cdr(assoc 2 (entget (entlast)))))

entlast liefert das zuletzt erzeugte Objekt

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

---

guten morgen,
DANKE
Super

..bis zum nächsten Problem

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