x_all

Si tu as les faces du TN il est plus simple de les re générer je ne connais pas de moyen de replacer des courbes qui ont été remise à 0 car à ma connaissance il n'y a pas de donnée qui enregistrent l'alti d'origine de la courbe...

Palette d'outils ou barre d'outils. Car en vieux grincheux allergique au ruban, mes barres d'outils migrent sans pb depuis la 2012... J'avoue ne pas trop utiliser les palettes à part pour qqs blocs je ne savais pas qu'ont pouvait y placer des commandes...

Ha la vache... je sais pas si je bave plus sur les étoiles ou sur le club de plage des alchimistes... le tout en écoutant de la bossa? Bon... je retourne bosser... bonne vacances :)

Pour chez moi, j'ai ajouté dans emplacement approuvé et support en cours d’utilisation Pour pas être pollué par les fautes de frappes, je vais dans le dossier avec l'explorateur, je rentre dans la barre d'adresse, je fait copier puis dans "option" je fait "ajouter" puis coller... (j'ai fait un sous dossier 1startlisp pour trier ceux qui sont par défaut au démarrage)

oui... c'est ça... va faire des efforts sur humaine... (s ?)

pourtant, je vous jure je fait des efforts sur humains, je me relis, j'utilise les correcteurs, mais rien à faire... je dois pas avoir le bon driver. je ne les voie pas... je le vis comme un handicap mais j'arrive pas. Et depuis le temps j'ai fini par faire avec, je dis pas que je m'en fout, mais bon... j'aime autant m'exprimer avec des fautes que fermer ma g... :)

heureusement que personne ne va jamais sur mon site... :(rires forts):

et bien je dirais fait toi expliquer les présentations, tu verra que ce n'est pas la partie la plus simple du boulot, fait s'en qqs une à la main, tu verra bien les étapes et pourra te faire une idée de ton algorithme. Parce que pour les cartouches, les styles ext, ça dépend complètement des us et coutumes de ta société. Et si tu passe une journée à faire des présentation à la main ce ne sera pas du temps perdu. les grands principe sont résumés ici. enfin c'est la méthode chez moi, mais il y en a d'autres...

je remet le code ici car à l'édition ça à merdé ;; change la couleur d'un attribut à condition que l'attribut soit en couleur dubloc (defun c:attco (/ tmp co0 co1 lstdxf) ;;initialisation des variables globales si elle ne sont pas afféctées (if (/= (type *couleur*) 'INT) (setq *couleur* 1) ; changer ici la couleur par défaut ) (while (and (princ (strcat "\nCouleur actuelle = " (itoa *couleur*) "\n sélectionnez un attribut ou espace pour changer un paramètre" ) ) (not (setq ent (nentsel))) ) ;_ Fin de and (if (setq tmp (getint (strcat "\nCouleur actuelle <" (itoa *couleur*) "> ): " ) ) ) (setq *couleur* tmp) ) ) (setq lstdxf (entget (car ent))) ; création de la liste (if (setq co0 (assoc 62 lstdxf)) (setq co1 (cons 62 *couleur*) lstdxf (subst co1 co0 lstdxf) ) (setq lstdxf (cons (cons 62 *couleur*) lstdxf)) ) (entmod lstdxf) (princ) )

a titre d'exercice, pour voir comment marchait (nentsel , j'ai fait un truc qui marche pour changer la couleur d'un attribut que tu cliques, à condition que l'attribut ait pour couleur 'dubloc' (si ce n'est pas le cas tu modifies ton bloc, passe les attributs en couleur 'dubloc'; et fait un attsync) je suis pas fortiche, pour les couleurs il te faudra choisir les couleurs en fonction de leur n°: 1 rouge 2 jaune, 3 vert ... (espace pour changer la couleur) je suis pas au top en gestion d'erreur, il vaut mieux cliquer un attribut j'ai pas tout tester.. edit <br>en fait force aussi la couleur sur des entités du dessin ou des entités du blocs qui sont en dubloc mais il faut faire un régen quand c'est dans un bloc pour voir le résultat...

c'est le "(mapcar '(lambda " qui fait des miracle... mapcar est magique, mais c'est vrai que j'ai du mal aussi... enfin c'est surtout lambda je crois qui me perturbe..

yep c'est là... merci...

Je m'auto répond... En fait dans l'objet mnt, les voirie ne généraient plus de faces. (!?) Il a fallut que je recrée un type de plateforme identique au nom près pour que le mnt projet soit à nouveau complet. depuis ça remarche... Question subsidiaire, je ne retrouve plus ou on gère l'affichage des réseaux. Il sont tracé avec une vilaine polyligne épaisse, je les aurai bien repassé avec des type de trait style ---EP--- et ---EU---. Il sont présent dans le dessin mais je ne trouve pas ou affecter ça dans covadis...

Bonjour dans un projet, j'ai un projet de plateforme, et un projet réseau. Dans le paramétrage du réseau, j'ai déclarer comme Tn mon Mnt objet résultat des plateformes. Je reviens sur le dossier après qqs mois pour des modifications, et mauvaise surprise, mes cotes tampons ne se mettent pas à jour quand je change mes plateformes... j'ai essayer de déclarer le TN (avant travaux), mais là encore rien ne se met à jour, On dirai que le projet réseau à bouffer en dur des cotes tampons et que je ne peu plus les écraser en automatique. Vu la longueur du réseau, j'ai une trentaine de regard à mettre à jour, je finirai pas me les cogner à la main, mais j'aimerai bien comprendre d’où vient le pb et s'il a t il moyen de réinitialiser tout ça? merci

j'ai remarqué que quand ça fait un moment qu'on est dans le débuggeur, ça arrive qu'il pète un peu les plomb et qu'il faille relancer autocad pour retrouver un comportement "normal" Faut dire que j'y donne pas mal de boulot au débuggeur... Il est intéressant ce tread... tu nous à fait faire un bon petit tour des embrouilles susceptible de nous arriver avec les chaines...

je ne remettrai pas en question l’inestimable valeur ajouter de l'introduction de (Gile), mais il est indispensable d'avoir les ref sous la main http://docs.autodesk...rence_guide.pdf Examples Command: (strcase "Sample") "SAMPLE" Command: (strcase "Sample" T) "sample"

un petit coup de stripmtext? https://cadabyss.wordpress.com/2010/01/04/stripmtext-v5-0/

tu peu tester le type en faisant (if (= (type *ta variable*) 'REAL)

slt je ne connaissait ps ces commandes, mais je ne crois pas qu'elle fasse mon bonheur d'une part ça se passe en espace papier, hors je voulais rapatrier de la 2d Dans des plans archi (par dessus des Xref). D'autre part je pas bien explorer, mais je pas vu de coulleur ou de calque dans ces "vues"... mais si ce sont effectivement des vues il n'y à pas moyen de récupérer les entités non.?... bref c'est à explorer, mais je ne crois pas que ça fasse mon bonheur

de retour... dans ton message 10 tu écrit (Modatt (hd "PROFONDEUR" Prof)) (Modatt (hd "Z-PROF" ZProf)) hd n'est pas une fonction, mais le paramètre il fallait faire (Modatt hd "PROFONDEUR" Prof) (Modatt hd "Z-PROF" ZProf) c'est moi qui t'ai enduis d'erreur... je devais pas être réveillé tout à l'heure... désolé. définir ces fonctions est largement à ta portée je te conseille la lecture (relecture) de ce post. http://cadxp.com/topic/28642-arguments-et-variables/

pourquoi tu te sers pas des 2 fonctions que j'avais mis? si tu recopie le code des 2 fonctions la fin tu devrais pouvoir faire un truc comme (setq hd (cdr (assoc 5 (entget SelBlk)))) (Modatt (hd "PROFONDEUR" valeur-de-prof) (Modatt (hd "z-PROF" valeur-de-z-prof) le assoc 5 renvoyant le handle du bloc. (j'ai pas testé mais ça devrai pas être loin du compte) Ps les 2 valeurs doivent être des string

je crois que c'est peut etre une question de variables pas initialisé... quand tu testes peut être met un (gc) au tout début car en écrivant (defun c:DHTamp_Prof_SDDEA (/Ztn SelBlk dxf-1 ) ça à l'air de marcher

pour les bloc non dynamique j'avais fait 2 micro fonctions pour lire et modifier les attributs c'est pas très joli mais ça marche ;;;Modatt pour numéroter l'attribut nomatt du bloc de handle hd-bloc suivant N (defun Modatt (hd-bloc nomatt val / lstatt ini-paire) (setq lstatt (Att-lst (handent hd-bloc) nomatt)) (setq ini-paire (assoc 1 lstatt) nouv-paire (cons 1 val) lstatt (subst nouv-paire ini-paire lstatt) ) (entmod lstatt) (princ) ) ;;;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-1) (while (= lst-att nil) (setq ent (entnext ent)) (setq dxf-1 (entget ent)) (if (and (= (cdr (assoc 0 dxf-1)) "ATTRIB") (= (cdr (assoc 2 dxf-1)) nomatt) ) (setq lst-att dxf-1) ) ) lst-att ;valeur de retour )

je comprend pas bien pourquoi, mais effectivement ça marche impec.. je croyais que (vl-cmdf avait besoin de tous les arguments pour valider la commande hors, c'est appelé 3 fois pour une seule polyligne... quoi qu'il en soit, tu me tires une fière chandelle du pied! merci

le soucis ça va être ça serai sur le point d'insertion, ce serai plus facile. as tu au moins une tolérance? autre précision, les blocs en questions sont ils dynamiques? auquel cas il faut passer en Vlisp..