willy95

Merci DenisHen pour ce code qui correspond exactement à mon souhait. C'est Génial ! :D Merci et encore merci car j'avoue en avoir marre de cocher et décocher les petites ampoules.. PS: Perso j'utilise aucun Ruban (peut-être à tort) , je suis devenu Fan des petits icones dès que Autodesk les a incrémentés dans Autocad, et maintenant j'ai que des icones perso partout...

Merci Didier pour cette super information, j'adore cette commande. :D PS: Autodesk est au courant qu'elle existe ? :P

Bonjour à tous, Quelqu'un aurait-il dans un de ces vieux tiroirs un petit code en lisp pour... Geler et inactiver tous les calques du dessin, puis à chaque lancement du code : Libère et Active un seul calque (le 1er de la liste). Et quand je relance le code : il gèle et inactive le précèdent et libère et inactive le suivant (le 2ème de la liste), et ainsi de suite juste qu'a mon dernier calque. :D Cela me permettrai de ne pas le faire "à la main" pour vérifier qu'aucun objet ne se trouve pas dans le bon calque. Comme illustrée brièvement ci-dessous, en espérant que vous m'avez compris malgré mon explication par très conventionnelle. Merci par avance

Bonjour, J'aimerai rajouté à ma barre la valeur d'echelle d'insertion comme ci-dessous, MAIS pas avec la valeur numérique mais le texte qui la définie (par exemple : Sans unité ) Comment dois-faire ? j'ai bien tester avec un "strcat" mais cela ne marche pas. :angry: (setvar "MODEMACRO" "Echelle d'Insertion : $(upper,$(getvar,insunits))"))) Merci par avance pour vos réponses.

Merci pour vos réponse, mais un peu difficile à mettre en place pour moi, en revanche j'ai trouver l'insertion dans la Barre inférieur d'Autocad à placer en permanence la valeur du "Osnapz" visisible à chaque instant dans mon code de choix. :D (Bien sur le top serait de pouvoir changer la couleur de ce texte en fonction, mais bon, je ne veux plus être plus Royaliste que le Roi. (if (= (getvar 'OSNAPZ )0) (setvar "MODEMACRO" "OSNAPZ=0 (sur le Nuage) = $(getvar, osnapz)") (setvar "MODEMACRO" "OSNAPZ=1 (sur le Plan) = $(getvar, osnapz)"))

C'est vraiment pas possible de faire une simple barre de contrôle avec 2 choix ? :wacko:

Bonjour et Je vous souhaite à tous et à toutes une Bonne Année 2018, qu'elle s'accomplit avec succès et prospérité pour vos projets personnels et professionnels. :D Par ailleurs, ne serait-il pas possible de faire une barre comme les "controles" de calque, de couleur ou de type de ligne ? Avec deux choix possible comme quand on voit le calque courant dans la barre de contrôle des calques en plus simplifié ? (Cela me permettrai de voir à chaque instant si mon "Osnapz" est en 0 ou en 1) Un peu comme cela (sans les activations et les couleurs) :

Bonjour, Suite aux bon conseils de "Giles" j'ai installé "ObjetDCL" et créer un fichier *.ODC, mais je n'arrive pas à lancer cette boite de dialogue dans mon lisp, après plusieurs tentative non fructueuse je bloque encore.... Quelqu'un peut-il me présenté les quelques lignes de code en lisp pour charger cette boite ODC ? Merci par avance

Oulala... Merci "Gile" pour cette explication clair et instructive. Je pose mon petit code exemple type ci-dessous, peut-être que certaines personnes bien calées sur le sujet vont prendre ça comme un défi (je l'espère grandement) et trouver une solution en "modeless" pour laisser la Boite active pendant que l'on dessine; car j'avoue que "OpenDcl" est graphiquement très parlant mais l'utilisation est encore pour moi difficile, je vais l'étudier avec attention. Merci pour vos éventuelles solutions.. (defun C:o (/ ) (setq tmposnapz (vl-filename-mktemp "Osnapz01.dcl") file (open tmposnapz "w")) (write-line "Osnapz01 : dialog { key = \"Titre\"; label = \"OSNAPZ\"; spacer; : row { : radio_button { label = \"OSNAPZ 0\"; key = \"OSN0\"; height = 1; edit_width = 26; fixed_width = true; alignment = left;} : radio_button { label = \"OSNAPZ 1\"; key = \"OSN1\"; 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 tmposnapz)) (new_dialog "Osnapz01" Dcl_Id) (action_tile "OSN0" (vl-prin1-to-string '(if (= $value "1") (setvar "osnapz" 0) (setvar "osnapz" 1) ))) (action_tile "OSN1" (vl-prin1-to-string '(if (= $value "1") (setvar "osnapz" 1) (setvar "osnapz" 0) ))) (start_dialog) (unload_dialog Dcl_Id) (vl-file-delete tmposnapz) )

Salut, J'ai perso lu et relu le site précédemment invoqué par "DenisHen" et il existe celui-ci aussi : ici

Bonjour, Est-il possible d'ouvrir une boite de dialogue avec 2 choix possible avec radio_button et de valider avec "ok" et que cette boite reste ouverte pendant que l'on dessine, puis choisir l'autre choix et validé avec "ok" et continuer à dessiner avec cette nouvelle variable choisi ? En clair comment faire une boite de dialogue qui peut être ouverte et dessiner en même temps sans la refermer ? Merci pour vos réponse constructives.

Le Code de "Gile" ci-dessous correspond presque, mais je souhaite verrouiller dès que le calque est actif. (defun exclusive (l1 l2) (if l1 (if (member (car l1) l2) (exclusive (cdr l1) l2) (cons (car l1) (exclusive (cdr l1) l2)) ) ) ) (setq lst1 (entget (tblobjname "LAYER" "Calque"))) (entmod (subst (cons 70 (Boole 6 4 (cdr (assoc 70 lst1)))) (assoc 70 lst1) lst1 ) ) (setq lst2 (entget (tblobjname "LAYER" "Calque"))) (exclusive lst1 lst2)

Bonjour à tous, Comment puis-je rajouter le Verrouillage du calque quand il est actif seulement ? Merci pour vos réponse

Pardonnez moi , c'est dans mes conditions précédentes que j'ai "merdé". Il faut vraiment que je trouve une formation à ce langage pour ne plus avoir de problème dans la base de l'écriture. Merci Gile pour ta confirmation. (tu peux même effacer ce post inutile)

En fait je récupère les valeurs lors d'un choix dans une boite de dialogue avec : (action_tile "Question 1" (vl-prin1-to-string '(if (= $value "1") (Setq Q1 "Je suis") ))) (action_tile "Question 2" (vl-prin1-to-string '(if (= $value "1") (Setq Q2 " Ici") )))

Bonjour, Je crois que je deviens de plus en plus bête car je n'arrive même plus à faire des choses qui doivent être très simple pour la plupart d'entre vous, il va falloir que je prenne des cours pour apprendre les bases de ce langage que j'adore tellement. Je souhaite juste associer du texte de deux variables ensemble dans une même variable et ça ne marche par comme ceci : (setq Q1 "Je suis") (setq Q2 "ici") (setq R (strcat Q1 Q2)) R = Je suis ici ????!!$$#### qui peux m'aider car la je craque, pensant que c'était simple a faire. Merci à vous Ps : Qui sait ou je peux faire une formation sur le lisp ?

En fait après quelques réflexions dans me petite tête, j'ai trouvé mon erreur: (action_tile "RefCad" (vl-prin1-to-string '(if (= $value "1") (Setq RefCadOk "1") (Setq RefCadOk nil) )))

Cher Didier, Un Grand BRAVO et je te présente tous mes respects les plus sincères pour cette grandiose initiative pour ce site qui va me servir de livre de chevet dorénavant. Ton préambule est splendide et je savoure lire quelqu'un qui donne de l'espoir à l'intelligence utile et participative sur cette terre. Merci pour avoir pensé à des personnes comme moi qui sont plutôt inexpérimentées dans ce domaine mais qui souhaitent comprendre et faire des petites routines pour avancer plus facilement. Je vais maintenant lire et relire page par page toutes tes explications sur les différentes fonctions avec un grand plaisir afin de comprendre davantage ce langage et par la même occasion, je l'espère, poser moins de question simplissime ou la réponse dorénavant se trouve sous nos yeux brillants. Merci et encore Mille Merci.

Bonjour à Tous, Pourquoi quand je mets un "Toggle" dans une boite de dialogue et que je le coche puis que je change d'avis et que je le décoche : il prend quand même la valeur cocher ? Merci par avance pour vos réponses constructives.

C'est génial, ce code réponds exactement à mon souhait et fonctionne parfaitement. Un GRAND MERCI à toi "VDH-Bruno" pour cette réponse parfaite et super rapide. PS : Je comprends l'idée mais l'écriture et la recherche dans la liste est encore trop complexe pour moi :)

Bonjour, Pour me simplifier la vie j'aimerai pouvoir activer ou inactiver un calque avec un nom bien précis avec une simple lettre (un peu comme un raccourci clavier), j'ai écris ces quelques lignes pour me dépanner mais j'aimerai avoir juste à taper "K" pour activer et "K" pour désactivé. Quelqu'un peut-il m'aider sur ce sujet ? (Defun C:KK (/) (Command "_-Layer" "IN" "moncalque" "")) (Defun C:K (/) (Command "_-Layer" "AC" "moncalque" "")) Merci par avance

Effectivement je suis complétement d'accord avec toi Didier sur ta méthodologie ainsi que sur ta déontologie professionnelle, j'ai bien connu le Rotring et les Altitudes sélectionnées pour leurs représentations, c'est pourquoi un traitement de chacun des points topo permet une relecture et une analyse des altitudes apposées sur le plan. En revanche n'ayant aucun programme de ce genre il me faut bien une solution pour certains cas, car je vois ou croise trop souvent des blocs de points explosés pour n'afficher que l'altitude, je préfère garder mon point topo (gelé) et ajouter un simple texte d'altitude. Je reste bien sur ouvert d'esprit et à l'écoute de bons conseils comme les tiens, c'est pourquoi je t'invite avec envie à nous présenter ton "zza" qui m'a l'air de correspondre exactement à nos besoins. Merci encore pour ta bienveillance et ta mansuétude.

Doublement Satisfait... Merci Didier, après plusieurs longues minutes à comprendre correctement tes dernières lignes, tout fonctionne cette fois à Merveille. Et je te rassure encore une fois, je ne fais pas partie des gens qui ne pense pas aux autres, j'aime le travail bien fait et pratique pour les autres derrière moi. Encore MERCI pour ta compréhension et tes réponses instructives.

En fait je me suis fait une fausse joie (une variable devait surement être encore valide) Je suis obligé de cliqué 2 fois sur le bloc ? Je ne peux pas réunir tous cela pour cliquer une seule fois ? (setq blocent (car (entsel"\nChoisir le Bloc :"))) (setq Txt_Alti (cdr (assoc 1 (entget (entnext (entnext (car (entsel "\Cliquer sur l'altitude à appliquer\n")))))))) (setq pins (cdr(assoc 10 (entget blocent)))) (command "_point" pins) (command "_.text" "_s" "Altimetrie" p17 Ang3 (rtos (atof Txt_Alti) 2 2)) Merci par avance (en espérant être clair sur ma question)

Bonjour à vous tous, Effectivement Didier, comme tu l'as deviné, je suis bien Géomètre, je te remercie pour ta réponse qui fonctionne à merveille, une fois le code sous les yeux tout parait évident mais avant j'étais dans un brouillard épais. (Oops encore une métaphore dans une langue inconnue : désolé ) :P Par ailleurs je ne tiens vraiment pas à pourrir la vie des gens qui récupère mes fichiers mais pour certains cas j'ai juste besoin d'un texte au lieu d'un bloc point (demandés par certains). Et pour te rassurer et de ne pas faire de moi un homme non respectable sur ce forum et ailleurs, je fourni toujours les points dans des calques gelés, je veille toujours à la qualité de mon travail, et au bien être de ceux qui vont utiliser mes fichiers propre et purgé comme il faut. En te remerciant encore une fois pour ton écoute et ta solution. Au plaisir