PHILPHIL

hello si tes partenaire ne sont pas foutue de dessiner les cotes dans un calque cotes que tu effaces en deux secondes, les textes dans un calque texte j'ai plus de 500calques, bordelique pour certains, et c'est ranger pour d'autres change de partenaires s'ils ne sont pas foutu non plus de faire des accrochage extremitée extremitée qui permettent de faire des polyligne en 1 secondes et de devoir refaire tous les raccords comme j'en trouve par millier aussi ..... il y a ceux qui ont une logique de boulot pour dessiner et on doit etre plusque nombreux ici, ceux qui apprennent a en avoir une pour faire partie de la premiere catégorie, et je l'espere un tres tres tres tres faible pourcentage ceux qui ne voudront jamais en avoir. apres oui on grogne et on s'adapte, on fait avec donc au final oui on prend tous les fichiers je n'ai jamais trouvé deux personnes ayant la meme methode de travail sur autocad de toute facon bonne journée phil

hello la methode N°1 et depuis 3 ans environ en mutipliant les styles et les couches suivant l'echelle, et surtout dans l'espace objet Les lisps permetent facilement de crées une cote de style et de calques differents et aussi grace a patrick de les gerer dans les preésentations pas la méthode N°3 car ca demande des ressources ordi, et nous avons tous autre chose a faire que d'attendre que l'ordi bosse pour faire apparaitre du texte ou des cotes la methode N°2 coté dans l'espace papier : une aberation, nous sommes la pour transmettre rapidement des informations a nos collegues ou partenaire, pas la pour qu'ils retravail nos propre fichier informatiques, et les cotes sur papier ne sont pas visible en XREF on doit bosser pour nous, tout en pensant que l'on bosse pour les autres, tout le monde gagne du tps je dis ca car quand je recois des plans une seule couleurs, 3 calques, tout décomposé, mal ficeler = haaaa GGGRRrrr :angry: mais ce n'est pas le sujet donc oui commencont par les cotes :D bonne journée a tous phil cotation.lsp

hello juste un petit truc ne pas metre d'accent dans les noms de calque, pour le transport vers d'autre logiciel c'est mieux. a+ phil

hello quand il y en a beaucoup bloc a echelle autre que 1,1,1 , et peut etre proche, ca peut poser probleme. suivant les configurations d'ordi, ou de grosseurs de fichiers, autocad ne tourne peut etre pas a la meme vitesse, et a du mal a faire les calculs, phil

hello greg regarde ici tu as un LISp qui permet de choisir dans quelle presentation tu veux faire les copies contrairement a l'autre LISP par contre il ouvre la/les presentation(s) et fait la copie c'est un peu plus long mais ca marche http://cadxp.com/index.php?/topic/25046-copie-dentites-dune-presentations-a-dautres-presentations-a-la-volee/page__p__136217__hl__dupobjpres__fromsearch__1#entry136217 a+ phil

hello il y avait pas un lisp qui circulait sur CADxp justement pour transformer les etiquettes en texte c'est sur si le/la dessinateur a decomposé tous les blocs et concideré les etiquettes d'attributs comme du texte tu ne les verra pas en version Xref, d'ailleurs si tu viens le mettre en tant que bloc tu vois les informations ? a+ phil

hello est ce que ton fichier provient de "AUTOCAD" ou de "AUTOCAD ARCHITECTURE" car avec le parametrage de la configuration d'affichage de autocad architecture que tu n'as peut etre pas sous autocad ca vienne de la, ou alors le parametre d'annotativité, clic sur l'icone en bas pour voir s'il y a une difference ? a+ phil

HELLO VOICI ca sous entend que tes textes ou Mtextes ont leurs points d'insertion au milieu centre ce qui devrait etre le cas ;;; DEPLACE TEXTE MTEXT D'UN POINT A L'AUTRE POINT DE BASE ENTRE DEUX POINTS (defun c:dt2 (/ poi poi21 poi22 obj) (setq osm (getvar "osmode")) (prompt (strcat "\nCLIQUER SUR LES TEXTES A DEPLACER D'UN POINT A L'AUTRE : " ) ) (setq obj nil) (while (null obj) (setq obj (ssget '((0 . "MTEXT,TEXT"))))) (if (= (cdr (assoc 0 (entget (ssname obj 0)))) "TEXT") (setq poi (trans (cdr (assoc 11 (entget (ssname obj 0)))) 0 1)) ) (if (= (cdr (assoc 0 (entget (ssname obj 0)))) "MTEXT") (setq poi (trans (cdr (assoc 10 (entget (ssname obj 0)))) 0 1)) ) (while (null poi21) (setq poi21 (getpoint "\nPOINT D'ARRIVEE DE REFERENCE 1")) ) (while (null poi22) (setq poi22 (getpoint "\nPOINT D'ARRIVEE DE REFERENCE 2")) ) (setvar "osmode" 0) (command "DEPLACER" obj "" poi "m2p" poi21 poi22) (setvar "osmode" osm) (princ) ) bonne journée a+ phil

hello gile pas de souci avec prudence bonne soirée phil

hello si tu en as pas bcp a deplacer ce petit lisp il faut que ton texte est son point d'insertion au milieu centre ( MC ) ;;; DEPLACE D'UN POINT A L'AUTRE POINT DE BASE ENTRE DEUX POINTS (defun c:di2 (/ poi poi2 osm obj) (setq osm (getvar "osmode")) (setq pic (getvar "pickstyle")) (setvar "osmode" 0) (prompt (strcat "\nCLIQUER SUR LES OBJETS A DEPLACER D'UN POINT A L'AUTRE : " ) ) (setq obj nil) (while (null obj) (setq obj (ssget))) (setvar "osmode" 64) (setvar "PICKSTYLE" 0) (setq poi11 nil) (while (null poi11) (setq poi11 (getpoint "\nPOINT DE BASE DE REFERENCE 1")) ) (setvar "osmode" osm) (setq poi21 nil) (while (null poi21) (setq poi21 (getpoint "\nPOINT D'ARRIVEE DE REFERENCE 1")) ) (setq poi22 nil) (while (null poi22) (setq poi22 (getpoint "\nPOINT D'ARRIVEE DE REFERENCE 2")) ) (setvar "osmode" 0) (command "DEPLACER" obj "" poi11 "m2p" poi21 poi22) (setvar "pickstyle" pic) (setvar "osmode" osm) (princ) ) par contre si c'est par centaines faudrait que ca prennent directement le point d'insertion du texte et les deux angles oposés du rectangle moins de clic a faire a+ phil

hello Gile oupsss ca provoque des "erreurs fatales" on dirait le scintillement peut etre qui est en cause, pas compatible avec la carte graphique a+ phil

hello Gile bonne année je viens de tester ton *.dll bien pratique :) merci voir les couches et etre sur de ne pas s'y accrocher, oui c'est le but petite remarque si je peux me permettre il ne prend pas les extremités, ni les milieux, mais il prend les intersections par contre apres a nous peut etre de faire gaffe aussi et de les eviter a+ bonne journé phil

hello une tite mise a jour CT : copie le texte sur UNE entite CTP: copie le texte sur plusieurs entites CTE: copie le texte sur UNE entite et efface la premiere A+ bonne journée et bonne année phil COPIE TEXTE.LSP

hello commande "DECALER" un cercle, un centre, une commande regarde ici pour aller encore plus vite reponse 3 http://cadxp.com/index.php?/topic/33709-decaler-ou-copier-suivant-une-liste-entre-au-clavier/ a+ phil

salut tu installes le lisp et le lance avec la commande "REC" attention de ne pas avoir deja "REC" comme racourcis clavier pour une autre commande comme les rectangles il va te demander de selectionner les cotes a modifier tu valides et tu verifies a+ phil

hello ouai gile je te dirais que j'ai pas des progres a faire sur les dictionnaires, les réacteurs ou les boites de dialogues tout comme le visual lisp mais franchement tout a apprendre depuis le début, sauf que le début je le puise dans les copier coller de vos propres codes que j'essaie d'analyser et de comprendre ligne par ligne, ce qui , tu l'as dit toi meme n'est une evidence. on a pas tous ta facilité pour l'anglais et la programmation je n'ai pas demandé a se que l'on m'ecrive le lisp non plus, juste savoir si je faisais fausse route vers les XDATA, les idata ou les dictionnaires et j'en passe et des meilleurs l'aide à la programmation fournit par autodesk est pratiquement inéxistante en francais donc j'ai pas bcp de source a ma disposition ha au fait, je tiens pas trop mal sur mes guiboles merci <_< phil

salut regarde ici réponse 11 http://cadxp.com/index.php?/topic/31473-cotation-inverse/page__p__170200__hl__cotation__fromsearch__1#entry170200 a+ phil

hello l'idée est de faire un peu comme le programme de patrick avec LATT qui lui lit (lier) des attributs entre eux attribut par attribut pour les faire identique, additionner ou somme je voudrais LIER des blocs entre eux dans la meme optique en liant leurs attributs de facon identique pour le moment ou en liant une (des) proprietés dynamique ou de visibilite les blocs peuvent etre different mais bien sur leurs nom d'attributs doivent etre identique dans un premier temps je selectionne les blocs je récupere leurs noms d'attributs et leurs nom de proprietes dynamiques dans la boite de dialogue je selectionne ce que je veux lier de facon identique j'en retire deux listes ( les attributs à lier, et les propriétées a lier ) apres l'idée est comme le lisp LATT de patrick si on change un attributs dans un bloc les autres lier se mette a jour de facon identique si on change une propriété dynamique ( ex :longueur ) dans un bloc, les autres changent aussi vous allez me dire il suffit de les selectionner et changer les propriétées dans la boite de propriétées sauf que la j'ai 900 panneaux differents, je voudrais changer les attributs sur des blocs que je vois en facade pour que le bloc qui est en plan prenne les meme attributs et la meme visbilté 5 attributs par panneaux c'est plus claire B) B) ou tjrs aussi nuageux :blink: :blink: ? loll :D :D :D :D a+ phil

salut bon ca pas l'air d'interesser grand monde :D :D mon histoire la apres quelque vus sur le site je me dis que passer par les XDATA seraint pas forcement la bonne idée LATT de patrick utilise les "dictionnaires" Est ce que ca serait pas plus facile à utiliser ? est ce que la mise a jour serait dns ce cas automatique ? action sur les attributs mais aussi sur le "parametre de visibilité" ou autre parametres remarque permetant de mettre en relation plusieurs attributs plusieurs fois ? xdata ou dictionnaires ??? bon noel phil

salut j'arrive a avoir une boite de dialogue qui tiens a peu pret la route (defun boitepropdyntest (/ tmp ;;file fuzz ;;; ret pn av dcl_id ;;val ) (setq tmp (vl-filename-mktemp "Tmp.dcl") file (open tmp "w") ret nil ret2 nil ) (write-line (strcat "DynBlkProps:dialog{label=\"Blocs dynamiques\";" " :text{label=\"Nom du bloc : \"" (vl-prin1-to-string "Tous les blocs") " ;}:boxed_column{label=\"Propriétés dynamiques\";" ) file ) (foreach pn propdynnom (write-line (strcat ":row{:toggle {key = \"" pn "\"; label =" (vl-prin1-to-string pn) ";}}") file) ) (write-line (strcat "}:boxed_column{label=\"Attribut\";") file) (foreach pn propattributnom (write-line (strcat ":row{:toggle {key = \"" pn "\"; label =" (vl-prin1-to-string pn) ";}}") file) ) (write-line "}spacer;ok_cancel;}" file) (prompt "\nTOTO 1 :") (close file) (prompt "\nTOTO 2 :") (setq dcl_id (load_dialog tmp)) (prompt "\nTOTO 3 :") (if (not (new_dialog "DynBlkProps" dcl_id)) (exit) ) (prompt "\nTOTO 4 :") (foreach p pop2 (setq test23 pop2) (start_list (car p)) (mapcar 'add_list (cdr p)) (end_list)) (prompt "\nTOTO 5 :") (action_tile "accept" "(foreach p propdynnom (if (assoc p POP2) (setq val (nth (atoi (get_tile p)) (cdr (assoc p POP2)))) (setq val (get_tile p))) (if (and val (/= val \"\")) (setq ret (cons (cons p val) ret))) ) (and (not ret) (setq ret T)) (setq sel (get_tile \"selset\")) (foreach p propattributnom (if (assoc p POP2) (setq val2 (nth (atoi (get_tile p)) (cdr (assoc p POP2)))) (setq val2 (get_tile p))) (if (and val2 (/= va2l \"\")) (setq ret2 (cons (cons p val2) ret2)))) (and (not ret2) (setq ret2 T)) (setq sel2 (get_tile \"selset\")) (done_dialog) " ) (prompt "\nTOTO 6 :") (action_tile "cancel" "(setq ret nil)") (prompt "\nTOTO 7 :") (start_dialog) (prompt "\nTOTO 8 :") (unload_dialog dcl_id) (prompt "\nTOTO 9 :") (vl-file-delete tmp) (prompt "\nTOTO 10 :") (setq listeparam nil) (setq listeattrib nil) (foreach p ret (if (= (atoi (cdr p)) 1) (setq listeparam (cons (car p) listeparam)) ) ) (foreach p ret2 (if (= (atoi (cdr p)) 1) (setq listeattrib (cons (car p) listeattrib)) ) ) ) et de récuperer les listes de se que j'ai coché dans cette boite de dialogue (defun c:testselection (/ ;;; propdynnom2 ) (setvar "cmdecho" 0) (setq osm (getvar "osmode")) (prompt "\nSELECTIONNER LES BLOCS PARAMETRIQUE A LIER :") (setq selinsert (ssget (list '(0 . "INSERT")))) (setq com (sslength selinsert)) (setq compt 0 propattributnom2 nil ;;; pop2 nil ) (while (< compt com) (progn (foreach att (vlax-invoke (vlax-ename->vla-object (cdr (assoc -1 (entget (ssname selinsert compt))))) 'getattributes ) (setq propattributnom2 (cons (vla-get-tagstring att) propattributnom2)) ) (setq compt (1+ compt)) ) ) (setq propattributnom (remove_doubles (vl-sort propattributnom2 '<))) (setq compt 0 propdynnom2 nil ;;; pop2 nil )(while (< compt com) (progn (foreach att (vlax-invoke (vlax-ename->vla-object (cdr (assoc -1 (entget (ssname selinsert compt))))) 'getdynamicblockproperties ) (setq propdynnom2 (cons (vla-get-propertyname att) propdynnom2)) ) (setq compt (1+ compt)) ) ) (SETQ TEST13 (vlax-invoke (vlax-ename->vla-object (cdr (assoc -1 (entget (ssname selinsert 0))))) 'getdynamicblockproperties )) (setq propdynnom (remove_doubles (vl-sort propdynnom2 '<))) (boitepropdyntest) (setq compt 0) (prompt "\nTOTO 11 :") (setq com (sslength selinsert)) (prompt "\nTOTO 12 :") ;;; (setq appli "LIERBLOC" ) (while (< compt com) (prompt "\nTOTO 13 :") (setq ent (cdr (assoc -1 (entget (ssname selinsert compt)))) nblier "156" appli LIERBLOC ladate (rtos (getvar "cdate") 2 8) l1 ;;; (strcat "(-3 ("appli" ((1040 . ladate) (1071 . nblier) (1000 . LISTEPARAM) (1000 . listeattrib) ;;; ))" ) ) (prompt "\nTOTO 14 :") (x_write) (prompt "\nTOTO 15 :") (setq compt (1+ compt)) ) (setvar "osmode" osm) (setq poi null) (princ) ) mais pas a inserer le tout en tant que XDATA par contre j'ai des parenthese en trop qui se balade et des guillemets en trop aussi surement je veux bien un peux d'aide svp j'ai trouvé ce bout de code sur CADXP mais je n'arrive pas a la comprendre :blink: ;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------ ; place une liste en xdata sur une entité en préservant les ; xdata des autres applications ; entrées : l : liste XDATA correspondant à l'application ; enam : nom d'entité ; appli: application ; ; retourne : sans intéret ;------------------------------------------------------------------------------ (defun x_write (l enam appli / ent l1 lsa) (regapp appli) (setq lsa (x_listappli)) ;;; (setq ent (entget enam lsa)) (setq ent (if (setq l1 (assoc -3 ent)) (if (assoc (strcase appli) (cdr l1)) (setq l1 (subst (cons appli l) (assoc (strcase appli) (cdr l1)) (cdr l1))) (setq l1 (cons (cons appli l) (cdr l1))) ) (setq l1 (list (cons appli l))) ) ) (entmod (snoc (cons -3 l1) (entget enam))) )

salut pour copier un texte sur attribut il faut utiliser CT et non CTP CTP marche d'attribut vers des textes mais ne marche pas de texte vers des attributs car les attributs font partie d'une entite qui est le bloc contrairement au texte ou mtexte qui sont les entites elles meme dsl a+ phil

hello ctp ne fait pas tout non plus le LISP te demande de cliquer sur un texte pour récupérer le libellé de celui ci puis de cliquer sur un autre texte ou attribut pour inserer le libellé a la place a+ phil

SALUT tu reprends l'idée de lili2006 en faisant un bloc avec des attributs et utilise le LISP fournit pour copier le texte existant dans les attibuts de ton blocs une fois le blocs mis en place rien a retapper tout a cliquer CT : pour copier un texte sur un texte CTP : pour copier un texte sur plusieurs textes donc CTP a previlegier a+ phil COPIE TEXTE.LSP

BONJOUR toujours dans mon idée de lier des blocs je cherche la methode avant j'en ai peut etre une mais je voudrais savoir si vous avez mieux 1°: selectionner les blocs à lier et faire la liste des attributs et parametres dynamiques 2°: une boite de dialogue avec les attributs et parametres a cocher a mettre en commun 3°: ecrire dans chaque blocs selectionner des xdata avec la liste des parametres et attributs cocher ( une liste ou deux listes ? pour attributs et pour parametres ) un numero en commun permetant de savoir quels blocs sont liés, et une date (-3 ("APPLICATION1" (1040 . 2.01112e+007) (1070 . 123) (1002 . "{") (1000 . "attribut") (1000 . "numero;longueur;largeur") (1002 . "}") (1002 . "{") (1000 . "parametres") (1002 . "}")))) 1040 la date 1070 numéro en commun entre bloc lier 1000 noms des attributs lier .... question : peut on mettre une liste d'attributs ou parametres dans les xdata ? 4°: un lisp qui permet de modifier la date xdata apres avoir changer les attributs ou parametres 5°: un lisp qui regarde par la suite chaque bloc avec des xadata et exporte aux autres blocs ayant le meme numero les parametres les plus recent en fonction de la date je vais devoir faire un "dictionnaire" dans le fichier regroupant la liste des numero pour eviter les doublons, ce sont des bouts de LISP des LISPEURS de cadxp que j'ai modifié, mais malheureusement pas tjrs compris pour le moment j'ai ca qui récupere les attibuts et parametres d'un bloc ou des bloc selectionner (defun c:testselection (/ ;;; propdynnom2 ) (setvar "cmdecho" 0) (setq osm (getvar "osmode")) (prompt "\nSELECTIONNER LES BLOCS PARAMETRIQUE A LIER :") (setq selinsert (ssget (list '(0 . "INSERT")))) (setq com (sslength selinsert)) (setq compt 0 propattributnom2 nil ;;; pop2 nil ) (while (< compt com) (progn (foreach att (vlax-invoke (vlax-ename->vla-object (cdr (assoc -1 (entget (ssname selinsert compt))))) 'getattributes ) (setq propattributnom2 (cons (vla-get-tagstring att) propattributnom2)) ) (setq compt (1+ compt)) ) ) (setq propattributnom (remove_doubles (vl-sort propattributnom2 '<))) (setq compt 0 propdynnom2 nil ;;; pop2 nil )(while (< compt com) (progn (foreach att (vlax-invoke (vlax-ename->vla-object (cdr (assoc -1 (entget (ssname selinsert compt))))) 'getdynamicblockproperties ) (setq propdynnom2 (cons (vla-get-propertyname att) propdynnom2)) ) (setq compt (1+ compt)) ) ) (SETQ TEST13 (vlax-invoke (vlax-ename->vla-object (cdr (assoc -1 (entget (ssname selinsert 0))))) 'getdynamicblockproperties )) (setq propdynnom (remove_doubles (vl-sort propdynnom2 '<))) (boitepropdyntest) (setq compt 0) (setq com (sslength selinsert)) (while (< compt com) (foreach don ret (setq test14 don) (foreach att (vlax-invoke (vlax-ename->vla-object (cdr (assoc -1 (entget (ssname selinsert compt))))) 'getdynamicblockproperties ) (if (= (vla-get-propertyname att) (car don)) (progn (if (= (vla-get-unitstype att) 2) (vla-put-value att (atof (cdr don))) ) (if (= (vla-get-unitstype att) 1) (vla-put-value att (* (atof (cdr don)) (/ pi 180))) ) (if (= (vla-get-unitstype att) 0) (vla-put-value att (cdr don)) ) ) ) ) ) (setq compt (1+ compt)) ) (setvar "osmode" osm) (setq poi null) (princ) ) et la boite de dialogue qui batifole un peu bcp meme j'ai bien la les liste qui s'affichent mais je ne sais pas récuperer la liste des cases cochées et j'ai un "64" qui se balade qui doit venir de "(itoa (expt 2 6))" (defun boitepropdyntest (/ tmp ;;file fuzz ;;; ret pn av dcl_id ;;val ) (setq tmp (vl-filename-mktemp "Tmp.dcl") file (open tmp "w") ret nil ) (write-line (strcat "DynBlkProps:dialog{label=\"Blocs dynamiques\";" " :text{label=\"Nom du bloc : \"" (vl-prin1-to-string "Tous les blocs") " ;}:boxed_column{label=\"Propriétés dynamiques\";" ) file ) (foreach pn propdynnom (write-line (strcat ":row{:toggle {key = \"" (itoa (expt 2 6)) "\"; label ="(vl-prin1-to-string pn)";}}") file ) ) (write-line (strcat "}:boxed_column{label=\"Attribut\";" ) file ) (foreach pn propattributnom (write-line (strcat ":row{:toggle {key = \"" (itoa (expt 2 6)) "\"; label ="(vl-prin1-to-string pn)";}}") file ) ) (write-line "}spacer;ok_cancel;}" file) (close file) (setq dcl_id (load_dialog tmp)) (if (not (new_dialog "DynBlkProps" dcl_id)) (exit) ) (foreach p pop2 (start_list (car p)) (mapcar 'add_list (cdr p)) (end_list)) (action_tile "accept" "(foreach p propdynnom (if (assoc p POP2) (setq val (nth (atoi (get_tile p)) (cdr (assoc p POP2)))) (setq val (get_tile p))) (if (and val (/= val \"\")) (setq ret (cons (cons p val) ret)))) (and (not ret) (setq ret T)) (setq sel (get_tile \"selset\")) (done_dialog)" ) (action_tile "cancel" "(setq ret nil)") (start_dialog) (unload_dialog dcl_id) (vl-file-delete tmp) ;;; ret ) c'est mal barré cette histoire la bonne nuit phil

hello gile le lien pour "XDATAEDITOR" semble buguer ou peut on le retrouver ? a+ phil