Polyligne + "XDATA"

[rebcao]

Bonjour à Toutes et à Tous,

 

En pièce jointe un dessin contenant une Polyligne ! Je pensais pouvoir traiter les données étendues de cette polyligne avec liste XDATA des EXPRESS TOOLS, mais ça affiche des erreurs !!!

 

Quel serait la fonction LISP ou VLISP pour pouvoir lire les données étendues : NUMERO, FEUILLE SECTION, etc... C'est un peu comme les attributs des blocs !

 

Je pensais y arriver en utilisant les CHAMPS ! Mais aucune trace de ces données !

 

Quel serait le meilleur moyen de lire et surtout d'afficher ces données sur le principe des CHAMPS ?

 

Je vous remercie pour votre aide.

 

Christian

polyligne XDATA.zip

[Patrick_35]

Salut

 

(gile) a fait un super prog sur les xdatas

 

@+

[(gile)]

Salut,

 

Je n'ai pas de problème pour lire les données étendues de la polyligne avec les express Tools :

Commande: XDLIST

Initialisation...
Choix de l'objet:
Enter application name <*>:


* Registered Application Name: AcMap_E615D161-C9D7-11d3-839F-0060B0FB6B57
* Code 1071, 32-bit signed long integer: 2
* Code 1071, 32-bit signed long integer: 26135
* Code 1071, 32-bit signed long integer: 1

Object has 16365 bytes of Xdata space available.

[didier]

Coucou

 

Je confirme ce que (gile) confirme

Même résultat sans message d'erreur en lançant la même commande, toutefois je parle de MAP 2015 je ne sais pas sur quelle version d'AutoCAD tu nous interroges.

[lili2006]

Bonjour à toutes et tous,

 

Ok chez moi aussi=>

 

nitialisation...
Choix de l'objet:
Enter application name <*>:


* Registered Application Name: AcMap_E615D161-C9D7-11d3-839F-0060B0FB6B57
* Code 1071, 32-bit signed long integer: 2
* Code 1071, 32-bit signed long integer: 26135
* Code 1071, 32-bit signed long integer: 1

Object has 16365 bytes of Xdata space available.

Commande:

[rebcao]

Re,

 

Je vous remercie pour vos réponses... Il s'agit d'une version MAP 2011 ! Par contre, j'ai toujours l'erreur ! Il doit y avoir un problème quelque part, parce les commandes de la barre CALQUE II ne fonctionnent pas !

 

En utilisant le LISP de Gilles ça marche...

 

Sinon, voila les données que je retrouve dans les propriétés :

 

Que j'aimerais bien retrouver sous une forme LISP ou autre ?

 

Merci

 

 

Christian

[lili2006]

Re,

 

Sinon, voila les données que je retrouve dans les propriétés :

 

Ce sont des données d'objets (ODs) propre à MAP,...

[(gile)]

Salut,

 

Il me semble que tu confonds les données étendues (xdata) et les données d'objet (ObjectData) spécifiques à MAP/CIVIL.

 

Il existe des fonctions LISP spécifiques à MAP/CIVIL pour accéder à ces données.

 

Tu trouveras ici les explications pour récupérer la documentation.

Je ne peux pas t'aider beaucoup plus, je ne connais pas MAP, peut-être que si bonuscad ou fabcad passent par là...

[rebcao]

Re,

 

Merci pour vos réponses ! Je vais jeter un oeil...

C'est justement pour pouvoir exploiter ces données hors MAP !

 

Christian

[lili2006]

Re,

 

A ma connaissance ces données ne sont lisibles que sur un MAP/Civil,...

 

Il faudrait alors pouvoir transformer les ObjectData en xdata,...

 

Il me semble avoir vu un truc dans ce genre,...Patrice, si tu nous lis,...:unsure:

[lili2006]

Re,

 

On en à déjà parler sur CadXP => http://cadxp.com/top...ect-data-xdata/

 

Et sur GeoReso (plus complet) => http://georezo.net/f...ic.php?id=63958

 

 

D'ou le LISP de Olivier,..

[bonuscad]

Bonsoir,

 

Ce que j'utilise pour transcrire des OD de Map vers des XData.

Cependant cette procédure ne peut être faite que sous une version Map.

Une fois fait, les XData pourront être lues depuis une version classique

 

Le code:

 

(defun C:MyOD2XD ( / LstTable Jeu I iNbJeu Elt EltLstTable iEltLst iNbEltLst EltTable oTableDef sNomTable exdata oLstChamp iChamp
                 iNbChamp sNomChamp sTypeChamp sValChamp exdata newent)
 (setq LstTable (ade_odtablelist))
 (setq Jeu (ssget))
 (setq I 0 iNbJeu (sslength JEU))
 (repeat iNbJeu
   (setq Elt (ssname Jeu I))
   (setq I (1+ I))
   (if (setq EltLstTable (ade_odgettables Elt))
     (progn
     (setq iEltLst 0 iNbEltLst (length EltLstTable))
     (repeat iNbEltLst
       (setq EltTable (nth iEltLst EltLstTable))
       (setq iEltLst (1+ iEltLst))
       (setq oTableDef (ade_odtabledefn EltTable))
       (setq sNomTable (cdr (assoc "Tablename" oTableDef)))
       (regapp sNomTable)
       (setq exdata (list sNomTable))
       (setq oLstChamp (cdr (assoc "Columns" oTableDef)))
       (setq iChamp 0 iNbChamp (length oLstChamp))
       (repeat iNbChamp
         (setq sNomChamp (cdr (assoc "ColName" (nth iChamp oLstChamp))))
         (setq sTypeChamp (cdr (assoc "ColType" (nth iChamp oLstChamp))))
         (setq sValChamp (ade_odgetfield Elt EltTable sNomChamp 0))
         (setq iChamp (1+ iChamp))
         (setq exdata
           (append exdata
             (list
               (cond
                 ((eq sTypeChamp "Real") (cons 1040 sValChamp ))
                 ((eq sTypeChamp "Integer") (cons 1070 sValChamp ))
                 ((eq sTypeChamp "Point") (cons 1010 sValChamp ))
                 ((eq sTypeChamp "Character") (cons 1000 sValChamp ))
               )
             )
           )
         )
       )
       (setq exdata (list (list -3 exdata)))
       (setq newent (append (entget Elt) exdata))
       (entmod newent)
     )
     )
   )
 )
)

[Olivier Eckmann]

Bonjour,

 

en même temps si tu as besoin d'un MAP, il suffit d'enregistrer ta carte au format AutoCAD et de cocher inclure les xData.

 

Olivier

[lili2006]

Bonjour à toutes et tous,

 

Salut Olivier,

 

il suffit d'enregistrer ta carte au format AutoCAD et de cocher inclure les xData.

 

Peux tu développer un peu STP ?

 

Merci d'avance,

[rebcao]

Bonjour,

 

Merci pour vos réponses, je vais tester tout ça dès Lundi...

 

Christian