willy95

Merci Gile pour ce temps passé et cette réponse qui corresponds exactement à mon besoin, j'ai ajouté toutes mes couleurs et ça marche à merveille, je vais gagner du temps et pouvoir passer grace toi plus de temps avec ma famille car sinon j'aurai été bloqué pas mal de temps sur ces modifications. Merci Beaucoup. Et merci Phiphil pour cette précision qui pourra etre utile également par la suiteL

Merci quand Steven pour ta réponse, mais c'est justement pour ne pas avoir à faire ça 30 fois dans chacun de mes 60 fichiers que je cherche une routine pour que le remplacement des couleurs soit fait automatiquement. Il me reste plus qu'a passer 3 jours pour le faire comme ça à la main couleurs par couleur et fichier par fichier. 😞 😭 J'ai beau chercher sur internet ou à modifier des lisp trouvés, rien ne fonctionne. 😞

Bonjour à tous, je cherche a changer automatiquement dans un dessin la couleur (Index) d'un objet (couleur forcé différente de la couleur du calque) par une autre couleur (Couleur Réelle). Par exemple : je lance le lisp et il va chercher directement tous les objets qui ont la couleur forcé "91" et remplace ces même objets par la couleur "225,255,219 avec 93 de Luminance" et il continue avec d'autre couleur comme "31" par "255,224,194 avec 88 de Luminance". Si quelqu'un peu m'aider, j'ai essayé de bricolé quelquechose en recherchant sur le forum mais rien ne fonctionne, j'aimerai remplacer plein de couleur dans plusieurs de mes fichiers rapidement sans avoir a le faire objet par objet. Merci par avance pour votre compréhension et pour votre aide.

Bonjour Luna, mon message précédent ne t'était pas du tout destiné, tu est bien une des rares personnes qui prends du temps pour me lire et répondre à mes questions bizarre, je ne cesse et ne cesserai jamais assez de te remercier pour tes bons mots, en plus je suis plus que d'accord sur les propos de ton message précédent, j'ai juste été blessé par @didier alors que j'ai pour Bible son site que je lit, relit et essai de comprendre depuis qu'il l'a mis en place, je ne suis peut être pas si doué que vous mais je regrette que l'on m'insulte d'une forme de fainéantise de copier coller alors que je buche sévère tous les jours sur mes sujets de codes. Merci pour votre compréhension.

Bonjour les amis, Pour info je suis pas développeur de métier, je n'ai jamais reçu ou suivi de formation en lisp, dcl ou autre langage, cela fait plus de 25 ans que je me débrouille et passe énormément de temps à coder, tester et utiliser mes lignes, même si elles sont peu orthodoxe et j'en conviens, mais elles me facilite la vie dans mon travail et j'aide mes collègues en même temps grâce à ça sans quelconque rémunération ni honneur supplémentaire. Je passe des soirées entières à chercher et trouver des solutions sans aide et dans mon coin par peur de me prendre en retour des remarques désobligeantes. Tristement, je constate toujours et depuis de nombreuses années une nonchalance de certains quand on lance un appel à l'aide sur ce forum, je précise que cet appel au secours est toujours établi après de nombreuses heures à essayer de trouver la solution, j'effectue des multiples recherches diverses et variées en amont afin de venir avec quelques éléments pour posé ma question. J'ai bien d'autre passion dans ma vie et je vous confirme que mes dits amis dans mes autres domaines sont bien plus altruiste et bienveillant à l'égard des autres qui n'y connaissent rien et veulent apprendre pour espérer avancer sur le sujet, ces autres domaines sont plus avenant que dans le domaine du développement, heureusement que certains ou certaines reste ouvert d'esprit et prennent un peu de temps à répondre à des gens comme moi. Après ces quelques mots, certains d'entre nous (pour pas dire vous), vont à coup sûr me tirer dessus à boulet rouge, ce qui démontrera probablement mes précédents propos, mais il faut bien comprendre les gens comme moi qui font plus d'effort que ceux qui si connaissent en la matière pour arriver parfois après de longues heures d'efforts à un résultat qui pour certains d'entre vous semble ridicule. Alors par pitié pas de leçons de morale ou de dénigrement sans connaître les gens à qui vous avez a faire, ni dans ce forum, ni dans la vie, car les préjugés sont toujours néfaste pour l'ensemble de la société humaine, sachez que je travail dur sur ces codes sans recopier bêtement les codes des autres et je cherche toujours à comprendre et à avancer pour faire mieux demain. Merci d'avoir pris le temps de me lire.

Merci beaucoup, grâce a toi j'avance et je te ferai un retour quand ce sera parfait pour moi, merci encore et à bientôt.

Bonjour Luna, tout d'abord je tiens vraiment a te remercier pour le temps passé et l'énergie à me répondre, je t'en suis bien sur redevable. J'ai essayer dans tous les sens de comprendre et de mettre en pratique tes lignes de codes sans obtenir un résultat qui me propose plusieurs choix sélectionnable. J'ai donc suivi ton idée en inscrivant ce que je comprends de chacune des lignes du codes, pour autant je ne comprends pas ou ce trouve les choix de la liste, comme par exemple dans ta petite image du résultat de la boite de dialogue : ou ce trouve dans le code : Choix A ? je ne comprends vraiment pas, il faut m'en excuser car je ne suis pas développeur et je bricole beaucoup en lisp afin de me facilité un peu le travail dans mon job. J'ai donc essayer en rajoutant au début une liste que j'ai appeler "key" mais sans résultat également (setq key '( "Choix A" "Choix B" "Choix C")) Pour info le visuelle de la boite de dialogue m'importe peu, seul la possibilité d'avoir des choix multiple avec au final les choix dans une et seule variable m'est nécessaire. (defun willy95 (lst / *error* filename file DCL_ID rslt) ;creation de la fonction et reset des variable (defun *error* (msg) ;définition si erreur il y a (if file (close file)) ;condition (if filename (vl-file-delete filename)) ;condition si erreur d'éffacer la variable (princ msg) ) (Setq ;création de la variable contenant les éléments de la boite de dialogue filename (vl-filename-mktemp "TestBox.dcl") ;creation du fichier dcl temporaire file (open filename "W") ;ouverture et ecriture ) (write-line ;ecriture des lignes suivantes dans le fichier temporaire (strcat ;concatenage des plusieurs réponses "TestBox:dialog {" ;nom de la boite de dialogue " label = \"1, 2 ou 3 Choix \" ;" ;affichage de la question dans la boite de dialogue " spacer ;" ;espace " :list_box {" ;affichage de la liste dans la boite de dialogue " label = \"Choisir : \" ;" ;question affichée " key = \"key\" ;" ;nom de la réponse " width = 1 ;" ;largeur de la case de la question au mini " height = 2 ;" ;hauteur de la case de la question au mini " edit_width = 25 ;" ;largeur de la case de la réponse " edit_height = 27 ;" ;hauteur de la case de la réponse " multiple_select = true ;" ;valeur vrai pour prendre en compte plusieurs selection dans la boite de dialogue " }" " spacer ;" ;espace " ok_cancel ;" ;validation ou annuler la boite de dialogue " }" ) ;fermeture du concatenage file ;nom de la boite de dialogue avec ses réponse apportées ) (close file) ;fermeture de la boite dialogue (setq DCL_ID (load_dialog filename)) ;creation variable contenant les valeurs de la boite de dialogue (if (not (new_dialog "TestBox" DCL_ID)) ;condition si vide (exit) ;pour sortir ) ;fermeture de la condition (start_list "key") ;démarage de la lecture de la liste (mapcar 'add_list lst) ;traitement de la fonction (end_list) ;fin de la lecture de la liste (action_tile "accept" "(setq rslt (mapcar '(lambda (n) (nth (atoi n) lst)) (str2lst (get_tile \"key\") \" \"))) (done_dialog)") ; création de la variable contenant les choix précedent (action_tile "Cancel" "(done_dialog)") ;quitter sans rien faire (start_dialog) ;démarrer la lecture de la boite de dialogue (unload_dialog DCL_ID) ;vider la variable contenant la boite de dialogue (vl-file-delete filename) ;effacer la variable du fichier temporaire rslt ;création de la variable contenant les choix effectués ) ;fermeture de la fonction Je suis désolé de te prendre la tête avec ce genre de chose mais je suis bloqué sur ce problème que je n'arrive pas à résoudre, sans le quel je ne peu avancer ou même faire autrement. Je te remercie encore une fois pour ton temps passée et énergie, je vais poursuivre dans mes recherche afin d'y arriver, mais ne t'en fait pas, et perds pas plus de temps avec moi, je n'ose plus rien dire au vu des mon incompétence en la matière. Merci pour ta compréhension

Merci beaucoup mais c'est trop chaud pour moi, j'ai essayer de mélanger tous ça avec des tentatives de compréhension mais rien ne marche jamais, je dois faire quelques trucs qui ne vont pas du tout, je désespère...

Merci Luna pour cette information mais qui reste vraiment trop complexe pour moi, je cherche a comprendre par un simple exemple contrairement à la fonction de Gile qui intégre beaucoup d'autre chose, mon idée de base étant comme ci dessous mais avec la possibilité de prendre plusieurs Choix en même temps : (setq List1 '( "Choix A" "Choix B" "Choix C" )) (setq temponota1 (vl-filename-mktemp "QuestionNota1.dcl") file (open temponota1 "w")) (write-line " QuestionNota1 : dialog { label = \"1, 2 ou 3 Choix \"; key =\"\"; spacer; : list_box { label = \"Choisir : \"; key = \"List1\"; width = 1; height = 2 ; edit_width = 25; height = 27;} : spacer { width = 10; height = 1;} ok_cancel; edit_width = 10;} " file) (close file) (setq Dcl_Id (load_dialog temponota1)) (new_dialog "QuestionNota1" Dcl_Id) (start_list "List1") (mapcar 'add_list List1) (end_list) (action_tile "List1" "(setq Notas (nth (atoi $value) List1))") (start_dialog) (unload_dialog Dcl_Id2) (vl-file-delete temponota1)) Merci par avance pour vos retours sur ce sujet qui m'est vraiment trop difficile à faire alors que j'ai essayer plein de chose différentes sans résultat 😞

Bonjour les amis, Est il possible d'avoir un exemple simple d'une boîte de dialogue avec une liste (list_box) avec choix multiple, ou l'on peu choisir plusieurs lignes, j'ai tout essayer avec ;list ou avec multiple_select mais rien ne fonctionne. En vous remerciant pour votre retour par avance.

Merci beaucoup Gile, effectivement il va falloir que je buche vraiment sur le VLA.

Et si je peu abusé un peu plus sur ce sujet et bien que j'ai testé sans résultat, peut-on mettre les deux lignes "décalés" dans le claque courant plutôt que dans le même calque que celui de l'objet décalé ? Merci par avance

Merci à vous deux, c'est top, les fonctions "VLA" sont vraiment super mais cela reste une autre langue, ayant déjà du mal avec le lisp classique, mais je pensai bien après quelques lectures sur le forum que la solution serait avec vla-Offset. Merci pour votre aide, votre temps passé et votre promptitude.

Bonjour les amis, Est-il possible de simplifié mon code pour obtenir un décalage à gauche et a droite de la moitié de la valeur de départ en cliquant uniquement sur la ligne à décaler ? (et fini les deux clics pour lui dire de quel coté) (defun c:TAB ( / Dis DemiDis Ent IniCmd) (setq Dis (getdist (strcat "\nLargeur totale du Tableau <" (rtos (getvar "OFFSETDIST")) ">: ")) Ent (entsel "\nChoix de l'Axe : ") IniCmd (getvar "CMDECHO") ) (setq DemiDis (/ Dis 2)) (command "_OFFSET" DemiDis ; Distance Ent ; Sélection de l'objet à décaler Pause ; Coté à décaler "" ; Sort de la commande Décaler ) (command "_OFFSET" DemiDis ; Distance Ent ; Sélection de l'objet à décaler Pause ; Coté à décaler "" ; Sort de la commande Décaler ) (setvar "CMDECHO" IniCmd) (princ) ) Merci par avance

Merci Beaucoup Luna, je test, complète tes lignes et informations super bien expliquées, bien que sans résultat je persévère et reviendrai une fois obtenue un résultat concluant. Merci beaucoup

Merci beaucoup Luna pour ton temps passée à chercher à me comprendre pour me faire avancer dans mon problème, il est vrai qu'il est difficile pour moi d'exprimé mon utilité à ces étranges lignes de codes, je cherche simplement à proposer la valeur précédente par défaut car je saisie énormément de fois le même numéro de lot. En validant directement par "OK" la valeur de ma dernière variable saisie est bien conservé mais j'aimerai juste affiché cette valeur. Merci encore et désolé pour mon manque d'expression. Je vais faire plein de tests pour essayer mais ne vous embêter plus avec mon sujet.

Bien sur, mais mon code n'est pas du tout standard, alors accrochez vous... (setq tmpnumlot (vl-filename-mktemp "Questionnumlot.dcl") file (open tmpnumlot "w")) (write-line "Questionnumlot : dialog { key = \"Titrenumlot\"; label = \"\"; initial_focus = \"Listnumlot\"; spacer; : row { : edit_box { label = \"Saisir le Numéro de Lot :\"; key = \"List2\"; height = 1; edit_width = 26; fixed_width = true; alignment = left;}} : spacer { width = 1; height = 1;} ok_cancel; edit_width = 10;} " file) (close file) (setq Dcl_Id (load_dialog tmpnumlot)) (new_dialog "Questionnumlot" Dcl_Id) (set_tile "Titrenumlot" "Saisir un Numéro de Lot") (set_tile "numlot" "0") (action_tile "Listnumlot" "(setq Lot (nth (atoi $value) listnumlot))") (IF (= List2 nil) (setq ni 0)) (action_tile "List2" "(setq Lot $value)") (start_dialog) (unload_dialog Dcl_Id) (vl-file-delete tmpnumlot)

Bonjour les amis, Je bloque sur le rappel d'une valeur dans une boite de dialogue : 1) Je reponds à la question : Genre quel age avez vous ? : 47 2) Je repose une question : Genre quel age avez vous ? : (j'aimerai qu'il me proprose 47) J'ai testé avec Get_tile et set_tile, mais je n'y arrive pas, quelqu'un peut-il m'aider sur ce coup la ? Merci par avance

Merci Luna pour ton retour rapide et ton altruisme sans chichi, Cela fonctionne à merveille et je peux avancer comme je le souhaite grâce à toi . (while (setq pt (getpoint "\nCliquer dans la zone à Hachurer (Entrée pour quitter):")) (command "_.-BHATCH" "P" "G" "GR_SPHER" "" "" "P" "G" "D" "U" "224,247,255" "U" "255,255,255" pt "")) Dans mon code c'est bien pour la version française uniquement et cela me convient parfaitement. Merci, A+

Bonjour à toutes et à tous, Est-il possible de m'ecrire un petit bout de code pour obtenir une teinte "gradient" et deux couleurs rvb par un seul clic, un peu comme ci dessous pour des hachures en solide ? (getpoint "\nCliquer dans la zone à Hachurer (Entrée pour quitter):")) (command "_.bhatch" "_properties" "solid" "_draw" "_back" pt "")) ; 224,247,255 et 255,255,255 Nom graidant Sphérique Merci par avance.?

Merci beaucoup, j'imaginais bien qu'il s'agissait d'un code binaire mais ne sachant pas faire, merci encore.

La même chose mais avec GELER et LIBERER est-il possible ? (plutôt que inactivé)

Super Merci, c'est au top avec BATTMAN !!!

Voici mes deux blocs, le bloc initial et celui que j'aimerai intégré dans mon dessin qui en contient plusieurs avec des renseignements pour les étiquettes 2 et 3. Bloc-Futur.dwg Bloc-Initial.dwg

Bonjour à tous, Est-il possible par quelques lignes de codes, rajouter des étiquettes à un bloc existant sans refaire les blocs présent ? Pour mon exemple et mon besoin : j'ai un bloc avec 2 étiquettes (Désignation et Surface) et j'aimerai compléter deux autres étiquettes supplémentaires (Etage et Numéro) fin d'obtenir 4 étiquettes dans mes blocs existant (les nouvelles valeurs des nouvelles étiquettes peuvent être vide ou avec un "zero" (0).) En espérant beaucoup de vos réponses et vous en remerciant pas avance