Le portail francophone de la géomatique

leglaude · Wed 20 June 2018 21:07

Bonjour,

Deux sujets en un.

Dans l'optique de la loi concernant les relevés souterrain de Classe A ( précision à +- 50cm ), nous devons réajuster nos plans réseau à partir de points de relevé.
Je me sers de tables MapInfo pour créer des plans AutoCAD géoréférencés ( voirie, réseaux, ... ) depuis AutoCAD MAP.
Les réseaux ont pour origine des tables MapInfo composées de lignes ou de polylignes avec deux ou plusieurs sommets.
Dans AutoCAD MAP, je ne peux transformer les lignes en polylignes sans perte de données, et les polylignes avec 2 nœuds sont considérées comme lignes. Par contre, je peux le faire à l'unité sous MapInfo, mais j'ai environ 30 000 lignes ou polylignes à 2 nœuds à traiter...

Je suis à la recherche d'une routine, d'un automatisme permettant de transformer, sans perte de données, toutes les lignes en polylignes sous AutoCAD MAP.
ou alors, la même chose sous MapInfo, selectionner toutes les lignes et polylignes à 2 nœuds, et en ajouter un de façon aléatoire sur le trait, afin de les transformer en vrai polylignes.

Je suis vraiment coincé, et cette charge de travail m'impressionne...

Merci d'avance

Patrice · Wed 20 June 2018 21:15

Bonsoir

1) Je ne suis pas sur de bien te suivre !?

2) Je pense avoir compris que tu avais des Lignes / Arcs dans ACAD MAP avec DESSUS des ODs de MAP (OD = Object Data = Donnees d'Objet) provenant d'un MAPIMPORT (avec Creation des ODs depuis des fichiers SHP ou MIF-MID ou TAB) !

3) Et tu desires transformer ces Lignes / Arcs en Polylignes / PolyArcs SANS PERTE des ODs de MAP !

4) C TRES SIMPLE avec ACAD MAP ... Methodologie :

Commande: MAPCLEAN <Entree>
Icone "Selection" en haut a droite et tu selectionnes tes Lignes / Arcs concernes ... <Entree>
Puis "Suivant ..."
Puis "Suivant ..." (Ne surtout mettre AUCUN Algo de Nettoyage !)
Laisser l'option par defaut "Modifier les objets d'origine"
Cocher les DEUX options : Ligne en Polyligne & Arc en Polyligne
Puis "Terminer"

5) Et donc cela te coutera un Apero !!
( Un excellent Whisky single malt)

GeoBye, Pat

leglaude · Thu 21 June 2018 08:16

Bonjour Pat,

Je vais faire l'essai, et si c'est concluant, pas de problème pour l'apéro... avec modération bien sûr...

Merci

leglaude · Thu 21 June 2018 09:55

merci Pat, je viens de faire l'essai, et c'est parfait.

deuxième partie de la question initiale ( je sais, je suis pénible):

maintenant que j'ai mes lignes avec données attributaires transformées en polylignes, comment est ce que je peux faire pour rajouter un troisième nœud automatiquement sur ces polylignes , qui ne sont pas reconnues comme telles sous Mapinfo ( même punition, Mapinfo transforme systématiquement en ligne la polyligne à 2 noeuds ).

c'est une histoire sans fin de 30 000 lignes...

merci d'avance...

Patrice · Thu 21 June 2018 10:55

Hello

J'ai toujours du mal a comprendre !?

As tu des Polylignes de seulement 1 segment ?
Et si OUI, desires tu simplement generer un nouveau Point au milieu du segment de la Polyligne ??

GeoBye, Pat

leglaude · Thu 21 June 2018 14:07

C'est exactement ça.

La première étape de conversion de Lignes avec données attributaires en Polylignes sans perte de données à été validée.

Maintenant, j'ai environ 30 000 lignes ou polylignes d'un seul segment ( seulement 2 sommets ), et je voudrais rajouter automatiquement un nœud ( ou un point, ou un sommet, selon les langages ) sur ces elements pour en faire des Polylignes en 3 points, afin de pouvoir les exporter sous MapInfo, et qu'elles soient reconnues comme Polylignes.

Dans le dialogue AutoCAD Map / Mapinfo et inversement, une Polyligne avec seulement 2 sommets est convertie en Ligne.

Merci d'avance., cordialement.

bruno v. · Fri 22 June 2018 02:23

Bonjour,

Tu peux essayer ceci (à copier coller directement en ligne de commande)

Code:

((lambda ( / js n obj lst_pt)
    (setq js (ssget '((0 . "LWPOLYLINE"))))
    (cond
        (js
            (repeat (setq n (sslength js))
                (setq
                    obj (vlax-ename->vla-object (ssname js (setq n (1- n))))
                    lst_pt (vlax-get obj 'Coordinates)
                )
                (if (eq (/ (length lst_pt) 2) 2)
                    (vla-AddVertex
                        obj
                        1
                        (vlax-make-variant
                            (vlax-safearray-fill
                                (vlax-make-safearray vlax-vbdouble '(0 . 1))
                                (list
                                    (* (+ (car lst_pt) (caddr lst_pt)) 0.5)
                                    (* (+ (cadr lst_pt) (cadddr lst_pt)) 0.5)
                                )
                            )
                        )
                    )
                )
            )
        )
    )
))

Cela ne fonctionnera qu'avec des polylignes légères avec seulement 2 sommets (Attention je ne contrôle pas si celui-ci est un arc de polyligne)
Ne doit pas détruire les Données d'Objet attachés à celle-ci.

Patrice · Fri 22 June 2018 06:23

Hello

1) MERCI Bruno, ta Routine LAMBDA est OK (Conservation des XDATAs et des ODs de MAP) sur les Polylignes 2D de UN Segment !

2) Sinon j'ai (depuis cette nuit, suite a ma demande sur le Forum US d'Autodesk) une routine LSP "P1P2PLINE" equivalente (de John Uhden) qui traite les Polylignes 2D de UN Segment (ou de UN Arc) ! ... Voir le fichier LSP attache ...
Chargement par APPLOAD <Entree> et Execution par P1P2PLINE <Entree> ...

3) *** RESUME ***
Donc nous (Patrice + Bruno) t'avons economise 2 x 30000 manipulations !
La facture (particulierement SALEE) doit etre envoyee a QUI ??

GeoBye, Pat

Fichier(s) joint(s) :
Pour accéder aux fichiers vous devez vous inscrire.

leglaude · Fri 22 June 2018 09:22

bonjour,

je n'ai qu'un mot à dire.

MERCI !!!

Vous êtes vraiment des cadors, et je ne sais comment vous remercier.

vous avez exactement répondu à ma demande.

merci encore, et pour l'aide que vous m'avez apporté.

pour l'apéro, c'est quand vous voulez...

Patrice · Fri 22 June 2018 10:45

Hello

1) Nous sommes HEUREUX d'avoir pu t'aider !

2) Au fait pour un eventuel Apero, tu te situes OU physiquement ?

Bon WE, GeoBye, Pat

Communauté	Ressources	L'emploi	Le marché	L'association	Fils RSS
Forum Blogs Wiki Planet Sites amis	Agenda Biblio Fiches AMO-CNIG Paris PCGIS Téléchargements	Offres d'emploi Banque de CV Formations Démarche Métiers	Geo-Entreprises Geo-Communiqué Appels d'offres	L'association Qui sommes-nous ? Nous aider Bienfaiteurs Partenaires Historique Statuts	Tout le site Job Géomatique Services GeoBlogs ...	Faire un don Mentions légales

Le portail francophone de la géomatique

Annonce

#1 Wed 20 June 2018 21:07

[ACAD MAP] Echanges MapInfo (Perte de Donnees)

#2 Wed 20 June 2018 21:15

Re: [ACAD MAP] Echanges MapInfo (Perte de Donnees)

#3 Thu 21 June 2018 08:16

Re: [ACAD MAP] Echanges MapInfo (Perte de Donnees)

#4 Thu 21 June 2018 09:55

Re: [ACAD MAP] Echanges MapInfo (Perte de Donnees)

#5 Thu 21 June 2018 10:55

Re: [ACAD MAP] Echanges MapInfo (Perte de Donnees)

#6 Thu 21 June 2018 14:07

Re: [ACAD MAP] Echanges MapInfo (Perte de Donnees)

#7 Fri 22 June 2018 02:23

Re: [ACAD MAP] Echanges MapInfo (Perte de Donnees)

Code:

#8 Fri 22 June 2018 06:23

Re: [ACAD MAP] Echanges MapInfo (Perte de Donnees)

#9 Fri 22 June 2018 09:22

Re: [ACAD MAP] Echanges MapInfo (Perte de Donnees)

#10 Fri 22 June 2018 10:45

Re: [ACAD MAP] Echanges MapInfo (Perte de Donnees)

Pied de page des forums