| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Bearbeitungszeit ändern (1318 mal gelesen)
|
smb Mitglied
Beiträge: 1176 Registriert: 02.08.2001
|
erstellt am: 24. Nov. 2004 15:11 <-- editieren / zitieren --> Unities abgeben:
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 |
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, ..., AutoCADs 200X, SWX 2kX
|
erstellt am: 25. Nov. 2004 07:09 <-- editieren / zitieren --> Unities abgeben: Nur für smb
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 |
smb Mitglied
Beiträge: 1176 Registriert: 02.08.2001
|
erstellt am: 25. Nov. 2004 08:10 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 25. Nov. 2004 08:13 <-- editieren / zitieren --> Unities abgeben: Nur für smb
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 |
smb Mitglied
Beiträge: 1176 Registriert: 02.08.2001
|
erstellt am: 25. Nov. 2004 08:58 <-- editieren / zitieren --> Unities abgeben:
|
smb Mitglied
Beiträge: 1176 Registriert: 02.08.2001 zu viele
|
erstellt am: 25. Nov. 2004 12:47 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 25. Nov. 2004 12:48 <-- editieren / zitieren --> Unities abgeben: Nur für smb
|
smb Mitglied
Beiträge: 1176 Registriert: 02.08.2001
|
erstellt am: 25. Nov. 2004 18:16 <-- editieren / zitieren --> Unities abgeben:
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 |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 25. Nov. 2004 21:30 <-- editieren / zitieren --> Unities abgeben: Nur für smb
|
smb Mitglied
Beiträge: 1176 Registriert: 02.08.2001
|
erstellt am: 25. Nov. 2004 21:44 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 25. Nov. 2004 23:01 <-- editieren / zitieren --> Unities abgeben: Nur für smb
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 |
smb Mitglied
Beiträge: 1176 Registriert: 02.08.2001
|
erstellt am: 26. Nov. 2004 11:07 <-- editieren / zitieren --> Unities abgeben:
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 |