fredbross

Bonjour, une solution simple consiste à faire des courbes de niveau avec lissage, puis d'utiliser ces courbes pour faire un nouveau MNT en les sélectionnant comme lignes de ruptures. mais attention, le MNT ainsi généré risque d’être lourd. Pour l’alléger tu peux utiliser la commande "mesurer" qui insèrera des point selon le pas choisi sur tes courbes de niveau, mais il faudra les faire une par une ou créer un lisp, puis faire un MNT avec ces point uniquement. Sinon Civil3d fait ça très bien en quelques cliques. Mais il y a surement plein d'autres solutions. Bon courage.

Non, la version de la semaine dernière avais déjà ce ".r2"

Tu peux aussi associer les commandes de didier ou gile tel que ci dessus à des boutons dans une palette d'outils. il suffit d'ouvrir les palette d'outils, d'aller dans la palette "exemple d'outil de commande", faire un clic droit sur l'icone "LISP expression VisualLisp" puis copier. Aller dans une palette de ton ton choix (tu peux aussi en créer une nouvelle), clic droit dans une zone vide de la palette puis coller. Après clic droit sur ta nouvelle icone, puis proprieté, mettre le nom voulu et dans "chaine de commande" saisir ['OSMODE;(+1 2 128)] par exemple (sans les crochets mais avec l'apostrophe) puis ok. Enfin tu peux refaire un clic droit sur ton icone puis "spécifier une image" afin de sélectionner une image pour le bouton. Perso j'utilise beaucoup la palette d'outils qui permet pleins de choses tel que l'appel de lisp, l'insertion de bloc (dans un calque définit et à une échelle défini), la définition de hachures types....

J'avais aussi installé le sp1 32 bits des le 2 novembre et ne rencontre aucun bug depuis. j'ai tout de même télécharger le sp1 actuellement disponible et il s’avère être en tout point identique à celui de la semaine dernière, même nom, même taille, même signature numérique d'autodesk du 12 octobre 2011 à 02:36:12 h. Salutations.

Bonjour, le SP1 de map 3D 2012 est de nouveau accessible, sans explication sur cette interruption ! Telecharger le SP1 sur le site d'autodesk Et pour info, la nouvelle commande CLASSICARRAYDIALOG dont il parle dans le readme n'existe pas, c'est en fait ARRAYCLASSIC qui permet de retrouver l'ancienne boite de dialogue pour les réseaux polaire/rectangulaire. Bonne journée.

Bonjour Gile, mais même problème que steven! Win 7 + map3D2012 32bits + covadis 12. Ne faut il pas charger la dll dans autocad ? Salutations.

Bonjour, pour info Le SP1 de map 3D 2012 est sortie. voici le lien pour le telecharger : Autodesk map 3d support Bonne journée.

Non, il n'y à pas de chômeur dans ce domaine ! ou alors des branquignols. Vous devrez soit passer par de la formation en interne avec quelqu'un qui n'à pas d’expérience, soit débaucher quelqu'un en le motivant. Salutations.

Bonjour, afin de vous éviter une saisie longue et fastidieuse, vous pouvez utiliser un petit programme sous excel que j'ai fait il y à quelques années. Il génère une arborescence d'un disque depuis un répertoire sélectionnable (a condition qu'il y est au moins un fichier dedans à sélectionner) Il faut bien sur que les macros soit activées, puis il faut cliquer sur le bouton "ARBORESCENCE" vers la colonne F. Voilà, en espérant que cela vous sera utile. Salutations. http://images.imagehotel.net/g6nfge6wfv.jpg Arborescence.zip

Bonjour, sujet récurent que celui du salaire! Mais il y à trois facteurs importants : 1 - La compétence 2 - La pénurie 3 - La mobilité 1: Concernant la compétence, nul besoin d'y revenir, il est certain que quelqu'un de très compétent dans son domaine peu gagner jusqu'au double de quelqu'un simplement expérimenté et plus du triple de l'employé type "fonctionnaire de base", le tout étant de le faire valoir. 2: Dans beaucoup de domaines concernés par cadxp, il y à pénurie de dessinateurs, projeteurs, topographes..., pénurie allant des personnes simplement efficace au personnes les plus compétentes ( à l'envers, il y à abondance de basiques, lents, ou limités ) et cela influe aussi fortement sur le salaire (très bas pour les basiques et très élevé pour les meilleurs), mais beaucoup n'ont pas conscience qu'il font ou pourrait faire partie des meilleurs et se fonts exploités par leurs patrons et abusés par les basiques qui font beaucoup moins que lui pour le même prix ou presque. 3: Forcement, quelqu'un qui accepte et fait du déplacement doit avoir un salaire (hors indemnités de déplacement) supérieur à celui du sédentaire. Pour en revenir concrètement au sujet initial de ce sujet, le profil recherché par visiograph-géomap ne devrais pas se négocier en dessous de 3000 € net hors déplacement, sauf pour quelqu'un qui aime se faire exploiter. Deux choses importantes dans l'annonce, en plus des prérequis, l'aspect formation, qui n'est pas à la portée de tout un chacun, c'est plutôt une vocation, et surtout "sur l'ensemble de la France", bon voyage...

Bonjour, déjà il faut essayer en fermant toutes les applications en arrière plan puis lors de l'impression, surtout laisser l'ordinateur travailler sans y toucher. La plupart du temps cela suffit avec un PC correct. Sinon, vous trouverez ci dessous un lisp qui permet de forcer l'ordre des profils de haut en bas, il faut bien sur l'adapter en changeant le nom du PC3 à utiliser ligne 47, l'orientation et éventuellement le nombre de paramètres suivant votre version d'autocad, ces paramètres se trouvent grâces à la commande manuelle de tracé "-traceur". Bon courage. (defun c:impauto() (vl-load-com) (setvar "cmdecho" 0) (setq pl (getlayer "Selectionne le calque des cadres à imprimer:")) (setq SS (ssget "_W" (getpoint "pt haut gauche") (getpoint "pt bas droit") (list(cons 0 "LWPOLYLINE") (cons 8 pl)))) (setvar "expert" 5) (if (and SS (> (sslength SS) 0)) (progn (repeat (setq iPTS (sslength SS)) (setq EN (entget (ssname SS (setq iPTS (1- iPTS)))) PTS (cons (cdr (assoc 10 EN)) PTS) ) ) (setq iPTS (vl-sort-i PTS '(lambda (A B) (cond ( (> (cadr A) (cadr B)) ) ((= 1 1) T) (T nil))))) (foreach iX iPTS (setq ent (ssname SS iX)) (setq ent(entget ent)) (setq j! 0) (setq l_cadre (list )) (setq nb_sommets 0) (repeat (length ent) (setq entit (nth j! ent)) (setq code_entit (car entit)) (if (= code_entit 10) (progn (setq l_cadre (cons (list (car (cdr entit))(cadr (cdr entit))) l_cadre)) (setq nb_sommets(+ nb_sommets 1)) );fin du progn );fin du if (setq j! (+ j! 1)) ) (if (= nb_sommets 4) (progn (setq p1 (car l_cadre)) (setq p2 (caddr l_cadre)) (command "-traceur" "o" "" "PDFCreator.pc3" "A3" "M" "A" "N" "F" p1 p2 "1:1" "C" "N" "." "O" "" "N" "N" "O") )) ) ))) (defun getlayer (titre / lay lst tmp file what_next dcl_id nom) (while (setq lay (tblnext "LAYER" (not lay))) (setq lst (cons (cdr (assoc 2 lay)) lst)) ) (setq lst (acad_strlsort lst) tmp (vl-filename-mktemp "Tmp.dcl") file (open tmp "w") ) (write-line (strcat "getlayer:dialog{label=" (cond (titre (vl-prin1-to-string titre)) ("\"Choisir un calque\"") ) ";initial_focus=\"tp\"; :boxed_column{:row{ :column{:text{label=\"Sélectionner un objet\";alignment=left;}} :column{:button{label=\">>\";key=\"obj\";alignment=right;fixed_width=true;} spacer;}} :edit_box{key=\"tp\";edit_width=50;allow_accept=true;} :popup_list{key=\"lay\";edit_width=50;} spacer;}ok_cancel;}" ) file ) (close file) (setq dcl_id (load_dialog tmp)) (setq what_next 2) (while (>= what_next 2) (if (not (new_dialog "getlayer" dcl_id)) (exit) ) (start_list "lay") (mapcar 'add_list lst) (end_list) (or nom (setq nom (vlax-ldata-get "getLayer" "n")) (setq nom (vlax-ldata-put "getLayer" "n" "0")) ) (if (member nom lst) (set_tile "lay" (itoa (- (length lst) (length (member nom lst)))) ) (set_tile "lay" "0") ) (set_tile "tp" nom) (action_tile "obj" "(done_dialog 3)") (action_tile "tp" "(setq nom $value)") (action_tile "lay" (strcat "(if (or (= $reason 1) (= $reason 4))" "(progn" "(setq nom (nth (atoi $value) lst))" "(set_tile \"tp\" (nth (atoi $value) lst))" "(mode_tile \"tp\" 2)))" ) ) (action_tile "accept" (strcat "(if (tblsearch \"LAYER\" nom)" "(progn (done_dialog 1)" "(vlax-ldata-put \"getLayer\" \"n\" nom))" "(progn" "(alert (strcat \"Le calque \" nom \" est introuvable.\"))" "(setq nom nil) (set_tile \"tp\" (vlax-ldata-get \"getLayer\" \"n\"))" "(mode_tile \"tp\" 2)))" ) ) (setq what_next (start_dialog)) (cond ((= what_next 3) (if (setq nom (car (entsel))) (setq nom (cdr (assoc 8 (entget nom)))) (setq nom nil) ) ) ((= what_next 0) (setq nom nil) ) ) ) (unload_dialog dcl_id) (vl-file-delete tmp) nom )

Bonjour, cela arrive parfois. La meilleur parade est de faire un wbloc de ce que tu veux copier puis de l'inserer dans le dessin destination. Si wbloc plante aussi, alors il ne reste que la solution d'enregistrer au format dxf puis d'ouvrir ce dxf et la ça devrait rouler. Salutations

Bonjour, il suffit de créer un MNT (des faces 3D qui relies les points) avec par exemple le lisp ou le vlx (voir en pièce jointe) de ElpanovEvgeniy. http://elpanov.com/index.php?id=6 En suite, il suffit d'extruder les faces 3D ainsi obtenues à la vertical vers le bas, puis faire une union de solides. A partir de la tu pourras réaliser toutes les coupes que tu veux avec la fonction coupe d'autocad. Salutations.

Bonjour mickael En sélectionnant les blocs avec la méthode de didier, Si ce que tu veux c'est savoir combien il y a de blocs dans ton jeu de sélection il suffit de : (setq nombredebloc (sslength jeusel)) puis tu réitére ta sélection et ton comptage pour chacun de tes noms de blocs. Bon courage.

Bonsoir et d'abord merci et bravo pour votre énorme travail et votre partage très généreux. Je voulais explorer votre lisp LG mais le lien de cadxp ne fonctionne plus et il ne se trouve pas sur votre site non plus apparemment ? Salutations.

Bonjour, Civil 3D est encore un peu trop orienté "Etude", très puissant dans se domaine mais nécessitant des utilisateurs assez doués. Mensura quant à lui, est très carré et donc très rassurant pour les utilisateurs, l'édition de plans d’exécutions est très facile et l'interface très accessible. Ceci est un avis très neutre puisque pour ma part j'ai opté pour covadis/autopiste. Bonne journée.

Bonjour, c'est le tiercé dans l'ordre. 1- profil type par couche simple = assistant de création de profil basiques 2 -profil type par couche avancé = assistant de création de profil plus complets mais donc un peu plus compliqué. 3 - profil type par point = méthode quasi manuelle de construction, la plus polyvalente mais aussi la plus compliquée pour un néophyte. Salutations.

Bonjour, il suffit d'afficher le contour de ton projet et de l'utiliser comme masque intérieur d'affichage du TN, mais il vaux mieux duplique ton TN d'abord et masquer cette copie, sinon cela risque d'impacter ton projet surtout si tu est en recalcul auto!

Bonjour, si le problème n'est pas encore réglé, la plupart du temps, lorsque covadis ne fonctionne plus avec un autocad ou map ou civil, un bon scandisk suffit si les dégâts ne sont pas trop grave, sinon il faudra une réinstallation du produit en plus.

Bonjour, perso je travaille depuis plusieurs années avec de simples portables grande marque, hp, dell, medion... Il ont tous été très adéquats, même avec de gros fichiers. Actuellement dell vostro 3700 - T9550 2.67 Ghz - seven 32bits - nvida 9600M GS - Civil 3D 2010 -autopiste-covadis 11. Le plus important avec autocad, c'est la fréquence du processeur, autocad n'étant que très peu multi-thread, un processeur à 6 coeurs n'ira pas plus vite qu'un Duo, mais un 3 Ghz ira 1,5 fois plus vite qu'un 2 Ghz. Une carte video gamer type geforce est largement suffisante voir plus rapide qu'une carte haute de game type quadro si l'on ne se sert pas trop du rendu. (tests réalisés plusieurs fois) Après, bien sûr, un minimum de nettoyage et d'organisation des dessins ont une grande influence sur la vélocité d'autocad. (mapclean,-modiflistechelle, wbloc puis xref...) Une clé ready-boost retarde grandement l'apparition de message "mémoire pleine" d'autocad. Veiller aussi à ne pas bourrer vos ordinateurs de programmes en taches de fond (msn, drivers imprimantes...) ou utiliser un logiciel style gamebooster. Bonne journée.

Bonjour, cela s'appelle un balancement de marches, regarde ce site qui explique assez bien comment faire: http://pagesperso-orange.fr/lionel.ponnelle/Balancement.htm et aussi: http://pagesperso-orange.fr/marc.patat/tutorial.htm Voilà, bon courage.

Bonjour, sur le site http://www.xanadu.cz, dans les téléchargements, il y à un VLX nommé SYSVARLOCK qui permet de bloquer/filtrer les variables que l'on souhaite via un fichier texte. C'est gratuit et fonctionne super bien. Perso je m'en sert principalement pour bloquer pickstyle que covadis s'évertue à réactiver à tout bout de champ. Bon journée.

Content de savoir que cela sera utile à d'autres. Thierry, je t'ai répondu en MP, quant à Laurent, oui ça roule, je commence à être sollicité mais suis toujours pris sur le chantier du tram de Montpellier et pour longtemps encore je pense. Bonne journée à tous.

Voilà le lisp modifier pour conserver les couleurs et pour pouvoir sélectionner les textes par fenêtre ou autre. (DEFUN C:DT() ;pour décaler les textes chevauchés de profils covadis ;par F.Brosseau SARL PROJSUR le 18/02/2010 (command "annuler" "D") (setq n 0 sel (ssget '((0 . "TEXT")))) (repeat (sslength sel) (if (> n 0) (setq xo x yo y )) (setq entname(ssname sel n) ent (entget entname) x (car(cdr(assoc 10 ent))) y (cadr(cdr(assoc 10 ent))) n (+ n 1) ) (if (and (> n 1) (< (- xo x) (cdr (assoc 40 ent))) (= yo y)) (progn (setq x (- xo (* 2 (cdr (assoc 40 ent)))) pt (list x y 0)) (entmake (list '(0 . "TEXT") '(100 . "AcDbEntity") '(100 . "AcDbText") (assoc 1 ent) (assoc 7 ent) (assoc 8 ent) (assoc 62 ent) (cons 10 pt) (cons 11 pt) (assoc 40 ent) (cons 50 1.570796) (cons 71 0) (cons 72 0) (cons 73 2) ) ) (entdel entname) )) ) (setq ss nil) (command "annuler" "F") (PRINC)) Voilà, bon week-end.

Bonjour, vous voulez en finir avec les superpositions de textes des profils covadis ou autopiste mais sans perdre d'informations, voici un petit lisp qui décale les textes chevauchés autant que nécessaire. (DEFUN C:DECTEXT() ;pour décaler les textes chevauchés de profils covadis ;par F.Brosseau SARL PROJSUR le 18/02/2010 (setq n 0 sel (ssget "X" '((0 . "TEXT")))) (repeat (sslength sel) (if (> n 0) (setq xo x yo y )) (setq entname(ssname sel n) ent (entget entname) x (car(cdr(assoc 10 ent))) y (cadr(cdr(assoc 10 ent))) n (+ n 1) ) (if (and (> n 1) (< (- xo x) (cdr (assoc 40 ent))) (= yo y)) (progn (setq x (- xo (* 2 (cdr (assoc 40 ent)))) pt (list x y 0)) (entmake (list '(0 . "TEXT") '(100 . "AcDbEntity") '(100 . "AcDbText") (assoc 1 ent) (assoc 7 ent) (assoc 8 ent) (cons 10 pt) (cons 11 pt) (assoc 40 ent) (cons 50 1.570796) (cons 71 0) (cons 72 0) (cons 73 2) ) ) (entdel entname) )) ) (setq ss nil) (PRINC)) Voilà, il est brut de décoffrage mais fonctionne bien pour moi, ainsi les profils sont enfin lisibles. Bonne journée.[Edité le 18/2/2010 par fredbross]