---

DRUCKEN.LSP.txt

Hallo,
wer kennt das nicht (vieleicht bin ich aber auch der einzige ), ein Kollege kommt und fragt:" Kannst Du mir mal diesen Ausschnitt ausdrucken?"
Schnell hastet man auf das DINA4 Layout, will noch was in den Plankopf eintragen, "ne ne, mir reicht ein bloser ausdruck, ohne das ganze gedöhns."
Dafür habe ich mir ein kleines Makro/Lisp/Skript gebastelt.
Vom Code her wirkt es eher wie *hingemurgsterkram*, aber es funktioniert.
Fall jemand interesse hat, stelle ich das hier mal zu Verfügung, da ich ähnliches bei der Forensuche nicht entdeckte.

Falls jemand von Euch etwas ähnliches hat (z.B. in reinem edlem LISP; da könnt ich dann mal schmulen, wie es richtig geht)
für Anregung und Kritik bin ich immer Dankbar; aber nur wenn mich die Kritik auch weiterbringt.

Gruß
Robert

P.S. Das der Drucker noch umbenannt werden muss, brauch nich groß zu erwähnen.

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

---

Auf den Drucker klicken -> Drucker und Format wählen -> Maßstab eingeben -> Ausschnitt wählen -> Fertig

Reicht doch vollkommen aus, wozu braucht man da ein LISP?

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

---

Ich hab mir erst die gleiche Frage gestellt -

aber wenn das Lisp "bewirkt" dass die Anderen (nein, du bist nicht der einzige  ) ihre "Ausdrucke ohne Gedöhns" auch selber drucken können ohne ständig mich darum zu bitten, oder acht mal zu fragen ob ich mal kommen kann und schauen warum das jetzt bei ihnen zu gross oder zu klein ist, oder auf die Frage welchen Masstab sie denn wollen mit "A4" antworten...

Ich schau mir das auf jeden Fall mal an. Danke
LG
Marita

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

---

also irgendwie... ich und Lisp, mahlzeit.

ich hab den Drucker im Lisp umbenannt, gespeichert und geladen (successful), und dann versucht mit "drucken" aufzurufen. Ist das überhaupt der richtige "Aufruf"?

Jedenfalls passiert einfach ewiglang gar nichts - Kommandozeile "hängt" mit blinkendem cursor als ob er versucht irgendwas zu tun - bis ich irgendwann (bisheriger Warterekord 3 minuten) mit escape abbreche.

Bei mir scheiterts ja meist an den einfachsten Dingen - ich denke ich hab wahrscheinlich einfach den Drucker "falsch" genannt - oder funktioniert das erst gar nicht übers Netz? Wie trage ich das richtig ein? Mit Pfad? Ohne? so wie er im ACad Plotdialog erscheint (mit schrägstrichen) hab ichs schon probiert, geht nicht. Auch so wie er in meinen "Druckern und Faxen" zu finden ist nicht. Nur der Name auch nicht. zu mehr reichts bei mir leider nicht...

Oder nicht 2004 geeignet? Oder noch was zu beachten?

Danke
   

Edit: tja, bin gerade höflich und "heimlich" darauf aufmerksam gemacht worden dass das Lisp deutsche Befehle drin hat - das versteht mein AutoCAD natürlich nicht.

Die Fragen sind also erst mal verschoben bis ich nach einem Übersetzungsversuch neu ausprobieren kann.

Danke 

[Diese Nachricht wurde von Marita am 27. Mai. 2008 editiert.]

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

---

soweit bin ich gekommen

(defun C: Drucken (/ EP LU RO)
  (setq EP (getpoint))
  (setq LU '(-14.5 -11.5 0))
  (setq RO '(14.5 11.5 0))
  (command "_rectang" (mapcar '+ EP LU) (mapcar '+ EP RO))
  (princ)
  (command "_zoom" "e")
  (command "_zoom" "o" "l" "") 
(command "-plot"    "y"   "model"    "\\MAY\HP Deskjet 6940 series"
  "A4"       "m"   "l"       "n"   "d"
  "1:0.1"    "center"  "n"       "."   "n"
  ""       "n"   "n"       "y"
  )
  (command "._erase" "l" "")
  (command "_zoom" "p")
  (command "_zoom" "p")
)

geht natürlich trotzdem nicht - was fehlt? Ich denke ja mal die Punkte heissen "links unten" und "rechts oben" aber es ist anscheinend wurscht wie man die nennt. Oder doch nicht? Er malt mir jedenfalls ein Rechteck dahin wo ich hinklicke. Dann zoomt er raus.

Dann hängt er.

Es hängt auf jeden Fall an der "fetten" Zeile - was ist "o" und "l"? ich komm einfach nicht drauf, so oft ich auch zoom eintippe und mir die Abfragen anschaue...

Ich vermute "l" ist das Rechteck weil das ja am Schluss wieder gelöscht wird (also vermutlich "last", zumindest schon mal was neues gelernt).

Demnach könnte "o" vielleicht "object" heissen. Aber ich habe im zoom command die option "object" nicht, gibts das erst später? Oder sind das wieder Phantasien von mir?

ansonsten auch Wiederholung der Fragen von oben

Danke, schönen abend noch
Marita

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

---

Servus Marita

Du musst natürlich auch die Befehlsoptionen "übersetzen" -
zB. "_zoom" "_e"  usw. 

------------------
Schöne Grüße
Ernst

www.geopaint.at

[Diese Nachricht wurde von Geos am 28. Mai. 2008 editiert.]

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

---

Zitat:

---

Original erstellt von Marita:
Aber ich habe im zoom command die option "object" nicht, gibts das erst später?

---

gut erkannt, das gibt es in 2004 noch nicht, siehe dazu auch http://www.cadmaro.de/upload/Befehlsreferenzen/BefehleAC2004.html
.

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

Gruß Thomas
CADdog, the dog formerly known as TR

AutoCAD spricht mit einem, aber viele hören nicht zu.

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

---

Hallo,

@ Marita bin gestern etwas früher weg gewesen, sonst hätte ich Dir gleich geantwortet.
Habe gerade nachgeschaut, wie CADdog schon richtig bemerkte "zoom object" gibt's erst später.
Du kannst aber die beiden Zoom Zeilen vor dem plot Befehl raus nehmen, nur musst Du dann darauf achten, daß der Bildschirmausschnitt immer größer als das Rechteck ist, da sonst nicht korrekt gedruckt und hinterher auch  das Rechteck nicht gelöscht wird.

Ich hoffe es klappt dann alles.

Gruß
Robert

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

---

Guten morgen,

neuer Tag neues Glück. Hätte ich wohl auch selbst rausfinden können – mit der Version, entschuldigt bitte. Die Listen dazu kenn ich ja, trotzdem Danke, CADdog.
Aber kurz vor Schluss war ich einfach schon ziemlich müde und ausserdem nicht sicher ob ich überhaupt auf dem richtigen Weg bin.

Wenn es an der Version liegt ist das eine gute Neuigkeit - heisst 1. ich bin auf dem richtigen Weg.
2.  will ich das ja den Kollegen als Knöpfchen einbauen, und ich bin die einzige mit der Steinzeitversion - ausserdem weiss ich wie man ohne Lisp plottet... 

Übersetzten musste ich ja so oder so weil das Spanische AutoCad ja auch nur die Unterstrichbefehle kennt. Ob es die Abkürzungen kennt werde ich dann sehen (werde ich wohl nochmal ersetzen müssen, aber alles zu seiner Zeit).

Nachdem das ganze ja eher ein Macro ist denk ich ich komme wohl ab jetzt zurecht. Statt "zoom objekt" kann man nötigenfalls das Fenster selbst wählen lassen etc.

Oder auch zwei Knöpfe für verschiedene Formate…

Ist auf jeden Fall eine sehr, sehr nützliche Übung für mich. AutoCad spricht doch gleich ganz anders mit einem wenn man es erst mal besser kennt 

Vielen Dank auch dafür. And Fiedel – ich hoffe Du hast nichts dagegen dass ich Deinen Thread so ganz für mich “allein” beanspruche… und danke für den Tip mit dem grösseren Fenster. Wird drauf geachtet. Auch an die anderen, vielen Dank für die Hilfe.

Us unterwegs
Liebe Grüsse
Marita

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