Drehung von Blöcken per Makro ändern (Autodesk/Rund um AutoCAD)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	WS LANDCAD-Anwendertreffen 2026, eine Veranstaltung am 16.09.2026 Events abonnieren
Autor	Thema: Drehung von Blöcken per Makro ändern (1071 / mal gelesen)
gmds Mitglied Zeichner Beiträge: 15 Registriert: 05.02.2017 ADT 2017 Win 7	erstellt am: 16. Feb. 2018 16:12 <-- editieren / zitieren --> Unities abgeben: Ist es möglich per Makro von ausgewählten Blöcken den Drehwinkel zu ändern? Also genau so wie wenn ich die Blöcke auswähle und dann in den Eigenschaften den Drehwinkel definiere? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin Beiträge: 2877 Registriert: 02.05.2006 AutoCAD LandDesktop R2 bis 2004 Civil 3D 2005 - 2025 Bricscad V11-V23 pro Plateia, Canalis Visual Basic	erstellt am: 16. Feb. 2018 21:00 <-- editieren / zitieren --> Unities abgeben: Nur für gmds Hallo gmds, mit Bordmitteln ist mir nichts bekannt, über Lisp oder VBA / .Net kein Thema Grüße Klaus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
gmds Mitglied Zeichner Beiträge: 15 Registriert: 05.02.2017 ADT 2017 Win 7	erstellt am: 17. Feb. 2018 07:39 <-- editieren / zitieren --> Unities abgeben: Vielen Dank, hatte ich mir schon gedacht, da nirgends etwas dazu zu finden war. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADwiesel Moderator CAD4FM UG Beiträge: 1999 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich	erstellt am: 17. Feb. 2018 10:28 <-- editieren / zitieren --> Unities abgeben: Nur für gmds Aber um auf deine Frage zu Antworten. Die Antwort ist: Ja! Ein Makro sagt ja noch nicht was dem hinterlegt ist. Es kann eine Abfolge von Commands sein oder auch ein kleiner Lisp Ausdruck. Bspl für Makro: Code: (if(setq ang(getstring"\nRotationswinkel: ")) (mapcar'(lambda(x) (vl-catch-all-apply 'vla-put-rotation(list x (angtof ang))) ) (if(setq aws(vl-remove 'nil(ssgetfirst))) (mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex (car aws)))))) ) ) ------------------ Gruß CADwiesel Besucht uns im CHAT Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)