---

Hallo
kann mir jemand einen Lisp Code nennen damit ich meinen Modelbereich mit tastenkombinationen drehen kann
So in der art --> gn = Norden
                  go = Osten
                  gs = Süden
                  gw = Westen

aber das BKS sollte auf Welt "stehen bleiben"
bräuchte ich um von 2D Ansichten um den Grundriss schnell zu wechseln
banke im vorhinein
besele

[Diese Nachricht wurde von besele am 15. Jul. 2011 editiert.]

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

---

Hi und herzlich willkommen auf cad.de!

Was willst du genau drehen? Die Ansicht? Das Modell?

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Den "ganzen" Modellbereich so wie man "Benannte Ansichten" anlegen kann,
halt über lisp mit den Tasten.

Habe schon Taste 1-SW, 3-SO, 9-NO, 7-NW und 5 für Grundriss angelegt,
und jetzt möchte ich noch im Grundriss drehen.

Und danke für die Willkommenswünsche
und die schnelle Antwort.

besele

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

---

So?

Code:

---

(defun c:west ()
  (command "_dview" "_tw" "90" "")
)

---

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Nein funktioniert nicht so wie ich gemeint habe
aber Danke

hier mein commando für SW

(defun c:1 (/)
(command "._vpoint" "_r" "250" "20")
(princ)
)

da muß ich nur 1 und enter drücken
und schon bin ich in der Ansicht SW
vielleicht hast noch einen vorschlag

besele

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

---

Hallo

gibt es hier echt keine lisp um den Modellbereich zu drehen
vielleicht hat doch noch jemand eine Idee

mfg besele

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

---

Wenn Du's für SW schon hast, brauchst ja nur die Werte (250, ev. 20) abändern.
Und statt 1 bei (defun c:1 ... schreibst halt Deine Gewünschten.

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

www.geopaint.at

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

---

hi,
vielleicht liegt es daran, dass du dein Anliegen "unglücklich" erklärt hast?!

Du bist im Modelbereich und willst diesen drehen?

Code:

---

(defun c:z ( / )
  (command "bks" "w"); um immer von Welt auszugehen
  (command "bks" "z" "90"); bks drehen um z 90° - hier Anpassung xyz
  (command "_plan" "a"); Modellbereich auf das zuvor gedreht bks drehen
  (princ)
)

---

oder bist du im Layoutbereich und willst ein Fenster drehen?
Wenn das oben nicht passt, einfach mal dein Anliegen in mehr Worte hüllen oder besser ein Bild oder zwei Bilder beilegen 

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

[Diese Nachricht wurde von Dorfy am 15. Jul. 2011 editiert.]

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

---

na du hast das doch schon .. braucht doch bloß die Parameter des Viewpunktes zu ändern ... der erste als Winkel für die xy-Ebene .. der 2. fr den Blickwinkel auf dieselbe
(defun C:SHOWROTATE(/ W)
  (defun WAIT (MSECS / ENDE)
    (if (numberp MSECS)
      (progn
        (setq ENDE (+(getvar "MILLISECS")MSECS))
        (While(<(getvar "MILLISECS")ENDE))
      )
    )
  )
  (setq W 0)
  (Repeat 16
    (command "._vpoint" "_r" (setq W(+ W 15)) 15)
    (wait 500)
  )
)

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

---

norden.PNG osten.PNG süden.PNG

Hallo hier eine Beschreibung mit Bildern um mein Anliegen
verständlich zu machen. Ich möchte mit Tastaturkürzel meinen ganzen
Arbeitsbereich drehen (im Modellbereich) "siehe in Bildern rechts oben"
aber das BKS sollte immer auf Welt bleiben "siehe in Bildern links unten"
danke im vorhinein
mfg Besele

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

---

mal die Zeilen versucht?
nimm mal nicht z als Befehlsaufruf, der ist ihmo anderswaltig vergeben ;-)
und beim drehen den Winkel erhöhnen 90/180...

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

Hallo Heiko
danke noch mal.
es funkt einfach so wie ich es mir vorgestellt habe.  

mfg besele

PS: falls jemand das Programm brauchen kann
    einfach melden

[Diese Nachricht wurde von besele am 15. Jul. 2011 editiert.]

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

---

Hallo Heiko

kannst du mir nochmal helfen
ich möchte jetzt per Tasten in die rechte ansicht wechsel aber das
BKS sollte auf WELT stehenbleiben (im Modellbereich)

(defun c:66 ( / )
  (command "bks" "w"); um immer von Welt auszugehen
  (command "bks" "z" "270" "y" "270"; bks drehen um z 90° - hier Anpassung xyz
  (command "_plan" "a"); Modellbereich auf das zuvor gedreht bks drehen
  (princ)
)

habe einfach versucht bei deinem programm das("y" "270") hinzu zu fügen
funkt aber nicht

mfg besele

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

---

...rechte Ansicht 

(command "_-view" "_right")

oder

(defun c:drzy ( / )
  (command "bks" "w"); um immer von Welt auszugehen
  (command "bks" "z" "90");drehen um z
  (command "bks" "y" "90");drehen um y nochmal drehen und testen ???
  (command "_plan" "a"); Modellbereich auf das zuvor gedreht bks drehen
  (princ)
)

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

danke es funtioniert mit dem ersten Commando

mfg besele 

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

---

@Besele:

Nur um hier mal mit einem Irrtum aufzuräumen: Wenn du im Koordinatensystem "Welt" (WKS) bleiben möchtest, darfst du den Befehl BKS nicht heranziehen, da du mit diesem aus deinem Weltkoordinatensystem (WKS)immer ein benutzerspezifisches oKoordinatensystem machst (BKS). Somit verdrehen dir alle deine "command"s dein WKS auf ein BKS und du befindest dich nicht mehr im WKS.

Ich hoffe ich habe mich jetzt verständlich ausgedrückt, aber das musste mal gesagt sein, bevor hier ein Irrtum aufkommt...

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Hallo zusammen
bin wieder mal aufgeschmissen.

kann ich so wie im Forum Verlauf das drehen besprochen wurde auch auf eine bestimmet frei definierte Linie drehen.
bin schon lange raus von der Sprache aber vielleicht kann mir jemand helfen.

(defun c:gw ( / )
  (command "bks" "w"); um immer von Welt auszugehen
  (command "bks" "z" "90"); bks drehen um z 90° - hier Anpassung xyz
  (command "_plan" "a"); Modellbereich auf das zuvor gedreht bks drehen
  (princ)
das war bestimmte Ansichten drehen.

jetzt möchte ich eine linie in der Zeichnung auswählen und diese auf die X-Richtung drehen
danke im vorhinein
besele

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

---

Aber gibt es dafür nicht den Befehl DREHEN?
Da hier im Thread nur normale Befehle gesteuert wurden, hat das ja auch mit der Sprache zunächst nichts zutun, möchte nur den Hintergrund dieses erklärten Vorhabens klären.

Viel wichtiger wäre die Frage: Drehen, aber um welchen Punkt

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

---

Glaskugel wird vermutlich etwas klarer: Möchtest du die Ansicht drehen, dieses Mal aber auf eine Winkel der aus einer Linie hervorgeht?

Das wäre dann ja einfach -> das BKS nach Objekt drehen lassen (statt auf Welt stellen und danach um 90° drehen). Siehe Befehl BKS [F1]

Code:

---

(defun c:gw ( / )
  (command "bks" "o" pause); bks entsprechend objekt / Position des Klicks ist entscheident!
  (command "drsicht" "a"); Modellbereich auf das zuvor gedreht bks drehen
  (princ)
)

---

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

---

Danke CADFFM
genau so hab ich mir das vorgestellt.
So bin ich viel schneller als mit den Befehlen vom Cad

Danke nochmals Besele

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

---

Du könntest die Befehlsfolgen auch einfach in ein Menümakro schreiben und mit Klick auf
eine Schaltfläche, Menüeintrag oder Tastenkombi starten.

Vorteile als Lisp definierter Befehl sind "nur"
- zu starten über Befehlsnamen
- Mit Befehlswiederholung erneut ausführbar
- Sicherung/Austausch, unabhängig von .Cuix Dateien(oder Werkzeugpaletten).

Also für diese beiden Fälle hier, ist kein Lisp&Co notwendig, bei anderen Aufgaben kann das anders aussehen.

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

---

Guten Tag
kann man da noch was dazufügen das es beim drehen nicht Zoom Grenzen macht?

Menümakro hab ich noch nie probiert, bin mit der Tastenkombination noch sehr zufrieden
beim Makro musste ich mich erst reinlesen wie das funktioniert und wenn ich mal ein neues
Autocad hab wie man das da wieder einspielt
Danke mfg besele

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

---

Zitat:

---

Original erstellt von besele:
Guten Tag
kann man da noch was dazufügen das es beim drehen nicht Zoom Grenzen macht?

Menümakro hab ich noch nie probiert, bin mit der Tastenkombination noch sehr zufrieden
beim Makro musste ich mich erst reinlesen wie das funktioniert und wenn ich mal ein neues
Autocad hab wie man das da wieder einspielt
Danke mfg besele

---

aber du nutzt nicht noch die 2011er Version ... ? Mein nur weil man ja schon 15 Jahre dabei ist und
da noch nix von den Möglichkeiten Macro , Scr , eigene Werkzeugpalletten usw wohl nutzt

PS Systemeinträge fehlen noch im Profil

so on  cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

neeee. hab schon Ver. 2023 drauf
bin aber so eingefuchst mit der lisp, das ich nicht mehr nachdenken muss.
weiß man ja "alte Gewohnheiten" 

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

---

Zitat:

---

Original erstellt von besele:
Guten Tag
kann man da noch was dazufügen das es beim drehen nicht Zoom Grenzen macht?

Menümakro hab ich noch nie probiert, bin mit der Tastenkombination noch sehr zufrieden
beim Makro musste ich mich erst reinlesen wie das funktioniert und wenn ich mal ein neues
Autocad hab wie man das da wieder einspielt
Danke mfg besele

---

Vielleicht ist es auch noch möglich eine Linie auszuwählen,
erst Links klicken dann Rechts klicken um auf dieses Objekt zu drehen

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

---

>"das es beim drehen nicht Zoom Grenzen macht?"

Der Zoom kommt ja von dem Befehl DRSICHT, den kann man also nicht ändern,
aber dir sind ja Befehle/Variablen zur aktuellen Ansicht bekannt -
also könnte man die benötigten Informationen speichern und nach Plan wieder setzen.

Bei BKS welche parallel zueinander liegen,
sollte das sehr gut funktionieren.

Noch einfacher wäre (ungetestet), ein ZOOM OBJECT Previuous gefolgt von einem ZOOM .5xp hinterher zu jagen
oder ähnliches.

Ich würde also sagen: Ja kann man.
Oder man müßte ein paar Zeilen programmieren, welche dann die Ansicht dreht und das BKS setzt, ganz ohne Zoom Grenzen.

>>>------>
Hier kommt es jetzt darauf an was du wirklich willst.
BKS-Objekt dreht nicht nur das BKS (um die Z-Achse), aber wenn dir das nur-ausreicht ausreicht, dann kann ich dir das gerne schreiben.

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

---

hallo guten Tag,
ja wenn es funktioniert dann teste ich das mal.
am liebsten wär mir das wenn genau die Ansicht bleibt was man gerade im Modellbereich sieht,
ohne ZOOM Grenzen.
Ich hab da gar keine Ahnung wo ich anfangen soll (bin nur Anwender)
mfg besele

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