---

Hallo brauche wieder mal eure Hilfe

Habr hier ein Lisp, ist nicht von mir, weiss aber nicht von wenn ich das habe.

Ich kopiere ein Objekt, dann kann ich es mit der Leertaste drehn, alles ok so. Aber jetzt muss ich mit der ESC-Taste ok sagen um es abzusetzen, ich will das aber mit der linke Maustaste tun.
Was muss ich da ändern.

Danke mal im Vorraus

Code:

---

(defun c:Dcc (/ BNAME LOOP ROT GR PT OLDPT EN)

(vl-load-com)
(setq ssett (car(entsel)));; (getstring (strcat "\nInsert name<" (getvar "INSNAME") ">"))
(setq sset (cdr(assoc 10 (entget ssett))))
  (command "_copybase" sset ssett "" )
(setq loop T
      rot 0
)

(while loop
  (setq gr (grread T 5));;(grread t 5))
  (cond
    ((= 5 (car gr))
      (setq pt (cadr gr))
      (if (null oldpt)
(setq oldpt pt)
      )
      (if en
(progn
  (princ "\r***Hit the space to rotate the block 90° ***")
(vla-move (vlax-ename->vla-object en) (vlax-3d-point oldpt) (vlax-3d-point pt))
)
(progn
  (command "_pasteclip" pt) ;;(command "_-insert" bname pt 1 1 0)
  (setq en (entlast))
)
      )
      (setq oldpt pt)
    )
    ((= 3 (car gr));;3
      (setq loop nil)
      )
    ((and (= 2 (car gr)) (= 32 (cadr gr)));;Drehn mit Leertaste
      (if en
(vla-rotate (vlax-ename->vla-object en) (vlax-3d-point pt) (* 0.5 pi))
      )
    )

  )
)
(if en
  (entdel en)
)
(command "_insert" bname pt "" "" "")
(while (= 1 (getvar "cmdactive"))
  (vl-cmdf pause)
)
(princ)
)

---

------------------
Heinz 

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

---

Hallo Heinz,
ich Denke, Du hast den Code DAHER, und am Ende ist wohl auch eine LÖSUNG...

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Super

Danke

------------------
Heinz 

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