Selectionner tous les cotations.

[-Olivier-]

Bonjour (gile),

Merci pour tout ce que tu as pu faire sur ce forum et sur d'autre.

Sans toi et quelques autres je n'aurais toujours pas commencé le moindre lisp.

Juste pour préciser qu'il manque l'ouverture de parenthèse avant le defun.

 

(defun c:scot () 
 (sssetfirst nil (ssget "_x" '((0 . "DIMENSION")))) 
)

 

Décidément cette demande ne nous réussi pas :D .

Bonne soirée à tous !

[(gile)]

Oupss !...

À ma décharge, je fréquente moins les parenthèses ces derniers temps...

[Arcasdk]

Parfait, c'est ce que je voulais...

 

Et je garde en tête les deux commandes. la commande "select" avec l'option "p" peut avoir son utilité.

 

PS: Est ce normal que je ne trouve plus tout mes sujets de discussion (depuis 2008).

 

Merci à tous

[lecrabe]

Hello

 

Pour Gilles :

 

En effet AVANT Gilles etait "marie" avec les parentheses !

 

Maintenant il est "pacse" avec le Dotnet !!

 

lecrabe

[Arcasdk]

Re coucou, est ce qu'un truc dans le genre est possible?

 

(defun c:sssd (/ js)

 (or js (setq js (sssetfirst nil (ssget "_I" '((0 . "DIMENSION"))))))


)

[VDH-Bruno]

Salut,

Re coucou, est ce qu'un truc dans le genre est possible?

 

(defun c:sssd (/ js)

 (or js (setq js (sssetfirst nil (ssget "_I" '((0 . "DIMENSION"))))))


)

 

 

Peut également s'écrire comme cela, pour filtrer les entitées gripper à l'écran..

(defun c:sssd () (sssetfirst nil (ssget "_I" '((0 . "DIMENSION")))))

[VDH-Bruno]

Re

En repensant à ta ligne de code, je pense que tu cherchais plus à faire quelque chose comme çela..

(defun c:sssd ()
 (or (sssetfirst nil (ssget "_I" '((0 . "DIMENSION"))))
     (sssetfirst nil (ssget '((0 . "DIMENSION"))))
 )
)

 

Ou écrit comme ceci

(defun c:sssd ()
 (sssetfirst nil (cond ((ssget "_I" '((0 . "DIMENSION"))))
                       ((ssget '((0 . "DIMENSION"))))
                 )
 )
)

 

A+

[Arcasdk]

ah merci, la deuxième fonctionne.

 

Si je ne sélectionne pas d'entité avant de lancer la première.... cela ne fonctionne pas!!

 

Merci

[VDH-Bruno]

Si je ne sélectionne pas d'entité avant de lancer la première.... cela ne fonctionne pas!!

 

Oui c'est ce qui arrive quant on prend trop d'assurance :angry: , on post sans tester voilà la correction pour la première

(defun c:sssd (/ js)
 (or (setq js (ssget "_I" '((0 . "DIMENSION")))) (setq js (ssget '((0 . "DIMENSION")))))
 (sssetfirst nil js)
)

 

A+

[VDH-Bruno]

Re

 

Ou plus comme cela pour la première pour rester dans l’esprit de ce que je voulais montrer..

(defun c:sssd ()
 (or (cadr (sssetfirst nil (ssget "_I" '((0 . "DIMENSION")))))
     (sssetfirst nil (ssget '((0 . "DIMENSION"))))
 )
)

(Ps : Décidément à trop veiller le soir, la mise en route ce matin est assez laborieuse..)

[Arcasdk]

Merci, ca fonctionne!