guess0169

Heuuu désolé pas compris ce que tu veux dire ... :s En fait exactement j'ai mon projet routier modélisé en 3D (MNT) La polyligne 3D est un relevé d'un réseau HTA, J'aimerais faire une coupe perpendiculaire à la polyligne 3D (la HTA) Afin de s'avoir et de pouvoir rendre une coupe explicite à quelle profondeur ce trouve cette HTA ...

Bonsoir, J'ai un MNT, par dessous une polygne 3D. J'aimerais pouvoir faire une coupe sur mon MNT et voir ou ce trouve ma polyligne (en élévation) par rapport à cette dernière. Merci si vous pouvez m'aider.

Bonjour, Je remets d'actualité ce poste, car je cherche aussi une solution, afin d'intégrer le même type de photo. Hormis que je n’ai pas Map, mais autocad 2012 avec Covadis 13. (Ou mensura V7) Mais aussi, de pouvoir transformer la délocalisation GPS en Lambert III sud, ou en RGF93-CC44. Merci à qui peux :)

Bonjour, Je possède un LISP pour insérer des points topo, à partir d'un fichier .csv ou .txt. Mais vous devez surement bien le connaitre ce lisp. Cependant, il ne possède que deux attribut (mat & alt) j'ai besoin d'en rajouter un autre, "cod" Car mon fichier ce trouve sous la forme suivante. Mat,x,y,Cod Si vous pouvez modifier le lisp ci-dessous pour intégrer ce nouveau attribut. Merci. ;;; INSTOPO (gile) ;;; Insère le bloc "PointBloc" sur les points décrit dans un fichier ascii (.txt .csv ou autre) ;;; ;;; Modification : possibilité d'insérer un point 02/12/2009 (defun c:instopo (/ *error* makeblock filename tmp file layers clay ptlay blklay data-sep dec-sep mat-p mat alt scl point bloc dcl_id space line coords matric insert ) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (or *blocks* (setq *blocks* (vla-get-Blocks *acdoc*))) ;;---------------------------------------------------;; (defun *error* (msg) (or (= msg "Fonction annulée") (princ (strcat "Erreur: " msg)) ) (and file (close file)) (vla-EndUndoMark *acdoc*) (princ) ) ;;---------------------------------------------------;; ;; MakeBlock ;; Crée le bloc PointBloc (defun makeblock (/ block) (vl-load-com) (setq block (vla-add *blocks* (vlax-3d-point '(0. 0. 0.)) "TCPOINT" ) ) (vla-put-Layer (vla-addPoint block (vlax-3d-point '(0. 0. 0.))) "0" ) (vla-put-Layer (vla-addAttribute block 2.5 acAttributeModePreset "" (vlax-3d-point '(1. 0.5 0.)) "MAT" "" ) "0" ) (vla-put-Layer (vla-addAttribute block 2.5 acAttributeModePreset "" (vlax-3d-point '(1. -3. 0.)) "ALT" "" ) "0" ) ) ;;---------------------------------------------------;; (if (setq filename (getfiled "Sélectionner un fichier point" "" "txt;csv;*" 0 ) ) (progn ;; Création du fichier DCL temporaire (setq tmp (vl-filename-mktemp "Tmp.dcl") file (open tmp "w") ) (write-line "InsTopo :dialog{label=\"InsTopo\"; :boxed_row{label=\"Format du fichier\"; :boxed_radio_column{label=\"Séparateur de données\";key=\"data-sep\"; :radio_button{label=\"Virgule\";key=\"44\";value =\"1\";} :radio_button{label=\"Point-virgule\";key =\"59\";} :radio_button{label=\"Espace\";key=\"32\";} :radio_button{label=\"Tabulation\";key =\"9\";}} :column{ :boxed_radio_column{label=\"Séparateur décimal\";key=\"dec-sep\"; :radio_button{label=\"Virgule\";key =\"com\";} :radio_button{label=\"Point\";key=\"dot\";value=\"1\";}} :boxed_radio_column{label=\"Matricule\";key=\"mat-p\"; :radio_button{label=\"Présent\";key=\"present\";value=\"1\";} :radio_button{label=\"Absent\";key=\"absent\";}}}} :boxed_column{label=\"Point\"; :row{ :toggle{label=\"Insérer des points\";key=\"point\";value=\"1\";} :popup_list{label=\"Calque\";key =\"ptlay\";edit_width = 24;}} spacer;} :boxed_column{label=\"Bloc\"; :toggle{label=\"Insérer de blocs\";key=\"bloc\";value=\"1\";} :row{ :boxed_column{label=\"Attributs\"; :toggle{label=\"Matricule\";key=\"mat\";value=\"1\";} :toggle{label=\"Altitude\";key=\"alt\";value=\"1\";}} spacer; :column{spacer; :popup_list{label=\"Calque\";key =\"blklay\";edit_width = 24;} :edit_box{label=\"Echelle \";key=\"scl\";value=\"1.0\";fixed_width=true;} spacer;}}} ok_cancel;}" file ) (close file) (vlax-for l (vla-get-Layers *acdoc*) (setq layers (cons (vla-get-Name l) layers)) ) (setq layers (vl-sort layers '<) clay (getvar "CLAYER") ptlay clay blklay clay data-sep "44" dec-sep "dot" mat-p "present" mat "1" alt "1" scl 1.0 point T bloc T ) (setq dcl_id (load_dialog tmp)) (if (not (new_dialog "InsTopo" dcl_id)) (exit) ) (start_list "ptlay") (mapcar 'add_list layers) (end_list) (start_list "blklay") (mapcar 'add_list layers) (end_list) (set_tile "ptlay" (itoa (vl-position clay layers))) (set_tile "blklay" (itoa (vl-position clay layers))) (foreach k (list "data-sep" "dec-sep" "mat-p" "mat" "alt") (action_tile k "(set (read $key) $value)") ) (action_tile "point" "(if (= \"1\" $value) (progn (setq point T) (mode_tile \"ptlay\" 0) ) (progn (setq point nil) (mode_tile \"ptlay\" 1) ) )" ) (action_tile "bloc" "(if (= \"1\" $value) (progn (setq bloc T) (mode_tile \"blklay\" 0) (mode_tile \"mat\" 0) (mode_tile \"alt\" 0) (mode_tile \"scl\" 0) ) (progn (setq bloc nil) (mode_tile \"blklay\" 1) (mode_tile \"mat\" 1) (mode_tile \"alt\" 1) (mode_tile \"scl\" 1) ) )" ) (action_tile "ptlay" "(setq ptlay (nth (atoi $value) layers))") (action_tile "blklay" "(setq blklay (nth (atoi $value) layers))") (action_tile "scl" "(setq scl (distof $value)) (while (or (not scl) (<= scl 0)) (alert \"Nécessite un nombre réel strictement positif\") (setq scl 1.0) (set_tile \"scl\" \"1.0\") (mode_tile \"scl\" 2))" ) (action_tile "cancel" "(setq data-sep nil) (done_dialog 0)") (action_tile "accept" "(done_dialog 1)") (start_dialog) (unload_dialog dcl_id) (vl-file-delete tmp) (if data-sep (progn (vla-StartUndoMark *acdoc*) (and (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list *blocks* "TCPOINT") ) ) (makeblock) ) (setq space (vla-get-ModelSpace *acdoc*) file (open filename "r") ) (while (setq line (read-line file)) (setq coords (str2lst line (chr (atoi data-sep)))) (if (= mat-p "present") (setq matric (car coords) coords (cdr coords) ) (setq matric nil) ) (if (= dec-sep "com") (setq coords (mapcar '(lambda (x) (read (vl-string-translate "," "." x)) ) coords ) ) (setq coords (mapcar 'read coords)) ) (setq coords (list (car coords) (cadr coords) (cond ((caddr coords)) (T 0.0) ) ) ) (if (vl-every 'numberp coords) (progn (if point (vla-put-Layer (vla-AddPoint space (vlax-3d-point coords)) ptlay ) ) (if bloc (progn (setq insert (vla-InsertBlock space (vlax-3d-point coords) "TCPOINT" scl scl scl 0.0 ) ) (vla-put-Layer insert blklay) (foreach att (vlax-invoke insert 'getAttributes) (if (and (= (vla-get-TagString att) "MAT") matric (= mat "1") ) (vla-put-TextString att matric) ) (if (and (= (vla-get-TagString att) "ALT") (= alt "1") ) (vla-put-TextString att (rtos (caddr coords))) ) ) ) ) ) ) ) (close file) (vla-EndUndoMark *acdoc*) ) ) ) ) (princ) ) ;; str2lst ;; Transforme un chaine avec séparateur en liste de chaines ;; ;; Arguments ;; str : la chaine à transformer en liste ;; sep : le séparateur ;; ;; Exemples ;; (str2lst "a b c" " ") -> ("a" "b" "c") ;; (str2lst "1,2,3" ",") -> ("1" "2" "3") ;; (mapcar 'read (str2lst "1,2,3" ",")) -> (1 2 3) (defun str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) )

Bonjour, J'aimerais déplacer des objets, points ... en plan c'est a dire X,Y J'ai vue qu'il ya des Filtres de coordonnées, mais j'arrive pas --"

Je sais pas comment renseigner les donner, De quelle format ou connaissez un format d'export leicas, où geobase prend en compte les constantes de prismes? Pour l'instant je les importe dans géobase mon fichier .txt en Lecture séparateur Et voici les export de mon leicas: - NXYZCI_CQ - Carnet-CQ - Appl_Log_FR Voilà un peut plus de détaille, si vous avez d'autre idée ...

Bonjour, j'aurais besoin de changer les constantes de mon prisme après relevé, comment on peut on le faire avec Covadis ? Mon levé est réalisé grâce à une 1203 Leica. Support CovadisV12

Bonjour, Je vais vous sollicitez, parce que je n’arrive pas à trouver une façon simple, à faire la chose suivante. Il y a des rectangles, qui sont rangés en lignes et colonnes, chaque colonnes portent un Nom, et chaque lignes sont numérotées, mais que par des chiffres impaire (1-3-5....). Donc ce que j’aimerais avoir, c’est le nom et le numéro de chaque centre des rectangles, en croisant les lignes et colonnes. C’est come un touché-coulé, les colonnes porte les noms (A-B-C …) les lignes des numéros (1-2-3 ...) Et donc en croisement des deux on à A-1, A2, A3 … B1-B2-B3 … Voilà c’est le même principe. J'aimerais si possible, que le nom soit associer au point (centre), ou mieux un point topo (Mat,X,Y,Z=0) je vous mets à disposition le plan en .dwg http://www.megaupload.com/?d=UAD42T32 Mot de passe: autoguess Merci si vous arrivez à y faire. Guess Ps: si le poste n'est pas au bonne endroit n’hésitez pas à le déplacer.

Bonjour je suis sur Covadis 12 Je cherche à faire un profil en long sur une mmnt qui suit ma polyligne (avec plusieurs segment) Si vous pouvez m'aider à trouver la fonction. Merci

Bonjour, Esce que l'on peut avoir un aperçu du travail, avant et après mensura ? Juste par curiosité : D

J'ai touvé la source du probleme :) C'était en faite le logiciel de configuration de souris, de chez Lenovo qui causais des interferances. Aprés désinstalation du programe. Sa marche :D Merci pour votre aide [Edité le 26/10/2010 par guess0169]

non éffectivement il n'y était pas, donc je l'ais mis en bouton central. Quand je fait click molette, j'arrive bien à me déplacer en plan, mais toujour pas de zoom en faisant tournée la molette :/

Pas de solution ?

Non il est à 1 :/

Bonjour, J'ai un petit souci, avec autocad 2011LT qui est le suivant: Lors ce que je veux zoomer avec la molette, sa me fait un défilement vertical ... et pareille pour, quand je veut me déplacer en plan en faisant click molette. Comment reparamétrer la sourie? [Edité le 26/10/2010 par guess0169]

Merci c'est jentil :D

Bonjour, Il me manque des jeux de caractère, comme "AR CENA" ou es ce que l'on peut le trouvez ou métre à jour la liste?

J'ai trouvé, en faite pour que le changement de n°de série soit pris en compte. Il faut metre à jour le n°de série. Fermer AutoCAD. Et la lancer en tant qu'administrateur, pour que le changement soit prise en compte :s

Bonjour, J'ai réinstallé AutoCAD et Covadis sur un autre PC, qui tourne sur windows 7, mais le souci c'est quand je lance covadis, il dise que le N° de série de Covadis ne corespond pas à celuis de covadis. Pour sur celuis de AutoCAD est 000-000000. Pourtant il est bien enregistré, et quand j'essai de changé sont n° de série, sa ne le change pas il reste à 000-000000 :mad: [Edité le 16/8/2010 par guess0169]

Vi je sais, mais vue qu'il propose que cm ou mm, quelle est l'échelle qui faut mettre alors que mon échelle est en mètre ? Ex: 1/250 en mètre donc en cm ???

Bonjour à tous, J'ai un plan au format PDF et je veut travailler dessus, donc le transformer en DXF, par le biais de Adobe Illustrator. La transformation est génial, mais mon souci est que l'échelle est pas bonne :s car en exportant le PDF, Illustrator nous propose que les unités en millimètre ou centimètre, pas de mètre tsssss Comment le mettre à la bonne échelle ? Par ex pour ce plan là il ce trouve à 1/250. Thanks

Bonjour, Il y a le fichier .bak que tu retrouve avec le même nom que le fichier que tu avait en .dwg Il y à aussi un fichier que tu peut trouvez, sous le nom de "atmp0000" Dans les deux cas renomme l'extension en .dwg Voila bonne chance ;)

Erf, j'y avais déjà pensé, mais sa n'avais pas marché, ou peut être juste pensé :casstet: l oo l Je vois que ce mode peut prendre 15 valeurs à quoi correspond t-ils ? [Edité le 4/5/2010 par guess0169]

Bonjour, Je voulais savoir si il existe une raccourci clavier pour réeffectuer une action mais deux action avant ?

Oui j'avais déjà vu la fonction mais je savais pas quoi mètre dans débit de fuite. Pour du sable de plage c'est 0,007 comme tu l'indique lili ? Ou ya t-il un abaque dessus?