---

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

---

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

---

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

---

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

---

super, vielen Dank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP