---

Hallo Lispler
Beschäftige mich gerade mit den Reaktoren.
Habe folgenden Code von Lisp-Buch kopiert und getestet.
Wenn ich eine Bemassung wähle funktioniert der Code, es wird ein Layer angelegt.
Aber wenn ich eine Schraff wähle geschied nichts, kann mir bitte einer  sagen wo der Fehler liegt.
Danke

; Anfang der Datei
; 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)'("DIMLINEAR""DIMALIGNED"
                            "DIMRADIUS""DIMANGULAR"
                            "DIMBASELINE""DIMDIAMETER"
                            "DIMCONTINUE""QLEADER"))
      (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)'("DIMLINEAR""DIMALIGNED"
                            "DIMRADIUS""DIMANGULAR"
                            "DIMBASELINE""DIMDIAMETER"
                            "DIMCONTINUE""QLEADER"))
      (dim-end-callback)
    )
    ( (=(car argslist)"BHATCH")
      (bhatch-end-callback)
    )
  )
)
; Macht einen Layer aktuell
(defun set-layer(name / )
  (vla-put-ActiveLayer
    (current-document)
    (vla-item(document-layers)name)
  )
)
; gibt das Vla-Object zu einem
; Layernamen zurück
(defun layer-object(name / result)
  (vlax-for layer(document-layers)
    (if
      (=(strcase name)
        (strcase(vla-get-name layer))
      )
      (setq result layer)
    )
  )
  result
)
; Erzeugt einen neuen Layer
(defun create-layer(name props / newlayer)
  (setq newlayer
    (vla-add (document-layers) name)
  )
  (foreach prop props
    (vlax-put-property
      newlayer (car prop)(cdr prop)
    )
  )
  newlayer
)
; Ermittelt den aktuellen Layer
(defun get-current-layer( / )
  (vla-get-activelayer
    (current-document)
  )
)
; Gibt die Layer-Collection zurück
(defun document-layers( / )
  (vla-get-layers
    (current-document)
  )
)
; gibt die aktuelle Zeichnung zurück
(defun current-document( / )
  (vla-get-activedocument
    (vlax-get-acad-object)
  )
)
; Vorher-Callback für Schraffuren
(defun bhatch-start-callback( / layer)
  (setq layer "---E-Schraffuren")
  (if(not(layer-object layer))
    (create-layer layer '((Color . 131)))
  )
  (setq *previous-layer*(get-current-layer))
  (set-layer layer)
)
; Nachher-Callback für Schraffuren
(defun bhatch-end-callback( / )
  (if *previous-layer*
    (progn
      (vla-put-activelayer
        (current-document)
        *previous-layer*
      )
      (setq *previous-layer* nil)
    )
  )
)
; Vorher-Callback für Bemaßungen
(defun dim-start-callback(reactor argslist /
                            scale str layer)
  (setq scale(getvar"dimscale"))
  (setq str
    (cond
      ( (>= scale 10.0 )  "10")
      ( 1 "1")
    )
  )
  (setq layer(strcat "---E-Bem_" str))
  (if(not(layer-object layer))
    (create-layer layer '((Color . 170)))
  )
  (setq *previous-layer*(get-current-layer))
  (set-layer layer)
)
; Nachher-Callback für Bemaßungen
(defun dim-end-callback( / )
  (if *previous-layer*
    (progn
      (vla-put-activelayer
        (current-document)
        *previous-layer*
      )
      (setq *previous-layer* nil)
    )
  )
)
; Sicherstellen, dass die ActiveX-
; Funktionen geladen sind
(vl-load-com)
; Reaktoren beim Laden starten
(add-cmd-reactors)
; Ende Datei

------------------
Heinz 

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

---

Hallo Heinz,
falsche Anzahl von Parametern in (defun bhatch-start-callback...)?

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hatten wir hier schon mal diskutiert...

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

Danke das wahrs.
Funktioniert wunderbar

------------------
Heinz 

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

---

Hallo

Einen Frage habe ich noch.
Würde das auch funktionieren wenn ich einen Block von einer bestimmten Werkzeugpalette einfüge.
Wenn ja, kann mir dann bitte einer ein Beispiel geben.

Danke mal im Voraus.

------------------
Heinz 

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

---

Hallo
Kann keiner Helfen

------------------
Heinz 

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

---

Je nachdem wie du das Einfügen auf der WP abgelegt hast .. einfach nur Block reinziehen wird IMHO keinen command-reaktor auslösen .. das kannst du aber auch selber testen.

IMHO kannst du was mit dem vlr-acdb-reactor 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

---

Hallo CADmium

Das das mit Block reinzieh habe ich schon getestet, und das funktioniert nicht.
Wenn ich aber Einfügen Block anwende dann geht es.

"IMHO kannst du was mit dem vlr-acdb-reactor machen"
Ja wen man weiss wie.
danke

------------------
Heinz 

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

---

..ist das gleiche Prinzip wie beim command-reaktor, bloß das halt das Auslöse-Ereigneis ein anderes ist..

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

---

Anmerkung am Rande (entspringt CADchups Hirn):

Stelle den Layer auf deiner Werkzeugpalette richtig ein und du sparst dir den Reaktor.

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

EDIT: Meine Deutschkenntnisse schwinden... 

[Diese Nachricht wurde von tunnelbauer am 17. Jan. 2008 editiert.]

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

---

Hallo
Danke für Antworten

------------------
Heinz 

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

---

Hallo
sorry wegen Schreibfehler

Werd das wieder lassen,das Arbeiten mit Reactoren ist mit zu hoch.
schönen Tag noch

------------------
Heinz 

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

---

Hallo Heinz,

ich hab hier im Forum mal ein kleines Programm abgelegt http://ww3.cad.de/foren/ubb/Forum145/HTML/001890.shtml#000014
vielleicht hilft dir das was.

GrassHopper

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

---

Hallo GrassHopper

Danke für deine Info.
Meine Reaktoren laufen ja schon, nur von Werkzeugpallette einfügen funktioniert nicht.Sonst läuft alles super.
Danke
P.S Dein Lisp kannte ich schon.

------------------
Heinz 

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

---

@Dober:

Nochmals meine Frage:

Warum stellst du den Layer nicht gleich auf der Palette richtig ein?
Dann kannst du dir mit dem Reaktor sparen.

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Hallo Tunnelbauer
Das hat was mit unserer Struktur der Firma zu tun.
Wir Arbeiten sehr viel mit Fremdplänen.
Mal brauch ich meinen Symbole auf Aktuellen Layer, mal mit Vordefinierten Layer und einmal mit Hilfsmaßstab.
Das sind dann 3 Werkzeugpalletten mit den gleichen Symbolen aber, verschieden Einstellungen. Und die Werkzeugpalltten sind dann nochmal Unterteilt in SST, Bel, SWS usw., also sehr viel zum Pflegen wen mal ein Symbol dazukommt.
Wollte das mit den Reaktoren vereinfachen.
Aber ich kann so auch Leben damit.

------------------
Heinz 

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

---

Hallo Heinz,
ich hab's nochmal probiert wenn du den Befehl "DROPGEOM" auch noch in die zu überwachenden Befehle mit aufnimmst klappt das ganz gut.
Nur bei ADT - Elementen klappt das nicht da die selbst noch mit den Layern spielen.

GrassHopper

Codeausschnitt aus meinem kleinem Programm
(setq ...
*cmdNames* '("DIMLINEAR""DIMALIGNED"
                    "DIMRADIUS""DIMANGULAR"
                    .....
                    "DROPGEOM"  ; Hier der Befehl der ausgeführt wird wenn Elemente aus der Palette in der Zeichnung abgelegt werden
            )
)
                 

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

---

Hallo GrassHopper

Danke werde mir das heute mal Testen, und mich dann Melden.

------------------
Heinz 

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

---

Hallo GrassHopper

1000 mal Danke funktioniert.

------------------
Heinz 

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