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?
mehrer Blöcke um ihren sichtbaren Mittelpunkt drehen
-
cadking
- Newbie
- Beiträge: 5
- Registriert: Di 16. Nov 2004, 17:39
- Wohnort: 63110 Rodgau
- Kontaktdaten:
-
CADwiesel
- Administrator
- Beiträge: 488
- Registriert: Mo 11. Jun 2018, 13:07
- Kontaktdaten:
Re: mehrer Blöcke um ihren sichtbaren Mittelpunkt drehen
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
Stichwort vla-getboundingbox
CADwiesel-
cadking
- Newbie
- Beiträge: 5
- Registriert: Di 16. Nov 2004, 17:39
- Wohnort: 63110 Rodgau
- Kontaktdaten:
Re: mehrer Blöcke um ihren sichtbaren Mittelpunkt drehen
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
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