DenisHen

Salut, Je n'ai pas eu le temps de me pencher sur la question... Mais merci lecrabe de t'en soucier... Denis...

Bonjour à tous, Voilà, je croyais la retrouvée mais, non. Je suis à la recherche d'un LiSP qui alignerait des textes le long des segments d'une polyligne... Je ne la retrouve pas dans le site... Denis...

Salut, Désolé, j'avais oublié... Je lance ces commande par un menu tel que ... [Préfixe Ht=]^C(c:prefixe "Ht="); [Préfixe Pf=]^C(c:prefixe "Pf="); [--] [sufixe 0]^C(c:prefixe "0"); [sufixe m]^C(c:prefixe "m"); ... Denis...

Salut lecrabe, Je les ai essayées sur un 2010 et çà fonctionne... Je ne comprend pas. Denis...

Bonjour à tous, Voilà, j'ai écris 2 routines que je poste : ;;;ajoute un préfix au texte sélectionné (defun c:prefixe (pref / ss i etx idx newidx) (setq ss (ssget "_:S" '((0 . "*TEXT")))) (princ "\n1") (if ss (progn (setq i 0) (while (< i (sslength ss)) (setq etx (entget (ssname ss i))) (setq idx (cdr (assoc 1 etx))) (setq newidx (strcat pref idx)) (setq etx (subst (cons 1 newidx) (assoc 1 etx) etx)) (entmod etx) (setq i (+ i 1)) ) ;_ Fin:while ) ;_ Fin:progn ) ;_ Fin:if ) ;_ Fin de defun ;;;ajoute un sufix au texte sélectionné (defun c:sufixe (suf / ss i etx idx newidx) (setq ss (ssget "_:S" '((0 . "*TEXT")))) (princ "\n1") (if ss (progn (setq i 0) (while (< i (sslength ss)) (setq etx (entget (ssname ss i))) (setq idx (cdr (assoc 1 etx))) (setq newidx (strcat idx suf)) (setq etx (subst (cons 1 newidx) (assoc 1 etx) etx)) (entmod etx) (setq i (+ i 1)) ) ;_ Fin:while ) ;_ Fin:progn ) ;_ Fin:if ) ;_ Fin de defun Pour toutes question... Je reste là. Denis...

Salut, Merci à tous, j'ai bien tout reçu... Je potasse maintenant... Denis...

Salut à tous FormaBois: je n'arrive pas à charger le fichier "NORME_CAO.zip" big666: voici mon mail société : denis . hennuyer @ cerene . fr Merci à tous...

Hello, 1. je n'ai pas fait ces requètes et celui qui les a faites n'est plus là, ce qui explique que j'ai du mal à comprendre à quoi elles servent exactement. 2. Comment les lancer, en faisant un defun ? 3. si mon dwg est déjà associé, ça fonctionnerait ? 'redraw (setq ade_cmddia_before_qry (getvar "cmddia")) (setvar "cmddia" 0) (ade_qryclear) (ade_qrysettype "draw") (ade_qrydefine '("" "" "NOT" "Property" ("objtype" "=" "INSERT")"")) (ade_qrydefine '("AND" "" "" "Property" ("layer" "=" "5")"")) (ade_qrydefine '("AND" "" "NOT" "Property" ("objtype" "=" "TEXT")"")) (ade_qrysetaltprop T) (ade_altpclear) (ade_altpdefine "Layer" "Escalier") (ade_qryexecute) (setvar "cmddia" ade_cmddia_before_qry) 'redraw (setq ade_cmddia_before_qry (getvar "cmddia")) (setvar "cmddia" 0) (ade_qryclear) (ade_qrysettype "draw") (ade_qrydefine '("" "" "" "Property" ("blockname" "=" "ACCES,ACCES1")"")) (ade_qryexecute) (setvar "cmddia" ade_cmddia_before_qry) 'redraw (setq ade_cmddia_before_qry (getvar "cmddia")) (setvar "cmddia" 0) (ade_qryclear) (ade_qrysettype "draw") (ade_qrydefine '("" "" "NOT" "Property" ("objtype" "=" "INSERT")"")) (ade_qrydefine '("AND" "" "" "Property" ("layer" "=" "57")"")) (ade_qrysetaltprop T) (ade_altpclear) (ade_altpdefine "Layer" "BATI") (ade_qryexecute) (setvar "cmddia" ade_cmddia_before_qry) Merci, Denis...

Bonsoir The Décapode, Mon Pb est que les fichiers n'ont jamais le même nom comme : (setq dwg_id(ade_dsattach "BOURG:\\D.DWG")) (setq dwg_id(ade_dsattach "BOURG:\\H.DWG")) (setq dwg_id(ade_dsattach "BOURG:\\I.DWG")) (setq dwg_id(ade_dsattach "BOURG:\\J.DWG")) Car je n'ai jamais le même client mais mes fichiers sont déjà tous associés... C'est là ou j'aimerais ne pas avoir à intervenir requète par requète... Je pensais à une routine VBA mais je penchais plus pour une VLisp

Bonjours à tous, Je viens d'être emboché dans une boite de détection sous-terraine (EDF, éclairage public, Gaz...) et je dois établir une charte graphique pour la boite, je compte donc m'inspirer des chartes existantes, quelqu'un en aurait ? Dans un DWT ou autre, j'ai déjà créer un tas de calques et de type de ligne, mais j'ai peur de passer à coté de quelque chose... Je proposerais ma charte quand elle sera aboutie... Elle pourrat peut-être servir à d'autres... Denis...

Bonjour Je me retrouve avec des TCPoints, alors qu'on a pas Covadis, serait-ce une configue dans MicroStation ? Merci, Denis...

Bonjours à tous J'ai une cinquantaine de requètes à lancer lors de l'importation d'un fichier dwg (issu d'un dgn). J'aurai aimé qu'on m'indique la démarche à suivre pour en exécuter une, je me débrouille avec les 49 autres... Mon but est de faire un LiSP pour lancer toutes les requètes en un clique... Une requète est en pièce jointe. Merci à tous et bon week-end à tous... Denis...

Bonjour, Dommage, car j'aurai besoin de savoir le faire sous 2014 Map 3D. Denis...

Salut, Je dirais pareils qu'Olivier, si tu ne métrise pas l'XML sur le bout des doigts, ou avec un éditeur Ad Hoc continu sur AutoCAD... Denis...

Salut, As-tu changer de windows aussi ? Si oui, il faut les réinstallées, Si non, elles se trouve dans .../windows/Fonts Denis

Salut, Dans le gestionnaire des taches, donnes une priorité haute à AutoCAD... Juste pour voir si ça change quelque chose...

Tu peux "geler" l'affichage des orthophotos dont tu ne te sert pas dans les propriétés de l'image... C'est comme un calque gelé, l'image ne sera pas charger. Denis...

Peut-être une erreure dans ton DWT ou un gabbarit... Sinon, je ne vois pas... Désolé... Denis...

Enregistre une copie de ton fichier sous 2000 et ouvres-le, et regarde si ça fonctionne... Je pense à un Pb dans le DWG et non dans AutoCAD même...

Quand tu ouvre le fichier DWG, tu lances la commande "controle". J'ai déjà eu ce genre de Pb avec des noms de calques avec des caractères spéciaux... Lors de l'ouverture du DWG, s'il n'est pas d'AutoCAD ou s'il vient d'une autre version, AutoCAD te le dit...

Salut, As-tu controlé ton DWG ? Est-t'il d'origine AutoCAD ? Denis...

Ca marche nickel... Merci encore...

Bonjour, Tu veux dire par là que le bouton "Ajouter" est grisé ? Denis...

Salut, Je pense au forum LiSP pour celà, mais je pense à un script aussi mais c'est effectivement les vacances... Denis...

Salut, Il y a aussi, StartMenuX pour Windows 8... C'est pas mal aussi, comme classicshell... Denis...