Discussion :

[Prodav777]

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!

[clovis]

Bonjour,
Il y a une Autocad fonction pour chercher des entitees selon des paramètres
filter en Anglais.

[_gile]

Salut,

Ton filtre de sélection ne marche pas parce l'apostrophe ('), qui est un raccourci pour la fonction quote, empêche l'évaluation des éléments de la liste, donc de la variable x.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
(defun c:Pickcircle (/ x)
  (if (setq x (getdist "\nSpécifiez l'épaisseur: "))
    (sssetfirst
      nil
      (ssget "_X" (list (cons 0 "CIRCLE") (cons -4 "<=") (cons 40 x)))
    )
  )
)