---

Hi Leutz,

habe die Suche schon eingehend befragt und auch eine evtl. Lösung
gefunden, aber ich möchte doch diese Änderung etwas anders durchführen.

Bearbeitungzeit ändern sollte über die julian.lsp der eTools funktionieren, da
ich die eTools nicht komplett installieren möchte, wollte ich nur diese "laden",
aber das funzt irgendwie nicht so richtig. Mit welchem Befehl starte ich die
Routine oder funzt das gar nicht? Oder hat jemand ein Routine, baut mir eine
"Neue" oder gibt es andere "Mittel und Wege"?

Gruß SMB

P.S.: Bin für jeden Tipp dankbar!

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

Es kann ja nicht immer regnen!"
"Opfer...sind wir das nicht alle?"

[Diese Nachricht wurde von smb am 25. Nov. 2004 editiert.]

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

---

Da die CAD.de nicht weiter helfen kann, warum auch immer  , verlinke ich mal das hier.

------------------
  "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

[Diese Nachricht wurde von Proxy am 25. Nov. 2004 editiert.]

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

---

Moin,

danke für die Antwort, aber irgendwie bringe ich
die Sache nicht hin.

Den ersten Teil mit der Revisionsnummer funzt einwandfrei,
aber die zweite Routine auf der Seite???? Ich blicks nicht und
mein LISP-Kenntnisse sind sehr dünn!    Wie starte ich
die zweite Routine? Muss die Datei einen bestimmten Namen haben?

Gruß SMB

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

"Es kann ja nicht immer regnen!"
"Opfer...sind wir das nicht alle?"

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

---

ich verlinke mal auf das hier und zitiere mich mal :
Mhmm .. sehe gerade bei 2004'er Dateien gibts kein Dictionary "DWGPROPS" mehr !??!...

achso, und julian.lsp rechnet dir bloß das Julianische Datum in ein Normaluser-Format um, also 2453335.33978605 -> 2004/11/25 08:09:34.029

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 25. Nov. 2004 editiert.]

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

---

Moin,

sry wegen der Sys-Info, ich suche was für 2000i.

CU SMB

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

"Es kann ja nicht immer regnen!"
"Opfer...sind wir das nicht alle?"

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

---

Ich bekomm immer noch net hin!

Hilfe! Ich steh aufm Schlauch!

CU SMB

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

"Es kann ja nicht immer regnen!"
"Opfer...sind wir das nicht alle?"

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

---

Heißt das jetzt : "Macht ihr mir mal!" ?

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

---

Nein, hilft mir mal! Ich kriegs net gebacken
und finde einfach nicht warum?
Wenn ich meinte Macht mir mal, dann würde ich
es schreiben und mich nicht "dumm" stellen!

CU SMB

Befehl: ; Fehler: Falsch formatierte Liste in Eingabe

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

"Es kann ja nicht immer regnen!"
"Opfer...sind wir das nicht alle?"

[Diese Nachricht wurde von smb am 25. Nov. 2004 editiert.]

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

---

Hi,

zeig doch mal, was Du probiert hast und woher der Fehler kam. Von Telepathie bekomme ich nämlich immer so Kopfweh!

Gruß
CADchup

------------------
www.cadditions.de

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

---

dwgprops.lsp.txt set_dwgprops.lsp.txt

Hi,

die ganzen Lisp-Routinen der Tipps habe ich durch
habe mir dann lsp erstellt, kann aber keine Starten.
Hier noch zwei, die ich noch nicht in die Tonne getreten
hab.

Wie schon erwähnt, ich habe eigentlich keine Ahnung von
dem was ich mache ähmmm von LSP

Gruß SMB

P.S.: Jetzt frage ich: "Hat niemand etwas fertig für mich?"
P.P.S.: Ich werde noch wahnsinnig!       

------------------
   
"Es kann ja nicht immer regnen!"
"Opfer...sind wir das nicht alle?"

[Diese Nachricht wurde von smb am 25. Nov. 2004 editiert.]

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

---

Hier mal 2 Routinen, wie es gehen sollte:
(defun c:GET-BEARBEITUNGSZEIT(/ DICT PROPS ZEIT STUNDE MINUTE SEKUNDE)
  (if(and (setq DICT (dictsearch (namedobjdict) "DWGPROPS"))
          (setq PROPS (entget(cdr(assoc -1 DICT))))
          (setq ZEIT (cdr(assoc 40 PROPS)))
     )
    (progn
      (setq TAGE (fix ZEIT))
      (setq ZEIT   (* 24.0 60 60 (- ZEIT TAGE)))
      (setq ZEIT   (+ ZEIT 0.0005))            
      (setq STUNDE (fix (/ ZEIT 3600.0)))      
      (setq MINUTE (fix (/ (- ZEIT (* STUNDE 3600)) 60.0)))          
      (princ (strcat "\nBearbeitungsdauer : "
                     (itoa TAGE) " Tage, "
                     (itoa STUNDE) " Stunden, "
                     (itoa MINUTE) " Minuten"                    
             )
      )                
    )
    (princ "\nKann DWG-PROPERTIES nicht auslesen")
  )
  (princ)
)

(defun c:SET-BEARBEITUNGSZEIT(/ DICT PROPS GC40 STUNDE MINUTE SEKUNDE)
  (if(and (setq DICT (dictsearch (namedobjdict) "DWGPROPS"))         
          (setq PROPS (entget(cdr(assoc -1 DICT))))
          (or(setq TAGE  (getint "\n Bearbeitungszeit TAGE    <0>: "))
             (setq TAGE 0)
          )
          (or(setq STUNDE(getint "\n Bearbeitungszeit STUNDEN <0>: "))
             (setq STUNDE 0)
          )
          (or(setq MINUTE(getint "\n Bearbeitungszeit MINUTEN <0>: "))
             (setq MINUTE 0)
          )
     )
    (progn
      (setq GC40 (+ TAGE(/ (*(+(* STUNDE 60)MINUTE)60)(* 24.0 60 60))))          
      (setq PROPS(subst(cons 40 GC40) (assoc 40 PROPS)PROPS))
      (setq PROPS(subst(cons 2  (rtos GC40 2 8))(assoc 2 PROPS)PROPS))
      (dictremove (namedobjdict)"DWGPROPS")
      (dictadd(namedobjdict)"DWGPROPS" (entmakex PROPS))
    )
  )
)

die Betonung liegt auf sollte ... denn ACAD schreibt die Zeiten scheinbar noch woanders hin - spiegelt das praktisch ... im Dictonary werden die Werte gesetzt, aber gültig bleibt bloß z.B: bloß der Titel (GC 2) (hier zur Kontrolle eingebaut). Und im 2004 ist dann das benannte Dictionary "DWGPROPS" wohl ganz weggefallen. Gibt ja jetzt auch Signatur und Passwort in 2004 , vielleicht ist die Statistik ja da in der Nähe versteckt. Keine Ahnung. (und auch nicht den Antrieb weiter zu suchen) Sorry.

Ach so. Zur Not kannste noch folgndes probieren :
Als DXF speichern und nach den Sysvars TDCREATE TDINDWG TDUCREATE TDUPDATE TDUSRTIMER TDUUPDATE suchen, diese ändern und Datei wieder laden... oder Objectarx, was vielleicht auch Änderung schreibgeschützter Syvars zuläßt, aber davon hab ich noch weniger Ahnung.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 25. Nov. 2004 editiert.]

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

---

Hi,

danke für die Hilfe und die Routinen laufen auch sauber,
nur die B-Zeit lässt sich nicht ändern. Funzt net, die
Variante über DXF ist für uns hier zu aufwendig (viele DWGs)
und auch zu "unsicher". Wir haben einen Kunden der ist etwas
"komisch".

Danke für die Mühe und Hilfe, aber ich glaube da gibt es keine
Lösung und wir frieren an dieser Stelle das Thema ein.....

Gruß SMB

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

"Es kann ja nicht immer regnen!"
"Opfer...sind wir das nicht alle?"

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