vincentp010

Pas de miracle, j'ai une version Map 2009 entièrement fonctionnelle sous Windows 10. Par contre, les versions d'avant, développée pour Windows XP sans UAC ont quelques soucis ;) Peut être un souci avec l'Infocenter. Essaie d'installer AcadInfoCenterOff.msi pour le désactiver (Méthode manuelle en éditant le registre). Sur les vieilles versions, il n'arrive plus à se connecter aux serveurs Autodesk et utilise le cpu à fond.

Bonjour, Avec la commande publier ?

Ce programme sert à insérer des photos géolocalisée dans un dessin autocad. Il lit les données exif des photos d'un dossier, convertit les coordonnées GPS dans un système de projection et créer un fichier script autocad pour insérer directement la photo ou un bloc avec un hyperlien vers l'emplacement du fichier. Pour utiliser le fichier script, il faut, dans le dessin autocad, aller dans le menu Outils -> Script... ou lancer la commande _script et choisir le fichier généré. Cela va insérer les photos automatiquement aux bonnes coordonnées. Il faudrait que je fasse une documentation, ça à l'air d'intéresser plusieurs personnes

Petite mise à jour, suite à un retour de Jérémy, avec correction d'un bug de conversion des coordonnées en longitude ouest. Toujours le même lien https://www.dropbox.com/s/gkf6o9ac2hxen97/exifscr.zip?dl=0

Bonjour, - Si tu as un dossier C:\Autodesk ce sont les fichiers d'installation décompressé, normalement tu peux supprimer ce qu'il y a dedans sans danger si tu as besoin de place - C:\Documents and Settings\Angles Droits doit être un vieux dossier utilisateur migré depuis XP, normalement il est remplacé par C:\Users\Angles Droits - C:\ProgramData doit contenir des fichiers de configuration pour tous les utilisateurs - C:\Program Files programmes en version 64 bits - C:\Program Files (x86) programmes en version 32 bits

Il faut bien faire comme Lecrabe propose. Mais ensuite il faut dire à AutoCAD DWG Launcher quelle programme utiliser. Pour cela ouvrir l'éditeur de registre (regedit) sur la clé HKEY_CURRENT_USER\Software\Autodesk\DwgCommon\shellex\apps et mettre la valeur par défaut sur le nom de la sous clé désirée http://pix.toile-libre.org/upload/thumb/1572943711.png

Toujours 100% classique avec le clavier. Trop de clics avec le ruban.

Bonjour, C'est parce que tu utilises l'apostrophe pour définir une liste et les valeurs ne sont pas évaluées Pt1 '(X1 Y1) --> Pt1 = (X1 Y1) ;X1 et Y1 ne sont pas évaluées et son mis tel quel Pt2 '(X2 Y2) --> Pt2 = (X2 Y2) Si tu veux les valeurs de X1 et Y1 évaluées, il faut utiler (list) Pt1 (list X1 Y1) Pt2 (list X2 Y2)

Dernièrement j'ai activé une vieille version 2004 qui ne voulais pas le faire par internet automatiquement. Il fallait juste contacter le support autodesk pour qu'ils envoient un code d'activation par mail.

Bonjour, C'est aussi possible avec l’excellent ScanDXF

Il y a quand même des textes qui se chevauchent quand tu joins des sections. Pour ceux qui ne se chevauchent pas, c'est compliqué d'automatiser. Voici quelques exemples de commandes que tu peux utiliser pour le reste : Effacer les entités du calque "1ZONCOMM" (setq ss (ssget "x" (list (cons 8 "1ZONCOMM")))) (command "_erase" ss "") Changer le type de lygne du calque "3fiscline" (command "_-layer" "_lt" "hidden" "3fiscline" "") Hachurer les bâtiments (setq pl (ssget "x" (list (cons 8 "3BATIDUR") (cons 70 1)))) (if (/= pl nil) (progn (command "_-layer" "_m" "3BATIDUR-H" "_c" "31" "3BATIDUR-H" "") (setq nb (sslength pl)) (setq nb1 0) (while (< nb1 nb) (setq ent (ssname pl nb1)) (command "_-hatch" "_p" "SOLID" "_d" "_b" "_s" ent "" "") (setq nb1 (+ nb1 1)) ) ) ) Changer les objets du calque "1PARCELLE" au calque "3BATIDUR" (setq ss (ssget "x" (list (cons 8 "1PARCELLE")))) (if (/= ss nil) (progn (setq nb (sslength ss)) (setq nb1 0) (while (< nb1 nb) (setq ent (ssname ss nb1)) (entmod (subst (cons 8 "3BATIDUR") (assoc 8 (entget ent)) (entget ent))) (setq nb1 (+ nb1 1)) ) ) )

Salut, Déjà tu pars de quels fichiers, au format DXF ou EDIGEO ? Si tu as MAP il y a la commande "Netoyage de dessin" qui permet déjà de supprimer les entités en double.

Ça me le fait aussi, il faut mettre la couleur des wipeout en 255,255,255 J'ai plus jamais eu de soucis avec cela (vl-load-com) (defun c:modifim() (setq a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))) (vlax-for bl a (vlax-for ent bl (if (= (vla-get-objectname ent) "AcDbWipeout") (progn ;(vla-put-Color ent 255) (setq oColor (vlax-get-property ent 'TrueColor)) (vlax-invoke-method oColor 'SetRGB 255 255 255) (vlax-put-property ent 'TrueColor oColor) (vla-update ent) )) ) ) (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acActiveViewport) )

Merci à tous ;)

J'ai pas précisé, c'est la version 32bits :(

Bonjour, Suite à un problème de pare-feu trop zélé, je ne peut pas me connecter à l'espace client géomédia. La boite info ne pouvant intervenir rapidement, une bonne âme charitable pourrait elle me faire parvenir le dernier patch pour Covadis 15 (pour passer de la version 15.0a à 15.0d, je crois) ? Merci à vous.

Salut, Tu peut faire une image disque entière avec toutes les partitions avant la mise à jour. Elle pourra être réinstallée si le besoin s'en fait sentir. Pour info j'ai un Autocad Map 2009 qui tourne sans soucis sur Windows 10.

Et en utilisant # devant les coordonnées ?

Si tu utilise la dernière version que je viens de publier ce matin et que tu ne coche pas la case échelle uniforme ça devrait être bon

Pour mieux aider, il faudrait se qui s'affiche sur la ligne de commande et la version d'autocad.

Bonjour mkbu, En fait j'avais fait mes test avec un bloc avec mise à l'échelle uniforme. J'ai mis à jour mon programme avec une case à cocher pour demander si le bloc est défini avec une échelle uniforme ou pas, dans ton cas il ne faudra pas la cocher. Le lien est toujours le même https://www.dropbox.com/s/gkf6o9ac2hxen97/exifscr.zip?dl=0

Je pensai le site mort, mais en fait il marche chez moi. Impossible d'y accéder depuis le boulot. N'y aurait il pas des restrictions d'IP un peut fortes ? J'envois mon adresse en MP à Cadmin

Marche bien sur W10 avec autocad map 2009 Un petit soucis sur certaines polylignes dont le sens est inversé par rapport au texte. Du coup j'ai des noms de rue comme "Chats des Rue" au lieu de "Rue des Chats". Il faudrait peut être mettre un dialogue demandant laquelle des phrases est la bonne; à moins qu'il soit possible de détecter le bon sens.

Salut, La commande décomposer ?

Bonjour, La fonction levenshtein existe en common lisp, il ne doit pas être difficile de la réécrire en autolisp (defun levenshtein-distance (str1 str2) "Calculates the Levenshtein distance between str1 and str2, returns an editing distance (int)." (let ((n (length str1)) (m (length str2))) ;; Check trivial cases (cond ((= 0 n) (return-from levenshtein-distance m)) ((= 0 m) (return-from levenshtein-distance n))) (let ((col (make-array (1+ m) :element-type 'integer)) (prev-col (make-array (1+ m) :element-type 'integer))) ;; We need to store only two columns---the current one that ;; is being built and the previous one (dotimes (i (1+ m)) (setf (svref prev-col i) i)) ;; Loop across all chars of each string (dotimes (i n) (setf (svref col 0) (1+ i)) (dotimes (j m) (setf (svref col (1+ j)) (min (1+ (svref col j)) (1+ (svref prev-col (1+ j))) (+ (svref prev-col j) (if (char-equal (schar str1 i) (schar str2 j)) 0 1))))) (rotatef col prev-col)) (svref prev-col m))))