---

halli hallo,
ich habe mir einen schriftkopf gemacht bei dem es mich die ganzen sachen wie datum, name, zeichnungsnummer, zeichnungsindex usw.
abfragt; nun wäre es doch schön wenn er sachen wie name und datum
von selber einträgt, ich habe das beim mechanical desktop power pack
gesehen, wie kann mann das machen ??

gruss ee gabriel

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

---

Wenn ich Dir jetzt sage, "Mit AutoLisp", so wird Dir das nicht recht weiterhelfen.

Wenn Du Interesse hast, unterbreite ich Dir gerne ein Angebot für solch eine Routine.

mfg

Wilfried Nelkel
CAD-Technik Nelkel www.cad-nelkel.de

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

---

Ich Unterbreite auch ein Angebot -Kostenlos- allerdings "nur" für R14

------------------
Gruß
CADwiesel

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

---

ha !!!! nix angebot, ich will das selbern machen !
ich habs eigentlich schon, ich will nur wissen wie sich das
datum von selber einfügt;

gruss ee gabriel

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

---

entweder über einen aufruf eines Lispprogramms, das dann den Block durchscannen muß, bis das richtige Attribut gefunden ist und es ersetzt, oder durch einen Reaktor, der das Gleiche macht, nur muß der nicht extra angestoßen werden.

------------------
Gruß
CADwiesel

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

---

hallo wiesel,
wie könnte dass mit dem lisp denn ausschauen?
was ist ein reaktor ?
gruss ee gabriel

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

---

Hi
Ich hab dir mal den code eingepackt, der einen Stempel bei uns Aktualisiert. Wenn Du das nicht verstehst, schick mir 'ne Mail.
Das mit den Reaktoren ist etwas schwieriger, aber auch nicht so. Der Vorteil von Reaktoren ist einfach der, daß sie auf bestimmte Acadbefehle ansprechen und dann eine vordefinierte Arbeit ausführen.
Sie sind leider nur dürftig dokumentiert, ich hab auch nur ein paar blätter doku-aber für die einfachen sachen reicht's. Übrigens solltest Du in Visual Lisp (editor) entwickeln, da kann mann super debuggen.

;;;*********************Systemzeit auslesen*******************************
(defun parse_time ( / )
(setq USERLOG (getvar "Loginname"))

(setq date_str (rtos (getvar "cdate") 2 4)
year (substr date_str 1 4)
month (substr date_str 5 2)
day (substr date_str 7 2)
hour (substr date_str 10 2)
minu (substr date_str 12 2)
date (strcat day "." month "." year " / " Userid)
);ende setq
);ende defun

;;;*****************Stempel ändern***************************************
(defun c:stemp ( / d tt te)
(setvar "cmdecho" 0)
(parse_time)
(setq md_zaehler 0)
(if (setq tt (ssget "x" '((0 . "INSERT")(2 . "legende"))))
(progn
(while
(> (sslength tt) md_zaehler)
(setq te (entget (ssname tt md_zaehler)))
(setq aslstblk (entget (entnext (cdr (assoc -1 te)))))
(while (/= (cdr (assoc 0 aslstblk)) "SEQEND")
(setq md_text (cdr (assoc 2 aslstblk)))
(cond
((= md_text "ÄNDERUNG1")
(setq ename1 aslstblk)
(setq md_fill1 (cdr (assoc 1 aslstblk)))
)
((= md_text "ÄNDERUNG2")
(setq ename2 aslstblk)
(setq md_fill2 (cdr (assoc 1 aslstblk)))
)
((= md_text "ÄNDERUNG3")
(setq ename3 aslstblk)
(setq md_fill3 (cdr (assoc 1 aslstblk)))
)
);ende cond
(setq aslstblk (entget (entnext (cdr (assoc -1 aslstblk)))))
);ende while
(if
(/= md_fill3 date)
(progn
(entmod (subst (cons 1 md_fill2)(assoc 1 ename1) ename1))
(entmod (subst (cons 1 md_fill3)(assoc 1 ename2) ename2))
(entmod (subst (cons 1 date)(assoc 1 ename3) ename3))
);ende progn
);ende if
(setq md_zaehler (1+ md_zaehler))
);ende while
);ende progn
);ende if
);ende defun

------------------
Gruß
CADwiesel

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

---

Hallo Gabriel,

arbeitest du mit AutoCAD2000, dann schaue mal bei den EXPRESS-Tools in der Hilfe unter "rtext".
Damit kannst du dynamische Texteinträge in der Zeichnung ohne LISP machen.

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

---

Hallo CADWiesel
eine Frage aus Interesse, mit welchem Betriebssystem arbeitest Du? Bei mir unter Windows NT 4 ist der Benutzername nämlich in der Variable "USERNAME" gespeichert.

Grüße
Heinz

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

---

Die AUTOCAD-Systemvariable heisst LOGINNAME, zu bekommen mit (getvar "LOGINNAME").
Die Betriebssystemumgebungsvariable heisst USERNAME. Und die bekommt man mit (getenv "USERNAME").

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

---

Ups, sorry für meine vorlaute Meldung :-((

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

---

Hi

Hast es denn mal ausprobiert?
Mußt natürlich einen Block einfügen, der die drei Attribute enthält.
Oder das Prg umschreiben
Wenn Du willst kann ich Dir allerdings auch den Block, den ich benutze zur Verfügung stellen.

------------------
Gruß
CADwiesel

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