DenisHen

Effectivement, ça fonctionne beaucoup plus mieux comme-ça... Merci encore... Denis...

Merci x_all de me répondre... Je devais aussi être dans les nuages... On n'appelle pas une fonction avec des parenthèses à l'intérieur... Je me suis demandé une seconde pourquoi il n'y avait qu'une parenthèse "fermante" dans (modatt... Mais je n'ai pas cherché plus loin... J'aurais du aussi faire gaffe, mais les gaffes, c'est mon domaine de prédilection... ;-) Je corrigerais demain... Merci encore... Denis...

Salut VDH-Bruno... Merci pour ta réponse... Je testerais demain... Denis...

Bonjour à tous, Voilà, j'ai fais un petit LiSP qui me change la couleur d'un TEXTE (pas d'un MText). Dans les prorpiétés, c'est bien indiqué ROUGE quand je le séléctionne. Mais à l'écran, il reste blanc... Même après un Regen... Ola... Encore pire... Quand je l'édite (en double cliquant dessus), il devient bien rouge pendant l'édition. Mais quand je quitte l'édition, il redevient blanc après un Regen... J'ai joint le fichier, c'est le texte 1.43 qui semble déconné... Alors là, je suis PAUMÉ ! ! Si quelqu'un a une observation, indice, conseil... Denis...

Bon, j'ai changé mon fusil d'épaule et j'ai écris un code plus à mon "niveau", en bref, celui-là, je le "comprend". Enfin, pas tellement puisqu'il ne fait pas ce que je veux... Je m'explique, ce code rempli bien l'attribut "Z-PROF" de mon dernier bloc sélectionné, mais ne rempli pas l'attribut "PROFONDEUR" de ce même bloc... Voici le code : (defun c:DHTamp_Prof_SDDEA (/ SelBlk dxf-1 Ztn TxtProf Prof ZProf hd) (princ "\nVersion 2.32\n") ;;Sélection du texte contenant la profondeur (setq Txt_Prof (car (entsel "\nSélectionnez la profondeur :"))) (wcmatch (cdr (assoc 0 (setq elst (entget Txt_Prof)))) "*") (setq Prof (atof (cdr (assoc 1 elst)))) ;;Sélection du bloc (setq SelBlk (car (entsel "\nSélectionnez le bloc 'regardasst' :"))) (setq hd (cdr (assoc 5 (entget SelBlk)))) ;;récupération de l'attribut "Z-TN" (while (= Ztn nil) (setq SelBlk (entnext SelBlk)) (setq dxf-1 (entget SelBlk)) (if (and (= (cdr (assoc 0 dxf-1)) "ATTRIB") (= (cdr (assoc 2 dxf-1)) "Z-TN")) (setq Ztn (cdr (assoc 1 dxf-1))) ) ;_ Fin de if ) ;_ Fin de while (setq Ztn (atof Ztn)) ;;Calcul du Z-PROF (setq ZProf (- ZTn Prof)) (setq ZProf (rtos ZProf)) (setq Prof (rtos Prof)) ;; ;; ;; (setq att dxf-1) (while (= (cdr (assoc 0 att)) "ATTRIB") ;(princ "\--") (if (= (cdr (assoc 2 att)) "Z-PROF") ;; ---------------------Ici, ca fonctionne##################### (progn (setq att (subst (cons 1 ZProf) (assoc 1 att) att)) (entmod att)) ) ;_ Fin de if (if (= (cdr (assoc 2 att)) "PROFONDEUR") ;; ------------------Mais pas ici########################### (progn (setq att (subst (cons 1 Prof) (assoc 1 att) att)) (entmod att)) ) ;_ Fin de if (setq att (entget (entnext (cdr (assoc -1 att))))) ) ;_ Fin de while ) ;_ Fin de defun Si quelqu'un a un indice ou un conseil... Denis...

En fait, chose étonnante, j'ai positionné des drapeaux et mon code est : (defun c:DHTamp_Prof_SDDEA (/ SelBlk dxf-1 Ztn TxtProf Prof ZProf hd) (princ "\nVersion 2.25 \n") ;;Sélection du texte contenant la profondeur (setq Txt_Prof (car (entsel "\nSélectionnez la profondeur :"))) (wcmatch (cdr (assoc 0 (setq elst (entget Txt_Prof)))) "*") (setq Prof (atof (cdr (assoc 1 elst)))) ;;Sélection du bloc (setq SelBlk (car (entsel "\nSélectionnez le bloc 'regardasst' :"))) (setq hd (cdr (assoc 5 (entget SelBlk)))) ;;récupération de l'attribut "Z-TN" (while (= Ztn nil) (setq SelBlk (entnext SelBlk)) (setq dxf-1 (entget SelBlk)) (if (and (= (cdr (assoc 0 dxf-1)) "ATTRIB") (= (cdr (assoc 2 dxf-1)) "Z-TN")) (setq Ztn (cdr (assoc 1 dxf-1))) ) ;_ Fin de if ) ;_ Fin de while (setq Ztn (atof Ztn)) ;;Calcul du Z-PROF (setq ZProf (- ZTn Prof)) (setq ZProf (rtos ZProf)) (setq Prof (rtos Prof)) ;; (princ "\nDrapeau 01") ;;-----------------------------------Premier drapeau (Modatt (hd "PROFONDEUR" Prof)) (princ "\nDrapeau 02") (Modatt (hd "Z-PROF" ZProf)) (princ "\nDrapeau 03") ;; ) ;_ Fin de defun ;;;Modatt pour numéroter l'attribut nomatt du bloc de handle hd-bloc suivant N (defun Modatt (hd-bloc nomatt val / lstatt ini-paire) (princ "\nDrapeau 01-1") ;;-----------------------------Second drapeau, logiquement (setq lstatt (Att-lst (handent hd-bloc) nomatt)) (princ "\nDrapeau 01-2") (setq ini-paire (assoc 1 lstatt) nouv-paire (cons 1 val) lstatt (subst nouv-paire ini-paire lstatt) ) ;_ Fin de setq (princ "\nDrapeau 01-3") (entmod lstatt) (princ) ) ;_ Fin de defun ;;;Att-lst retourne la liste enget de l'attributs "nomatt" du bloc "entb" dans l'élément ou nil si non trouvé ;;;;;;; NOTA ;;;;;;; 2 nom de l'attribut ;;;;;;; 10 coordonnée du point de l'atrib ;;;;;;; 1 valeur attrib (defun Att-lst (ent nomatt / lst-att dxf-D) (princ "\nDrapeau 02-1") (while (= lst-att nil) (princ "\nDrapeau 02-2") (setq ent (entnext ent)) (princ "\nDrapeau 02-3") (setq dxf-D (entget ent)) (princ "\nDrapeau 02-4") (if (and (= (cdr (assoc 0 dxf-D)) "ATTRIB") (= (cdr (assoc 2 dxf-D)) nomatt)) (setq lst-att dxf-D) ) ;_ Fin de if (princ "\nDrapeau 02-5") ) ;_ Fin de while ;; valeur de retour lst-att ) ;_ Fin de defun Tandis qu'AutoCAD ne passe même pas par le drapeau 01-1.. Curieux, non ?

Effectivement, c'est plus court avec tes deux macros... J'ai donc écris (enfin copier / coller / bidouiller) ceci : (defun c:DHTamp_Prof_SDDEA (/ SelBlk dxf-1 Ztn TxtProf Prof ZProf hd) (princ "\nVersion 2.19\n") ;;Sélection du texte contenant la profondeur (setq Txt_Prof (car (entsel "\nSélectionnez la profondeur :"))) (wcmatch (cdr (assoc 0 (setq elst (entget Txt_Prof)))) "*") (setq Prof (atof (cdr (assoc 1 elst)))) ;;Sélection du bloc (setq SelBlk (car (entsel "\nSélectionnez le bloc 'regardasst' :"))) (setq hd (cdr (assoc 5 (entget SelBlk)))) ;;récupération de l'attribut "Z-TN" (while (= Ztn nil) (setq SelBlk (entnext SelBlk)) (setq dxf-1 (entget SelBlk)) (if (and (= (cdr (assoc 0 dxf-1)) "ATTRIB") (= (cdr (assoc 2 dxf-1)) "Z-TN")) (setq Ztn (cdr (assoc 1 dxf-1))) ) ;_ Fin de if ) ;_ Fin de while (setq Ztn (atof Ztn)) ;;Calcul du Z-PROF (setq ZProf (- ZTn Prof)) (setq ZProf (rtos ZProf)) (setq Prof (rtos Prof)) ;; (Modatt (hd "PROFONDEUR" Prof)) (Modatt (hd "Z-PROF" ZProf)) ;; ) ;_ Fin de defun Ce qu'AutoCAD me répond : Et là, je suis un peu dépassé...

Bonjour à tous, Bon, je sais, je dépoussière un peu... Je dois me faire le même genre de LiSP mais mon problème est que dans mon bloc, il y a plus de vingt attributs (donc, impossible de les rendre tous "visibles") et l'attribut que je souhaite changer est vide. Donc, impossible de le sélectionner... Comment faire pour chercher l'attribut "PROFONDEUR" et lui attribuer la valeur de ma variable "Prof" ET AUSSI l'attribut "Z-PROF" avec la valeur "Zprof" ? Voici ce que j'étais en train de faire : (defun c:DHTamp_Prof_SDDEA (/ SelBlk dxf-1 Ztn TxtProf Prof ZProf) (princ "\nVersion 2.17\n") ;;Sélection du texte contenant la profondeur (setq Txt_Prof (car (entsel "\nSélectionnez la profondeur :"))) (wcmatch (cdr (assoc 0 (setq elst (entget Txt_Prof)))) "*") (setq Prof (atof (cdr (assoc 1 elst)))) ;;Sélection du bloc (setq SelBlk (car (entsel "\nSélectionnez le bloc 'regardasst' :"))) ;;récupération de l'attribut "Z-TN" (while (= Ztn nil) (setq SelBlk (entnext SelBlk)) (setq dxf-1 (entget SelBlk)) (if (and (= (cdr (assoc 0 dxf-1)) "ATTRIB") (= (cdr (assoc 2 dxf-1)) "Z-TN")) (setq Ztn (cdr (assoc 1 dxf-1))) ) ;_ Fin de if ) ;_ Fin de while (setq Ztn (atof Ztn)) ;;Calcul du Z-PROF (setq ZProf (- ZTn Prof)) (princ (strcat "\nZ-PROF=" (rtos ZProf))) ;; ;;-------------------------------------------------------------------C'est là que je me perd... ;;Attribution de la profondeur TxtProf dans l'attribut "PROF" du bloc (foreach dxf-1 (setq dxf-1 (entget SelBlk)) (cond (and (= (cdr (assoc 0 dxf-1)) "ATTRIB") (= (cdr (assoc 2 dxf-1)) "PROFONDEUR")) (Mettre ICI la valeur Prof de l 'étiquette PROFONDEUR) ) ;_ Fin de cond (cond (and (= (cdr (assoc 0 dxf-1)) "ATTRIB") (= (cdr (assoc 2 dxf-1)) "Z-PROF")) (Mettre ICI la valeur ZProf de l 'étiquette Z-PROF) ) ;_ Fin de cond ) ;_ Fin de while ) ;_ Fin de defun Et bravo à FabCad pour ce code... Denis...

Merci encore x_all... Ca fonctionne nikel... Mais maintenant, je bute sur l'attribution des deux valeurs de "PROFONDEUR" qui doit être égale à ma variable Prof dans mon LiSP et à "Z-PROF" qui lui est égale à Z-Prof... Le tout dans le même bloc sélectionné avant : "SelBlk"... Là, je n'arrive à rien... Voici mon bout de Code : (defun c:DHTamp_Prof_SDDEA (/ SelBlk dxf-1 Ztn TxtProf Prof ZProf) (princ "\nVersion 2.17\n") ;;Sélection du texte contenant la profondeur (setq Txt_Prof (car (entsel "\nSélectionnez la profondeur :"))) (wcmatch (cdr (assoc 0 (setq elst (entget Txt_Prof)))) "*") (setq Prof (atof (cdr (assoc 1 elst)))) ;;Sélection du bloc (setq SelBlk (car (entsel "\nSélectionnez le bloc 'regardasst' :"))) ;;récupération de l'attribut "Z-TN" (while (= Ztn nil) (setq SelBlk (entnext SelBlk)) (setq dxf-1 (entget SelBlk)) (if (and (= (cdr (assoc 0 dxf-1)) "ATTRIB") (= (cdr (assoc 2 dxf-1)) "Z-TN")) (setq Ztn (cdr (assoc 1 dxf-1))) ) ;_ Fin de if ) ;_ Fin de while (setq Ztn (atof Ztn)) ;;Calcul du Z-PROF (setq ZProf (- ZTn Prof)) (princ (strcat "\nZ-PROF=" (rtos ZProf))) ;; ;;--------------------------------------------------------------C'est là que je me perd... ;;Attribution de Variables dans deux étiquettes PROFONDEUR et Z-PROF du bloc sélectionné (foreach dxf-1 (setq dxf-1 (entget SelBlk)) (cond (and (= (cdr (assoc 0 dxf-1)) "ATTRIB") (= (cdr (assoc 2 dxf-1)) "PROFONDEUR")) (Mettre ICI la valeur Prof de l 'étiquette PROFONDEUR) ) ;_ Fin de cond (cond (and (= (cdr (assoc 0 dxf-1)) "ATTRIB") (= (cdr (assoc 2 dxf-1)) "Z-PROF")) (Mettre ICI la valeur ZProf de l 'étiquette Z-PROF) ) ;_ Fin de cond ) ;_ Fin de while ) ;_ Fin de defun

En fait, je ne saisi pas bien Ztn... Voici je que j'ai dans ma Console VLiSP : Je ne comprend pas pourquoi mon (setq fonctionne dans la Console et pas dans mon LiSP...

Merci x_all pour ton aide, j'ai donc écris dans mon LiSP ceci : (defun c:DHTamp_Prof_SDDEA (/) ;;Sélection du bloc (setq SelBlk (car (entsel "\nSélectionnez le bloc 'regardasst' :"))) ;;récupération de l'attribut "Z-TN" (while (= Ztn nil) (setq dxf-1 (entnext SelBlk)) (setq dxf-1 (entget dxf-1)) (if (and (= (cdr (assoc 0 dxf-1)) "ATTRIB") (= (cdr (assoc 2 dxf-1)) "Z-TN") ) ;_ Fin de and (setq Ztn (cdr (assoc 1 dxf-1))) ) ;_ Fin de if ) ;_ Fin de while (princ "-------------\n") (princ Ztn) ;; ;; ......... ) ;_ Fin de defun ;; Mais Ztn me donne : Je n'ai pas bien saisi le truc... D'autant que dans ma Console VLiSP, j'ai bien :

Bonjour x_all, et merci de me répondre, La tolérance serait d'environ 50cm... Et non, les blocs ne sont pas dynamiques... Je pense écrire le LiSP comme ça : (defun c:DHTamp_Prof_SDDEA (/) ;;Sélection du bloc (setq SelBlk (car (entsel "\nSélectionnez le bloc 'regardasst' :"))) ;;récupération de l'attribut "Z-TN" (setq Ztn .......................) ;;Sélection du texte contenant la profondeur (setq TxtProf (entsel "\nSélectionner la profondeur")) ;) ;;Récupération de la profondeur (setq TxtProf (car TxtProf)) ;;Calcul du Z-PROF (setq ZProf (- ZTn TxtProf)) ;;Attribution de la profondeur TxtProf dans l'attribut "PROFONDEUR" du bloc (.........) ;;Attribution de l'altitude ZProf dans l'attribut Z-PROF du bloc (.........) ;;Effacement du texte Profondeur (.........) ) Mais je bloque déjà... Denis...

Bonjour à tous, Voilà, je viens de rentrer de vacances et un super dossier m'attend... Je dois calquler le Z-Radier d'un tampon pour le coller dans un bloc, je m'explique : J'ai une série de bloc "regardasst" dans un DWG, j'ai, proche du point d'insertion de ce bloc, la profondeur de ce regard au format Texte. Dans ce bloc, j'ai plusieurs attributs dont "PROFONDEUR", "Z-TN" et "Z-PROF". Le Z-TN est déjà rempli dans le Bloc "regardasst". Mon problème est de remplir l'attribut "PROFONDEUR" et "Z-PROF" automatiquement, en sélectionnant, par exemple, le bloc puis la profondeur qui lui correspont, et remplir l'attribut "PROFONDEUR" faire le calcul "Z-TN" - "PROFONDEUR" et remplir l'attribut "Z-PROF". En gros, je pense que ça devrait ce dérouler comme ça : 1. Sélection du bloc "regardasst" (récupération de "Z-TN"), (je ne sais pas faire) 2. Sélection du texte "profondeur", (je sais faire) 3. Calcul du "Z-PROF", (je sais faire) 4. Renseigner les deux attributs "PROFONDEUR" et "Z-PROF" dans le bloc "regardasst" sélectionné en 1. (je ne sais pas faire) 5. Effacement du texte "profondeur", pour savoir ce qu'il reste à faire... (je sais faire) Mon problème est que j'ai près de mille blocs à traiter... Je ne me vois pas trop le faire à la main ! ! Toutes idées ou conseils seront les bienvenues... Je vais commencer un petit LiSP mais je vais vite être bloqué... D'avance merci... Denis...

Salut Rhyuk, Bon, pour te dire franchement, je n'ai pas AutoCAD sous le coude pour te répondre réellement, mais un fichier de 9Mo, c'est lourd... Si une purge native d'AutoCAD ou même, un "RadicalPurge" élaborée par le grand (gile) ne te rend pas service... Je ne voix pas grand chose à te dire pour ma part, mais as-tu des XRefs, des images, Et autres blocs qui pourrait rendre ton DWG "trop imposant" pour une gestion simplifiée (style de texte, style de ligne, style de cotation, des polices TTF, ...) Denis...

C'est même une base de données "personnalisable" et "universelle" si son créateur a la sympathie de la partager... Je me trompe... Denis...

Salut didier, A pô compris... Denis...

Re, Je réfléchi à un truc... Avez-vous déjà pensé à faire la même chose pour reprojeter d'un système de coordonnées (L1NORD) vers un autre (Lambert93) ? Car là, mettre des requêtes en LiSP... Même si les requètes son déjà en LiSP, je ne vois pas comment faire pour faire les choix de fichiers et les associers... Mais bon, je suis en vacances depuis ce midi... Alors, j'essai de profiter de ma petite famille... Et bonne vacances aux juilletistes... Denis...

C'est bon, j'ai trouvé... Merci encore... Denis...

Salut Vincent, Et merci pour l'astuce... Mais aurais-tu (si c'est pas trop pousser ta bienveillance) la liste des différentes projections, car je n'ai rien trouvé dans l'aide AutoCAD MAP. Car j'ai aussi des clients qui me passent des DWG en CC49 (par exemple) dont le DWG reste en "<aucun(e)>" dans le Système de coordonnées, en bas à droite de la fenêtre d'AutoCAD. Autre petite question, quelle est la différence entre "IGN-I-Grid" et "NTF.Lambert-1-ClrkIGN" ? Merci encore pour ta réponse... Denis...

Bonjour à tous, Voilà, j'ai un petit souci pour attribuer un système de projection sur des fichiers bruts de levé topo. Mes collègues "topo" lèvent généralement en Lambert 1 ou en Lambert 93. Mon problème est que je passe un temps fou à attribuer un système de projection à leurs levés sur les DWG. J'aimerai créé un bouton pour attribuer un système à un DWG sans passer par la fenêtre "SAttribuer un système de coordonnées universelles" (ADESETCRDSYS) qui me fait perdre mon temps. Si quelqu'un a une astuce ou des renseignements là-dessus, je suis preneur... Denis...

Merci du retour FabCad, Ca ne fonctionne pas sur mon DWG initial. J'ai donc créé un dessin et récupéré ses "Données d'Objet". Et ça fonctionne sur les nouveaux... Je suis en Style de texte "Standard" avec une hauteur 0. L'entité qui posait problème est une LWPolyligne... Mais j'ai surtout "téléchargé" ton LiSP pour le "comprendre"... Et c'est pas gagné ;) Merci encore. Denis...

Bonjour à tous, Très intéressant ton LiSP FabCad, mais quand je l'utilise, il ne m'écrit rien. Tous se déroule parfaitement jusqu'au moment ou je sélectionne l'entité pour créer le MText mais il ne m'écrit rien... T'as une idée ? Denis...

Re à tous, Bon, je n'ai trouvé que des aides "Hyper Light", même de la part d'AutoDesk... Mais j'ai réussi à faire mon onglet, le plus simple est : 1. De créer un fichier MNS (fichier texte avec extention .MNS) tel que : // AutoCAD fichier de menu ***MENUGROUP=DenisH ***POP1 [DH.Fonction] [Préfixe Ht=]^C(c:prefixe "Ht="); [Préfixe Pf=]^C(c:prefixe "Pf="); [Préfixe T=]^C(c:prefixe "T="); [Préfixe S=]^C(c:prefixe "S="); ***POP2 [DH.Config] [Accroche d'objet (Extr Cent Pt Mil Inter Perp)]'-accrobj;Extr,Cen,Nod,Mil,Int,Per; [Accroche d'objet (Point uniquement)]'-accrobj;Nod; [Données du dossier]^C^CDHDoss; [Configuration des étiquettes PTRL]^C^CDHConfEtiqPTRL; [Charger AutoDenisH.lsp]^C^C(load "AutoDenisH.lsp"); [Orientation du plan]^C^CDHOrientSCU; [Legende Cerene]^C^C-calque;e;"Titre";;^C^C-inserer "Cerene.dwg";\1;;0; [Config]^C^C-unites;2;2;3;2;0,0;@0,1;O;pdmode;32;pdsize;.1;PLINEGEN;1;-couleur;ducalque;^C^Cfiledia;1;attdia;1;-typeligne;a;ducalque;;ecrangra;_ucs;_w;^C [DuCalque par défaut]^C^CDuCalque; [->Géocartes] [Aérienne]^C^CGeocarte;A; [Routière]^C^CGeocarte;R; [Hybrides]^C^CGeocarte;H; [<-Désactivée]^C^CGeocarte;D; Et ainsi de suite. Sachant que c'est construit comme ça : [Commande AutoCAD]Ligne de commande Exemple : [Dessine une polyligne]^c^c_pline le ^c^c sert à arréter une commande en cours Ce fichier MNS doit contenir un maximum de "commandes AutoCAD". Il est beaucoup plus facile de créer plusieurs commandes qui se ressembles dans ce fichier (comme pour "Géocarte" dans mon exemple) que de les créer directement avec l'interface utilisateur d'AutoCAD. 2. Aller dans l'interface utilisateur d'AutoCAD (commande "_cui"), d'ouvrir le fichier MNS puis, 3. Créer créer un Onglet dans le Ruban, 4. Créer des Groupes de fonctions dans le Ruban, 5. Faire glisser les Groupes de fonctions créées dans l'Onglet créé. Voilà command j'ai créé mon Ruban. J'espère que celà servira à quelqu'un... Denis...

Coucou Didier, J'ai été clair, mon imprimante (HP1050C) accepte mon plan de 6 mètre de long mais pas mon PDF, et Didier, je confirme aussi que tu as raison, les PDF ne l'acceptent pas. Pour livrer des PDF, il faut faire des présentations, même si le client n'en demande pas, raison pour laquelle je considère que mon DWG lié au courriel de livraison fait "foi". Mais je suis sûr que c'est une question qui peut soulever diverses problèmes... Mon client veut un DWG UNIQUEMENT comme support visuel d'un SIG. Je ne vois pas vraiment pourquoi il faudrait faires des présentations (cartouches, légendes, carroyages,...) Alors que le client s'en fou... Mais c'est peut-être une question de point de vue, voir même d'expérience, que tu as probablement supérieur à la mienne, car je n'ai jamais eu ce genre de problème... Celà dit, je reste d'accord si on "doit" livrer des plans papiers... Enfin, c'était juste pour dire que je suis entièrement d'accord avec toi Didier, mais dans ce cas, nos deux visions se "défendent"... Tout comme la livraison de CD-ROM il y a quelques années... Amicalement aussi, Denis...

+1 avec didier... La parano de Big Brother et la CIA est bien loin d'un bon vieux cryptage 128... Qui dépasse de loin les capacités d'un éventuel "concurent" ou "voleur de données". Ce qui me fait aussi doucement rire... Tu bosses au FBI ou à InterPol ? Amicalement aussi, Denis...