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