mehrer Blöcke um ihren sichtbaren Mittelpunkt drehen

Fragen und Anmerkungen zu den Lispprogrammen von CADwiesel
Antworten
cadking
Newbie
Beiträge: 5
Registriert: Di 16. Nov 2004, 17:39
Wohnort: 63110 Rodgau
Kontaktdaten:

mehrer Blöcke um ihren sichtbaren Mittelpunkt drehen

Beitrag von cadking » So 23. Sep 2012, 15:04

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?

Benutzeravatar
CADwiesel
Administrator
Beiträge: 488
Registriert: Mo 11. Jun 2018, 13:07
Kontaktdaten:

Re: mehrer Blöcke um ihren sichtbaren Mittelpunkt drehen

Beitrag von CADwiesel » Di 25. Sep 2012, 11:16

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
Gruß
BildCADwiesel
Besucht uns im CHAT

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

Beitrag von cadking » Do 27. Sep 2012, 08:14

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

Antworten