bonuscad

Si le texte de tes codes sont sur un calque différent, isole simplement le calque de tes altitudes en texte pour ne sélectionner qu'eux. Cela sera plus simple que de remanier le code ;)

Regarde ce Sujet , il est un peu similaire.

Le groupe 1 est la valeur du texte elle même (chaine de caractère) Dans ton image partielle ce groupe n'apparait pas pour l'entité (0 . "TEXT") représenté sur 2 ligne en DXF Ascii dans la suite de la définition. Difficile de t'en dire plus :exclam:

Je pense qu'en lisp (redraw [nom_ent [mode]]) correspond à ton souhait avec mode à 1/2/3 ou 4 Quant à son équivalent en VBA ....?

Tu me surprends :o Sur une 2002 et DIMZIN à 0 cela fonctionne très bien; les zéros inutiles sont bien affichés et transmis quand même. (sous forme de chaines, entendons nous) C' est sur que (atof (rtos 45.00 2 3)) ne change rien, mais là je ne vois pas le problème que cela pose.

Justement utilise (rtos) et il n'y auras plus de problème de supression de zéro si DIMZIN est bien réglé. (setq ed(subst(cons 1(VL-PRINC-TO-STRING(+ 10(atof(vla-get-textstring ent)))))(assoc 1 d)ed)) en: (setq ed(subst(cons 1(VL-PRINC-TO-STRING(rtos (+ 10(atof(vla-get-textstring ent))) 2 3)))(assoc 1 ed)ed))

Regarde la variable DIMZIN, tu peux aussi faire une recherche sur le forum . On en a parlé récemment.

Je dirais oui. Filter ou Qselect ne peut faire des tests logiques que sur des entiers, réels, points et vecteurs. Donc à mon avis, obligé d'extraire les chaines pour les convertir en nombre et faire un test avec. En lisp cela est réalisable assez facilement je pense. Le point d'insertion du texte est-il concerné aussi par le Z? Entre nous, la correction devrait être faite par le géomètre, il engage sa responsabilité sur le rendu de son travail.

(- (/ L 2) - Dp) n'est pas correct et génére une erreur -> (- (/ L 2) Dp) Pour ne pas chercher l'erreur ;)

Bonjour, Je me demandes si tu ne devrais pas te poser le problème autrement. Si tu veux mettre à jours tout tes blocs (avec appriori, les même valeurs), pourquoi ne pas redéfinir ton bloc avec des attributs a constant et prédéfinis . C'est une question, cela serait peut être plus simple. ;)

A par répéter merci (gile).... Ton post est entièrement copié, je le conserve précieusement car il me rendra certainement service. Quand les points obscurs sont débroussaillés, cela devient tellement plus simple.... ;)

Un rappel sur le lien de l' Observatoire de la terre . Il y a toujours les dernières images des catastrophes naturelles et humaines. aujourd'hui: Les stocks de Londres en feu. :mad: Aura t-il une taxe (comme sur les cigarettes) pour cette fummée qu'on vas respirer.? Comme quoi tout est relatif.... : on n'a pas le droit(ou peu) de s'intoxiquer, mais on a le droit de nous intoxiquer sans compensation aucune.

Mon historique de FAI: 1er abonnement gratuit en RTC chez LibertySurf Basculement chez Tiscali en conservant mon abonnement et mes adresses. Abonnement ADSL 2Mo+Téléphonie (présélection) chez LeNeuf en dégroupage partiel ET j'ai conservé mon abonnement chez France Télécom. J'ai reçu rapidement le matériel pour la connexion (3 jours), mais l'activation de ma ligne a mis 2 mois au lieu d'un. Je soupçonne FT d'avoir eu une attidude Anti-concurentielle pour ce problème. L'utilisation RTC gratuite du Neuf a parfaitement fonctionné pendant cette période. Le débit promis a été respecté, la connexion est fiable pour ma part (déconnexion très rare) En résumé, a part la mise en service hors délai, je suis satisfait des services du Neuf. Un bémol sur la partie Upload (que je trouve un peu faible) et le service messagerie (qui vient de s'améliorer récemment). En effet j'avais remarqué une remise de message avec une latence allant 1/4 heures (correcte) à 4 heures (moins correcte). Quand à mon abonnement de Tiscali, il a migré chez Alice. Je conserve chez eux mes adresses et espace perso de LibertySurf gratuitement. J'exploite sans problèmes ses 2 abonnements en passant par Neuf, je partage ma connexion sans problème sur mon réseau domestique. Par contre sur des forums, j'ai vu que certain se plaigne de ne pouvoir utiliser les News de certain fournisseur. Il parraitrait que les FAI se font des Black-List d'opérateur entre eux.... (rumeurs..) De mon coté je pense que j'y réfléchirait à deux fois avant de rompre mon abonnement à FT. Il semble que des problèmes de téléphonie en dégroupage total sont parfois problématique. (les usagers les plus malchanceux sont rester jusqu'à 4 semaine sans téléphone, je pense qu'on peut parler de préjudice...) NB: Ce FAI n'envoie pas de factures, elles sont consultables par le Net. Paiement tout les 2 mois (mois écoulé et mois à venir) Voilà mon avis pour mon expérience avec le Neuf. PS: Je confirme ce que dit Romain au sujet du POP et SMTP, sur Thunderbird j'ai plusieurs POP.

Regarde ce Post . Je pense qu'il pourra te rendre service.

Je ne te sens pas très motivé ;) Mais bon voilà quand même le code remanié pour intégrer cette option d'interchangabilité de chaine de texte. NB: Fonctionne pour échanger des valeurs d'attribut dans le même bloc (defun sel_obj (msg / ent typ_ent dxf_list) (while (null ent) (setq ent (nentsel (strcat "\nChoisir la chaine de Texte/Texte Multiligne/Attribut " msg ": "))) (cond ((not (null ent)) (setq typ_ent (cdr (assoc 0 (setq dxf_list (entget (car ent)))))) (cond ((not (member typ_ent '("TEXT" "MTEXT" "ATTRIB"))) (setq ent nil) (princ "\nN'est pas un Texte MTexte ou Attribut!") ) ) ) ) ) dxf_list ) (defun extract_txt (flag dxf_ent str_text / ) (if flag (progn (entmod (subst (cons 1 str_text) (assoc 1 dxf_ent) dxf_ent)) (if (assoc 330 dxf_ent) (entupd (cdr (assoc 330 dxf_ent)))) ) (cdr (assoc 1 dxf_ent)) ) ) (defun c:subtitutexte ( / new_text old_text dxf1 dxf2) (initget "Echanger Copier _Swap Copy") (if (eq (getkword "\nChaine de texte [Echanger/Copier]? : ") "Swap") (progn (setq new_text (extract_txt nil (setq dxf1 (sel_obj "à ECHANGER")) nil)) (setq old_text (extract_txt nil (setq dxf2 (sel_obj "où ECHANGER")) nil)) (extract_txt T dxf1 old_text) (extract_txt T dxf2 new_text) ) (progn (setq new_text (extract_txt nil (setq dxf1 (sel_obj "à COPIER")) nil)) (setq old_text (extract_txt nil (setq dxf2 (sel_obj "où COLLER")) nil)) (extract_txt T dxf2 new_text) ) ) (prin1) )

Ceci devrait aller mieux, ;) (Defun C:cap ( / ent nam_lay) (while (not (setq ent (entsel "\nChoix d'un objet du calque-source: ")))) (setq nam_lay (cdr (assoc 8 (entget (car ent))))) (if (not (tblsearch "LAYER" (strcat nam_lay "-proj"))) (entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") (cons 2 (strcat nam_lay "-proj")) '(70 . 0) '(62 . 1) (assoc 6 (tblsearch "LAYER" nam_lay)) '(370 . -3) ) ) ) (setvar "CLAYER" (strcat nam_lay "-proj")) (prin1) );Fin de cap ; ; ; (princ "\n\tcommande cap chargée") (princ) [Edité le 12/12/2005 par bonuscad]

Effectivement passé par les DXF en ASCII peut être solution, si l'on a pas d'autre alternative. Mais suivant la taille des DXF (qui sont vite énorme en Asccii) un bon editeur peut être necessaire pour pouvoir les traiter.

Par terme "swapper", j'entendais permutter les valeurs de texte sélectionnées.

Enlève simplement quelques ligne! de (setq js (ssget ...... à (prin1) non inclu.

Avec FireFox, je rencontre en ce moment un problème de spyware qui a l'air spécialement dédié à FireFox. (ce n'est qu'une supposition d'après ce que j'ai pu comprendre) Il se nomme WinFixer, et prétend controler et réparer votre système. Malgré un nettoyage avec des logiciels, il revient facilement vous importuner.:(

Le même légèrement modifié pour fonctionner dans le sens que tu désire. Il serait peut être aussi interressant d'y rajouter une option pour "Swapper" (Echanger) les valeurs de textes. Bien que j'ai mis les entité MTEXT, car cela ne pose pas de problème technique pour le déroulement du programme. Mais les caractères spéciaux de formatage des textes multiligne risquent de causer des pertes ou des ajouts de caractères..... :casstet: Donc bien que cela fonctionne, je déconseille de l''utiliser avec les MTEXT. (defun extract_txt ( flag msg / ent dxf_ent typ_ent) (while (null ent) (setq ent (nentsel (strcat "\nChoisir la chaine de Texte/Texte Multiligne/Attribut " msg ": "))) (cond ((not (null ent)) (setq typ_ent (cdr (assoc 0 (setq dxf_ent (entget (car ent)))))) (cond ((member typ_ent '("TEXT" "MTEXT" "ATTRIB")) (if flag (progn (entmod (subst (cons 1 new_text) (assoc 1 dxf_ent) dxf_ent)) (if (assoc 330 dxf_ent) (entupd (cdr (assoc 330 dxf_ent)))) ) (cdr (assoc 1 dxf_ent)) ) ) (T (setq ent nil) (princ "\nN'est pas un Texte MTexte ou Attribut!") ) ) ) ) ) ) (defun c:subtitutexte ( / new_text) (setq new_text (extract_txt nil "à COPIER")) (extract_txt T "où COLLER") (prin1) )

C'est bon j'ai trouvé! commande REDIR des "ExpressTools" à l'air de faire l'affaire. "J'l'avais" oublié cette commande :P

:) Merci de l'info Mais je ne dispose pas de ce gestionnaire. Est-il possible de le faire fonctionner indépendemment de la version utilisée? Ce gestionnaire est-il installé par défault dans les versions supérieures ou c'est un aditionnel qui peut être installé par les options d'installation? Autrement je sais que je peux régler le problème ponctuellement en ajoutant un chemin de recherche de fichiers de projet. Mais accumuler un nombre de dossier projet que je devrais activer à chaque fois, ne me convient pas vraiment dans des fichiers que je manipules souvent. Toutes idées restent bienvenues ;)

Est ce que le bout de code suivant pourrait remplacer ton lisp égaré? (defun extract_txt ( flag msg / ent dxf_ent typ_ent) (while (null ent) (setq ent (nentsel (strcat "\nChoisir la chaine de Texte/Texte Multiligne/Attribut à " msg ": "))) (cond ((not (null ent)) (setq typ_ent (cdr (assoc 0 (setq dxf_ent (entget (car ent)))))) (cond ((member typ_ent '("TEXT" "MTEXT" "ATTRIB")) (if flag (progn (entmod (subst (cons 1 (extract_txt nil "COPIER")) (assoc 1 dxf_ent) dxf_ent)) (if (assoc 330 dxf_ent) (entupd (cdr (assoc 330 dxf_ent)))) ) (cdr (assoc 1 dxf_ent)) ) ) (T (setq ent nil) (princ "\nN'est pas un Texte MTexte ou Attribut!") ) ) ) ) ) ) (defun c:subtitutexte ( / ) (extract_txt T "MODIFIER") (prin1) )

Bonjour, J'ai un fichier constitué d'un assemblage d'images (nombreuses) C'est un "tuilage" d'images parfaitement calées en insertion en X et Y. Mon problème est que cette bibliothéque d'images est sur un serveur. Bien sur un déplacement de cette bibliothèque a eu lieu (indépendant de ma volonté).:mad: Je voudrais avoir une solution pour redéfinir (de manière le plus automatique possible), le chemin de toutes les images. J'ai su résoudre le problème pour les Xrefs par un lisp, mais pour les images, je ne vois pas comment mis prendre. :casstet: Une amorce de solution? ou une solution tout court que quelqu'un aurait Merci