Le portail francophone de la géomatique

Hello

Reponse ultra-rapide sans reflechir :

Tu fais un Export au format SHP (Type ArcView 3.x) et surtout pas Multi-Class !

Par le traducteur universel de MapInfo, tu relis les donnees ...

As tu le meme probleme ?

Si OUI, SVP peux tu nous envoyer le DWG ou un extrait du DWG ?

GeoBye, Pat

Hello

Ton bug me semble relativement ENORME, nous en aurions entendu parler !

J'ai teste sur mon MAP 2009 avec un Export (_MAPEXPORT) en SHP, TAB & MIFMID
suivi d'un Import (_MAPIMPORT) dans un dessin vierge et bien sur je n'ai aucun souci !

J'ai ajoute lors de l'Export MAP (_MAPEXPORT) 3 proprietes AutoCAD : COULEUR, CALQUE, LONGUEUR

Confere le fichier joint : DWG, SHP, TAB, MIFMID ...

SVP as tu installe le SP3 sur ton MAP 3D 2009 ?
http://usa.autodesk.com/adsk/servlet/ps … ID=9240858

GeoBye, Pat

Hello

EXACT I am very sorry ! Mais ton 1er message n'etait pas tres explicite sur le fait
que les donnees attributaires (ID & ID_RUE) devenaient communes aux objets re-importes !

Tests realises sous MAP 2006 / 2008 / 2009 / 2010
Par exemple le fichier MID ne contient que UNE SEULE ligne
alors qu'il y a UNE PLINE MULTIPLE 4 dans le MIF !

DONC cela ressemble a un MEGA-Bug specifique a tes donnees !!
-------------------------------------------------------------------------

Cela me semble quand meme incroyable que personne n'ait eu ce genre de probleme avant toi !!!

GeoBye, Pat

PS1: Modif sur le fait qu'il y a UNE Pline Multiple 4 dans le MIF !

Dernière modification par Patrice (Tue 24 November 2009 13:55)

Hello

NON il n'y a aucun groupe car j'ai lance "immediatement" une routine pour les desintegrer !

--- Pour supprimer les Groupes "en force" ---

(defun c:del_all_groups ()
(vl-load-com)
(setq grp (vla-get-groups (vla-get-activedocument(vlax-get-acad-object)))) 
(vlax-for gr grp (vla-delete gr) )
)

En fait j'ai trouve le pourquoi du comment, il y a des XDATAs ( c SUR !)
et sans doute un reacteur derriere (A verifier) !?

Commande: (entget (car (entsel)) '("*"))
Choix de l'objet: ((-1 . <Nom d'entité: 7ed972f0>) (0 . "LWPOLYLINE") (5 .
"126") (102 . "{ACAD_XDICTIONARY") (360 . <Nom d'entité: 7ed972f8>) (102 . "}")
(330 . <Nom d'entité: 7ed74ee8>) (100 . "AcDbEntity") (67 . 0) (410 . "Model")
(8 . "Axes_Voie") (62 . 1) (100 . "AcDbPolyline") (90 . 2) (70 . 0) (43 . 0.0)
(38 . 0.0) (39 . 0.0) (10 764052.0 49936.3) (40 . 0.0) (41 . 0.0) (42 . 0.0)
(10 764068.0 49901.9) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0) (-3
("AcMap_E615D161-C9D7-11d3-839F-0060B0FB6B57" (1071 . 1) (1071 . 4))))

On voit bien l'appli XDATA ("AcMap_E6xxxxxx") enregistree
et les 2 valeurs de XDATA qui sont 1 et 4 sur les codes 1071 !

Car en construisant 4 Lignes ou Polylignes a cote et en copiant les OD (Object Data)
avec la routine COPY_OD.lsp (tres pratique), je n'ai aucun probleme !

!!! Sympa le piege !!!

GeoBye, Pat

PS1 : Routine pour desintegrer en force TOUS les XDATAs d'un DWG
---------------------  DANGER DANGER DANGER DANGER  -----------------

 
;;;
;;; Commande au clavier : DeleteAllXdata
;;; ATTENTION : c TRES DANGEUREUX car c GLOBAL / GENERAL
;;; Ne surtout pas ECRASER le DWG courant 
;;;

(defun C:DeleteAllXdata ( / curass countr)
 (setq curass (ssget "X" '((-3 ("*"))))
       countr 0
 )
 (if curass
  (repeat (sslength curass)
   (DelXdata (ssname curass countr) '("*"))
   (setq countr (1+ countr))
  )
 )
 (princ)
)

(defun DelXdata (ent app / entlst tmplst)
 (setq entlst (entget ent app))
 (foreach memb (cdr (assoc -3 entlst))
  (setq tmplst (cons -3 (list (cons (car memb) nil)))
        entlst (subst tmplst (assoc -3 entlst) entlst)
        entlst (entmod entlst)
  )
 )
)

Merci Patrice pour ta rapidité.
Ta réponse est arrivée au moment où j'envoyai le message.

Je teste et t'informe.
Toutefois, la question 1 demeure (origine d'un tel Xdata) ?