Clément.a

Bon je vais travailler tous ça, merci beaucoup

Astucieux le coup de la fenêtre suivant le précision, mais je ne devrait pas avoir bessoin de ça car dans ma routine je calcul les coordonnées de la même façon que pour l'inserer donc sa devrait etre bon. C'est pour mes essais ça ne marchais pas car je reprennais les coordonnées dans le entget de mon bloc et comme je vien de le constaté elles sont arrondi ce qui me surpend, surtout que avec cette arrondi ça me permet pas de les retrouver avec le ssget c'est un peut contradictoire il arrondi les coordonnées mais pas partout, bizzard... Est ce que quelqu'un à une expliquation à cela?

quand j'ai un bloc au point (0 0) et que je fait (setq nom (ssget "_X" '((0 . "INSERT")(2 . "annotation")(10 0 0)))) il le trouve par contre quand c'est une coordonnées bidon il le trouve pas il doit y avoir une incertitude sur mes coordonnées?!

Bonjour Oui, désolé pour le message de hier soir j'était un peu fatigué quand je l'ai écrit et je n'ai pas pris le temps de relire je m'en excuse. Ce que me propose -Olivier- me parait bien mais j'arrive pas à l'appliquer avec les coordonnées. J'ai essayé dans un plan avec un seul bloc mais il ne trouve rien quand je met les coordonnées et quand je les enlèves il me trouve quelque chose. Voila ce que j'ai écris : (setq nom (ssget "_X" '((0 . "INSERT")(2 . "annotation")(10 28482.7 408.153 0.0)))) D'autre pas quand ça marche nom rend la valeur <Selection set: aa> Comment ça s'utilise <Selection set: aa> Merci

Pour expliquer un peu mieux mon probleme j'ai un nombe x de bloc avec attribut qui se nome "annotation", quand j'applique une action (depuis une routine) j'aimerai que ça modifie un bloc "annotation" dont je connais seulement les coordonnées de son point de base. Y a t'il un moyen de resortir tout les blocs du nom "annotation" avec leur entget et retrouver celui dont j'ai besoin en cherchant celui qui à les coordonnées de base que je connais. Donc ce qu'il me faudrait c'est tout les enames des blocs "annotation", pour pouvoir interrogé le paire poibté (10. ..) et vérifier si elle est égale à celle que je veut. J'ai deja vu qu'on pouvait ressortir la liste de tout les noms des bloc inserés dans le dessin, est ce possible de faire ce que j'aiemerais? Merci

Bonjour à tous, J'aimerais recherché un bloc dans l'espace objet dont je connais son nom et les coordonnées du point d'insertion, pour pouvoir extraire son ename. Merci Désolé pour la faute dans le titre! :( --> Merci

parfait merci

Maintenant j'aimerais déplacer une liste d'objet. j'ai essayé comme ceci : (command "_move" (foreach n list_ename (print n)) "" point_init point2 ) Mais sa me séléctionne que le dernier. Merci

Bonjour, Je reviens sur ce sujet pour cette ligne : (vl-remove-if-not '(lambda(x)(eq (car x) 5)) (dictsearch dict "Ma_Roue_01"))) c'est possible de récupérer que le handle de la paire pointé, j'ai essayé d'introduire un cdr un peu par tout mais sans résultat. Jusqu'a maintenant je faisais une boucle pour récuperer chaque cdr des éléments de la liste mais si c'est possible directement avec cette ligne de code ça m'aiderais. Merci

j'ai trouver un moyen en bidouillant voila ce que ça donne en exemple : (defun deplace () (setq ename (handent "E80E")) (setq point_init (cdr(assoc 10 (entget ename)))) (setq point2 (getpoint "un point pour déplacer")) (command "_move" (eval ename) "" point_init point2 ) )

Bonjour a tous, J'aimerais pourvoir déplacer un objet dans mon cas un bloc en connaisant son nom d'entité,donc y a t'il moyen de séléctionner un objet rien qu'avec son nom d'entité?

oui j'ai déja regardé dans les lisp charger au démarage mais il y a rien! Oui, on dirait que le .MNL de AutoCAD à été changer mais je ne le trouve pas du moins j'en trouve un mais y a rien dedans seulement un long paragraphe en anglais en commentaire. ça m'avais encore jamais fait ça!

Bonjour à tous, Voila j'avis installé une barre d'outils que j'ai télécharger sur le net puis une fois que j'en ai plus eu besoins je l'ai enlevé en revanche quand je lance autocad il cherche toujours à charger le LISP il marque : Utilitaires de menu AutoCAD chargés.; erreur: La commande CHARGER n'a pas abouti: "c:/PowerClic7/pw_loader.lsp" J'ai regarder dans les application charger mais il y est pas, dans la personnalisation des menus non plus, bref j'ai pas trouvé ou modifier pour qu'il ne cherche plus à charger ce lisp qui n'existe plus. Si quelqu'un à une idée ? Merci

belle démonstration, bravo!

Parfait Merci VDH-Bruno en tout cas je trouve très astucieux comment fonctionne la fonction insertAt! Merci à tous

Bon j'avai besoin de cette fonction pour modifier un xrecord et comme avec cons ça place l'élément au début le entmakex ne marchais pas (enfin je pense que c'est pour ça) du coup j'ai utiliser insertAt or quand j'ai une liste de paire pointé comme un xrecord il ne veut pas applique le (cons ele lst)(sa ne modifie pas la liste dans le condition ( zerop ind) du coup je sais pas si c'est moi qui fait pas bien ou si il y a un problème ? Merci Réponse : Erreur de ma part il manquait un petit "setq" devant le (insertAt ele ind lst)

OK merci, En revanche avec ;; gc:insertAt ;; Insère l'élément dans la liste à l'index ;; ;; Arguments ;; ele : l'élément à insérer ;; ind : l'index auquel insérer l'élément ;; lst : la liste dans laquelle insérer l'élément (defun gc:insertAt (ele ind lst) (cond ((null lst) nil) ((zerop ind) (cons ele lst)) ((cons (car lst) (gc:insertAt ele (1- ind) (cdr lst)))) ) ) pas moyen de metre l'élément à la fin de la liste c'est normale ou je fait une mauvaise manip ?

Bonjour, Voila je cherche comment déplacer un élément d'une liste parce qu' avec la fonction "cons" l'élement est rajouté au début et j'aimerai qu'il soit à une autre position, ça doit pas etre compliqué mais je galère un peu! Merci

Merci

Est ce qu'il est possible de changer un liste de ce genre ((-1 . <Nom d'entité: 7ef0ece0>) (0 . "DICTIONARY") (5 . "E0E4") (102 . "{ACAD_REACTORS") (330 . <Nom d'entité: 7ef01c60>) (102 . "}") (330 . <Nom d'entité: 7ef01c60>) (100 . "AcDbDictionary") (280 . 0) (281 . 1) (3 . "cercle")) pour obtenire ça "((-1 . <Nom d'entité: 7ef0ece0>) (0 . \"DICTIONARY\") (5 . \"E0E4\") (102 . \"{ACAD_REACTORS\") (330 . <Nom d'entité: 7ef01c60>) (102 . \"}\") (330 . <Nom d'entité: 7ef01c60>) (100 . \"AcDbDictionary\") (280 . 0) (281 . 1) (3 . \"cercle\")" Merci

Petite question quand je fais ça: (cdr (vl-remove-if-not '(lambda(x)(eq (car x) 5)) (dictsearch dict "Ma_Roue_01"))) sur ce dictionnaire : ((-1 . <Nom d'entité: 7ef06518>) (0 . "XRECORD") (5 . "223") (102 . "{ACAD_REACTORS") (330 . <Nom d'entité: 7ef064d8>) (102 . "}") (330 . <Nom d'entité: 7ef064d8>) (100 . "AcDbXrecord") (280 . 1) (5 . "222") (5 . "221") (5 . "220")) il me ressort ça : ((5 . "222") (5 . "221") (5 . "220")) Mais pourquoi y me donne pas (5 . "223") qui est le handle du dictionnaire ? alors qu'il est bien dans le dictionnaire ?

Ahah j'ai trouver un truc : ici

Tout ces données qui sont dans les dictionnaires, y à un moyen d'ouvrir un fichier (genre une fichier temporaire .txt ) ou tous y est écrit?

J'ai testé les deux routines (gc:GetextDict) (gc:GetOrCreateExtDict)j'ai compris comment on le faisait mais dans qu'elle cas et pour qu'elle but on peut utilisé ces dictionnaires d'extensions, qu'est ce qu'il apporte de plus ?

Je fais des essais pour apprendre à manipuler les dictionnaires. J'ai un petit souci avec entmod Voila j'ai ecrit çà (defun c:vv () (setq dict (dictsearch (namedobjdict) "text_essai")) (setq data (dictsearch (cdr (assoc -1 dict)) "essai")) (setq data (subst (cons 1 "plus un essai") (assoc 1 data) data)) (entmod data) (setq data (dictsearch (cdr (assoc -1 dict)) "essai")) ) quand j'espione la valeur data j'ai : (setq data (dictsearch (cdr (assoc -1 dict)) "essai")) --> initialement j'ai (1 ."essai") (setq data (subst (cons 1 "plus un essai") (assoc 1 data) data)) --> essai est remplacé par "plus un essai" (dictsearch (cdr (assoc -1 dict)) "essai")) ) --> j'ai deux groupe de code 1 (1 ."essai") (1 ."plus essai") Alors que dans l'aide il arrive pasà ça