Classement

Re, Petite subtilité, SendCommand permet d'appeler une commande définie en LISP (defun c:...) et de lui passer, "en dur", les paramètres requis. La fonction LISP suivante invite l'utilisateur à spécifier un point et dessine un cercle de rayon 10 avec le point spécifié pour centre. (defun c:cmd (/ p) (if (setq p (getpoint "\nCentre: ")) (entmake (list '(0 . "CIRCLE") (cons 10 p) '(40 . 10.0) ) ) ) (princ) ) Avec SendCommand, on peut appeler "cmd" et lui passer directement un point sous forme de chaîne (ici 20,10). (vla-sendCommand (vla-get-ActiveDocument (vlax-get-acad-object)) "cmd 20,10 " )