vincentp010

Elle affiche les nom des départements et des communes, comme ça pas besoin d'apprendre les codes insee par cœur. Avec l'extension de téléchargement, ça permet de télécharger toutes les feuilles d'une commune d'un coup ;)

Si ça peut intéresser des gens, j'ai fait un petit userscript pour faciliter la récupération des feuilles cadastre sur data.gouv.fr A utiliser avec firefox ou chrome https://github.com/lapoigne/dgfip-download-helper

Salut, en fait le lisp s'arrète à la ligne (setq Text (cdr (assoc 1 Obj))) car Obj = nil, du coup il y a une erreur. Il vaudrais mieux faire: (defun c:DHTest (/ Text) ; Text est à nil au debut de la fonction (while (/= Text nil) (setq Obj (entget (car (nentsel "\nSélectionnez le texte dans le bloc :")))) (if (/= Text nil) (progn (setq Text (cdr (assoc 1 Obj))) (princ Text) ));_ Fin de if ) ;_ Fin de while (princ) ) ;_ Fin de defun

Tu peux faire ton entget sur ta variable ent: (defun c:hs (/ ss n) (if (setq n -1 ss (ssget) ) (while (setq ent (ssname ss (setq n (1+ n)))) (command "_bhatch" "_select" ent "" "") (setq MONCALQUE (cdr (assoc 8 (entget ent)))) ) ) (princ) )

(setq LstEntete ((list LstEntete (cons Lst Entete)))) Tu as déjà une paire de parenthèses en trop dans ta ligne. (setq LstEntete (list LstEntete (cons Lst Entete)))

Salut, Perso j'utilise les alias. Pour les configurer il faut éditer le fichier \acad.pgp (Outils -> Personaliser -> acad.pgp) ou C:\Users\User\AppData\Roaming\Autodesk\AutoCAD Map 3D 2009\R17.2\fra\Support\acad.pgp Tu écris ensuite ton alias et ta commande, à la suite de ceux existants, sous la forme: PO,*polylign A,*arc C,*cercle E,*ellipse qs,*qselect ALIAS,*MACOMMANDE Après avoir enregistré le fichier, la commande reinit permet de charger les modifications.

Et avec MAP la commande _mapcgcdist qui donne des distances 2D (Ou par le menu "Map -> Renseignements -> Distance continue")

Rien ne t’empêche de repasser tes points en 2D après avec "Cov Edition -> Points Topo -> Modification altitudes" Tu as mettre/garder les points en 2D, mettre/garder les points en 3D

Je viens de parcourir le lisp gatte. A un moment il y a un initget avec la liste des attributs, or il ne peut y avoir de "_" dans les noms avec initget.

Salut, Il te faut une ligne pour récupérer les valeurs lorsque tu clique su OK; à mettre juste avant (start_dialog) (action_tile "accept" "(setq *DH_Fleches@ (list nil (get_tile\"FlP1$\") (get_tile\"FlP2$\") (get_tile\"FlP3$\") (get_tile\"FlM1$\") (get_tile\"FlM2$\") (get_tile\"FlM3$\") (get_tile\"FlG1$\") (get_tile\"FlG2$\") (get_tile\"FlG3$\")))")

Dans ta géobase tu as les angles verticaux et la distance inclinée ? Avec ça tu dois pouvoir recalculer le Z de ta station DZ = DI*cos(V)

C'est bien ça. Chez nous avec Covadis on a tous des Autocad MAP. On se sert pas du SIG, mais y quelques fonctions bien pratiques pour l'insertion d'images géoréférencée ou les imports/export.

Salut, C'est parceque les icones sont dans le fichier "C:\Program Files\Geomedia SA\Covadis\Support\CovaXX.dll" (Ou XX est la version du cui covadis chargé) et autocad ne les trouvent pas avec ton menu perso. Soit tu extrais toutes les icones en bmp dans un dossier avec Resources extract et tu ajoutes ce dossier au chemin de recherche des fichiers de support. (Penser à supprimer le prefix CovaXX_ des fichiers) Ou alors tu copies colle cette dll à coté de ton cui et tu lui donne le même nom.

Une idée vite fait (setq Lst_GeoRD '("A" "B" "C") (setq nb 0) (setq LstPP_GeoRD (mapcar (function (lambda (x) (cons (setq nb (1+ nb)) x))) Lst_GeoRD))

Merci pour vos réponses. Savez vous s'il est possible d'avoir 2 versions de Covadis en parallèle, avec 2 profils autocad, pour tester; ou l'installation vas écraser l'ancienne version ?

Bonjour, Nous venons de recevoir le lien pour installer Covadis en version 15. Actuellement je suis avec la version 13h sous Autocad map 2009. Vu que j'ai une version qui commence à dater et que les 3/4 des nouvelles commandes Covadis ne fonctionneront pas avec ma version, est-il judicieux de mettre à jour ? En plus de cela j'ai des collèges qui ont des versions plus vieilles que moi et qui ne peuvent pas mettre à jour en v15. Y a-t-il des soucis de compatibilité entre les projets des version 13 et 15 ? Vais je avoir de nouvelles fonctionnalités en mettant la v15 ? Faut vraiment que mon bureau fasse quelque chose, bientôt on ne pourra plus bosser avec nos vieilles versions, heureusement qu'il y a TrueView pour convertir les plans !

Salut, c'est normal tu as mis "tant que type p1 est différent de liste" "Horizontale" est différent de liste (c'est un texte) donc la boucle recommence.

Salut, j'ai ces fonctions dans mes cartons: (defun init-oo (/ oo-des openPar obj feu) (setq oo-app (vlax-create-object "com.sun.star.ServiceManager")) (setq oo-des (vl-catch-all-apply 'vlax-invoke (list oo-app 'createinstance "com.sun.star.frame.Desktop"))) (setq openPar (vlax-make-safearray vlax-vbVariant '(0 . 2))) (setq obj (vlax-invoke-method oo-des 'loadComponentFromURL "private:factory/scalc" "_blank" 0 openPar)) ;liste des feuilles (setq feu (vl-catch-all-apply 'vlax-get (list obj 'sheets))) ;feuille 1 par defaut (setq tro (vlax-invoke feu 'getbyindex 0)) (vl-catch-all-apply 'vlax-invoke (list (vlax-get obj 'CurrentController) 'SetActiveSheet tro)) ) (defun write-cel (name x) (setq cel (vl-catch-all-apply 'vlax-invoke (list tro 'getCellRangeByName name))) (vl-catch-all-apply 'vlax-put (list cel (if (numberp (read x)) 'value 'string) (if (numberp (read x)) (vl-string-subst "," "." x) x) )) ) Ça s'utilise comme ça: (init-oo) (write-cel "A1" "POINT") (write-cel "B1" "ABSCISSE") (write-cel "C1" "ORDONNEE") (vlax-release-object oo-app)

Salut, Ça doit être parce que ce sont les attributs qui sont tournés. Va voir dans Cov Edition -> Attributs -> Rotation

Peut être parce qu'il y a déjà la commande RENOMMER.

Jusqu’à ce qu'il soit à nil (setq ss (ssadd)) (setq der (entlast)) (setq ent (entnext der)) (while (not (null ent)) (ssadd ent ss) (setq der ent) (setq ent (entnext der)) )

Salut, Tu ne peux pas écrire ton script depuis ton bat, puis le lancer ?

Salut, J'y suit arrivé. Je commence par le bas en montant par la gauche à angle droit (600, 578, 450) Je relie l'extrémité au milieu de la ligne 600 Ensuite rotation pour avoir 70 entre les extrémités. Puis ligne de 450 à 45°. coude45.zip

Salut, Je pense à un problème de configuration du driver sentinel. Voir dans les fichiers d'installation de Covadis, dans le dossier Safenet

Je viens de faire un test avec un fichier XYZ de 150000 points généré aléatoirement. Ma machine: windows 7 32bits, 3GB de RAM, autocad map 3d 2009, covadis 13.0h Lecture du fichier de point: 20 minutes, pas d’utilisation de RAM Insertion des blocs points: 3 minutes, utilisation de 800MB de RAM