Fraid

ah bah oui tient voici un lisp cencé supprimer tout les champs ;;; FIELD2TXT (gile) ;;; Transforme les champs dans les textes, mtextes et attributs en texte (defun c:Field2Txt (/ *error* ss) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (defun *error* (msg) (vla-EndUndoMark *acdoc*) (princ)) (princ "\nSélectionnez les objets à traiter ou : ") (if (or (ssget '((0 . "INSERT,MTEXT,TEXT"))) (ssget "_X" '((0 . "INSERT,MTEXT,TEXT"))) ) (progn (vla-StartUndoMark *acdoc*) (vlax-for obj (setq ss (vla-get-ActiveSelectionSet *acdoc*)) (if (= (vla-get-ObjectName obj) "AcDbBlockReference") (if (= (vla-get-HasAttributes obj) :vlax-true) (foreach att (vlax-invoke obj 'GetAttributes) (RemoveField att) ) ) (RemoveField obj) ) ) (vla-delete ss) (vla-EndUndoMark *acdoc*) ) ) (princ) ) (defun RemoveField (obj) ((lambda (str) (or (vl-catch-all-error-p (vl-catch-all-apply 'vla-remove (list (vla-getExtensionDictionary obj) "ACAD_FIELD") ) ) ) (vla-put-TextString obj str) ) (vla-get-TextString obj) ) ) sa marche tres bien sur les attributs, mais chez moi pas sur les textes...

Si c'etait un probleme de lisp j'aurai posté dans le bon forum C'est un probleme autocad 2010 lier a la modification des objets (notament les textes) contenu dans des blocs par l'intermediaire de lisp quel qu'il soit..... je pensais etre clair je suis désolé de m'etre mal exprimé.

Comme je l'ai expliquer plus haut cela ne depend pas du code je peux en donner si tu veux par exemple (j'ai choisi des routines presentent sur le forum et sont ici incomplete) Lisp : (setq ss (ssget "_X" '((0 . "TEXT,MTEXT,INSERT")(410 . "Model")))) (setq n 0) (while (setq txt (ssname ss n)) (setq elst (entget txt)) (if (= (cdr (assoc 0 elst)) "INSERT") (progn (setq ent (entnext txt)) (while (and ent (/= (cdr (assoc 0 (setq elst (entget ent)))) "SEQEND") ) (if (member (cdr (assoc 0 elst)) '("TEXT" "MTEXT" "ATTRIB" ) ) (Action elst) ;Action represente une fonction qui modifie la liste elst ) (setq ent (entnext ent)) ) ) (Action elst) ) (setq n (1+ n)) ) ) ou Vlisp (setq adoc (vla-get-activedocument (vlax-get-acad-object))) (vlax-for lt (vla-get-layouts adoc) (vlax-for obj (vla-get-block lt) (if (eq "AcDbText" (vla-get-objectname obj)) (while (vl-string-search Old$ (vla-get-textstring obj)) (vla-put-textstring obj (vl-string-subst New$ Old$ (vla-get-textstring obj)) ) ) ) ) ) ) je pourrai donner d'autre exemple mais cela n'aurais pas d'interet je n'arrive pas a modifier les objets d'un bloc par l'intermediaire du lisp. exemple: _Find fonctionne tres bien, mais en lisp pas du tout et il n'y a pas de blocs particulier jai tester sur un bloc composé seulement d'un texte sa marche pas plus que sur des blocs complexes en plus cela fonctionnais avant (jetais peut etre sur 2009 maintenant qu j'y pense) Voila Et merci de vous interessé a mon petit probleme sans importance :P

Bonjour, Depuis quelques semaine il m'arrive un truc etrange. :casstet: Quand je veux modifier un texte dans un bloc grace a une routine (remplacer texte ou convertir des champs en texte par exemple) ecrite en lisp ou V-lisp (j'ai du essayer presque toutes celles qui existent sur le net) Le texte est soit ignoré (pas de selection) ou copié a l'exterieur du bloc comme nested object. Ce sont des textes simples (pas des attributs) contenant ou non des champs. Les codes ne sont pas en cause. Donc cela vient de mon poste. Une variable ? Quelqu'un a t'il deja eu ce probleme ?

Bonjour, J'ai cela qui traine sur mon bureau. (defun c:ConvertDyn (/ ActiveDoc taken) (vl-load-com) (setq ActiveDoc (vla-get-ActiveDocument(vlax-get-acad-object))) (foreach taken (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "taken" '((0 . "INSERT"))))) ) (if (equal (vla-get-IsDynamicBlock (vlax-ename->vla-object taken)) :vlax-true ) (vla-ConvertToAnonymousBlock (vlax-ename->vla-object taken)) ) ) (princ) ) Je ne sais plus d'ou j'l'ai eu? Mais c'est dommage d'en arriver a renommer ensuite les blocs.... :exclam:

j'ai donc placer ce bout de code dans le Lisp chargé au démarrage d'Autocad (setenv "ActivProject" NamePRG) (setvar "modemacro" "Projet en Cours : $(getenv,ActivProject)") Cela va me convenir en attendant que je trouve quelque chose d'un peu plus "saute au zieux"

Pas bete je ne me souvenais plus de cette Variable Je vais explorer ces possibilités de suite. Merci

Bonjour, Je souhaiterai avoir sous les yeux une Variable d'environnement. J'ai tout d'abord pensé à créer un "Bouton" de Contrôle dans une barre d'outil. Aprés recherche dans les aides, puis dans les Forums et dans Google je n'ai rien trouvé... Apparament c'est impossible. Quelqu'un aurait une autre idée ?

Bonjour, http://forum.excel-pratique.com/

Bonjour, Je pense qu'il doivent parler d'Attributs. Quant je travaille avec les collectivitées je leur demande toujours un exemple en dwg Cela evite des problemes de comprehension. Bonne chance

Bonjour, A mon avis, si tu enleve l'accrochage cela se passera mieux Mais pourquoi n'utilise tu pas la commande RESEAU ? Ou alors je n'ai pas compris :P

Bonjour, Tu peux passer par le format pdf, cela te permetra de garder une apparence convenable et cela restera vectorisé

Quand je disais non je repondais a la question nous avons envoyer notre post presque en meme temps.....

je ne parlais pas non plus de l'ortografffe, mais bien du contenu Vectoriser un bitmap est un joli reve de dessinateur Nous allons beaucoup plus vite a glisser l'image dans Autocad et tracer dessus Je travaillais avec des plans sncf qu'il fallait vectoriser j'ai du essayé une demi dizaine (pour pas dire cinq) de soft d'on j'ai oublier aussitot le nom a chaque fois c'etais le foutoire les textes ressemblaient a des escréments, les talus a des toiles d'araignées, ..... Sinon, Illustrator est trés bien pour récuperer les cadastres pdf en dwg [Edité le 26/10/2010 par Fraid]

Rhynome Fait attention a ce que tu ecrit Sinon Tramber va encore te tombé dessus ;) Il faut entendre Illustrator et Vectoriser Et je déconseille les soft sencé vectoriser tout seul Trop de travail en post traitement Et la vectorisation des PDF avec illustrator ne marche que si le document est natif d'un logiciel vectoriel

Bonjour et bienvenue, Bah non.... Il faut bien faire la difference entre un logiciel Vectoriel (Autocad) et BitMap (Photoshop). Je n'ai pas assez de temps pour te l'expliquer dans le detail. Mais pour faire court avec le premier tu creer des objets qui vont d'un point vers un autre et pour le deuxieme tu t'occupe de chaque points. Je t'invite a faire une recherche sur Wikipedia par exemple. La seul chose que l'on pourrai faire pour toi c'est de rajouter dans le menu contextuel des images, un lien vers ton editeur Bitmap préferer. (grosse machine conseillé) Et je ne sais pas ou tu as vu que photoshop n'etait pas trés Pro Si tu sait bien t'en servir tu dois obtenir de bon resultat. Aprés on ne sait pas a partir de quoi tu travail exactement :casstet: Bon courage

Bonjour, Pbrion a raison, impossible de placer corectement son scu quant cela est activé Ou alors je n'ai pas reussi a m'en servir :P C'est la touche F6 le raccourci

Bonjour, Pour de la getion de patrimoine cela m'a l'air super. Car les levés, on les fait en courant, les prix sont si bas... Quand au dessin c'est actuelement allplan et Autodesk Architectural Desktop qui sont le plus utilisé et demandé par les collectivitées locales et territoriales. Si l'IFC est compatible avec l'un des 2, c'est genial. Par contre pour du levé au cm prés, je n'y crois pas..... En tout cas, merci pour l'info.

Bonjour, Je te souhaite aussi bienvenue, Une petite astuce de recherche Dans Google, tu tappe ce que tu recherche suivi de site:cadxp.com Bien plus efficace que le moteur interne au site. Je trouve ce langage captivant. a la limite du mystique.... Meme si cela fait longtemps que je suis débutant, a cause d'un apprentissage sporadique, je ne laisse pas tomber. C'est surement grace a Gile, qui prend de son temps pour nous expliquer. Que je remercie encore, j'ai enfin compris ce que c'etait une paire pointée grace a ton cours sur les listes. Bon courage et matien le cap ! ;)

J'ai bo essayer tout les solutions a chaque fois le texte est copié hors du bloc !!!! Est ce dû a une variable ? la commande find commence a me sortir par les yeux au moins si l'historique de saisie n'etais pas limité a cinq mots ... Je n'arriverai donc pas a changer de simple texte inclu dans des bloc...... :(

Bonjour, Je ne suis pas un expert mais (c:MetreCAD_Niveau) me semble difficile a tester si tu nous donne pas la commande en question ?

Bonjour, Si tu utilise une texture du type jpg tu peux ouvrir ton image et l'enregistrer dans les deux sens. ...

Merci Tu avais bien compris Je n'avais pas penser a metre les point virgules dans les guillemées :P

Bonjour, Maintenant que,grace a vous, j'arrive a créer mon projet (vl-registry-write (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) " \\Profiles\\ " (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object)))) " \\Project Settings\\" InitTRI) ) Et mes chemins (setq path1 (strcat PathTRI InitTRI "\\FDP;F:\\MAP\\Plans\\" InitTRI "\\RASTER;F:\\MAP\\Plans\\" InitTRI "\\" InitTRO "\\XREF") files (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))) ) (vla-setprojectfilepath files InitTRI path1) a la place de F:\\MAP\\Plans\\ je devrai avoir la variable PathTRI Mais j'ai du passer 2 heures dans l'editeur Visualisp en essayant de trouver la bonne syntaxe j'y arrive pah (je vous epargne mes tentatives), ce sont les ; qui posent probleme Vous me direz si sa marche comme sa, pourquoi se prendre la tete Pour la portabilité de mon lisp.... Merci pour vos lumieres oh Grands Maîtres du Lisp

Bonjour, Autodidacte? Tu clique sur un grip (poignée), il devient rouge Tu tappe une fois sur barre espace Tu l'accroche ou tu veux ou tu lui indique des coordonées (metre @ avant pour quelle soit relative au dernier point. il y a la commande aligner aussi si tu as une rotation a faire. Il y a plein de possibilités...... Mais tout cela est difficile a expliquer par ecrit. Tres dur de ce passer d'une formation sur Autocad Bon courage [Edité le 21/10/2010 par Fraid]