Drehung von Block auf anderen Block übertragen (Autodesk/Lisp) - Lösung vorhanden!


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

	PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Drehung von Block auf anderen Block übertragen (1430 / mal gelesen)
fmfm Mitglied Facility Management Beiträge: 279 Registriert: 18.10.2016 AutoCad 2019	erstellt am: 23. Aug. 2018 15:36 <-- editieren / zitieren --> Unities abgeben: Hallo zusammen gibt es ein Lisp in dem man den Winkel bzw. die Drehung eines Blockes auf einen anderen Block überträgt? Gruss Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Brischke Moderator CAD on demand GmbH Beiträge: 4200 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)	erstellt am: 23. Aug. 2018 16:04 <-- editieren / zitieren --> Unities abgeben: Nur für fmfm Wie sieht denn dein bisheriger Code aus ... wo klemmts konkret? Grüße! Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadoc Mitglied Beiträge: 28 Registriert: 23.08.2018	erstellt am: 23. Aug. 2018 17:17 <-- editieren / zitieren --> Unities abgeben: Nur für fmfm Hab mal vor einiger Zeit im Netz folgendes gefunden. Hoffe es hilft. Info: ----- Blöcke drehen gemäß Referenzblock Icon: ----- (if(null objrot)(load "N:/.../objrot.lsp")) Lisp speichern als objrot.lsp ----------------------------- (defun C:OBJROT (/ OBJ R) (if(and(setq OBJ(car(entsel "\nObjekt mit Basiswinkel wählen: "))) (setq OBJ(vlax-ename->vla-object OBJ)) (or(not(vl-catch-all-error-p(setq R(vl-catch-all-apply 'vla-get-rotation (list OBJ))))) (prompt "\n Winkel nicht auslesbar .. ") ) ) (while(setq OBJ (car (entsel "\nzu drehendes Objekt wählen: "))) (and(setq OBJ(vlax-ename->vla-object OBJ)) (or(not(vl-catch-all-error-p(vl-catch-all-apply 'vla-put-rotation (list OBJ R)))) (prompt "\n Winkel nicht übertragbar .. ") ) ) ) ) (princ) ) [Diese Nachricht wurde von cadoc am 27. Aug. 2018 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13530 Registriert: 30.11.2003 .	erstellt am: 24. Aug. 2018 07:23 <-- editieren / zitieren --> Unities abgeben: Nur für fmfm na sollte laufen ... evtl noch (vl-load-com) als erste Zeile mit einfügen .. Hier der Link zum Originalbeitrag ------------------ Also ich finde Unities gut ... und andere sicher auch --------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
fmfm Mitglied Facility Management Beiträge: 279 Registriert: 18.10.2016 AutoCad 2019	erstellt am: 09. Okt. 2018 11:27 <-- editieren / zitieren --> Unities abgeben: super, vielen Dank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)