JAMESsirop

Bonjour, Je serais également intéressé par ton programme. Peux-tu me l'envoyer à cette adresse STP. j.sirop@sotec-ingenierie.fr D'avance merci.

L'espace est apparu au surlignage dans la réponse. J'ai essayé à partir d'un fichier vierge. Résultat des courses : idem que précédement le chemin des XREF n'apparaît pas. Je continue mes recherches pour comprendre.

Il me semble que c'est ce que j'ai fait: (setq nom_xref " [surligneur] CHEMIN_XREF[/surligneur]") ; nom de l'étiquette pour le chemin des xrefs. Mon bloc $tampon$.dwg comporte des attributs dont le nom des étiquettes est DATE_TAMPON, CHEMIN_XREF1, CHEMIN_XREF2, .... Quand je réinsère mon bloc celui me propose d'entrer des valeurs pour mes différents attributs. Je ne rentre rien à ce moment. Quant je tape tampon, je peux indiquer mon nom et ma société mais il n'insère pas le chemin des xref. Est-ce que normalement cela doit se faire automatiquement ou j'ai loupé une opération ? Le type d'insertion des xref a-t'il une importance ? ( superposition ou attachement, avec ou sans le chemin d'accès ). Je précise aussi que j'ai rechargé tampon.lsp. Désolé si je parais être long à comprendre. En tout cas merci de rester à mon écoute. @+

Bonjour à tous, Etant parti 1 semaine en vacances, je découvre que le sujet intéresse du monde. Patrick_35 : comme tu as été le premier à t'intéresser au sujet et à me proposer une solution, j'ai intégré ton lisp à la suite du mien et j'ai rajouté dans mon bloc des étiquettes XREF. Quant j'essaye sur une présentation ou le bloc n'a pas été inséré, j'obtiens ce message : Erreur : type d'argument incorrect: lselsetp nil Par contre dans une présentation ou le bloc était déjà inséré, il ne se passe rien si ce n'est qu'il m'affiche comme avant le nom et l'arborescence du fichier. Je vois les points d'insertion des étiquettes situés sous le nom du fichier. Je continue à essayer de comprendre. @+

Merci à vous je m'en vais tester tout çà et je vous tiens au courant.

Comme je ne suis pas toujours connecté et si tu as des questions, tu peux m'écrire à l'adresse suivante : j.sirop@sotec-ingenierie.fr Merci

Mes besoins sont les suivants : afficher l'arborescence des XREF chargés dans la ou les présentations du fichier de telle sorte qu'une personne n'ayant que le plan papier puisse retrouver facilement le chemin des xrefs. Ce serait du style : XREF1 : R:\affaire\plans\XREF\nom_XREF1.DWG XREF2 : R:\affaire\plans\XREF\nom_XREF2.DWG XREFn : R:\affaire\plans\XREF\nom_XREFn.DWG Voici le lisp que j'utilise pour afficher le nom du fichier : (defun c:tampon (/ bloc1 echo1 lup1 TouTampon Sub_InsertionBloc Sub_Misajour) (setq echo1 (getvar "cmdecho")) ; svg cmdecho (setvar "cmdecho" 0) ; (setq lup1 (getvar "luprec")) ; svg luprec (setvar "luprec" 6) ; nombre de décimales ;; ====================================================================== ;; La suite de cette fonction se trouve à la fin de fichier ;;------------------------------------------------------------------ (defun Sub_InsertionBloc (/ Question1 AffBoite Echel1 pt1) ;; routine d'insertion du bloc contenant l'attribut (setq Question1 (getvar "attreq")) ; svg attreq (setvar "attreq" 1) ; pour utiliser la valeur par défaut de l'attribut (setq AffBoite (getvar "attdia")) ; svg attdia (setvar "attdia" 1) ; pour interdire affichage boîte de dialogue ; d'insertion des attributs (setq Echel1 (getvar "dimscale")) ; facteur d'échelle global (setq pt1 (getpoint "\nPoint d'insertion du tampon : ")) (if (= pt1 nil) (exit) ) ;; 'pause' dans la ligne suivante permet de choisir l'angle d'insertion. Vous pouvez ;; remplacer par 0 pour mettre le bloc toujours horizontal ou 90 pour vertical (command "_insert" "$tampon$" pt1 Echel1 Echel1 pause) (setvar "attreq" Question1) ; restauration valeur attreq avant programme (setvar "attdia" AffBoite) ; restauration valeur attdia avant programme (princ) ) (defun Sub_Misajour (/ Mois Jour Annee Texte1 Chemin LgNomDessin NomDessin NomUser NbTampon Cpt1 EntTamp Ent_dansBloc NomEnt NomAtt NewAtt ChgAtt ) (setq NomDessin (getvar "dwgname") ; obtention du nom du dessin LgNomDessin (strlen NomDessin) ; obtention longueur du nom du dessin Chemin (getvar "dwgprefix") ; obtention chemin du répertoire de dessin ) (if (<= LgNomDessin 80) ; si la longueur du nom est inférieure à 79 (setq NomDessin (strcat Chemin NomDessin)) ; on ajoute le chemin ) (setq Mois (substr (rtos (getvar "cdate") 2) 5 2) Jour (substr (rtos (getvar "cdate") 2) 7 2) Annee (substr (rtos (getvar "cdate") 2) 3 2) Heure (substr (rtos (getvar "cdate") 2) 10 2) Minute (substr (rtos (getvar "cdate") 2) 12 2) NomUser (getvar "loginname") ; obtention du nom d'utilisateur ) (if (= "") ; s'il est vide, on le demande (setq NomUser (getstring "\nNom dessinateur/Entreprise : ")) ) ;; La ligne suivante donne la ligne qui sera affichée. Vous pouvez supprimez des infos. (setq Texte1 (strcat NomDessin " " NomUser " " Jour "\\" Mois "\\" Annee " " Heure ":" Minute)) ;; recherche de tous les blocs $tampon$ du dessin (setq TouTampon (ssget "X" (cons (cons 410 (getvar "CTAB"))'((2 . "$tampon$")))) NbTampon (sslength TouTampon) ; nbre de blocs $tampon$ dans le dessin Cpt1 0 ; drapeau compteur de blocs $Tampon$) ) (repeat NbTampon ; tant qu'il y a des $tampon$ ;; retourne dans EntTamp la liste des données du numéro Cpt1 de TouTampon (setq EntTamp (entget (ssname TouTampon Cpt1)) Cpt1 (+ Cpt1 1) ; incrémente le compteur de blocs $tampon$ ) ; si l'entité est un bloc (if (= (cdr (assoc 0 EntTamp)) "INSERT") (progn (setq Ent_dansBloc 1) ; Drapeau attribut (while Ent_dansBloc ; tant qu'il y a des entités dans le bloc ;; Nom de l'entité suivante dans le bloc (setq NomEnt (entget (entnext (cdr (assoc -1 EntTamp))))) ;; si cette entité est un attribut (if (= (cdr (assoc 0 NomEnt)) "ATTRIB") (progn ;; si le nom de l'étiquette de l'attribut est "DATE_TAMPON" (if (= (cdr (assoc 2 NomEnt)) "DATE_TAMPON") (progn (setq NomAtt (assoc 1 NomEnt) ; valeur de l'attribut (associée à 1) NewAtt (cons 1 Texte1) ; construction paire pointée) ChgAtt (subst NewAtt NomAtt NomEnt) ; remplace les valeurs ) ;; modifie les données de l'attribut (entmod ChgAtt) ) ; progn ) ; if ) ; progn ) ; if ;; si on atteint la fin du bloc (if (= (cdr (assoc 0 NomEnt)) "SEQEND") (setq Ent_dansBloc nil) ) (setq EntTamp NomEnt) ) ; retour à while ) ; progn ) ; if retour s'il y a encore des blocs ) ; repeat (princ) (setvar "cmdecho" echo1) (setvar "luprec" lup1) ; nombre de décimales (command "_regen") (princ) ) ;; gestion des erreurs (defun BiE_Error (*msg) (if (and (/= *msg "Fonction annulée") (/= *msg "Fonction annul‚e") (/= *msg "Function cancelled") ) (princ (strcat "\nErreur : " *msg)) (princ) ) (setq *error* $OldError) (setvar "cmdecho" echo1) (setvar "luprec" lup1) ; nombre de décimales (princ) ) ;;--------------Suite fonction C:TAMPON ---- ;;------------------------------------------- ;; Pour gestion des erreurs (setq $OldError *error* *error* BiE_Error) ;; Est ce que le bloc $tampon$ a déjà été inséré dans le dessin ? (setq bloc1 (tblsearch "block" "$tampon$")) (cond ((= bloc1 nil) (Sub_InsertionBloc) ; si non aller à Sub_InsertionBloc (Sub_Misajour) ; puis à Sub_Misajour ) ((= (ssget "X" '((2 . "$tampon$"))) nil) ;; si le bloc existe dans la base de données du dessin mais a été effacé (Sub_InsertionBloc) (Sub_Misajour) ) ((/= bloc1 nil) (Sub_Misajour)) ; si le bloc existe, aller à Sub_Misajour ) ;; Force l'affichage de la boite de dialogue de la commande suivante (traceur) (initdia) ;; la ligne suivante lance la commande traceur. Vous pouvez la supprimer sans problème. (princ) ) D'avance merci. James

tyrese69_ : express-tools n'est pas chargé, je verrais pour récupérer le CD Lundi Patrick_35 : n'étant pas très fort en Lisp, je voudrais savoir ce que je fais avec tes lignes. En tout cas merci pour votre réactivité. jsirop

Bonjour, J'aimerais savoir s'il existe un programme permettant d'afficher dans une présentation le chemin complet et le nom des XREF rattachés au fichier. J'utilise un Lisp ( Tampon.lsp) trouvé sur le Net qui me permet d'afficher l'arborescence la date, l'heure, ... du fichier et je le trouve bien pratique. J'aimerais pouvoir le compléter avec l'affichage des Xref. D'avance merci.

J'ai un fichier contenant certains type de lignes qui apparaissent toutes en continu malgré l'utilisation de différente échelle. ( exemple : un type de ligne avec l'inscription EP n'apparaît pas quelque soit l'échelle utilisée ). Lorsque je recharge mon fichier contenant ces différentes lignes, celles-ci ne s'installent pas non plus. Merci de votre aide. James

Tout d'abord merci à tous pour vos réponses, mais le boulot m'a pris de mon temps et je n'ai pas pu vérifier pour l'instant vos solutions. Vu la date du jour, je pense que je vous confirmerais si j'ai résolu le problème en début d'année. Aussi je vous souhaite toutes et tous de joyeuses fêtes et à l'année prochaine. James SIROP

PSLTSCALE = 0. Je confirme @+

la commande mvsetup peut t'être utile aussi.

J'ai regardé suite à vos conseils, mais en fait le problème ne semble pas provenir de là. En effet j'ai utilisé le même fichier proto ( qui fait parti de ma charte graphique ) pour mon fichier revêtement et mon fichier XREF. Mais merci quand même. James

Bonjour, J'ai chargé un XREF et je n'arrive pas à gérer l'échelle d'un type de ligne dans l'espace papier. Mon plan XREF est un plan de tracé de voirie où il y a des lignes de signalisation discontinues et je voudrais qu'elle apparaissent dans mon plan revêtement lorsque je charge mon tracé voirie. Or je n'obtiens qu'une ligne continue. Merci pour votre aide. James SIROP

www.securite-routiere.equipement.gouv.fr En fait c'est sur ce site, il y a 8 parties, mais pour ce qui est de la signal chantier seule la partie 8 te suffit. James

Tu peux trouver l'instruction interministérielle sur la signalisation routière sur le net ( par contre je ne sais plus si il s'agit sur le du site légifrance ou pas , je me renseigne ). Sinon je l'ai en pdf mais c'est un peu lourd >3.2 Mo. A+ pour d'autres renseignements. James

Tu peux mettre en jpg, par contre pour ce qui est de la résolution, la seule chose que je peux te dire est qu'il vaut mieux des résolutions pas trop élevés ( ou alors posséder un PC puissant ).

Les raccourcis claviers sont paramétrables comme autocad ( pratique quand on s'est crée ses propres raccourcis ).

J'ai débuté sous Mensura sans formation et il est vrai que les bouquins de mensura permettent de s'en sortir. Mais ayant fait une formation le 22 Octobre, je me suis rendu compte que pour certaine manip il y avait plus simple ou bien au contraire je sautais certaines opérations ( surtout pour les MNT ). La formation n'est pas donné financièrement mais par contre elle est bien faite. J'ai proposé à un formateur ( Antoine ) de venir de temps en temps sur le forum pour trier le vrai ou le pas vrai de ce qui peut se dire.

Je n'ai pas encore essayé le module giratoire en projet. Par contre je l'ai essayé pour voir ce que l'on peut faire avec et il ne me semble pas compliqué. Jj'ai tracé mon centre de giratoire mes axes de chaussées et j'ai obtenu un rond point complet avec sa signalisation et en respectant les règles préconisées par le SETRA !!! Seul Bémol c'est du 2D.

Pour les textures, tu peux rajouter dans le répertoire des textures de ton choix au format BMP. Par contre pout les objets 3D, il te faut demander à Mensura qu'il te transforme tes objets 3D ( 3d Max, 3DS ), il n'ya pas d'autres solutions ( en tout cas c'est ce qu'ils m'ont affirmé lorsque j'ai fais ma formation chez eux ). @+

Est ce que tu as crée un profil dans le menu options?

Envoi-moi ton adresse courriel pour que je t'envoie le fichier tampon.lsp ainsi que le bloc. Mon adresse : j.sirop@sotec-ingenierie.fr

J'essaye depuis Vendredi la version 5. Tout ce que je peux dire c'est que cette version est plus conviviale en ce qui concerne le module DAO. Je n'irais pas jusqu'à dire qu'on peut mener un projet complet de bout en bout avec Mensura mais en tout cas il est plus aisé de le terminer une fois que le projet est dans une phase avant exécution. J'ai pu récupérer en grande partie mon fichier proto réalisé sous Autocad 2004. Bien sûr pour ce qui est de la mise en page, il faut tout refaire mais, bonne surprise, cela s'est amélioré de ce côté. Par contre il y a encore quelque Bug ( dans le module métré quand on choisit la sélection par calque ou dans l'insertion de cartouche si ceux ci ne sont pas dessinés sous le calque 0 ). A bientôt.