---

Um die Dateigröße nicht jedesmal über den EXPLORER nachschauen zu müssen, möchte ich gerne die Dateigröße der aktuellen Zeichnung bestimmen und über MODEMACRO in die Statuszeile eintragen...
Hat hierzu jemand eine gute Idee?
(Autocad-Mechanical6 unter Windows-2000)

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

---

Das überwachen funktioniert ja sowieso nicht da die "Dateigröße"
erst mit einem erneuten speichern aktualisiert wird/entsteht.

Ansonsten kommst du mit dieser Zeile rann:
(vl-file-size (strcat (getvar "dwgprefix")(getvar "dwgname")))
Wenn du den Wert zB in die SysVar "UserR1" speicherst dann kannst
du diesen Wert auch per Diesel in Modemakro anzeigen lassen..

EDIT
geht ja auch direkt per Lisp  und modmakro ich Dexx

(setvar "modemacro"
(strcat "Dateigröße: " (rtos(vl-file-size (strcat (getvar "dwgprefix")(getvar "dwgname")))2 0))
)

[Diese Nachricht wurde von cadffm am 27. Dez. 2004 editiert.]

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

---

Die Bestimmung der Dateigröße und der Eintrag in die Statuszeile funktioniert soweit einwandfrei.
Beim Wechsel zwischen verschiedenen gleichzeitig geöffneten Dateien erfolgt jedoch keine automatische Aktualisierung - es wird in allen Fenstern der Wert der zuletzt geöffneten Datei dargestellt.
Mache ich da noch irgendetwas falsch?

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

---

.. beim Dokumentwechsel rufst du ja modemacro auch nicht neu auf ... !!

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

---

Hi,
ja das Problem mit dem Fensterwechsel und modemakro mußte ich auch lösen.
Ich verwende dazu eine Lisp-Datei "reactors.lsp" die über die Funktion S::STARTUP in der acaddoc.lsp automatisch bei jedem Dokumentstart ausgeführt wird.
Der Inhalt der "reactors.lsp" müßte für Deine Zwecke so aussehen:

Code:

---

(vl-load-com) ;_ Lade die ActiveX Extension

;;; Hinzufügen eines Docmanager reactors
;;; Fensterwechsel in AutoCAD
(vlr-docmanager-reactor
  NIL
  '((:vlr-documenttobeactivated . MS:NEWNOTICE) ;_ (Bei dem Event . Tue dies)
   )
)

;;; Definiert was passieren soll...
(defun MS:NEWNOTICE (REACTOR PARAMETERLIST /)
  (setvar
    "modemacro"
    (strcat "Dateigröße: "
            (rtos (vl-file-size
                    (strcat (getvar "dwgprefix") (getvar "dwgname"))
                  )
                  2
                  0
            )
    )
  )
)

(princ)

---

...

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 03. Jan. 2005 editiert.]

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