Reprojection of multiple DWG

[APRR_SITE_DIJON]

Hello guys,

I have a lot of dwg files (more than 100) that I need to reproject from IGN-II-Grid to RGF93.CC46

I know there is a way to reproject One DWG at a time (create new file > set coordinate system, meters unit and source CoordSys > Query with all > save)

This

This method works well but this is tedious work for more than 100 dwg.

So, my question is : Do you have a routine or a batch script that I can use to reproject multiple Dwg (same source CoordSys, same target CoordSys) ?

I know there is "AC Batch Reprojection Utility" that has been developped by Autodesk Consulting but they are unable to provide me this script....

Hope somebody can help 🙂

Regards

Matthieu

[antoniovinci]

Bonjour, monsieur.

In an empty drawing, set the CRS as IGN-II-Grid, then do a simple script like this:

_-INSERT drawing1. dwg ...

_-INSERT drawing2. dwg ...

...

_-INSERT drawing100. dwg ...

then save all as "IGN-II-Grid.dwg".

Afterwards, in an empty drawing, set the CRS as RGF93.CC46, attach the above "IGN-II-Grid.dwg", finally perform the draw query.

Maybe it's not what you're after (i.e. 100 single drawings in RGF93.CC46 system), but better than manually reprojecting all, isn't it..?

[APRR_SITE_DIJON]

Thanks for your Reply Antonio,

Unfortunatly, I am looking for a way to get single drawings as an output.

Your solution cannot work because it would be tedious too to also cut back 100 dwg files from a large single RGF93.CC46 drawing.

Regards

[braudpat · Accepted solution]

Hello Matthieu

Unfortunately AutoCAD MAP 20xx can reproject N DWGs to ONE DWG ONLY !

or you will have to reproject ONE BY ONE which is very time consumming ...

The French IGN has developped since a few years a Free Tool (IGNMAP) able to reproject N files (Automatic Batch mode) in DXF or SHP or MIF-MID or GC or xxx Format

which are in ONE folder - for example : "C:\DXFINPUT"

to an OTHER folder - for example : "C:\DXFOUTPUT"

This Reprojection Free Tool is able to use the "good old" Lambert 1/2/3/4/ET and of course ALL the New Lambert RGF93 : L93 France Entiere (whole country)  and the NINE L93 CCxx

A lot of people are using in France this Free Tool ...

For example ALL people with an AutoCAD LT or with an "classic" AutoCAD ... 

Please try this Free Tool ! And let us konw if you are satisfied !?

[olivier.eckmann · Accepted solution]

Bonjour,

Open a DWG

Specify CC46 to this drawing

Attach your X dwg to the source drawing and specify the IGN.II for these base drawing

Load this lisp and execute RPV at command line

(defun C:RPV ()
  ;récupère la liste des chemins et des noms des dessins puis détache
  (foreach dwg_id (ade_dslist)
    (setq ListDwgName (append ListDwgName (list (ade_dwgactualpath dwg_id))))
    (ade_dsdetach dwg_id)
  )
  ;définit la requette Emplacement tout en mode dessiner
  ;(ade_qrydefine (list "" "" "" "Location" ("All")  ""))
  (ade_qrydefine '("" "" "" "Location" ("All") "" ) )
  (ade_qrysettype "draw")
  ;boucle d'attachement des dessins 1 par 1
  (foreach dwg_name ListDwgName
    (ade_dsattach dwg_name)
    ;exécute la requète
    (ade_qryexecute)
    ;détache le dessinn
    (foreach dwg_id (ade_dslist) (ade_dsdetach dwg_id))
    ;crée le nom du dessin de sortie
    (setq dwg_name_export (strcat (substr dwg_name 1 (- (strlen dwg_name) 4)) "_BIS.DWG"))
    ;zoom étendu
    (command "zoom" "et")
    ;exporte les objets extraits vers le nouveau dessin
    (command "sauvegrd" dwg_name_export)
    ;supprime tous les objets du dessin
    (command "effacer" "tout" "")
  )
)
 

This lisp find all attached DWG, load first, execute query "Emplacement Tout", save as DWG with same name with sufix _BIS, erase all entities and proceed to next drawing

Sorry for non french people, but command are french instead of international. I could change if necessary

Olivier

[braudpat]

Hello Olivier

BEAUTIFUL !

[APRR_SITE_DIJON]

Thanx Olivier and Patrice.

Both solutions are working and can be applied in a fast and efficient way !

Best regards.