Fraid

Bonjour, testé sur Win 7 pro Ultimate à jour, et Excel 2010. pas trop long sur des gros dossiers (+12000 dwg en 2mn), par contre un petit bug d'affichage de l'export dans Excel, les 2 derniers champs (les dates) apparaissent en dièses et si on clic dessus on a bien la valeur qui s'affiche dans la barre supérieur.

Bonjour, Je n'ai pas de LT, mais il me semble que si tu tappe CUI, tu as un outil pour cela. comme c'est une petite usine à gaz, voici un

Bonjour, Pour la recherche des tutos, c'est sur youtube. tu tappe par exemple tuto jeux de feuilles autocad cordialement

Bonjour, ça tourne en jus boudin la, Aller, denis, va voir l'aide et tappe tes questions dans google avant de poster dans cadxp. et je pense que tout rentreras dans le move. bisous à tous

Merci, Gile tu as un oeil de gabian comme je me refuse le plus possible de copier coller, je fait des fautes. le code mise à jour (defun c:netsol (/ sols nb) (if (setq sols (ssget "_X" '((0 . "3DSOLID)))) (repeat (setq nb (sslength sols)) (command "_SOLIDEDIT" "C" "N" (ssname sols (setq nb (1- nb)))) ) (princ (strcat "\n" (itoa (sslength sols)) " Solides 3D traitées.")) (princ) )

Bonjour, Essaye cela, je ne peux pas tester sur tes solides si cela ne fonctionne pas, envoye en un pour que l'on puisse tester (defun c:netsol (/ sols nb) (setq sols (ssget "_x" '((0 . "*solid"))) nb (sslength sols) ) (if nb (repeat nb (command "_SOLIDEDIT" "C" "N" (ssname sols nb)) (setq nb (- nb 1)) ) ) (princ (strcat "\n" (itoa (sslength sols)) " Solides 3D traitées.")) (princ) ) dit moi si ça marche

Bon matos Cela fait 9 ans que mon poste HP tourne, juste cramé une barrette de RAM. un petit truc, lecteur dvd, ils pourraient faire un effort et mettre un lecteur Blue-ray pour le prix.... a oui, il faut y aller au pinceau pour nettoyer les fentes de devant....

J'ai continué de chercher dans l'aide, rien vue En attendant, rien ne m’empêche de les clore tout de même, J'ai juste à modifier la fonction (defun testopen (/ listo) (setq listo (list RTEXT WTEXT)) ) en fait ça plante si ce n'est pas ouvert.. pas facile...

Bonjour, Je met à jour mes .csv des communes (y a du taf avec les changements), et teste souvent des lisps qui lit et/ou écrit ces fichiers. Evidemment quand cela plante, le fichiers reste ouvert, puisque l'on ne va pas jusqu'au close.(ça finis par planter Autocad et Windows..) quand je suis en phase de test j'utilise vl-bt pour avoir une trace du plantage. Ce que j'aimerais faire c'est une fonction bateau qui "closerais" les fichiers éventuellement ouvert. du genre: (defun *error* (m) (if (setq listaclore (testopen)) (progn (mapcar 'close listaclore)(vl-bt)) (vl-bt) ) ) et je ne vois pas du tout avec quelle fonction on peut récupérer les fichiers ouverts (surtout quand on ne connais pas son nom) merci

Bonjour, pour connaitre le type d'une variable c'est type... en meme temps

Bonjour, ça devrait tourner. 12 Go de ram et 1 disque dur qui ne tourne pas, serais mieux. 7 ou 10? c'est la grande question. si tu met 7, essaye qu'il soit installé et mis à jour. sinon, c'est une semaine d'installation avec les mise à jours en cascades.... si tu met 10, +22000 pour Gile, vérifie les retours.

Bonjour, Merci pour ce joli cadeau de Pâques vais pouvoir combler mes énormes lacunes dans le domaine des paradigmes. j'y réfléchis même pas quand j'élabore un algorithme. en fait je mélange les 2 sans m'en apercevoir. doit faire du procédural fonctionnel et/ou l'inverse.

une fiche géodesique sur une commune prise au hazard (la 1ere du 37) Abilly la fiche il y a au même endroit un point sur le cadastre, je ne reve pas?

fish nvidia sous linux gros fish j'avais trouvé une photo de poisson bien degueu, veut pas venir jamais aimer la peche

commence vers 18h00 l'apéro chez nous :D dès que l'on travail avec la topo, on fait des lisp de transfert de calques par entreprise transmetteuse y en a c'est facile d'autre moins des fois il faut penser au différente variations possibles exemple le calque *VEGETATION* on trouve, Végétation, gazon, herbe, pelouse, terrain, j'en oublie des cocasses... et ceux dessiner à l'appareil ça peut être terrible en traitement de polyligne et bloc si la personne qui fait le levé n'a jamais dessiné autrement. c'est un métier de levé, c'en ai un autre de les recevoir. sur le forum c'est plein d'exemples de lisp de traitements de levé

je reprend, car c'est un sujet qui m’énerve et suis bien conscient qu’être à le recherche du delta x de recalage est limite malhonnête. je n'en voudrai aucunement au modérateur si il gicle tous ça.

Nickel, je dirais au metre maxi, 20 cm moyen, par rapport a des levés si tu cherches bien, il y a un point (conseil changer le style de point pour les voir) qui se situe sur les bornes géodésiques accéssibles. quand t'en a deux c'est mieux, mais il y en a de moins en moins... après si cela fait partie du cahier des charges des levés cadastraux, je ne peux pas te dire, cela peut etre une couche rajoutée. en tout cas, si tu fait du levé pour eux, ce n'est pas à 5m près. on est d'accord n'est ce pas? donc ils déplacent volontairement l'ensemble des feuilles pour ne pas tuer une profession, entre autre. c'est mon constat contestable.

yop tu vois on fait tous les même prog chacun de notre coté curieux de voir ton code. c'est surtout l'utilisation de 7z en ligne de commande qui m'a intéressé le plus... j'ai toujours aimé les chauve-souris sinon je travail surtout sur les département (35, 22, 37, 72, 49, 44, 53) donc pour gagner du temps je me suis dit, vais me les décompresser... mais susceptible de travailler sur des chantiers partout en france j'en ai un en sortie de gare Montparnasse... suis sous traitant de bureaux d'ingénierie. (dans le domaine de la fibre optique)

j'ai rajouté les contrôles des prérequis. par contre pour tester chez moi pas facile du coup..

je pensais bien que tu allais réagir quand j’écrivais cela... mais je ne savais pas comment l'exprimer... Merci

un petit détail cela prend du temps et pas compter faire + de 10 communes avant plantation

Bonjour, Les questions sur les fichiers de données communales sont de plus en plus présente. et on tombe souvent sur des .tar.bz2 format prévu pour les système linux. le but est de les décompresser et ne garder que les dwg. il y a quelque prérequis. DOSLIB (suis accro) 7z (pas réussi avec Izarcc) un dossier c:/Data un dossier avec des dossiers nommé avec les N° INSEE des communes (defun c:EXTRACT_CADA (/ LIST_COM ) (vl-load-com) (if (= required nil) ;si les prérequis sont là (progn (setq LIST_COM (cdr (dos_dirtree (dos_getdir "Chercher un Dossier..." "G:/MAP/Cadastre" "Sélectionne un dossier" t))));Editer "G:/MAP/Cadastre" pour ouvrir l'explorateur a cet endroit (mapcar '(lambda (oOo) (extract oOo)) LIST_COM);extract est appliqué à chaque élément de la liste des dossiers (princ "\nExtraction des DWG réussi !!") ) (cond ((= retour 1) (princ "\nVeuillez installer la version du DOSLIB adaptée à votre poste : http://wiki.mcneel.com/doslib/home")) ((= retour 2) (princ "\nVeuillez installer 7z sur votre poste : http://7zip.fr/")) ((= retour 3) (princ "\nVeuillez installer la version du DOSLIB adaptée à votre poste : http://wiki.mcneel.com/doslib/home" "\net installer 7z : http://7zip.fr/")) ) ) );Fin (defun extract ( com / TEXT WT DES ) (setq TEXT "C:\\Data\\Z.bat" WT (open TEXT "w");Création du .bat ) (write-line "@echo off" WT) (write-line (strcat "\"C:\\Program Files\\7-Zip\\7z.exe\" e " com "*.tar.bz2 -o" com " -r -y") WT) (write-line (strcat "\"C:\\Program Files\\7-Zip\\7z.exe\" e " com "*.tar -o" com " -r -y") WT) (close WT) (command "_.shell" TEXT) ;lancement du .bat (command "_.delay" 1000) (setq DES (dos_find (strcat com "*.DXF")));Liste des dxf (if (/= DES nil) ;si la décompression à réussie (progn (mapcar '(lambda (OoO) (dos_delete OoO)) (list (strcat com "*.bz2") (strcat com "*.tar") TEXT));Suppression des archives (mapcar '(lambda (OoO) (dxf2dwg OoO "O")) DES);Conversion des DXF en DWG, Remplacer "O" par "N" pour ne pas effacer les dxf ) (dos_delete TEXT) );Fin du if );Fin extract (defun dxf2dwg ( dxf sup / DWG OP) (setq DWG (strcat (substr dxf 1 (- (strlen dxf) 3)) "dwg") OP (vla-open (vla-get-documents (vlax-get-acad-object)) dxf) ) (command "_.delay" 1000) (vla-saveas OP DWG) (command "_.delay" 1000) (vla-close OP) (command "_.delay" 500) (if (= sup "O") (dos_delete dxf)) (command "_.delay" 500) );Fin dxf2dwg (defun required nil (setq retour nil) (CreatFolder "C:\\Data");le dossier est créer si il n'existe pas (if (not (TEST_DOSLIB)) (setq retour 1)) (if (not (findfile "C:\\Program Files\\7-Zip\\7z.exe")) (setq retour (+ 2 retour))) retour );Fin required (defun CreatFolder (PathFolder) (if (not (vl-file-directory-p PathFolder)) (vl-mkdir PathFolder) ) ) (defun TEST_DOSLIB (/ LIST_DOSLIB flag ) (setq LIST_DOSLIB (list ;liste des versions du DOSLIB "DOSLib17.arx" "DOSLib17x64.arx" "DOSLib18.arx" "DOSLib18x64.arx" "DOSLib19.arx" "DOSLib19x64.arx" "DOSLib20.arx" "DOSLib20x64.arx" "DOSLib21.arx" "DOSLib21x64.arx" "DOSLib22.arx" "DOSLib22x64.arx") ) (mapcar '(lambda (IOI) ((if (member IOI (arx))(setq flag 1))) LIST_DOSLIB)) ;vérifie si un des membre de la liste est présent dans la liste des arx chargés. flag ) si ça peut rendre service

poy poy Illusion ultime.(c'est vrai qu'il y a ce décalage) On te laisse croire que ce n'est pas géoréférencé. Assemble toutes les feuilles d'une commune. Cherche un point géodésique. https://geodesie.ign.fr/ A chaque fois j'y ai trouvé un point. Evidement tu vois tout de suite l'erreur avec la fiche. tu recales à partir du point, et bizarement t'est nickel partout. yop yop

Bonjour, J'ammène mon grain de sel... Je ne pense pas qu'il y ai d'endroit et d'envers en programmation. Mais une orientation. Le lisp est un langage procédurale, et commence par une fonction qui s'applique à un objet. en langage orienté objet, on commence par l'objet auquel on va appliqué une méthode. Bonne nuit

ou si tu te retrouve à charger 2 fois le meme lisp, cela n'a aucune importance.