prospoule

Bonjour et tout d'abord merci d'avoir répondu si rapidement. Les deux méthodes fonctionnent parfaitement et je vais les étudier toutes les deux. Je débute tout juste avec les boucles et je ne connais pas encore la fonction mapcar. Je ne trouve pas qu'utiliser la fonction mapcar soit une méthode usine à gaz mais j'avais peur que la solution que l'on me proposerais serait monstrueusement compliquée. Je vous remercie encore.

Bonjour, Ca fait une semaine que je galère avec un problème de liste et là j'en ai plus que marre alors je demande un peux d'aide. Je ne sais d'ailleurs pas si ce que je veux faire est possible du moins sans déployer un code style usine à gaz. Voici le problème si toutefois quelqu'un aurai une idée de génie : Je crée deux listes (setq liste1 ("a" "b" "c")) (setq liste2 ("1" "2" "3")) Et j'aimerai les combiner de manière à avoir une troisième liste qui ressemble à ça : (setq liste3 (("a1" "a2" "a3") ("b1" "b2" "b3") ("c1" "c2" "c3"))) ou ça : (setq liste3 ("a1" "a2" "a3" "b1" "b2" "b3" "c1" "c2" "c3")) Je poste tout de même le dernier bout de code que j'ai pondu même si il est complètement faux. (foreach liste1 (list "a" "b" "c") (foreach liste2 (list "1" "2" "3") (setq c (append(liste1 liste2))) ) ) Merci de m'avoir lu et bonne soirée Prospoule

Bravo c'est exactement ce qu'il me fallait. Un grand merci à vous.

Je pensais plutôt compléter mon code (à la place des ???) avec ceci : (setq enlist(entget ss1)) (setq a (cdr(assoc 10 enlist)) ) (princ "\n" )(princ a) mais apparement il y a une incompatibilité entre ssget et entget, ou alors quelque chose m'échappe.

Bonjour, Après de longues recherches infructueuses je me vois obligé de demander de l'aide. J'en peux plus :casstet: Mon problème est que je cherche à obtenir les coordonnées d'un élément text (géométrie ou point d'insertion) en passant pas un ssget. Quelqu'un sait-il si c'est possible ou pas ? Voici mon code : (defun c:B-tsel () (setvar "cmdecho" 0) (prompt "\n-----------------------------------------------------------------------------") (princ "\n Saisir le texte : ") (setq strTselPar (getstring "\n >>> : ")) (prompt "-----------------------------------------------------------------------------") (setq ss1 (ssget "_X" (list '(0 . "TEXT") (cons 8 "01619,01619") (cons 1 strTselPar))) ) ??? (setvar "cmdecho" 1) (princ) ) D'avance merci

Salut, C'est parfait je te remercie pour ta réponse ultra rapide. J'ai juste apporté une correction. Voici le code définitif : (ssget "_X" '((0 . "INSERT") (-4 . ""))) Bonne soirée [Edité le 29/7/2010 par prospoule]

Bonjour, je bute sur un problème de sélection et je me suis résigné à demander de l'aide. Comment sélectionner tous les blocs d'un dessin sauf quelques blocs et les exploser. Voici le code que j'ai pondu mais il fait exactement l'inverse de ce que je veux faire ! :( ( defun c:bls () (setq a (ssget "_X" '((0 . "INSERT") (2 . "GPM,GPB"))) ) (command "_erase" a "") ) Quelqu'un a-t'il une idée sur la modification à apporter à mon code ? Merci de m'avoir lu.

Bonjour à tous voici ma question : Lorsqu'au bureau j'extrude un bâtiment dans le but d'effectuer une calcul de volume de fouille celui-ci me génère un solide "correct" c'est à dire avec les sommets non-arrondis. Si j'effectue la même opération chez moi les sommets de mon solide sont arrondis. Quel est le problème ou la variable à modifier ? merci