Voila j'ai besoin de votre aide!

J'essaie de faire une LISP toute simple qui selectionne les cercles plus petit ou égale à X.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
(defun c:Pickcircle (/ x )
(setq x (getreal "\nEntrez l'épaisseur"))
(command "_select" (ssget "_X" '((0 . "CIRCLE") (-4 . "<=") (40 . x))))
)
Voici ce que j'ai de fait, mais dans autocad l'erreur suivante apparait.

Select objects: ; error: bad SSGET list value

Je débute, donc si c'est possible pour vous de me donner quelques explications en plus de la réponse j'apprécirais énormément.



Merci Beaucoup!