Le portail francophone de la géomatique

Salut,
un script peut contenir du lisp, donc tu peux faire ce que tu veux avec tes xref
ci dessous un petite fonction pour sélectionner les xrefs (elle s’appuie sur PowerClic)

; ****************************************************************************
;;§/xref/sélectione les xrefs du dessin/none
(defun pw_SsgetX_Xref ( / lxref)
                    
  (if (setq lxref (pw_list_xref_MajMin))
  (ssget "x" (list '(0 . "INSERT")(cons 2 (pw_ch_de_lst lxref ","))))
  )
)

l'usage dans ton script :

(setq sel (pw_SsgetX_Xref))

ton script :

;;points de déplacement
(setq pb (getpoint "\nPoint de base"))
(setq pa (getpoint "\nPoint d'arrivée"))
;;sélection
(setq sel (pw_SsgetX_Xref))
;action
(foreach l (pw_listsel sel)
 (command "_move" l "" pb pa)
)

Hello

YES une simple translation (deplacer + rotation ou ALIGN) est "acceptable" si la zone de dessin est petite en terme de surface/emprise !
Dans ce cas, il serait mieux de partir du point central du dessin plutot que d'un point en bas a gauche ...

Si tu n'as pas MAP (ou CIVIL), tu pourrais sauvegarder des DWGs en DXFs et utiliser l'excellent logiciel gratuit de l'IGN : IGNMAP v2.x !!
Car IGNMAP est capable de reprojeter en Batch du DXF, SHP, MID-MID, GC, etc ...

GeoBye, Pat

salut,
pour moi le mieux est d'utiliser le logiciel IGNMAP proposé par Patrice pour reprojeter toutes tes xrefs, et qu'au final elles soient toutes insérées en x=0,0, echelle = 1 et rotation = 0,
pour que ce soit propre
maintenant, je sais qu'on fait pas toujours comme on veux :
dans le cas où tu devrais bidouiller, on peut considérer que translation , rotation et échelle peuvent se faire par 2 x 2 points

Tu pourra facilement adapter l'exemple de script ci dessous pour effectuer le même traitement dans tes présentations


Pour le script, il te faut PowerClic  http://g-eaux.over-blog.com/2014/04/pow … -plus.html installé, sinon il faut te trouver l'équivalent de pw_SsgetX_Xref et pw_listsel. Sinon tu peut adapter pour sélectionner une par une tes xrefs, ce sera encore plus simple

je reste sur des scripts, car en fait, si tu as déjà ta grille de coordonnées tu peut fair autant de script que de dessin, dans les quels tu copie colle tes coordonnées. au final, c'est plus lourdeau qu'un lisp plus évolué, mais ça peut mieux convenir à de la bidouille

laisse tomber le bloc notre, passe à Notepad++ avec une coloration syntaxique appropriée à Autocad, ça sera plus clair ...
http://g-eaux.over-blog.com/article-fic … 07392.html


pour le script de base:

;;points de déplacement
(setq pb (getpoint "\nPoint de base"))
(setq pa (getpoint "\nPoint d'arrivée"))
;;point echelle et roation
(setq pro (getpoint "\nPoint rotation et echelle d'origine"))
(setq pra (getpoint "\Point rotation et echelle d'arrivée"))

;;sélection
(setq sel (pw_SsgetX_Xref))
;;actions !!
(foreach l (pw_listsel sel)
     ;;déplacement
     (command "_move" l "" pb pa)
      ;;rotation
    (command "_rotate" l "" pa)
    ;;Spécifiez l'angle de rotation ou [Copier/Référence] <0>: _r
    (command "_r")
    ;;Spécifiez l'angle de référence <0>:  
    (command pa )
    ;;Spécifiez le deuxième point:
    (command  pro)
    ;;Spécifiez le nouvel angle ou [Points] <0>:
    (command  pra)

     ;;echelle

    (Command "_SCALE"  l "" pa)
    ;;Spécifiez le facteur d'échelle ou [Copier/Référence]: r
    (command "_r")
    ; Spécifiez la longueur de référence <1.0000>:  
    (command pa )
    ; Spécifiez le deuxième point:
    (command  pro)
    ; Spécifiez la nouvelle longueur ou [Points] <1.0000>:
    (command  pra)
 
)

Bonjour,

Les suggestions plus haut me semblent pourtant bonnes :

1. Conversion des 2000 DWG vers DXF avec un utilitaire comme DWGTrueView (Pat, tu confirmes que ça peut le faire ?) ou un autre
2. Reprojection des 2000 DXF de Lambert 1 vers Lambert CC49 avec IGNmap
3. Re-conversion des 2000DXF en DWG
[Suite en partant du principe que chaque plan est en mètres + avec "_BASE" calé sur 0,0,0
4. Insertion via un SCRIPT (.SCR) des 2000 plans en 0,0,0, echelle 1, rotation 0 > un script au sens où je l'entend n'est aps en LISP mais en langage de commandes Autocad qui se suivent avec des paramètres (qu'on peut faire via Excel ou autre)

Si tes plans Lambert 1 sont bien faits, c'est le plus précis, le plus simple et le plus facile à automatiser.

Après, si tu veux partir sur ta solution bricolée, c'est une autre affaire.

Le truc c'est que si tu reprojetes tes plans, il faudra de toute façon recentrer les mises en pages je pense (et là tu pourras utiliser tes calculs d'équivalence d'emprise pour changer le SCU).

Ceci dit, ce n'est pas simple comme démarche, mais tant qu'à faire, je serais toi, je ferais un truc propre de suite...

Salut,
tu dis avoir 2000 plans à traiter, alors ça vaux le coup de te pencher sérieusement sur le problème

je crois pourtant avoir essayé de faire simple, mais comme te l'ont dit Patrice et Robin, changer simplement le pt d'insertion ne marchera pas, tu aura des décalages significatifs lorsque tu amènera les nouveaux plans en CC49, la solution a 2x2 points pour translation, echelle rotation est un minimum

ça veux dire que tu as des plans qui ne sont pas en lambert, sinon il auraient tous 0,0 1 et 0

donc ceux là il faut que tu les inventories, et que tu les traite OBLIGATOIREMENt par un bidouillage, car à mon avis IGNMAP ne voudra pas leur appliquer une reprojection s'ils sont hors coordonnées

Prends le temps de réfléchir à ce que tu vas faire, traiter 2000 plans au petit bonheur, ça n'a pas de sens : on a le droit de bâcler que le vendredi soir pour partir à l'apéro !

Bon courage,
Gérald

Bonjour,

Je crois qu'il y a une ambiguité sur la définition des besoins.
Si j'ai tout bien compris, le problème n'est pas de transformer les plans (qui sont utilisés en Xref) de Lambert1 vers CC49, ça c'est le fournisseur qui va le faire.
Le problème ce sont les 2000 dessins qui appellent ces plans en Xref. Les dessins devant rester les mêmes, les présentations ne devant pas être refaites, il faudrait déplacer le point d'insertion des xref pour que une fois la nouvelle XREF passée en CC49, les objets graphiques (le fond de plan) se retrouvent au même endroit.

Si j'ai bien compris, ça ne peut pas se faire avec un simple script, car il faudrait un lisp qui regarde le nom des XREF, puis qui aille chercher dans le fichier Excel le décalage, la rotation et l'applique.

Personnellement, même si ce n'est pas satisfaisant intellectuellement, je ne toucherais à rien à tes dessins et je ferais la conversion inverse pour repasser les plans CC49 qui te seront fournis en Lambert1 pour retrouver automatiquement tes petits.

Olivier

Salut

Lis ce que te dis Olivier :

dans ce cas la, tu ne touche à rien dans tes dessins, tu fait la transfo avec Ignmap de tes nouvelles Xref selon le mode opératoire de Robin.

Ton fichier excel tu le mets à la poubelle, il ne te servira à rien ...  Pas plus qu'un script ou un lisp de transformation.

Tu avais commencé par :

ce qui voulais dire que c'était ton projet qui devait migrer, en même temps que les fonds de plan : c'est assez courant.

Pose quand même bien la question à ta hiérarchie, car si tes plans font partie d'un projet global, ou si lors de leur rendu papier un carroyage en coordonnées est exigé, passer au CC49 ou à un lambert global me parait impératif.

gérald

C'est vrai que je m'étais mal exprimé.

Je vais donc tester les deux solutions, de Robin et olivier, et voir si j'y ça fonctionne.

Dans Excel ou dans Bloc-note/Notepad ?

Donc par exemple si pour un fichier j'ai une seule xref qui s'apelle 051A ça sera :

_move (ssget "x" (list (cons 0 "INSERT") (cons 2 "051A")))  -979677.256833284,-8069935.80333459 dX,dY _rotate _p  0.501098690273393 angle_de_rotation


Mais si j'en ai 2 qui s'appellent 051A et 052B ça sera :

_move (ssget "x" (list (cons 0 "INSERT") (cons 2 "051A")))  -979677.256833284,-8069935.80333459 dX,dY _rotate _p  0.501098690273393 angle_de_rotation

_move (ssget "x" (list (cons 0 "INSERT") (cons 2 "052B")))  -979677.256833284,-8069935.80333459 dX,dY _rotate _p  0.501098690273393 angle_de_rotation

Sauf que il faudrait rajouter le nom du fichier, non ?

Mais du coup il faut créer un .SCR par plan ?