---

Hallo Leute,
ich möchte Objekte über bestimmte Winkel drehen, z.B. 90°.
Ich habe hier mal was versucht ber es funktioniert nicht !

(Defun drehen+90 ()
  (Setq Winkel 90
  BAP (getpoint "Bitte Drehpunkt angeben"))
  (command "drehen" pause BAP Winkel)
  (princ)
);defun

Wo ist mein Fehler ???? Ist bestimmt ganz einfach !
Danke schon mal im vorraus !!!

MFG

------------------
dakneifer

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

---

Setze mal ein <Enter> mit in die Zeile :
(command "drehen" pause "" BAP Winkel)
Gruß Thomas

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

---

Funktioniert ja ganz gut, aber ich kann dann nur 1 Objekt auswählen. Ich möchte aber die Anzahl selbst wählen können. entweder per Mausklick oder Fensterauswahl !!

MFG

------------------
dakneifer

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

---

Topic:  Re: Objekte drehen 
dakneifer
Junior-Mitglied
  posted 16. Dez. 2003 09:52         
--------------------------------------------------------------------------------
Schau dir einfach mal das Textfenster an wenn das Programm gelaufen ist !
Dann sieht man das bei der Objektwahl der
User 1x wählen darf (1x PAUSE) und dann die
Variablen BAP&Winkel an die Objektauswahl übergeben werden....

Das siehst du gleich eindeutig wenn du mal "F2" drückst.

Erstelle einfach vorher einen Auswahlsatz,
den gibst du als Objekte mit im Command an.

(setq aws (ssget))
(command "_.rotate" aws "" bap winkel)

(mit "" ein Return zum verlassen der Objektwahl angeben)

bye

pm-ende

------------------
- Sebastian Mattis -

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

---

na ok. dann erweitere deine Routine wie folgt :
(Defun drehen+90 ()
  (Setq Winkel 90
  BAP (getpoint "Bitte Drehpunkt angeben"))
  (setq Auswahl (ssget))
  (command "drehen" Auswahl "" BAP Winkel)
  (princ)
);defun

MfG Thomas

Edit: Sebastian war wieder mal schneller und ausführlicher 

[Diese Nachricht wurde von CADmium am 16. Dez. 2003 editiert.]

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

---

Hi,
und hier ein wenig geschliffener:

Code:

---

(defun DREHEN+90 ()
  (XX:ROTATE 90)
  (princ)
) ;_ end of defun

(defun DREHEN-90 ()
  (XX:ROTATE -90)
  (princ)
)

(defun DREHEN-100 ()
  (XX:ROTATE -100)
  (princ)
)

(defun XX:ROTATE (WINKEL / AUSWAHL BAP)
  (if (= (getvar "angdir") 1) ;_ wenn Winkel im UZ-Sinn gemessen werden
    (setq WINKEL (* WINKEL -1)) ;_ dreh die Vorzeichen um
  ) ;_ end of if
  (if (not (setq BAP (getpoint "\nBitte Drehpunkt angeben")))
    (princ "\nKein Drehpunkt angegeben. Funktionsende !")
    (progn
      (princ (strcat "\nObjekte wählen, die um: \""
                    (rtos WINKEL 2 2)
                    "\" gedreht werden sollen:"
            ) ;_ end of strcat
      ) ;_ end of princ
      (setq AUSWAHL (ssget))
      (if (not AUSWAHL)
        (princ
          "\nKeine Objekte zum Drehen ausgewählt. Funktionsende !"
        ) ;_ end of princ
        (progn
          (command "_.rotate" AUSWAHL "" BAP WINKEL)
          (princ (strcat "\nOK, : \""
                        (itoa (sslength AUSWAHL))
                        "\" Objekt(e) um: \""
                        (rtos WINKEL 2 2)
                        "\" gedreht."
                ) ;_ end of strcat
          ) ;_ end of princ
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun

---

------------------
Ciao,
Marc

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