CADwiesel's Forum

Hallo,

ich möchte mir eine Lisp-Routine schreiben, bei der mehrer Blöcke, ähnlich wie in der "ORotate.vlx", um ihren sichtbaren Mittelpunkt um einen frei zu bestimmenden Winkel gedreht werden.
Kann mir jemand sagen, wie ich diesen Drehpunkt ermittlen kann?

du könntest eine Box um die Blockref legen, von dieser den Mittelbunkt über die diagonale errechnen und dann den Punkt für den weiteren Vorgang benutzen.
Stichwort vla-getboundingbox

Hallo,
ich habe selber eine Möglichkeit gefunden:
(setq p1 (ACET-GEOM-SS-EXTENTS en1 T))
(setq p1x (car (car p1)))
(setq p2x (car (cadr p1)))
(setq p1y (cadr (car p1)))
(setq p2y (cadr (cadr p1)))
(setq Drehp (list (+ p1x (/ (- p2x p1x)2))(+ p1y (/ (- p2y p1y)2))));sichtbaren Mittelpunkt von Block
wobei en1 ein Auswahlsatz ist. Man kann damit also auch Objekte um ihren gemeinsamen Mittel drehen.

Gruß CADKing