Lisps de DenisHen

[philous2]

Salut à tous.

 

Merci Olivier pour ton aide.

 

Effectivement, j'ai déjà remarqué cela, mais comme chez moi c'est soit C: soit le réseau (\\serveur\\...), j'avais mis ça sur le dos du chemin "réseau"...

 

Notre administrateur réseau nous a interdit de créer des "lecteurs réseaux" à cause des ransomwares qui s'attaquent à tous les lecteur quels qu'ils soient mais pas aux réseaux...

 

Mais je ne connaissais pas les "alias"...

 

Encore merci Olivier... ;)

 

Tiens nous au courant philous2 si c'est ok...

 

Bjr Denis,

 

J'ai enregistré mon fichier sous le lecteur C:.... idem j'ai toujours ce message d'erreur.

 

Commande: DHReProjection

Alias courant:[\Répertoire]: D: = D:\Program

Files\Autodesk\config_autocad\Ressources\Limites administratives

Spécification [alias:][\chemin] incorrecte

Alias courant:[\Répertoire]: D: = D:\Program

Files\Autodesk\config_autocad\Ressources\Limites administratives

Nombre de dessins source sélectionnés: 0

Fin de la sélection du système source...; erreur: type d'argument incorrect:

stringp nil

Commande: DHReProjection

Alias courant:[\Répertoire]: D: = D:\Program

Files\Autodesk\config_autocad\Ressources\Limites administratives

Spécification [alias:][\chemin] incorrecte

Alias courant:[\Répertoire]: D: = D:\Program

Files\Autodesk\config_autocad\Ressources\Limites administratives

Nombre de dessins source sélectionnés: 0

Fin de la sélection du système source...

Fin de la sélection du système cible...

"Erreur lors de l'ouverture du dession source"

Message #0: Code de système de coordonnées incorrect ou manquant.

Code du message: 2.

InsUnits...terminé

Projection terminée.

 

En fait chez nous, vu les gros problèmes informatiques que l'on a, ils nous ont créé plusieurs lecteurs locaux au niveau Autocad.

On a un lecteur C:, D: et E:

Autocad est installé sous C et D.

On travaille en fait en local soit sous D soit sous E.

Le lecteur D est la 2ème config d'Autocad.

Le lecteur E nous sert dans la gestion de notre espace personnel de travail de chacun.

Compliqué je sais, je ne suis pas un informaticien.

Voilà pour la config que j'ai.

Concernant Map je n'ai que les menu Map-dessin et Map donnés et analyses, je ne trouve donc pas le gestionnaire qu'indique Olivier.

C'est compliqué chez nous la config Autocad

Voilà pour mes news Denis

[oton]

Bonjour Denis,

sympa ta routine angsegm, mais je n'arrive pas a récupérer l'angle pour un segment de polyligne voici le message :

erreur: no function definition: NEAR_VERTEX_ARR

 

 

David

[DenisHen]

Salut.

 

Philous2 : essaye de le faire sur ton C:, juste pour voir...

 

oton : désolé, j'avais oublié cette sous-routine. Je l'ai ajouté au post d'origine.

[philous2]

Salut.

 

Philous2 : essaye de le faire sur ton C:, juste pour voir...

 

Rbjr Denis,

 

C'est ce que j'ai fait.

J'ai enregistrer plusieurs fichiers en L1N pour test sur mon lecteur C: j'ai essayé plusieurs fois avec ton lisp la manip en allant mon fichier source à chaque fois sur le lecteur C: mais à chaque fois j'ai ce message qui m'indique une erreur sur le lecteur D:....comme indiqué sur le post précédent.

Alias courant:[\Répertoire]: D: = D:\Program

Files\Autodesk\config_autocad\Ressources\Limites administratives

Spécification [alias:][\chemin] incorrecte

Je ne comprend pas pourquoi à chaque fois j'ai ce chemin sur mon lecteur D même si les fichiers que je charge sont sur le lecteur C.

 

Philippe

[DenisHen]

Je ne comprend pas pourquoi à chaque fois j'ai ce chemin sur mon lecteur D même si les fichiers que je charge sont sur le lecteur C.

Je ne comprend pas non plus, mais je ne pense pas que ce soit mon code qui est en question. Nous sommes plusieurs à l'utiliser dans mon bureau (différentes versions d'AutoCAD) et je n'ai jamais eu ce genre de problème...

 

Je suis désolé, je ne vois pas ce que je peux faire pour toi...

 

Et si tu essaye un changement de projection par AutoCAD directement, te pose-t-il le même problème ?

[philous2]

Je ne comprend pas non plus, mais je ne pense pas que ce soit mon code qui est en question. Nous sommes plusieurs à l'utiliser dans mon bureau (différentes versions d'AutoCAD) et je n'ai jamais eu ce genre de problème...

Je suis désolé, je ne vois pas ce que je peux faire pour toi...

Et si tu essaye un changement de projection par AutoCAD directement, te pose-t-il le même problème ?

Non, non je n'ai pas de soucis pour changer un système de coordonné par Autocad, suivant une autre méthode plus complexe.

Je pensais avoir trouvé car je me suis aperçu quand je crée un nouveau via acadisio.dwt, celui que je prenais par défaut était dans le répertoire ressources du lecteur D.

J'ai donc copié le fichier acadido.dwt sur mon lecteur C. J'ai refais la manip de ton lisp, je reviens toujours sur ce chemin "D:\Program Files\Autodesk\config_autocad\Ressources\Limites administratives" systématiquement.

Ca m'énerve, j'arrête car je ne vois pas du tout d'où ça vient ce fameux lien sous mon lecteur D.

Merci quand même Denis. Dommage ton lisp était très intéressant.

Pour ton indique, je viens d'aller dans options "chemin de recherche de fichiers de support", tous les répertoires de chemin de recherche sont sur le lecteur D et non C. Toi tu dois avoir dans ce même endroit tous tes répertoires dans le lecteur C. moi je n'ai rien sous le lecteur C.

Mon Autocad et en fait installé(configuration) sur le lecteur D et non C. Comment faire dans ce cas une piste ! Une question, ton lisp ne peut pas être modifié en changeant le nom du lecteur C par D, simple question de non initié simple utilisateur Autocad.

Encore merci d'avance de tes éventuelles réponses Denis.

 

ps: je em suis aperçu que ma variable CMMDIA avait sauté (0 au lieu de 1), est-ce que ça pourrait une origine de mon soucis !

Philippe

[Olivier Eckmann]

Bonjour,

 

Lien pour une VIDEO de la mise en oeuvre de la solution de Denis depuis un dessin sur un lecteur E:, d'abord avec une erreur, puis ensuite sans erreur après création de l'alias.

Réalisée avec un MAP 2015, mais il ne devrait pas y avoir beaucoup de changement par rapport à un MAP 2012.

 

Olivier

[DenisHen]

Salut.

Pour ton indique, je viens d'aller dans options "chemin de recherche de fichiers de support", tous les répertoires de chemin de recherche sont sur le lecteur D et non C. Toi tu dois avoir dans ce même endroit tous tes répertoires dans le lecteur C. moi je n'ai rien sous le lecteur C.

Non, les dwg que je reprojete ne sont pas dans un répertoire connu d'AutoCAD.

 

Mon Autocad et en fait installé(configuration) sur le lecteur D et non C. Comment faire dans ce cas une piste ! Une question, ton lisp ne peut pas être modifié en changeant le nom du lecteur C par D, simple question de non initié simple utilisateur Autocad.

Je ne peux rien changer dans mon lisp car je ne gère absolument pas les lecteurs ou chemin, sauf celui du dessin.

 

ps: je em suis aperçu que ma variable CMMDIA avait sauté (0 au lieu de 1), est-ce que ça pourrait une origine de mon soucis !

je ne pense pas que ce soit à cause de cette variable que ça ne fonctionne pas.

Voici le programme corrigé pour que la variable "CMDDIA" soit conservée :

;;;********************************
;;; Changer la projection d'un DWG 
;;;********************************
(defun c:DHReProjection (/ app cdoc LstProject Projection fichier dwg_id FileSave ProjSource PhraseA)
 (setq app  (vlax-get-acad-object)
       cdoc (vla-get-activedocument app)
 ) ;_ Fin de setq
 (vla-purgeall cdoc)
;;; Sélection de la projection courante
 (setq LstProject
        '((1 . "Lambert 1 NORD")
          (2 . "Lambert 2 CENTRE")
          (3 . "Lambert 3 SUD")
          (4 . "Lambert 4 CORSE")
          (5 . "Lambert Étendu")
          (6 . "Lambert 93")
          (7 . "RGF93-CC42")
          (8 . "RGF93-CC43")
          (9 . "RGF93-CC44")
          (10 . "RGF93-CC45")
          (11 . "RGF93-CC46")
          (12 . "RGF93-CC47")
          (13 . "RGF93-CC48")
          (14 . "RGF93-CC49")
          (15 . "RGF93-CC50")
         )
 ) ;_ Fin de setq
 (setq Projection (ListBox "Attention..." "Choix de la projection source :" LstProject 1))
;;; Choix de la projection du plan source
 (cond ((= Projection nil) (princ "\nOpération annulée") (setq PositionERR (+ "Génère une erreur" 18)))
       ((= Projection 1)
        (setq Phrase     "Sélection du plan en Lambert 1 nord"
              ProjSource "NTF.Lambert-1-ClrkIGN"
              NomPrjS    "L1N"
              SysProj    "système LAMBERT I"
        ) ;_ Fin de setq
       )
       ((= Projection 2)
        (setq Phrase     "Sélection du plan en Lambert 2 CENTRE"
              ProjSource "NTF.Lambert-2-ClrkIGN"
              NomPrjS    "L2C"
              SysProj    "système LAMBERT II"
        ) ;_ Fin de setq
       )
       ((= Projection 3)
        (setq Phrase     "Sélection du plan en Lambert 3 SUD"
              ProjSource "NTF.Lambert-3-ClrkIGN"
              NomPrjS    "L3S"
              SysProj    "système LAMBERT III"
        ) ;_ Fin de setq
       )
       ((= Projection 4)
        (setq Phrase     "Sélection du plan en Lambert 4 CORSE"
              ProjSource "NTF.Lambert-4-ClrkIGN"
              NomPrjS    "L4C"
              SysProj    "système LAMBERT IV"
        ) ;_ Fin de setq
       )
       ((= Projection 5)
        (setq Phrase     "Sélection du plan en Lambert Étendu"
              ProjSource "NTF.Lambert-E"
              NomPrjS    "L2E"
              SysProj    "système LAMBERT II Étendu"
        ) ;_ Fin de setq
       )
       ((= Projection 6)
        (setq Phrase     "Sélection du plan en Lambert 93"
              ProjSource "Lambert93"
              NomPrjS    "L93"
              SysProj    "système LAMBERT 93"
        ) ;_ Fin de setq
       )
       ((= Projection 7)
        (setq Phrase     "Sélection du plan en Lambert Conique Conforme 42 (zone 1) Corse"
              ProjSource "RGF93.CC42"
              NomPrjS    "CC42"
              SysProj    "système LAMBERT 93-Zone 1 (CC42)"
        ) ;_ Fin de setq
       )
       ((= Projection 8)
        (setq Phrase     "Sélection du plan en Lambert Conique Conforme 43 (zone 2)"
              ProjSource "RGF93.CC43"
              NomPrjS    "CC43"
              SysProj    "système LAMBERT 93-Zone 2 (CC43)"
        ) ;_ Fin de setq
       )
       ((= Projection 9)
        (setq Phrase     "Sélection du plan en Lambert Conique Conforme 44 (zone 3)"
              ProjSource "RGF93.CC44"
              NomPrjS    "CC44"
              SysProj    "système LAMBERT 93-Zone 3 (CC44)"
        ) ;_ Fin de setq
       )
       ((= Projection 10)
        (setq Phrase     "Sélection du plan en Lambert Conique Conforme 45 (zone 4)"
              ProjSource "RGF93.CC45"
              NomPrjS    "CC45"
              SysProj    "système LAMBERT 93-Zone 4 (CC45)"
        ) ;_ Fin de setq
       )
       ((= Projection 11)
        (setq Phrase     "Sélection du plan en Lambert Conique Conforme 46 (zone 5)"
              ProjSource "RGF93.CC46"
              NomPrjS    "CC46"
              SysProj    "système LAMBERT 93-Zone 5 (CC46)"
        ) ;_ Fin de setq
       )
       ((= Projection 12)
        (setq Phrase     "Sélection du plan en Lambert Conique Conforme 47 (zone 6)"
              ProjSource "RGF93.CC47"
              NomPrjS    "CC47"
              SysProj    "système LAMBERT 93-Zone 6 (CC47)"
        ) ;_ Fin de setq
       )
       ((= Projection 13)
        (setq Phrase     "Sélection du plan en Lambert Conique Conforme 48 (zone 7)"
              ProjSource "RGF93.CC48"
              NomPrjS    "CC48"
              SysProj    "système LAMBERT 93-Zone 7 (CC48)"
        ) ;_ Fin de setq
       )
       ((= Projection 14)
        (setq Phrase     "Sélection du plan en Lambert Conique Conforme 49 (zone 8)"
              ProjSource "RGF93.CC49"
              NomPrjS    "CC49"
              SysProj    "système LAMBERT 93-Zone 8 (CC49)"
        ) ;_ Fin de setq
       )
       ((= Projection 15)
        (setq Phrase     "Sélection du plan en Lambert Conique Conforme 50 (zone 9)"
              ProjSource "RGF93.CC50"
              NomPrjS    "CC50"
              SysProj    "système LAMBERT 93-Zone 9 (CC50)"
        ) ;_ Fin de setq
       )
 ) ;_ Fin de cond
 (setq fichier (getfiled Phrase (strcat (vl-filename-directory (vla-get-fullname cdoc)) "/") "dwg" 4))
 (setq old_cmddia   (getvar "cmddia"))
 (setvar "CMDDIA" 0)
 (command "ADESETCRDSYS" "" fichier ProjSource "_ex")
;;;
 (princ "\nFin de la sélection du système source...")
 (setq Projection (ListBox "Attention..." "Choix de la projection cible :" LstProject 1))
;;; Choix de la projection du plan source
 (cond ((= Projection nil) (princ "\nOpération annulée") (setq PositionERR (+ "Génère une erreur" 18)))
       ((= Projection 1)
        (setq Phrase     "Sélection du plan en Lambert 1 nord"
              ProjSource "NTF.Lambert-1-ClrkIGN"
              NomPrjC    "L1N"
        ) ;_ Fin de setq
       )
       ((= Projection 2)
        (setq Phrase    "Sélection du plan en Lambert 2 CENTRE"
              ProjCible "NTF.Lambert-2-ClrkIGN"
              NomPrjC   "L2C"
        ) ;_ Fin de setq
       )
       ((= Projection 3)
        (setq Phrase    "Sélection du plan en Lambert 3 SUD"
              ProjCible "NTF.Lambert-3-ClrkIGN"
              NomPrjC   "L3S"
        ) ;_ Fin de setq
       )
       ((= Projection 4)
        (setq Phrase    "Sélection du plan en Lambert 4 CORSE"
              ProjCible "NTF.Lambert-4-ClrkIGN"
              NomPrjC   "L4C"
        ) ;_ Fin de setq
       )
       ((= Projection 5)
        (setq Phrase    "Sélection du plan en Lambert Étendu"
              ProjCible "NTF.Lambert-E"
              NomPrjC   "L2E"
        ) ;_ Fin de setq
       )
       ((= Projection 6)
        (setq Phrase    "Sélection du plan en Lambert 93"
              ProjCible "Lambert93"
              NomPrjC   "L93"
        ) ;_ Fin de setq
       )
       ((= Projection 7)
        (setq Phrase    "Sélection du plan en Lambert Conique Conforme 42 (zone 1) Corse"
              ProjCible "RGF93.CC42"
              NomPrjC   "CC42"
        ) ;_ Fin de setq
       )
       ((= Projection 8)
        (setq Phrase    "Sélection du plan en Lambert Conique Conforme 43 (zone 2)"
              ProjCible "RGF93.CC43"
              NomPrjC   "CC43"
        ) ;_ Fin de setq
       )
       ((= Projection 9)
        (setq Phrase    "Sélection du plan en Lambert Conique Conforme 44 (zone 3)"
              ProjCible "RGF93.CC44"
              NomPrjC   "CC44"
        ) ;_ Fin de setq
       )
       ((= Projection 10)
        (setq Phrase    "Sélection du plan en Lambert Conique Conforme 45 (zone 4)"
              ProjCible "RGF93.CC45"
              NomPrjC   "CC45"
        ) ;_ Fin de setq
       )
       ((= Projection 11)
        (setq Phrase    "Sélection du plan en Lambert Conique Conforme 46 (zone 5)"
              ProjCible "RGF93.CC46"
              NomPrjC   "CC46"
        ) ;_ Fin de setq
       )
       ((= Projection 12)
        (setq Phrase    "Sélection du plan en Lambert Conique Conforme 47 (zone 6)"
              ProjCible "RGF93.CC47"
              NomPrjC   "CC47"
        ) ;_ Fin de setq
       )
       ((= Projection 13)
        (setq Phrase    "Sélection du plan en Lambert Conique Conforme 48 (zone 7)"
              ProjCible "RGF93.CC48"
              NomPrjC   "CC48"
        ) ;_ Fin de setq
       )
       ((= Projection 14)
        (setq Phrase    "Sélection du plan en Lambert Conique Conforme 49 (zone 8)"
              ProjCible "RGF93.CC49"
              NomPrjC   "CC49"
        ) ;_ Fin de setq
       )
       ((= Projection 15)
        (setq Phrase    "Sélection du plan en Lambert Conique Conforme 50 (zone 9)"
              ProjCible "RGF93.CC50"
              NomPrjC   "CC50"
        ) ;_ Fin de setq
       )
 ) ;_ Fin de cond
;;;
 (setq NomFichProj (substr fichier 1 (- (strlen fichier) 4)))
 (setq NomProjCC (substr NomFichProj (- (strlen NomFichProj) 3) 4))
 (setq NomProjLB (substr NomFichProj (- (strlen NomFichProj) 2) 4))
 (if (and (/= NomProjCC NomPrjS) (/= NomProjLB NomPrjS))
   (alert "Attention, la projection du fichier source est mal nommée...")
 ) ;_ Fin de if
 (cond ((or (= NomProjCC "CC42")
            (= NomProjCC "CC43")
            (= NomProjCC "CC44")
            (= NomProjCC "CC45")
            (= NomProjCC "CC46")
            (= NomProjCC "CC47")
            (= NomProjCC "CC48")
            (= NomProjCC "CC49")
            (= NomProjCC "CC50")
        ) ;_ Fin de or
        (setq NomFichProj (substr fichier 1 (- (strlen fichier) 4)))
        (setq FileSave (strcat (substr fichier 1 (- (strlen fichier) 8)) NomPrjC))
       )
       ((or (= NomProjLB "L1N")
            (= NomProjLB "L2C")
            (= NomProjLB "L3S")
            (= NomProjLB "L4C")
            (= NomProjLB "L2E")
            (= NomProjLB "L93")
        ) ;_ Fin de or
        (setq NomFichProj (substr fichier 1 (- (strlen fichier) 3)))
        (setq FileSave (strcat (substr fichier 1 (- (strlen fichier) 7)) NomPrjC))
       )
 ) ;_ Fin de cond
;;;
 (ade_projsetwscode ProjCible)
 (princ "\nFin de la sélection du système cible...")
 (setq dwg_id (ade_dsattach fichier))
 (if dwg_id
   (progn ;tout
     (ade_qrydefine '("" "" "" "Location" ("All") ""))
;;;dessine
     (ade_qrysettype "draw")
;;;execute
     (ade_qryexecute)
;;;detach file
     (ade_dsdetach dwg_id)
   ) ;_ Fin de progn
   (print "Erreur lors de l'ouverture du dession source")
 ) ;_ Fin de if
 ;(princ "\nFichier :")
 ;(princ fichier)
 (command "-unites" "2" "2" "3" "2" "0,0" "@0,1" "O")
 (princ "\nInsUnits...")
 (setvar "insunits" 4)
 (princ "terminé")
 (command "_zoom" "et")
 (command "_saveas" "" FileSave)
 (setvar "cmddia" old_cmddia)
 (princ "\n\tProjection terminée.")
 (princ)
) ;_ Fin de defun
;;; ***************************************************
;; ListBox (gile)
;; Boite de dialogue permettant un ou plusieurs choix dans une liste
(defun ListBox (title msg keylab flag / tmp file dcl_id choice)
 (setq tmp  (vl-filename-mktemp "tmp.dcl")
       file (open tmp "w")
 ) ;_ Fin de setq
 (write-line (strcat "ListBox:dialog{label=\"" title "\";") file)
 (if (and msg (/= msg ""))
   (write-line (strcat ":text{label=\"" msg "\";}") file)
 ) ;_ Fin de if
 (write-line
   (cond ((= 0 flag) "spacer;:popup_list{key=\"lst\";")
         ((= 1 flag) "spacer;:list_box{key=\"lst\";")
         (T "spacer;:list_box{key=\"lst\";multiple_select=true;")
   ) ;_ Fin de cond
   file
 ) ;_ Fin de write-line
 (write-line "}spacer;ok_cancel;}" file)
 (close file)
 (setq dcl_id (load_dialog tmp))
 (if (not (new_dialog "ListBox" dcl_id))
   (exit)
 ) ;_ Fin de if
 (start_list "lst")
 (mapcar 'add_list (mapcar 'cdr keylab))
 (end_list)
 (action_tile
   "accept"
   "(or (= (get_tile \"lst\") \"\")
   (if (= 2 flag) (progn
   (foreach n (str2lst (get_tile \"lst\") \" \")
   (setq choice (cons (nth (atoi n) (mapcar 'car keylab)) choice)))
   (setq choice (reverse choice)))
   (setq choice (nth (atoi (get_tile \"lst\")) (mapcar 'car keylab)))))
   (done_dialog)"
 ) ;_ Fin de action_tile
 (start_dialog)
 (unload_dialog dcl_id)
 (vl-file-delete tmp)
 choice
) ;_ Fin de defun

 

As-tu suivi les conseils d'Olivier pour créer un Alias ?

[lecrabe]

Hello

 

Pour ceux qui desirent Mon Tuto sur la RE-Projection avec AutoCAD MAP 201X (ou AutoCAD CIVIL 201X)

qui a ete fourni sur CE fil de discussion :

https://georezo.net/forum/viewtopic.php?id=44041

 

Dans mes 4 messages du jeudi 8 Decembre 2011 12hxx, vous l'avez en 4 PDFs !

(A cause de la limite de taille de fichier attache sur Georezo.net) ...

 

Si vous m'envoyez un "gentil" courriel sur cadxp at hotmail point fr

je me ferais un plaisir de vous envoyer le PDF en question "dernier cri" !

 

Bon WE, Bye, lecrabe

[Patrick_35]

Oh mon crabinou

Le crabe aux pinces d'or

L'homme aux 2000 routines

Le référent d'Autocad

La mémoire vivante de Cadxp

Peux-tu dans ton extrême bonté

Nous octroyer un peu de ta sagesse

A savoir un pdf réactualisé

Que nos yeux impurs

Puissent s’abreuver de cette prose

Venant nous apporter compréhension et sagesse

Pdf oh! combien important

Qui nous guide vers le chemin

De la re-projection

 

@+

[lecrabe]

Oh mon Breton Adore & Venere

Voici comme demande dans ta MP

le Tuto du Ventrachoux

Bonnes Vacances, Bye, votre devoue Decapode

[Patrick_35]

Le padawan remercie la lumière céleste.

 

@+

[philous2]

Salut.

As-tu suivi les conseils d'Olivier pour créer un Alias ?

Désolé de ne pas t'avoir répondu avant, j'étais en ARTT vendredi am comme tous les vendredis.

J'ai lu et regardé avec beaucoup la vidéo d'Olivier que je remercie, également.*

J'ai réussi à créer un Allias C: dans le menu Map.

J'ai effectué la manip de ton lisp, sur 1 fichier. Là il a bien chargé le fichier en question que j'ai enregistré sous C: auparavant.

Et il a ensuite créé un fichier CC48, il a transformé apparement. Je pensais en fait qu'après la boite de dialogue du menu source une boite de dialogue finale allait s'afficher. En fait c'est la même boite de dialogue qui reste affichée, on clique une 1ère pour les coordonnés source et une 2ème pour les coordonnés futurs choisis. A première ça a l'air d'avoir marché, mon plan s'affiche bien dans les 2 systèmes et sont bien différents. A vérifier si le CC48 les coordonnés sont bien bon, simple vérification. Si je vois un truc je te dirai.

Encore merci Denis, très intéressant ton lisp.

[DenisHen]

De rien.

 

Content d'avoir rendu service... ;)

[philous2]

De rien.

Content d'avoir rendu service... ;)

Bjr Denis,

 

Je confirme que ma variable CMDDIA saute à O au lieu de 1.

Je vais donc remplacer ton lisp par le dernier que tu viens de modifier.

A+

Philippe

[philous2]

De rien.

Content d'avoir rendu service... ;)

Rebjr Denis,

 

Une question, j'ai une question à te poser concernant ton lisp en question.

Je bute sur un problème actuel.

Je m'explique, j'ai plein de fichiers d'étude en L1N.

J'ai une dalle photo Ortho 2015 en CC48. J'ai donc créer un fichier Ortho 2015-CC48 ou j'ai inséré ma dalle image ortho que j'ai dans ce nouveau fichier. J'ai créé 4 cercle aux 4 coins de limite de ma photo. J'ai ensuite détaché ma photo, il ne me reste donc plus que mes 4 cercles en CC48. J'ai sauvegarder et fermer. J'ai passé la moulinette de ton lisp.

J'ai donc obtenu un nouveau fichier avec toujours mes 4 cercles en question mais en L1N, logiquement. C'est là que ça déconne,les cercles sont toujours en CC48. Est-ce normal non je pense.

J'ai donc un soucis. Je n'arrive pas à transformer un CC48 en L1N. Ton lisp transforme bien les lamberts dans n'importe quel sens, de L1N en CC48, de CC48 EN L1N etc.... non !

J'ai réussi plusieurs fichiers de CC48 en L1N sans problème nickel, mais là j'ai un cas un peu particulier, il faut que je transforme un fichier en CC48 que j'aurai créé, contenant une dalle photo en CC48 en L1N,,l'inverse en fait.

A+

Philippe

[je56]

Bonjour Philippe,

Si c'est pour reprojeter un raster de cc48 en L1N, pourquoi ne passes tu pas par IGNMAp? De mémoire (je ne l'ai plus sous la main) il fait ça très bien

Eric

[philous2]

Bonjour Philippe,

Si c'est pour reprojeter un raster de cc48 en L1N, pourquoi ne passes tu pas par IGNMAp? De mémoire (je ne l'ai plus sous la main) il fait ça très bien

Eric

Bonsoir Eric,

Je viens de lire ton message intéressant mais impossible chez nous.

IGNMAP est un logiciel, d'une part et payant secondo.

Chez nous on a aucun droit du service informatique et cherche plutôt à installer tout ce qui est gratos. Vu que c'est payant aucune chance.

Cela aurait été vraiment intéressant car l'ensemble de mes fichiers d'études en L1N et mon extrait de dalle départementale IGN est un fichier ECW en CC48puisque dorénavant tous nos fichiers dont en CC48 sauf certaines études plus anciennes comme celle-la.

Mais je trouve quand même étonnant que le lisp de Denis ne fonctionne quand dans un sens.

Je vais vois avec lui.

Merci quand même de ta réponse sympa.

A+

Philippe

[lecrabe]

Hello

 

Q1) SVP tu as quelle version de AutoCAD MAP exactement ?

 

Q2) Peux tu mettre à Disposition (Lien Download) 1 de tes fichiers Raster à re-projeter pour voir ?

 

Q3) OU as tu vu que IGNMAP (Logiciel Tip-Top) etait payant ??

http://ignmap.ign.fr/

La version du 28 Mai 2018 apporte des nouveautes et corrections ...

 

En principe seuls des logiciels spécifiques peuvent re-projeter du Raster !

 

Bye, lecrabe

[DenisHen]

Salut Philippe.

...Ton lisp transforme bien les lamberts dans n'importe quel sens, de L1N en CC48, de CC48 EN L1N etc.... non !

Oui. Mon Lisp ne "reprojette" pas, il n'y a aucune formule dedans. C'est AutoCAD MAP qui fait tout.

 

Et je ne comprend pas pourquoi tes quatre cercles sont restés en CC48...

 

Peut-être dans un calque verrouillé...

[lecrabe]

Hello

 

De facon generale lorsque des objets ne sont pas re-projetes par MAP 20XX (avec ou sans l'aide d'une Routine Lisp comme celle de DenisHen qui facilite beaucoup la manipulation) , c que les objets ne sont pas "au sol" ou "plans" !

 

D'autre part certains objets speciaux comme les vraies Ellipses et les vraies Splines ne sont pas reprojetables (en principe) !

 

C pourquoi dans les BONs CCTP/CDC, il est signale qu'il est INTERDIT d'utiliser ces objets dans un DWG/DXF/DGN de Carto/Topo/VRD/SIG/etc ... C MORTEL a l'interieur des Blocs/Symboles ...

 

Donc pour les Ellipses, il suffit de travailler avec PELLIPSE = 1 , ainsi on cree de fausses ellipses (= Polylignes 2D)

 

Donc pour les Splines, il suffit d'utiliser des Polylignes "classiques", puis de les Spliner ...

 

RAPPEL: il faut au minimum un AutoCAD MAP 2009 pour gerer les nouvelles Projections Lambert 93 !

 

Bye, lecrabe

[je56]

Philippe,

 

Je confirme les propos du décapode, la dernière fois que j'ai installé IGNMAP,

on ne m'a pas demandé ma carte de crédit :)

 

Autrement, peut être avec QGIS avec sa fonction RASTER > Projection > Projection.

Pas essayé mais ça a l'air de faire le travail et il y a même une case à cocher pour les traitements par lot.

 

Eric

[philous2]

Salut Philippe.

Oui. Mon Lisp ne "reprojette" pas, il n'y a aucune formule dedans. C'est AutoCAD MAP qui fait tout.

Et je ne comprend pas pourquoi tes quatre cercles sont restés en CC48...

Peut-être dans un calque verrouillé...

J'avoue ne rien comprendre.

Le truc que j'ai est tout simple pourtant.

J'ai une dalle photo ECW en CC48.

J'ai créé un fichier DWG en insérant via le menu map dessin "inséré image", ma dalle ortho.

J'ai créé un cercle dans chaque coin de la photo dans un calque "cercle".

J'ai détaché ma dalle photo et ensuite simplement enregistré mon fichier. Dans ce fichier je n'ai donc plus que mes 4 cercles créés préalablement aux coordonnés de ma dalle photo en CC48.

Ce fichier crée, je le transforme via ton lisp en L1N et là ça déconne, mes cercles reste en CC48 au lieu d'être en L1N.

Je n'ai aucun calque de verrouillé, 1 seul calque dans ce fichier.

 

Voilà ce que j'ai comme message:

Commande: _appload DHReProjection.LSP correctement chargé(s)

Commande:

Commande:

Commande: DHReProjection

Alias courant:[\Répertoire]: C: = C:

Nombre de dessins source sélectionnés: 1

Création de la sauvegarde C:\ESSAI CAULNES- ORTHO CC48.BAK...

Enregistrement de C:\ESSAI CAULNES- ORTHO CC48.DWG...

Code 'RGF93.CC48' assigné à 1 dessin(s)

Fin de la sélection du système source...

Fin de la sélection du système cible...

Requête de C:\Essai Caulnes- ortho CC48.dwg ...

Exécution de la requête d'emplacement...terminé

Affichage des objets interrogés...

Message #0: Code de système de coordonnées incorrect ou manquant.

Code du message: 2.

La requête a extrait 4 objet(s).

Message #0: 4 objets interrogés dans le dessin dissocié C:\Essai Caulnes- ortho

CC48.dwg seront traités comme de nouveaux objets.

Code du message: 1231.

Message #1: 4 objets interrogés dans le dessin dissocié C:\Essai Caulnes- ortho

CC48.dwg seront traités comme de nouveaux objets.

Code du message: 1231.

InsUnits...terminé

Projection terminée.

Commande: '_.zoom _e

Commande: '_id Spécifiez un point: _cen de X = 1311821.50 Y = 7250669.90

Z = 0.00

 

[DenisHen]

Message #0: Code de système de coordonnées incorrect ou manquant.

C'est ça qui me parait curieux...

 

Peut-tu mettre ton fichier avec les quatre cercles en CC48 à disposition, que je fasse quelques testes ?

[philous2]

Philippe,

Je confirme les propos du décapode, la dernière fois que j'ai installé IGNMAP,

on ne m'a pas demandé ma carte de crédit :)

Autrement, peut être avec QGIS avec sa fonction RASTER > Projection > Projection.

Pas essayé mais ça a l'air de faire le travail et il y a même une case à cocher pour les traitements par lot.

Eric

Bjr Eric,

J'ai installé sur mon pc IGNMap_2_0, j'ai réussi sans problème de verrouillage de notre service info.

Je l'ai ouvert, et là je ne comprend pas grand chose j'avoue sur ce logiciel.

j'ai été dans le menu Outils/Reprojection raster../

Là j'ai paramétré les Lamberts CC48 et L1N j'ai fait ensuite exporté mais rien. comment tu fais dans ce logiciel pour déjà chargé la photo que tu désires et ensuite la transformer au niveau Lambert.

Je vois pas trop.

A+

Philippe