DenisHen

Il me semble que toutes les fenêtres devraient afficher la même chose : le chemin du fichier actif. Que ce passe-t-il si tu changes de fenêtre ?

Bonjour à tous... Je t'ai fais ce petit bout de Lisp, je ne sais pas s'il fonctionne correctement, je n'ai pas AutoCAD sous la main, mais il devrait écrire la totalité du chemin dans la barre du bas d'AutoCAD à gauche...: (defun c:VisuArbo() (getvar "dwgprefix") (setvar "modemacro" valeur) (princ) )La commande est "VisuArbo". En espérant avoir compris le problème... Denis... EDIT : Au temps pour moi, je viens de lire la deuxième ligne de titre du post...

Salut, J'ai remarqué dans ton code un style de texte "LIEUX-DITS" (au pluriel) et un type de ligne "LIEUX-DIT" (au singulier)... Mais l'erreur ne vient pas de là... Et je te conseille aussi l'"Introduction à AutoLISP" de (gile)...

Merci didier, on a déjà un Covadis V13 avec un AutoCAD 2014... J'ai lourdement insister pour avoir un AutoCAD 3D MAP avec un Covadis 14... J'avais des doutes avec ce que m'avait dit mon ex-collègue avec son Civil... Tu me rassure, ouf... Merci à toi didier

BIM : Bordel In Measure... BIM : Bouh, I'm Minister... BIM : Ben, Il Mesure... BIM : Ben on n'a pas fini... Je sait, rien à voir, mais plus proche de la réalité... BIM : plus directment, BIM ! ! Dans ta gu...le ! ! ! Mais bien sur qu'on blague...Depuis ce lien!!!

Je pense que ta réponse didier est juste... Je doute qu'il y ait une différence entre les versions full et LT dans ce domaine... Menu, Obtions, Traceur, cliquer sur "seulement les imprimantes PC3" ou un truc dans le genre... Je travaille de tête à cette heure...

Mille mercis didier, un ex-collègue m'avait mit la puce à l'oreille en me disant qu'il vallait mieux avoir un Civil qu'un Map... J'ai toujours douté sans savoir réellement de quoi il en retourne... Merci pour tes lumières... Je vais donc rester sur Map... Aimablement...

Le BIM me fait, pour l'instant, sourire, car je vois qu'au boulo, on n'arrive même pas à s'accorder sur le nom des calques, des blocs, des nomenclatures... Et je parle juste d'AutoCAD... Quid du mec qui va voire un projet en 3D, super joli, et qui va se demander "Mais quel est ce petit bout de fils qui fait tout les étages" qui est nommé BT ou FIB (Fibre) ? Sans compter qu'il va falloir le faire soit en anglais, soit en multi-langue... Car pour de gros projet, il y a des interlocuteurs de plusieurs pays... C'est là qu'on va s'amuser, j'ai déjà été "obligé" de parler espagnol "Pfff ! ! !" avec un suédois qui bossait pour une boite anglaise sur le territoire français... "On a fini par l'anglais... Biensur...) Le tous, à la solde des allemands... C'est un projet alsacien... Mais c'est tout de même très risible... "Imposer une charte que 10 ou 20% comprend, c'est déjà un début de sketche... C'est vrai, je pense que l'on s'emballe... Il n'y a aucune charte graphique ! ! ! Et on impose un format de fichier ! ! ! C'est comme si je menais une enquête sur un meurtre et que je n'interrogeais que mes collègues policiers ! ! ! On se mord la queue... Mais c'est juste mon point de vue... Pour l'instant... Denis...

Merci Ôh Décapod, mais Civil n'est pas au même prix que Map ?

Ce n'est pas AutoCAD Civil qui regroupe déjà plusieurs AutoCAD ? Car j'hésite à faire acheter un Civil au lieu d'un Map à ma direction...

Effectivement, comme j'ai un peu de temps devant moi, j'adapte mes lisps pour les rendre utilisables à un plus grand nombre... Je suis tellement reconnaissant envers CadXP pour la somme astronomique d'aides que j'y ai trouvé que c'est un minimum de partager mes lisps...

Ajout de "Renseignements de tampons". Toujours pour faire suite à des commandes pour des plans d’assainissement...

Bonjour messieurs. Je n'ai jamais dis que je ne cherchais jamais dans l'aide. Au contraire, j'y vais souvent, notamment pour la syntaxe des commandes, mais j'ai du mal à traduire les termes trop "techniques", même avec Google Translate qui me fait du "petit-nègre"... En l'occurrence, je ne savais même pas quoi chercher ni par ou commencer mes recherches... Et la réponse de didier a été tellement précise et claire que je n'ai pas eu à chercher dans l'aide. Et merci à tous pour l'intérêt que vous portez aux débutants et pour l'aide prodiguée...

Salut, et Mille mercis Patrick_35...

Salut didier, et merci pour ton aide. Effectivement, l'aide ne m'aide guère car elle est en anglais... Pas facile pour moi... Je ne connaissais pas du tout"nentsel"... Je ne savais pas tellement où chercher dans l'aide... Ça fonctionne nickel. Mais comment mettre un petit message avant la sélection, exemple : "Sélectionner le premier attribut :" ? Denis... EDIT : Comme ça : (defun c:JointDeuxAttribut () (setq ValAtt1 (car (nentsel "\nSélectionner le premier attribut :"))) (setq ValAtt1 (cdr (assoc 1 (entget ValAtt1)))) (princ) ) ;_ Fin de defun

Bonjour à tous. Voilà, je dois "associer" deux blocs... Les deux blocs comprennent plusieurs attributs. J'aimerais qu'en cliquant sur un attribut du premier bloc, en sortir la valeur pour pouvoir l'insérer dans un attribut du deuxième bloc avec un petit calcul. Pour l'insertion dans le deuxième bloc et son calcul, je pense pouvoir me débrouiller. Mais pour récupérer la valeur de l'attribut sélectionner du premier bloc, là, j'aimerais bien un petit coup de mains... Donc, si quelqu'un a une astuce ou une idée, je suis preneur...

Salut (gile). J'ai un petit souci avec IATT. J'ai une erreur fatale, voici mes fichiers avec lesquels j'ai ce problème : projet_fibre.zip. Si quelqu'un pouvait jeter un oeil, ce serait sympa...

Ajout de "Joint_Text_Cote". Suite la demande d'un client, j'en aurais énormément besoin, je pense ne pas être le seul...

De rien, c'est un plaisir de rendre service, surtout à ceux qui l'ont fait pour nous... Ajout de DHOrientSCU

Bonjour à tous. Voilà, certains hauts protagonistes de ce forum m'ont mis en tête la création d'un post uniquement dédié à mes Lisps. Alors en voici quelques uns, c'est peu, mais j'en écris d'autres en ce moment...: Dessin de flèches : 3 tailles et un "panneau de configuration". Le zip contient 4 icônes. Les tailles à donner sont en "millimètre papier". Les commandes sont : - ConfigFleches : fenêtre de configuration des flèches, - DHPetiteFleche : dessine une petite flèche selon l'échelle, - DHMoyenneFleche : dessine une flèche moyenne selon l'échelle, - DHGrandeFleche : dessine une grande flèche selon l'échelle, DH_Fleches.zip Sauvegarde incrémentielle : cette routine incrémente une sauvegarde autre que celle d'AutoCAD. Il suffit de placer "(CtrlSvGrd)" avant la dernière parenthèse fermante de vos lisps. Elle sauvegarde le dwg tout les 10 appels. Mais on peut changer cette valeur. SauvegardeIncrémentielle.zip Somme de polylignes par calques : calcul la somme des polylignes contenues dans un ou plusieurs calques. Les commandes sont : - SomPoly : calcul sur le calque courant (lisp de (gile)), - DHSomPoly : même calcul mais sur plusieurs calques (issu du lisp de (gile)). SomPoly.zip Orientation du plan : oriente le plan par rotation sans changer le système de coordonnées. Attention, cette commande passe en grades, l'axe des X est à l'EST... Comme pour un géomètre. La commande est : DHOrientSCU (mise à jour : 23 août 2016) DHOrientSCU.zip Joint_Text_Cote : joint une cote à un texte avec le symbole "=". Exemple, dans un plan avec une altitude (102.59) et un texte (Seuil), la routine donnera Seuil=102.59. La commande est : Joint_Text_Cote Joint_Text_Cote.zip Renseignements de tampons : écrit une étiquette avec X, Y, Z et 3 radiers avec une flèche de positionnement. Tout est configurable. Le zip contient deux icônes. Les commandes sont : - DHConfEtiqTampon : pour configurer les étiquettes, - DHRens_Tamp : pour placer les étiquettes, le Z est demandé si le point cliqué n'en a pas. Rens_Tamp.zip Configuration de calques : cette routine lit un fichier .lst avec les noms de calques. Le fichier .lst est construit ainsi : AncienCalque;NouveauCalque;Commentaires (le séparateur est un ";" point-virgule.) ATTENTION, à la fin du traitement, le calque "CALQUE_A-FAC" sera effacé avec son contenu, c'est une petite astuce qui permet d'effacer les calques inutiles... La commande est "ConfigCalques". J'ai joins un fichier "Cadastre.lst" dans le zip pour exemple ainsi qu'un icône... Le fichier lst est juste un fichier "texte" avec l’extension lst. ConfigCalques.zip Remplacement de blocs : cette routine lit un fichier .lst avec des noms de blocs (anciens et nouveaux). Le fichier .lst est construit ainsi : AncienBloc;NouveauBloc (le séparateur est un ";" point-virgule.) ATTENTION, les caractères génériques sont acceptés, comme : "Ancien*;Nouveau" signifie que tous les bloc ayant pour début de nom "Ancien" seront remplacés par le bloc "Nouveau". Comme Ancien, Ancien_Old ou Ancien-15x22. ATTENTION, ces bloc n'ont pas d'attribut... La commande est "RemplBloc". Le fichier lst est juste un fichier "texte" avec l’extension lst. RemplBloc.zip Cotation XYZ : cette routine écrit les coordonnées XY (et Z s'il existe) au bout d'une flèche de rappel. La commande est "DHXYZSimple". Elle oriente les textes selon la variable SNAPANG qui correspond à la rotation du réticule pour que les coordonnées soient toujours horizontales selon l'écran. Pour ça, j'ai créé la routine "Orientation du plan" qui simplifie nettement les orientations des plans tout en restant dans le système de coordonnées courant. Ce lisp utilise le style de texte "Coordonnées" et il ne doit pas y avoir de hauteur par défaut. S'il n'existe pas, il sera créé. Le ZIP contient une icône. PS : j'ai ajouté l'option avec cadre (2 type : complet ou stylisé) ou sans grâce (merci à Maître (gile)). (mis à jour : 30 semptambre 2016) DH_Fleches.zip Texte déporté avec flèche de rappel : cette routine écrit un texte multiligne de plusieurs lignes au bout d'une flèche de rappel. La commande est "FlechText". l'orientation du texte se fait selon la variable SNAPANG qui correspond à la rotation du réticule pour que le texte soit toujours horizontal selon l'écran. Pour ça, j'ai créé la routine "Orientation du plan" qui simplifie nettement les orientations des plans tout en restant dans le système de coordonnées courant. Il y a plusieurs formes de cadre et une option pour tracer une trame sous le texte dans le même calque ou dans un nouveau. Il y a un maximum de 5 lignes par texte, mais on peux en ajouter une infinité... Un grand merci à Maître (gile) pour la boite de dialogue "InputBox". (mis à jour : 6 octobre 2016) Flech&Text.zip Flèche + XYZ + Textes : cette routine conjugue "Cotation XYZ" et "Texte déporté avec flèche de rappel". Avec en options : avec ou sans XYZ, avec ou sans texte (avant et/ou après les XYZ), option de sauvegarde/récupération des paramètres. Un petit mode d'emploi en PDF est dans le ZIP. Un grand merci à (gile) pour ses commandes "InputBox" et "str2lst"... (mise à jour : 13 octobre 2016) Flech&XYZ&Text.zip Changement d'échelle du dessin + étiquette "papier" : cette routine permet de placer dans le DWG une échelle, elle est utilisée dans plusieurs de mes routines. La commande est : "DHChangEchelle". Cette routine permet aussi d'ajouter une petite étiquette "kutchable" dans l'espace papier. Elle est gérée par la commande "DHInsEchelle" et insert le bon blocs de l'échelle utilisée. Ils sont dans le ZIP, à décompresser dans un répertoire connu d'AutoCAD. Deux icônes sont inclus dans le ZIP. (mise à jour : 27 septembre 2016) DHChangeEchelle.zip Changement de projection d'un DWG : cette routine, comme son nom l'indique, permet de changer la projection d'un DWG. Il faut pour celà, ouvrir un nouveau fichier et lancer "DHReProjection" ATTENTION : ça ne devrait fonctionner que sur MAP et, peut-être sur CIVIL, les autre AutoCAD, jene sais pas, ce serait sympa un petit retour là-dessus. Le nom du fichier source est "analysé" pour vérifier sa bonne projection... Un grand merci à (gile) pour sa commande "ListBox"... (mise à jour : 12 octobre 2016) DHReProjection.zip Propriétés du dessin : cette routine permet de créer des variables dans la personnalisation des données du dessin, on peut donc les utiliser dans des champs (catégorie "Document") pour qu'elles soient directement à jour dans les blocs les utilisant. La commande est "DHDossier". Le ZIP contient le LISP et un cartouche exemple. Ainsi, si on a 50 fois ce cartouche dans 50 présentations, toutes ces variables seront mise à jour en une seule fois... Et autre gros avantages, une fois qu'elles sont créées, on peut utiliser ces variables sans LISP, en tapant "_DWGPROPS" ATTENTION : une variable vide donnera "----" ou "####". Pour palier à ce problème, placer un espace dans la variable. Un grand merci à Patrick_35... DHDossier.zip Recherche de variables : C'est écrit en VBA dans un document WORD, mais comme cela concerne les LISP, je poste ici... C'est un document qui recherche les variables dans un LISP. Il suffit de copier/coller son code dans la page WORD et de faire [Alt]+[F8] et de lancer la commande "ChercheVariables". Testez-le sur un petit LISP, car plus le code est long, plus la recherche est longue... Voici le lien pour le télécharger, il faut dézipper les deux fichiers dans le même répertoire. Un petit problème est survenu lors de l'attachement de la pièce jointe sur CadXP. Peut-être un problème lié au site ? ? Je reviendrais régulièrement pour le mettre à jour... J'espère que ces quelques lisp serviront... J'en posterais d'autres lorsqu'ils seront terminés. Et merci à CadXP et à ces membres sans qui, jamais je n'aurais "lispé"... Denis...

Salut, Merci (gile), je n'avais pas regardé le problème dans le même sens que vous...

Mais quelqu'un peut me dire ce qu'est une polyligne vide ? Une polyligne fermée sans rien dedans ? Une Donnée d'Objet qui s'efface ? Car là, je ne comprend rien... J'ai l'impression que tout le monde tente d'aider mais... Sont-ce bien le bonnes réponses ? (Wouaouw... "Sont-ce"... Je crois que je ne l'ai jamais lu... ;) )

Salut, Perso, j'utilise "ExcelAttribute" de (gile) pour faire mes aller/retour entre mes blocs AutoCAD et mon fichier Excel. (gile) utilise bien le "handle" du bloc pour l'identifier lors de ces échanges... Il pourra certainement t'en dire plus...

Bon, ben je créerais le poste "Lisps de DenisH" courant de semaine prochaine (je suis en maxi week-end). J'y posterais mes différents lisp susceptibles d’intéresser le plus grand nombre... Merci à vous tous, car sans vous, les membres de CadXP, jamais je n'aurais "lispé" et avoir mon propre poste... J'espère servir au mieux CadXP... Pour le plus grand plaisir de tous... Denis...

On verra bien ce qu'en pense le modo Tramber... Why not...