PHILPHIL Posté(e) le 13 juillet 2007 Posté(e) le 13 juillet 2007 bonjour pour une entite donnée je cherche a faire la liste de toutes les clés pour pouvoir les modifier ensuite j'ai fais ce petit programmemais la il ne me donne que la premiere valeur de la clé "1"hors il y a plusieurs clé numéro "1" dans le bloc quelle est la fonction permettant de faire la liste complete des clé "1" ou autres le but du jeu etant au final de modifier les données etendue d'un bloc a vue multiples pour modifier celle d'un espace merci phil ; --------------------------------------------------- ; demande d'indo sur des objets lister toutes les clé ; --------------------------------------------------- (defun c:info4 () (setvar "cmdecho" 0) (setq na1 nil) (setq ent1 nil) (setq ent1 (car (nentsel "\nSELECTIONNER L'OBJET DE BASE."))) (setq typenti (cdr (assoc 0 (entget ent1))));;; (setq sj2 (entget ent1)) (setq val1 (cdr (assoc 1 (entget ent1)))) (prompt (strcat "\nVAL1 : " VAL1)) ;;; (prompt VAL1) (princ)) FREELANCE Autodesk Architecture 2025 sous windows 11 64 REVIT 24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal
Bred Posté(e) le 13 juillet 2007 Posté(e) le 13 juillet 2007 Salut,(cdr (vl-remove-if '(lambda (x) (not(equal(car x) cle))) lst))(ou lst = liste de entget et cle = la clé) Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...
PHILPHIL Posté(e) le 13 juillet 2007 Auteur Posté(e) le 13 juillet 2007 merci ca marche ou est ce que tu trouves l'explication de "VL-REMOVE-IF" et du reste d'ailleurs car apres tout ca faut que je trouve la fonction pour réinjecter des données differentes aux differentes clé "1" il n'u a aucune aide francaise ou anglais sur les active x thanks phil FREELANCE Autodesk Architecture 2025 sous windows 11 64 REVIT 24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal
Bred Posté(e) le 14 juillet 2007 Posté(e) le 14 juillet 2007 Re,dans l'aide du developpeur (dans l'éditeur visual lisp d'autocad par exemple).... et sur CADxp bien sûr ! ;) Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...
Messages recommandés
Créer un compte ou se connecter pour commenter
Vous devez être membre afin de pouvoir déposer un commentaire
Créer un compte
Créez un compte sur notre communauté. C’est facile !
Créer un nouveau compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant