DenisHen

Merci pour ce partage... Mais j'ai juste une petite question. Si LstSavant = "Albert EINSTEIN", comment faire pour avoir LstSavant = ("Albert EINSTEIN" "Isaac NEWTON") ? Sachant que j'utilise ton super "InputBox" pour la saisie des noms. J'ai donc une variable à ajouter à LstSavant à chaque fois qu'il y a une saisie. Le retour d'InputBox est la variable Savant.

Salut. J'ai eu le même problème avec des DWG issus de CIVIC (par exemple)... Je n'ai jamais trouvé une véritable astuce... Mais tu peux lire certain post comme Ici ou là Bon courage...

Très curieux comme comportement... Et dans l'aperçu ? Tu as la même chose ? J'ai déjà vu des traits dans le PDF qui ne s'imprimaient pas à la sortie de l'imprimante... Mais je doute que l'on parle de la même chose... Tout doit être dans l'aperçu... Normalement... Si non, c'est un problème d'imprimante...

Pô compris... Mais je n'utilise quasiment jamais les cotations... Pour ça, j'ai fais un LISP : Flèche+XYZ+Textes... ;)

J'ai regardé ton IXL... Mais je pense qu'il ne travaille qu'avec un fichier Excel ouvert... Non ?

Patrick, tu as écris, dans un post de 2004... Oulala, c'est pas jeune... Ceci : (Tiens, je viens de m'apercevoir qu'on ne peut pas placer des espaces en début de ligne dans les "quote" car mon texte brut en a... CadMin, es-tu là ? ?) J'avoue ne pas connaitre ces ":" en première ligne... Ca correspondrait pas à : Je tiens une piste ? Car là, je découvre peut-être la même "logique" qu'en VBA avec les "With" ? Oui, je fouille ton IXL... Et alors ? Vu qu'il est très bien fait, commenté, partagé... Moi, tout de suite... J'm'introduis, j'en profite... J'suis un crack... Pour ces p'tites...(désolé... J'ai Gainsbourg dans mes écouteurs...) B) On peut se détendre après 19h... C'est plus cool... Non ? Mais demain... Sérieux... On bossera là... En tous cas... Merci pour ton aide, toujours aussi précieuse... Maître Patrick... Car avec tout ce que tu as fais pour nous, les "novices" et autres... On te le doit... ;)

Ok. Demain matin, à la première heure, je m'y colle... Je vais commencer par ton IXL... Juste pour comprendre le machin du truc... Et merci du conseil...

Ok, mais je n'ai AUCUNE idée de la façon de communiquer avec Excel depuis le Lisp...

Merci pour les encouragements, mais j'ai déjà du mal avec un fichier ASCII, alors avec Excel... C'est pô gagné... ;)

Je connais plutôt bien Excel (et le tableau, et le VBA), mais pourquoi cette question ?

Salut Patrick. En fait, j'aimerais construire mes listes de cette façon : Mais j'ai du mal à ne pas faire une liste dans une liste... :huh:

Bonjour à tous. Aujourd'hui, je tente de lire une liste de ligne, dans un fichier ASCII, que j'ajoute dans une liste. Le contenu de mon fichier est : Et mon code est : (defun c:testFich (/ fichier File Lign FichLstDess LignDess LstDess) (setq fichier (findfile "Doss_IC_Dess.DenisH")) (princ (strcat "\nFichier : " fichier "\n")) (setq File (open Fichier "r")) (while (setq Lign (read-line File)) (if (/= (substr Lign 1 1) ";") (progn (setq FichLstDess (list FichLstDess Lign)) (setq LignDess (str2lst Lign ";")) (setq LstDess (list LstDess (car LignDess))) ) ;_ Fin de progn ) ;_ Fin de if ) ;_ Fin de while (close File) (princ (strcat "\nFichLstDess : " FichLstDess "\n")) (princ (strcat "\nLstDess : " LstDess "\n")) (princ) ) Mon problème : je n'arrive pas à ajouter des string dans mes listes... AutoCAD me répond : L'aide en anglais ne me dit pas grand chose... J'ai essayé avec des (append, (list, (cons... Si quelqu'un a une astuce, une idée, un conseil... Je suis preneur... Denis...

J'y vais franco... Avec NotePad++ Ce sont des fichiers avec un maximum de 10 personnes... Donc 10 lignes...

Salut (gile). En fait, je lirais, dans un fichier ASCII, une liste de personnes. Ce fichier sera structuré ainsi : Pour que, selon nos agences françaises, l'utilisateur de cette macro puisse éditer ce fichier et modifier simplement cette liste. J'utilise des listes de paires pointées pour, accroche-toi bien, utiliser ton super "ListBox" ;) . Mais je suis sûr que tu vas avoir une meilleur solution. Mais je ne suis pas certain qu'elle sera assez simple pour moi... :huh:

Salut à tous... Et mille mercis pour votre aide. Mon seul problème est que je ne connais pas le nombre d'éléments dans ma liste. Je pense donc opter pour la solution de Vincent qui semble me convenir le plus... Je teste tout ça dès que j'en aurais le temps... Encore merci à tous... Denis...

Bonjour à tous. Voilà, dans une routine, j'ai une liste "normale" (setq Lst_GeoRD '("A" "B" "C") Mais j'aimerais "convertir" cette liste en une liste de paires pointées (beaucoup plus facile à gérer pour moi) : (setq LstPP_GeoRD '((1 . "A") (2 . "B") (3 . "C") ) ) Si quelqu'un a une astuce, une idée, un conseil... Je suis preneur... Denis...

Bon, je n'ai pas résolu le problème... Du coup, j'ai créé plusieurs textes les uns au dessus des autres... Denis...

Ok, on ne s'était pas compris alors... Mais je me doutais un peu de l'explication... Merci...

Bonjour à tous. Voilà, aujourd'hui, je tente de faire deux MText, un à gauche un à droite, avec le même nombre de ligne. Mon problème, c'est qu'ils n'ont pas la même hauteur. On voit bien le décalage en hauteur en bas des textes comme sur l'image jointe. Et mon code est tout ce qu'il y a de plus simple : (setq Pt_ins (getpoint "\nPoint d'insertion du texte : ")) (command "_.-MTEXT" "_non" Pt_ins "J" "HD" "_non" Pt_ins TxtDef ""); Texte de gauche (command "_.-MTEXT" "_non" Pt_ins "J" "HG" "_non" Pt_ins TxtVar ""); Texte de droite Même en mettant le même espacement entre les lignes aux deux textes, ou en la désactivant, la différence reste... Si quelqu'un a une astuce, une idée... Je suis preneur...

Bonjour à tous... J'ai ajouté "Flèche + XYZ + Textes"... Très complet. Denis...

Salut à tous : Je me suis certainement mal fais comprendre. Ce que je voulais dire, c'est qu'il est impossible de mettre un bout de bbcode en gras, comme l'exemple suivant, ou on voit que le "getreal" n'est pas en gras : (if Ech (princ (strcat "\t\tEchelle : 1/" (rtos Ech 2 0))) (progn (setq Ech ([b]getreal [/b]"\t\tÉchelle du dessin 1/")) (vlax-ldata-put "DenisH" "Ech" Ech) ) ;_ Fin de progn ) Ce qui est une façon d'attirer l'attention sur une partie de code.

Une bonne idée reste une bonne idée... Bravo didier pour cette remarque... Mais quid des mises en forme DANS les bbcodes. Comme mettre en gras et/ou en italique un code ou bout de code pour le faire ressortir... Serait-il possible d'en faire... Si bien sûr cela ne nécessite pas la refonte du site... Denis...

Ah ouais... Intéressant ton dernier code... Merci pour cette précision...

Merci à vous... Tramber : j'ai découvert la "puissance" de (cond dans CadXP, je ne sais plus où, mais c'est (souvent) plus simple qu'une suite de (if... (gile) : j'ai consulté (une fois de plus) ton merveilleux "Introduction_a_AutoLISP"... Et effectivement, un getkword est plus approprié à ma routine que getstring... Encore un grand merci à tous...

Bonjour didier... J'ai jeté un coup d'oeil à l'aide, mais je n'ai pas trouvé les deux astuces de Tramber... ;)