'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