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 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
Solved! Go to Solution.
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..?
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 !?
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
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register