Quadrant.lsp / 6 - 7 - 01
Die meiste Zeit , bei der täglichen Arbeit , werden Sie mit dem
Navigieren durch die Zeichnung verbringen . Um dies abzustellen habe
ich mir ein Tool geschrieben . Wenn Sie vor Ihrer Tastatur sitzen ,die
rechte Hand auf der Maus , können Sie die Anschläge auf der
linken Seite am schnellsten erreichen . Der Buchstabe Q soll stehen
für Quadrant . Der Buchstabe a ist bei mir belegt ( acad.pgp) mir
dem Befehl abstand . Wenn a belegt ist dann eben ein Doppel a .
Saugen Sie das untenstehende Programm . Kopieren Sie es nach Lisp und
laden es .Anleitung oben . Ich habe keine Umlaute verwendet . Starten
Sie Ihr Autocad und öffnen eine beliebige Zeichnung . Zoomen Sie
auf die Grenzen . Jetzt tippen sie ein
aa
Zu speichernden Ausschnittnamen eingeben :
Ist die Rückmeldung
Tippen Sie
Qa
Erste Ecke angeben :
Jetzt klicken Sie unten links und dann oben rechts .
Fertig .
QA soll das Kürzel Quadrant alles sein ( nur in Ihrem Kopf
) .
Wiederholen Sie
Aa
Zu speichernden Ausschnittnamen eingeben :
Ist die Rückmeldung
Tippen Sie
Q1
Markieren Sie jetzt einen beliebigen Teilausschnitt Ihrer Zeichnung
. Ein Detail, das Sie öfter aufzoomen müssen z B. Machen Sie
weiter mit Q2 Q3 Q4 und Q5 . Speichern bitte . Lassen Sie Ihre rechte
Hand auf der Maus , mit links tippen Sie
q1
mit dem linken Daumen drücken Sie die Leertaste . Wenn alles glatt
gelaufen ist haben Sie das 1. Detail, das Sie zuerst markiert haben,
auf Ihrem Monitor . Tippen Sie
Q2
Jetzt sehen Sie den 2. Ausschnitt . Wenn Sie Ihre Zeichnung im ganzen
sehen wollen dann tippen Sie bitte
Qa
Und jetzt müsste Ihre Zeichnung über alles zu sehen sein .
Viel Vergnügen
beim Probieren .
PS. Alle
übrigen Einstellungen, die sie vorgenommen haben, bleiben erhalten .
Folgende Namen sind vordefiniert:
Q0 bis
Q40 ; Qa ; Qn ; Qo ; Qw ; Qs ; Q-1 ; Q-2 .
Download
Was
Sie versuchen sollten .
Starten Sie Acad .
Zeichnen Sie eine geschlossene Polylinie als Rechteck . Kantenlänge
100 100 100 100 . Schieben Sie das Rechteck in die Mitte der Zeichenfläche
. Jetzt zeichnen Sie eine Linie , lang 100 in Richtung y . Schieben Sie
diese Linie an den unteren Zeichenrand , ungefähr mittig der Polylinie
.
Bitte tippen Sie
_extrude
Klicken Sie die Polylinie
Extrusionshöhe : 150
Verjüngungswinkel . 0
Jetzt tippen Sie
Schieben
Markieren Sie die einzelne Linie am unteren Bildrand .
Basispunkt : 0 , 0
Zweiter Punkt der Verschiebung : 0 , 0 , 165
Fehlt nur noch die Perspektive .
Bitte tippen Sie
Dansicht
Markieren Sie beide Objekte .
Nach dem Enter wählen Sie die Option
PU
Autocad fragt jetzt nach dem Zielpunkt .
Fangen Sie den Endpunkt der einzelnen Linie , und zwar den der dem Rechteck
am nächsten ist .
Kameraposition :
Jetzt fangen Sie das andere Ende der Linie .
Autocad zeigt Ihnen jetzt die Ansicht des Quaders ,den Sie zuvor erzeugt
haben .
Jetzt wählen Sie die Option
Ab
Mit dem oberen Schieber fahren Sie auf 4 fach und klicken .
Jetzt die Option
Zo
25
Quittieren Sie alles mit einem letzten enter .
Sie haben eine Dynamische Ansicht des Quaders erzeugt .
Die einzelne Linie, die Sie gezeichnet haben, hat die Blickrichtung vorgegeben
. Das Schieben auf die Höhe 165 hat Ihre Augenhöhe wiedergegeben
.
Rufen Sie
Verdeckt
Auf .
Wenn Sie das Programm Quadrant.lsp geladen haben ,dann tippen
Sie jetzt
Aa
Zu speichernder Ausschnittnamen
Q10
Jetzt picken Sie unten links und oben recht am Zeichnungsrand .
Fertig .
Zur Kontrolle tippen Sie
Q10
Der Quader muß jetzt immer noch zu sehen sein .
Jetzt aufrufen :
Drsicht
Bestätigen Sie die Vorgabe Aktuelle mit einem enter .
Löschen Sie die einzelne Linie . Sie haben jetzt die Draufsicht
auf ihren Quader .Wenn Sie die vorherige Ansicht wieder haben möchten
dann tippen Sie
Q10
Wenn Sie
öfter in 3D arbeiten können Sie erhebliche Zeit sparen ,wenn
Sie mehrere Ansichten nach obigem Verfahren mit meinem Programm abspeichern
.
Das original Listing:
(defun c:AA ()
(command "AUSSCHNT" "F"))
(defun c:q-2 ()
(command "AUSSCHNT" "H" "q-2"))
(defun c:q-1 ()
(command "AUSSCHNT" "H" "q-1"))
(defun c:q0 ()
(command "AUSSCHNT" "H" "q0"))
(defun c:q1 ()
(command "AUSSCHNT" "H" "q1"))
(defun c:q2 ()
(command "AUSSCHNT" "H" "q2"))
(defun c:q3 ()
(command "AUSSCHNT" "H" "q3"))
(defun c:q4 ()
(command "AUSSCHNT" "H" "q4"))
(defun c:q5 ()
(command "AUSSCHNT" "H" "q5"))
(defun c:q6 ()
(command "AUSSCHNT" "H" "q6"))
(defun c:q7 ()
(command "AUSSCHNT" "H" "q7"))
(defun c:q8 ()
(command "AUSSCHNT" "H" "q8"))
(defun c:q9 ()
(command "AUSSCHNT" "H" "q9"))
(defun c:q10 ()
(command "AUSSCHNT" "H" "q10"))
(defun c:q11 ()
(command "AUSSCHNT" "H" "q11"))
(defun c:q12 ()
(command "AUSSCHNT" "H" "q12"))
(defun c:q13 ()
(command "AUSSCHNT" "H" "q13"))
(defun c:q14 ()
(command "AUSSCHNT" "H" "q14"))
(defun c:q15 ()
(command "AUSSCHNT" "H" "q15"))
(defun c:q16 ()
(command "AUSSCHNT" "H" "q16"))
(defun c:q17 ()
(command "AUSSCHNT" "H" "q17"))
(defun c:q18 ()
(command "AUSSCHNT" "H" "q18"))
(defun c:q19 ()
(command "AUSSCHNT" "H" "q19"))
(defun c:q20 ()
(command "AUSSCHNT" "H" "q20"))
(defun c:q21 ()
(command "AUSSCHNT" "H" "q21"))
(defun c:q22 ()
(command "AUSSCHNT" "H" "q22"))
(defun c:q23 ()
(command "AUSSCHNT" "H" "q23"))
(defun c:q24 ()
(command "AUSSCHNT" "H" "q24"))
(defun c:q25 ()
(command "AUSSCHNT" "H" "q25"))
(defun c:q26 ()
(command "AUSSCHNT" "H" "q26"))
(defun c:q27 ()
(command "AUSSCHNT" "H" "q27"))
(defun c:q28 ()
(command "AUSSCHNT" "H" "q28"))
(defun c:q29 ()
(command "AUSSCHNT" "H" "q29"))
(defun c:q30 ()
(command "AUSSCHNT" "H" "q30"))
(defun c:q31 ()
(command "AUSSCHNT" "H" "q31"))
(defun c:q32 ()
(command "AUSSCHNT" "H" "q32"))
(defun c:q33 ()
(command "AUSSCHNT" "H" "q33"))
(defun c:q34 ()
(command "AUSSCHNT" "H" "q34"))
(defun c:q35 ()
(command "AUSSCHNT" "H" "q35"))
(defun c:q36 ()
(command "AUSSCHNT" "H" "q36"))
(defun c:q37 ()
(command "AUSSCHNT" "H" "q37"))
(defun c:q38 ()
(command "AUSSCHNT" "H" "q38"))
(defun c:q39 ()
(command "AUSSCHNT" "H" "q39"))
(defun c:q40 ()
(command "AUSSCHNT" "H" "q40"))
(defun c:qa ()
(command "AUSSCHNT" "H" "qa"))
(defun c:qn ()
(command "AUSSCHNT" "H" "qn"))
(defun c:qw ()
(command "AUSSCHNT" "H" "qw"))
(defun c:qs ()
(command "AUSSCHNT" "H" "qs"))
(defun c:qo ()
(command "AUSSCHNT" "H" "qo"))
(defun c:qd ()
(command "AUSSCHNT" "H" "qd"))
