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
Autor	Thema: Drehung von Blöcken per Makro ändern (913 mal gelesen)
gmds Mitglied Zeichner Beiträge: 7 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: 2624 Registriert: 02.05.2006 AutoCAD LandDesktop R2 bis 2004 Civil 3D 2005 - 2022 Bricscad V11-V21 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: 7 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: 1968 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 >>)