---

Hallo LISP Spezialisten:

Gibt es eine Möglichkeit mit Lisp, wenn ich mehrere Blöcke durch Schnellauswahl ausgewählt habe, dass ich diese um den Einfügepunkt drehen lassen kann.
Einstellung des Drehwinkels als Eingabe z.B. 90 im Uhrzeigersinn oder -90 gegen den Uhrzeigersinn.

LG Karl

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

---

Hallo Karl,

folgendes dreht eine Auswahl umden angegebenen Winkel (soweit möglich).
Wenn vorher was gewählt war, wird diese Auswahl genommen.
Achtung: Quick and dirty, keine Fehlerbehandlung usw.

Code:

---

(defun c:Dreh()
  (setq neuwinkel (getreal "\nDrehwinkel angeben"))
  (setq p0 (list 0 0))
  (setq dreh_ucs (angle p0 (getvar "ucsxdir")))
  (setq neuwinkel (+ (*(/ neuwinkel 180) Pi) dreh_ucs))
  (princ "\nzu drehende Objekte wählen")
  (setq tl (ssget))
  (setq anz (sslength tl))
  (setq x 0)
  (while (< x anz)
    (setq ct (ssname tl x))
    (setq ctl (entget ct))
    (if (assoc 50 ctl)
      (setq ctl (subst (cons 50 (+ (cdr (assoc 50 ctl)) neuwinkel)) (assoc 50 ctl) ctl))
    )
    (entmod ctl)
    (entupd ct)
    (setq x (1+ x))

  ) 
)

---

HTH
Gruß
Thomas

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

---

Hallo Thomas!

Danke vorerst für die rasche Hilfe.
Soweit funktioniert der Code super.
Leider dreht dieser die Attribute nicht mit.

Gibt es dazu auch eine Lösung, oder mache ich da etwas falsch?

LG Karl

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

---

Uuups,

an Blöcken mit Attributen habe ich das nicht getestet, ist ja blöd.
Ich bin dran.

Gruß
Thomas

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

---

(defun C:INSERTROTATE(/ AWS ANG INDEX OBJ OBJLIST)
  (vl-load-com)
  (if(and(or(setq AWS (ssget "_I" '((0 . "INSERT"))))
            (and(setq NOMUTT(getvar "NOMUTT"))
                (setvar "NOMUTT" 1)
                (princ "\nZu drehende Blockreferenzen wählen: ")
                (or(vl-catch-all-error-p
                    (setq AWS(vl-catch-all-apply
                                'ssget (list '((0 . "INSERT")))
                              )
                    )
                  )
                  'T
                )
                (setvar "NOMUTT" NOMUTT)
                (or(=(type AWS)'PICKSET)
                  (prompt "\nAbbruch durch Anwender...")
                ) 
                (>(sslength AWS)0)
            )
            (prompt "\nKeine Blockreferenzengewählt")
        )       
        (or(setq ANG(getreal "\nrelativer Drehwinkel <90.0>: "))
            (setq ANG 90.0)
        )                 
    )                           
    (progn     
      (setq INDEX -1)
      (repeat(sslength AWS)       
        (if(setq OBJ(ssname AWS (setq INDEX(1+ INDEX))))
          (setq OBJLIST (cons OBJ OBJLIST))     
        )
      )
      (vla-endundomark  (vla-get-activedocument(vlax-get-acad-object)))
      (vla-startundomark(vla-get-activedocument(vlax-get-acad-object)))
      (if(setq OBJLIST(vl-remove-if 'null (mapcar
                                          '(lambda(X / VOBJ OLDANG)
                                              (if(and(setq VOBJ (vlax-ename->vla-object X))
                                                    (not(vl-catch-all-error-p(setq OLDANG(vl-catch-all-apply 'vla-get-rotation(list VOBJ)))))
                                                    (not(vl-catch-all-error-p(vl-catch-all-apply 'vla-put-rotation(list VOBJ (+ OLDANG (*(/ ANG 180.0)PI))))))                                     
                                                )
                                                X
                                              ) 
                                            )
                                            OBJLIST
                                          ) 
                      )
        )
        (progn
          (setq AWS (ssadd))
          (foreach OBJ OBJLIST (ssadd OBJ AWS))             
          (sssetfirst AWS AWS) 
        )         
      )
      (vla-endundomark  (vla-get-activedocument(vlax-get-acad-object)))
      (princ)
    ) 
  ) 
)

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

Das ist ja toll.
Funktioniert einwandfrei, so wie ichs mir vorgestellt habe.

Vielen vielen Dank für die Hilfe.

LG Karl

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

---

Hallo Thomas!

Der Lisp von CADmium funktioniert einwandfrei.

Vielen dank auch dir für deine Bemühungen.

LG Karl

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

---

um auch ein bischen Mut zum Selberprobieren zu machen, hier nochmal eine einfache Variante - einfach mit dem "_rotate"-Befehl.

Code:

---

(defun c:vox-multirotate ( / w ss z ele p)
  (setq w (getreal "\nDrehwinkel angeben"))
  (prompt "\nzu drehende Objekte wählen")
  (setq ss (ssget) z -1)
  (while (setq ele (ssname ss (setq z (1+ z))))
    (setq p (cdr (assoc 10 (entget ele))))
    (command "_rotate" ele "" p w)
  )
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hallo Henning!

Danke für deine Hilfe.
Dieser Code ist für mich noch besser zu verwenden, da ich diesen für andere Anwendungen leicht umschreiben kann.

Gruß Karl

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

---

RotateExpert in realtime

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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