Point de vue 3D SCU courant

[fauxsuisse]

Bonjour tout le monde

 

J'ai un lisp qui avait été écrit par didier et qui permet une rotation de la vue autour du SCU courant en gardant le zoom affiché mais sous la version 2016 il ne fonctionne malheureusement pas, toujours le même message d'erreur :

 

Impossible d'appeler (command) à partir de *error* sans appeler préalablement (*push-error-using-command*).

Il est recommandé de convertir les appels (command) en (command-s).

 

le lisp est le suivant :

 

(defun c:rp2 ()

(setvar "cmdecho" 0)

(setq h (getvar "viewsize"))

(setq ce (trans (getvar "viewctr") 1 0))

(command "repere" "")

(command "_zoom" "_c" (trans ce 0 1) h)

(princ)

 

Y autait-il une bonne âme qui pourrait me corriger ce lisp pour qu'il puisse fonctionner sous 2016.

[fauxsuisse]

C'est bon j'ai trouvé, il maquait une parenthèse tout à la fin