Recuperer "maintien - X - Y"

[ludo07]

Bonjour a tous

J'ai hesiter a metre ce message en lisp ou dans un forum d'autocad. Mais comme je sens que cela va se terminer par un programme lisp j'anticipe.

Depuis toujours j'utilise des blocs avec attribut ( quel merveille) et j'utilise une commande des express pour exporter les valeurs de ces blocs. Je récupère ainsi le fichier .txt que j'ouvre sous excell. Puis avec excell je peut modifier certaine données d'attribut ( comme par exemple pour les numeros des folios) puis aprés j'utile la commande des express pour ré importer ces nouvelles valeures.

Comme j'ai pu déjà l'ecrir je vien d'integrer un bureau d'etude beton et du coup j'ai de nouveau besoins.

Je souhaiterais pouvoir extraire dans un fichier .txt ou .xls le maintien et les valeurs x et y des blocs que je selectionne.

Donc voici mes questions?

1) existe t'il deja dans autocad une commande qui fait cela? J'ai bien essayais liste mes cela donne les renseignements sur la ligne commande puis c'est très long pour récuperer c'est informations.

2) existe t'il déja un lisp sur le forum qui fasse cela?

3) et enfin si ce n'est pas le cas. Un lispeur pourrait il faire cela? Merki

 

Mon but etant a terme d'utiliser l'exportation des expresscouplé avec ce nouveau lisp. Puis sous excell faire de la bidouille pour retrouver les valeures des maintiens pour pouvoir incrémenter mes numeros semelles.

 

Merki

[Tramber]

Réponse de grande mauvaise foi :

 

http://img195.imageshack.us/img195/1633/routines.png

 

On aurait dû créer un forum de demandes...

... c'est à dire que l'idée n'était pas fournir des programmes mais mettre chacun au travail B)

 

Ceci dit, la commande EXTRACTDONNEES donne les valeurs d'échelles en X et Y.

Moralité : je déplacerais volontiers le message vers un forum AutoCAD.

Et enfin donc : toujours se demander s'il y a d'abord une solution sans lisp. Dans le cas contraire, un lispeur ou un autre exprimerait sans nul doute ses talents généreusement...

[ludo07]

En effet Tramber extractiondonnée donne bien les x et y cependant il ne récupere pas le handdle = maintien

Valeur trés importante car c'est l'immatriculation d'un bloc cette valeur est unique. Et c'est cette valeur qui est utilisée quand on utilise importation des express.

A+

[Tramber]

Ah ! ok. Si tu as bien regardé.

 

J'ai regardé dans ATTEXTR, il n'y a pas le Handle non plus... je croyais vaguement.

 

Tramber

[bonuscad]

Pas directement dans Excel, mais par un fichier CSV.

 

PtDef2CSV.lsp

 

Après une légère modif, tu aurais ce que tu veux.

Remplacer (vers la fin):

(strcat
(itoa (setq nbs (1+ nbs))) str_sep
(cdr (assoc 0 dxf_cod)) str_sep
(rtos (car n) 2 3) str_sep
(rtos (cadr n) 2 3) str_sep
(rtos (caddr n) 2 3)
)

par

(strcat
(vlax-get ename 'Handle) str_sep
(rtos (car n) 2 3) str_sep
(rtos (cadr n) 2 3) str_sep
(rtos (caddr n) 2 3)
)

Voir aussi si la précision de 3 décimale te convient.

Mettre éventuellement en REM avec un ";" la ligne ou l'ajuster à tes désirs:

(write-line (strcat "Matricule" str_sep "Type Entité" str_sep "Coordonée X" str_sep "Coordonée Y" str_sep "Coordonée Z") f_open)

[ludo07]

Bonsoir bonuscad.

Merci c'est exactement ce que je voulais.

Une petite demande de rien du tout.

En effet dans le fichier d'extraction ainsi obtenu, j'ai un decalage des valaeurs dans les colonnes.

Les coordonnées X se trouvent dans la colonne Type d'entitées » les Y dans la colonne des X et les Z chez les Y.

 

Bref peut tu me dire ce qu'il faut que je rectifis.

Mais en tous cas ça marche.

 

Merci

 

A+

[bonuscad]

Bonsoir bonuscad.

Merci c'est exactement ce que je voulais.

Une petite demande de rien du tout.

En effet dans le fichier d'extraction ainsi obtenu, j'ai un decalage des valaeurs dans les colonnes.

Les coordonnées X se trouvent dans la colonne Type d'entitées » les Y dans la colonne des X et les Z chez les Y.

 

Bref peut tu me dire ce qu'il faut que je rectifis.

Mais en tous cas ça marche.

 

Merci

 

A+

 

Comme dis précédemment

Mettre éventuellement en REM avec un ";" la ligne ou l'ajuster à tes désirs:

Dans ton cas, ce serait, pour aller en corrélation avec les modifs:

	(write-line (strcat "Maintien" str_sep "Coordonée X" str_sep "Coordonée Y" str_sep "Coordonée Z") f_open)

[ludo07]

Bonsoir.

 

Et merci bonuscad.

 

A+