bigsyke

Thanks for your help Elpanov :) However (acet-list-remove-duplicates l nil) its available only if you have express tools installed

Bonjour, Merci pour ta réponse.Sur le forum j'étais partie sur une mauvaise piste en voulant transformé l’écriture scientifique en décimal. Effectivement si j'étais partie sur le terme "equal" je serai tombé sur ce lien Mon lien Désolé de vous ennuyé avec mes questions

Bonjour à toutes et à tous, Je voulais juste faire partagé un cas que je trouve bizarre. Je fais un lisp ou j'extrais les coordonnées des points d'une polyligne sous forme de liste. Ensuite j'aimerais savoir si le premier point et le dernier sont identique mais lorsque je fais une comparaison avec des valeurs scientifique cela ne fonctionne pas comme vous pouvez le voir le code suivant: Commande: (setq firstpt (car lpt)) (-477785.0 1.05555e+006) Commande: (setq lastpt (car (reverse lpt))) (-477785.0 1.05555e+006) Commande: (= (car firstpt) (car lastpt)) T Commande: (= (cdr firstpt) (cdr lastpt)) nil Commande: (cdr firstpt) (1.05555e+006) Commande: (cdr lastpt) (1.05555e+006) Je me suis alors dit que les valeurs après la virgule n'etait pas identique alors j'ai fait ça: Commande: (rtos (nth 0 (cdr firstpt)) 2 10) "1055553.33314437" Commande: (rtos (nth 0 (cdr lastpt)) 2 10) "1055553.33314437" J'ai regardé sur le forum et je suis tombé sur ce lien Mon lien Doit on toujours jouer du rtos et atof dès qu'on a des valeurs scientifique pour etre sûr que la 25eme valeur apres la virgule soit la meme?

Merci Patrick_35 Je dois pas avoir une méthode de recherche au point...je vais regardé tout cela

Bonjour Gile, Je t'assure que j'avais recherché sur le forum et sur internet avec plusieurs appellation comme classer,dénombrer,ranger,etc...les éléments/ atomes d'une liste mais sans succès.J'ai bien trouvé un tas de lisp relatif au manipulation de liste (comme sur ton site gileCAD) mais pas ce que je recherchais. Je suis peut être passé à coté ou ma méthode de recherche n'est pas la bonne :) En plus j'ai toujours pour principe de chercher par moi même avant de solliciter votre aide et vos conseils et c'est vrai que ce site est génial pour l’entraide :) Merci pour ton lisp qui va me permettre de progresser. Y a plus qu'a regardé comment tout cela s'articule pour comprendre son fonctionnement ;)

Bonjour à tous, Est il possible de compter le nombre d'éléments constituant une liste? Par exemple si j'ai une liste de la forme ( a b a c b a c c a a),j'aimerai obtenir a partir de cette liste la liste suivante ((a 5) (b 2) (c 3)) Merci pour votre aide ;)

Bonjour Guillaume, En effet ton petit lisp fonctionne à merveille et je t'en remercie :) . Mon erreur était que pour une solution ou il faut sélectionner l'objet, j'avais mis entsel au lieu de nentsel ce qui faisait que j'obtenais le nom du calque sur lequel j'avais inséré mon xref Existe il une solution de type ssget (ou autre) qui permettrai de balayer tous les calques de mon plan, xref compris? J'ai essayé un code de type: (setq lw (ssget "_X" '((8 . "calque1")))) mais rien n'est sélectionné...

Bonjour tout le monde :) Je vais taché d'illustrer ma question par un exemple afin d'etre clair. J'ai un dessin dwg que je nommerai dessin1.dwg et que je souhaite utiliser comme xref. dessin1.dwg est composé d'entité graphique qui sont sur differents calques comme par exemple calque1, calque2, etc... Jusque là, rien de bien folichon. J'ouvre maintenant un autre dwg que j'appelerai dessin2.dwg dans lequel je viens inserer mon xref. Ma question est la suivante: Si je suis dans dessin2.dwg est il possible en lisp,de cliquer sur une entité appartenant a mon xref (qui est dessin1.dwg) et de retrouver le nom du calque attacher a la source de mon xref (par exemple calque 1)?Est il possible de recuperer ce nom de calque avec un ssget? Merci d'avance pour votre aide

Le lisp marche à merveille :D Je pense l'incorporer en sous programme pour modifier une liste de terme pré-établie grace a la fonction foreach B) Merci au crabe pour le lien qui fait mention de la longueur des caracteres :) Pour ma part j'avais bien trouvé la commande "BLOCK?" (j'ai autocad 2012) pour repondre a mon problème mais il n'y a apparemment pas d'équivalent en lisp Encore merci pour l'aide apportée et merci encore a tout ceux qui prennent sur leur temps nous aider ;)

Oulà...ça c'est du lisp :(rires forts): Je teste ce lisp dès demain matin et je te tiens au courant! En tout cas mille merci pour ton aide precieuse!

Merci pour ta réponse, Le problème c'est que j'ai une serie de folio dont je ne suis pas l'auteur et donc je n'ai pas l'historique des blocs qui ont été créér. Il faudrait que j'ouvre tout mes folios pour faire un balayage pour savoir s'ils sont constitués d'attribut, de texte, ou des deux pour pouvoir les modifier selon le principe que tu a decris. Je pensais que puisque ces données étaient accessible via la commande rechercher/remplacer ou via un éditeur de texte avec le DXF, il y avait peut être une astuce par lisp pour y avoir acces sans passer par une redefinition du bloc. Vivement qu'autodesk crée une ligne de commande rechercher/remplacer sans passer par une fenetre! En tout cas je te remercie beaucoup pour le partage de ton savoir :)

Bonjour à toutes et a tous, J'aurais besoin de votre aide et de vos conseils car je cherche à réalisé un lisp (si possible en autolisp) qui me permettrait de changer un texte qui appartiendrait à un bloc sans attribut. Le problème c'est qu'en parcourant des code DXF pour modifier la valeur de mon texte, je n'ai que le code INSERT et rien d'autre (normal puisque je n'ai pas de code 66). Y a t il un moyen de rentré au coeur du bloc pour y modifier un texte en passant par un lisp ou est ce tout simplement pas possible? Merci pour conseil :)

Merci beaucoup Gile! La solution en (foo l1 l2) est exactement ce que je cherchais :) :) :) J'avoue que j'ai encore quelques lacunes dans la manipulation des listes...surtout avec mapcar et lambda (comme par hasard <img src='http://cadxp.com/public/style_emoticons/<#EMO_DIR#>/laugh.gif' class='bbc_emoticon' alt=':(rires forts):' /> ) J'étais personnellement partie sur quelque chose de plus lourd a coup de nth ou de foreach que je maitrise mieux. Merci encore pour ton aide Gile ;)

Bonjour à toutes et a tous :) Avant tout je voudrais remercier une fois de plus tout ceux qui font vivre ce forum, prenne sur leur temps pour se pencher sur nos petits problèmes et partage leur savoir. Voici mon petit souci: Je dispose de 2 listes (lstptx et lstpty) correspondant a des coordonnées de point Commande: !lstptx ((X1 Y1 Z1) (X2 Y2 Z2) (Xn Yn Zn)) Commande: !lstpty ((X’1 Y’1 Z’1) (X’2 Y’2 Z’2) (X’n Y’n Z’n)) Le but est de créer une nouvelle liste qui donnerait cela : Commande: !lstpt ((X1 Y’1 Z’1) (X1 Y’2 Z’2) (X1 Y’n Z’n)……(X2 Y’1 Z’1) (X2 Y’2 Z’2) (X2 Y’n Z’n)...) Je pense bien a certaine piste mais elle me donne l’impression de tuer une mouche avec un marteau…

C'est parfait!!!Merci mille fois pour le coup de pouce! Bien pratique ce Vlisp