---

Hallo Zusammen,

versuche mich in Lisp einzuarbeiten, und finde den Fehler nicht.
Ich möchte aus einer Zeichnung eigentlich alle Objekte um 90° drehen.
Nach einigen Recherchen habe ich es wenigstens geschafft Linien, Polylinien
und Kreise auf dem Layer 0 zu selektieren.
Nun wäre auch ein Drehen nicht schlecht.

Hier mein Ansatz:

;drehen der Daten
(defun C rehenTest ( / )
  (setq BasisDrehenP1 (list 0 0 0))
  (setq Winkel (/ PI 2.0))
  (command "_rotate" X BasisDrehenP1 Winkel )
  (ssget "X" '((-4 . "<or")
      (-4 . "<and")
      (0 . "circle")
      (62 . 256)
        (-4 . "and>")
      (0 . "POLYLINE,LWPOLYLINE,line")
      (-4 . "or>"))
)
  )
 
Vielen Dank schon mal im Voraus

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

---

(defun C:Testdreh ( / BasisDrehenP1 Winkel AWS)
  (if(and(setq BasisDrehenP1 (list 0 0 0))
          (setq Winkel 90)
          (setq AWS(ssget "X" (list'(-4 . "<or")
                            '(-4 . "<and")
                              '(0 . "circle")
                              '(62 . 256)
                                    '(-4 . "and>")
                            '(0 . "POLYLINE,LWPOLYLINE,line")
                          '(-4 . "or>")
                                  (cons 410 (getvar "CTAB"))
                      )
                  )
          )     
      )   
    (command "_rotate" AWS "" BasisDrehenP1 Winkel )
  ) 
)
------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Hallo CADmium,

vielen Dank für deine schnelle Antwort.

Gruß

hummel.mj

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