---

'n abend,

ich habe mit hilfe der seiten einen reactor geschrieben der mir bei jedem qsave eine sicherungskopie in meinem temporärverzeichnis ertsellt. wen es interessiert, hier ist der code :

;*******************************************************************
;************************ speichern ********************************
;*******************************************************************
(defun fc_reaktor_speichern_vorher(/ zeichnungsname zeichnungspfad)
  (princ)
);defun

(defun fc_reaktor_speichern_nachher(/ temppfad zeichnungsname zeichnungspfad projektnr)
  (princ)
  (fc_projektdaten)
  (setq temppfad (getenv "TempDirectory"))
  (if (member "hum_sicherungen" (vl-directory-files temppfad nil -1))
    (princ "\nSicherungsverzeichnis im Temporärverzeichnis bereits vorhanden !")
    (progn
      (princ "\nSicherungsverzeichnis wird im Temporärverzeichnis angelegt !")
      (vl-mkdir (strcat temppfad "\\hum_sicherungen"))
    );progn
  );if
  (setq projektnr (cdr (assoc 90 fc_sv)))
  (if (= projektnr "")(setq projektnr (getstring "\nProjektnummer : ")))  
  (setq zeichnungsname (strcat projektnr "_" (getvar "dwgname")))
  (setq zeichnungspfad (getvar "dwgprefix"))
  (vl-file-delete (strcat temppfad "hum_sicherungen\\" zeichnungsname))
  (princ "\nQuelle : ")
  (princ (strcat zeichnungspfad (getvar "dwgname")))
  (princ "\nZiel :")
  (princ (strcat temppfad "hum_sicherungen\\" zeichnungsname))
  (vl-file-copy (strcat zeichnungspfad (getvar "dwgname")) (strcat temppfad "hum_sicherungen\\" zeichnungsname))
);defun

; vor der Ausführung eines Befehles
(defun fc_reaktor_vorher (reactor argslist / )
  (cond
    ((member (strcase (car argslist)) '("QSAVE"))(fc_reaktor_speichern_vorher))
  );cond
)

; nach der Ausführung eines Befehles
(defun fc_reaktor_nachher (reaktor argslist / )
  (cond
    ((member (strcase (car argslist)) '("QSAVE"))(fc_reaktor_speichern_nachher))
  );cond
)

; Funktion zum Setzen des Reaktors
(defun c:rea( / )
  (vl-load-com)
  (if(not *cmd-reactor-added*)
    (progn
      (vlr-command-reactor nil
      '((:vlr-commandWillStart . fc_reaktor_vorher))
      )
      (vlr-command-reactor nil
      '((:vlr-commandEnded . fc_reaktor_nachher))
      )
      (setq *cmd-reactor-added* 'T)
    );progn
  );if
);defun

gibt es nicht irgendwo eine downloadseite bei cad.de ? vielleicht könnte man die routine ja dort einfügen.

aber jetzt mein (neues) problem :

ich würde gerne ein rechteck in meine zeichnung einfügen und daneben einen text mit den abmessungen dieses rechteckes. mein plan ist, dass ich immer wenn ich die abmessungen dieses rechteckes ändere, der text automatisch upgedatet wird. kann man so etwas mit reaktoren machen ?

------------------

MfG
Frank

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

---

Betreffs Routinen-Sammlung : http://autocad.cad.de
Gruß Thomas

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

---

Danke für den code.
es ist mittlerweile die inofizielle Hilfeseite autocad.cad.de online und dein Programm wird mit Sicherheit als Bald in die - sich gerade im Aufbau befindende- Datenbank assimiliert 

Zu deiner Frage:
Du bastelst doch selberst mit Reaktoren rum - da dürfte dir doch eine Lösung nicht allzu Schwer fallen, was die Aufgabenstellunf angeht.
Wichtig ist eigentlich nur, dass du eine Beziehung zwischen der Fläche und dem Text (Block) herstellst.
Es wurde auch schon einige Male darüber gesprochen hier.

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

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

---

hallo,

obiger reaktor ist der erste, den ich überhaupt geschrieben habe, bin also noch nicht so bewandert.

mir ist nicht ganz klar, wie ich ein element aus der zeichnung dauerhaft mit einer lisp-routine verknüpfe.

------------------

MfG
Frank

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