Nicky

Salut BonusCad, Oui j'ai vu ta réponse sur Cadtutor et je t'en remercie. Je n'ai pas encore eu le temps de tester ta routine mais je le ferai dès que possible. A vrai dire, je cherchais à savoir si ma routine était corrigeable et si oui d'ou venait l'erreur. Merci en tout cas

Merci Olivier, C'est exactement ca! Merci infinement.

Bonjour Olivier, effectivement, voici un dwg qui pose problème avec les pas de 1, 5 et 25. Pour information, il s'agit d'un fichier en mètres converti en feet avec la commande suivante. (defun c:SCFTM () (command "insunits" 6) (command "_units" 2 3 1 1 0 "N") (setq selec (ssget "_X")) (command "-dwgunits" 2 2 4 "yes" "no" "yes" "no") ;;(command "_.scale" selec "" '(0 0 0) 1000) (command "_.zoom" "e") ;; (command "_units" 2 3 1 1 0 "N") (command "insunits" 2) ) Bien que les courbes de niveau soit a la bonne altitude (a 4 décimales près), je me demande si le problème n'aurait pas quelque chose a voir avec la valeur de l'arrondi de l'élévation des polylignes (courbes de niveau)..? Merci, Crooked Mile export mensura test.dwg

Bonjour a toutes et tous, J'ai un petit problème avec le code ci dessous : La routine permet en choisissant un multiple d'altitude (0.5/1/2/5/10/25/50/100 mètres) de placer dans un (nouveau) calque les courbes de niveau (situées dans un calque originel) répondant au critère. Cependant, depuis peu, certaine courbe ne se place pas dans le nouveau calque alors que le critère est respecté (les altitudes affichées dans les propriétés sont juste). Il y a peut être une erreur dans le code, ou une variable a modifier (précision ou arrondi proche par exemple..) ? Merci, (defun c:MAJCL ( ;/ elev ss i el ) (vl-load-com) (setq Valer (getvar "luprec")) (setvar "luprec" 0) (initget 1 "0.5 1 2 5 10 25 50 100") (setq elev (getkword "\nSelect String for filter [0.5/1/2/5/10/25/50/100]: " ) ) (setq LayerCL (car (entsel "\nClick on a layer with contour lines to modify : " ) ) ) (setq EntLay (entget LayerCL)) (setq LAY (cdr (assoc 8 EntLay))) (setq nomcalc (strcat "_NB-MajorLine_" elev)) (initget 1 "Blue Green GRey Pink Red White Yellow Other") (setq ColorCalc (getkword "\nSelect a color for the layer [Blue/Green/GRey/Pink/Red/White/Yellow/Other]: " ) ) (cond ((= ColorCalc "Blue") (setq Color 141) ) ((= ColorCalc "Green") (setq Color 91) ) ((= ColorCalc "GRey") (setq Color 253) ) ((= ColorCalc "Pink") (setq Color 211) ) ((= ColorCalc "Red") (setq Color 241) ) ((= ColorCalc "White") (setq Color 7) ) ((= ColorCalc "Yellow") (setq Color 51) ) ((= ColorCalc "Other") (setq Color 121) ) ) (if (not (tblsearch "LAYER" nomcalc)) (entmake (list (cons 0 "LAYER") (cons 100 "AcDbSymbolTableRecord") (cons 100 "AcDbLayerTableRecord") (cons 2 nomcalc) (cons 70 0) (cons 62 Color) (cons 370 -3) (cons 6 "Continuous") ) ) ) (if (setq ss (ssget "_X" (list (cons 0 "LWPOLYLINE") (cons 8 LAY)) ) ) (repeat (setq i (sslength ss)) (setq el (cdr (assoc 38 (entget (setq e (ssname ss (setq i (1- i)))))) ) ) (if (equal (distof (rtos (rem el (distof elev)) 2 2)) 0.0 1e-6) ; at elevation that is a multiple of elev? (vla-put-Layer (vlax-ename->vla-object e) nomcalc) ;(command "_.chprop" e "" "_layer" nomcalc "") ) ; if ) ; repeat ) ; if (setvar "luprec" Valer) (princ) )

Bonjour a toutes et tous, J'ai un petit problème avec le code ci dessous : La routine permet en choisissant un multiple d'altitude (0.5/1/2/5/10/25/50/100 mètres) de placer dans un (nouveau) calque les courbes de niveau (situées dans un calque originel) répondant au critère. Cependant, depuis peu, certaine courbe ne se place pas dans le nouveau calque alors que le critère est respecté (les altitudes affichées dans les propriétés sont juste). Il y a peut être une erreur dans le code, ou une variable a modifier (précision ou arrondi proche par exemple..) ? Merci, (defun c:MAJCL ( ;/ elev ss i el ) (vl-load-com) (setq Valer (getvar "luprec")) (setvar "luprec" 0) (initget 1 "0.5 1 2 5 10 25 50 100") (setq elev (getkword "\nSelect String for filter [0.5/1/2/5/10/25/50/100]: " ) ) (setq LayerCL (car (entsel "\nClick on a layer with contour lines to modify : " ) ) ) (setq EntLay (entget LayerCL)) (setq LAY (cdr (assoc 8 EntLay))) (setq nomcalc (strcat "_NB-MajorLine_" elev)) (initget 1 "Blue Green GRey Pink Red White Yellow Other") (setq ColorCalc (getkword "\nSelect a color for the layer [Blue/Green/GRey/Pink/Red/White/Yellow/Other]: " ) ) (cond ((= ColorCalc "Blue") (setq Color 141) ) ((= ColorCalc "Green") (setq Color 91) ) ((= ColorCalc "GRey") (setq Color 253) ) ((= ColorCalc "Pink") (setq Color 211) ) ((= ColorCalc "Red") (setq Color 241) ) ((= ColorCalc "White") (setq Color 7) ) ((= ColorCalc "Yellow") (setq Color 51) ) ((= ColorCalc "Other") (setq Color 121) ) ) (if (not (tblsearch "LAYER" nomcalc)) (entmake (list (cons 0 "LAYER") (cons 100 "AcDbSymbolTableRecord") (cons 100 "AcDbLayerTableRecord") (cons 2 nomcalc) (cons 70 0) (cons 62 Color) (cons 370 -3) (cons 6 "Continuous") ) ) ) (if (setq ss (ssget "_X" (list (cons 0 "LWPOLYLINE") (cons 8 LAY)) ) ) (repeat (setq i (sslength ss)) (setq el (cdr (assoc 38 (entget (setq e (ssname ss (setq i (1- i)))))) ) ) (if (equal (distof (rtos (rem el (distof elev)) 2 2)) 0.0 1e-6) ; at elevation that is a multiple of elev? (vla-put-Layer (vlax-ename->vla-object e) nomcalc) ;(command "_.chprop" e "" "_layer" nomcalc "") ) ; if ) ; repeat ) ; if (setvar "luprec" Valer) (princ) )

Salut Vincent, Merci pour ton retour. Oui je pensais aussi faire ca mais je n'ai pas la commande sur Global mapper. Je vais regarder ca sur CloudCompare. Merci

Bonjour a toutes et tous, Je sais que le forum n'est pas spécialisé en SIG mais je jette une bouteille a la mer. J'ai un fichier LiDAR datant de 2018 qui couvre un grande aire (station de ski). De nouveau relevé ponctuel ont été réalisé au drone et j'aimerai mettre a jour mon fichier topo dans Global Mapper. Cependant, je ne sais pas quel process, ni quelle commande utilisé pour "remplacer" l'ancien LiDAR par le nouveau ? Quelqu'un a-t-il une idée ? Merci d'avance,

Rebonjour Didier 🙂 Et bien il y a beaucoup de .LSP et malheureusement un fichier VLX!

Merci de vos réponses a tous les deux @didier et @lili2006. En réalité, ma question était plutôt de savoir si il y avait une erreur dans la façon de créer le mnt du cote du logiciel ou si cela venait du fichier (courbes de niveau) ou de ma façon de procéder... J'ai comparé le fichier mnt covadis (je ne pensais pas pouvoir l'ouvrir avec un simple AutoCAD) et effectivement, il y a les memes erreurs, voir plus importantes. J'ai donc ma réponse, pas étonnant qu'il y est des incohérences. Juste pour information, en voyant ces erreurs, je n'ai pas utilisé ce fichier et est attendu d'obtenir le fichier de points. Mais je n'aime pas trop attendre les données 🙂

Ok, merci. Pas de triangles horizontaux alors ?

Bonjour a tous, Après avoir passé plusieurs années à essayer de faire tourner des anciens programmes développés par Alejandro Gutierrez, j'abandonne. Alejandro était un génie et il a contribué au développement d’applications pour AutoCAD dans les années 90. Les nombreuses routines comprises dans cette centaine de fichier, étaient incroyablement efficaces a l'époque, et l'entreprise dans laquelle je suis maintenant partenaire, Alpentech Inc. était toujours en avance sur tout le monde grâce au savoir-faire d’Alejandro et ses creations. Pour vous donner des exemples, l'un de ces programmes permet de dessiner des profiles en long et en travers, de les éditer et de calculer les aires et volumes de déblai/remblai. Oui, sur AutoCAD! Pour ces calculs il utilisait notamment Surfer et Excel. Mais le programme le plus puissant, appelé "Smartmap", permettait de créer une carte de pertinence des choix de terrains, en particulier pour la création de piste de ski, en fonction de plusieurs paramètre tel que l'altitude, l'orientation, les ombres, le vent... Pour information, les programmes tourner sur AutoCAD 2005. Malheureusement, je suis incapable d'utiliser la plupart de ces programmes, et manque de temps et de connaissances (surtout) pour arriver a les faire tourner, ou les modifier/adapter à nos besoins aujourd'hui... Alors si quelqu'un est intéressé par le déchiffrage de ces programmes, suivi éventuellement d'un éclaircissement voir un exposé (compte tenu du nombre de routines...), n'hésitez pas à me contacter par courriel à l'adresse nicolas@alpentech.net Merci pour votre lecture et bonne journée les Lispeur! Nicolas

Bonjour Messieurs, Merci de vos réponse et de votre intérêt pour el sujet. Ci-joint le fichier dwg. Merci. Grizzly P-Lot widening(1).dwg

Bonjour à tous, Je deviens fou avec Mensura. Lors de la création d'un MNT à partir de courbes de niveau 2D (je n'ai pas de fichier de points pour modéliser le terrain), Mensura ne suis pas parfaitement les courbes de niveaux originales et créé des "raccourcis" ce qui forme des triangles horizontaux que je ne parviens pas a supprimer. Meme en retriangulant et en eliminant les triangles horizontaux, certains persistent! Je joins une image pour explicatif, peut être que cela vous parlera.. Je ne comprends pas d'où viens le problème est s'il y a une solution. Merci,

Salut @didier, Oui c'est tout a fait cela 👍

Bonjour a tous, Je reviens sur ce sujet concernant une routine de carto AutoCAD qui n'a pas été résolu et qui me taraude encore... Il semblerait que le problème vienne de la perte des contrôle OCX 32 bits depuis le passage à VBA 7 et les plates-formes 32/64bits. Lorsque je lance la routine, une DirListBox, une FileListBox et une DriveListBox devrait s'afficher (voir ci-dessous a gauche), mais j'obtient la fenêtre ci-dessous a droite : Je ne peux donc pas sélectionner mon fichier pour l'import de ce fameux fichier .GDR... Avez vous une idée de la marche a suivre pour faire apparaitre ces commandes ? ou les remplacer par un bouton peut être ? Merci d'avance pour vos eclairs de genie. Nicky