extraction de texte et de données

bibi1979 · le 22 mai 2007

Bonjour je cherche a automatiser une extraction de différentes partis d'objets (contenu de texte,position, attribut de point, calque etc...)sur autocad jusqu'à un fichier txt, comment puis je faire ???

Bred · le 22 mai 2007

Salut et Bienvenue !

Tu peux le faire par programmation.

Mais il faudrait que tu sois un peu plus précis dans ta demande pour que l'on peuisse mieux te répondre !

bibi1979 · le 23 mai 2007

Merci pour la réponse rapide, en gros a partir d'un plan je doit récupérer des données et créer un fichier txt:

les données sont:

Bloc point: Calque;XX;matricule du point; abscisse,ordonnée;XX,angle d'orientation du texte

(XX correspond à des saisie de code que je doit faire)

Ligne : Calque;XX;Abscisse;Ordonnée

Cote: calque;XX;texte de la cote;abscisse texte;ordonnée texte;angle d'orientation du texte;Abscisse et ordonnée début de cote;abscisse ordonnée fin de cote

Texte:calque;XX;contenu du texte;Abscisse texte;ordonnée texte;angle d'orientation du texte

bloc:calque;XX;nom du bloc;abscisse;ordonnée;angle d'orientation du bloc

voilà j'éspère avoir été claire, merci d'avance a tous ceux qui pourront m'aider.

BIM G CO · le 23 mai 2007

Bloc point: Calque;XX;matricule du point; abscisse,ordonnée;XX,angle d'orientation du texte
(XX correspond à des saisie de code que je doit faire)

tes "XX" est-ce la même chose sur tout le TXT?

Seulement pour les Blocs, s'appelant "POINT"?

pour le Matricule du point, parle tu du point d'insertion de ce bloc? (à ces conditions abcisse ordonnée c'est quoi)

Orientation du texte c'est donc qu'il y a soit un attribut(ATTDEF : donc étiquette à définir) soit un texte (TEXTDYN, RTEXT, MTEXT)

Ligne : Calque;XX;Abscisse;Ordonnée

Une ligne est composé d'un point de départ et de fin c'est lequel que tu veux?

Cote: calque;XX;texte de la cote;abscisse texte;ordonnée texte;angle d'orientation du texte;Abscisse et ordonnée début de cote;abscisse ordonnée fin de cote

là c'est pas facile ce que tu demande

Texte:calque;XX;contenu du texte;Abscisse texte;ordonnée texte;angle d'orientation du texte
bloc:calque;XX;nom du bloc;abscisse;ordonnée;angle d'orientation du bloc

Là je comprend plus! Qu'appelles-tu texte ?

car pour moi un texte c'est soit un TEXTDYN, RTEXT ou à la rigueur un MTEXT mais certainement pas un bloc.

voilà j'éspère avoir été claire, merci d'avance a tous ceux qui pourront m'aider.

Pas clair du tout pour moi! Serais-je un si vieux dinosaure que çà? :casstet:

[Edité le 23/5/2007 par Maximilien]

bibi1979 · le 24 mai 2007

tout d'abord merci pour la réponse, et désolé de pas avoir été clair.

-alors le XX c'est 2 chiffres que je doit rentrer manuellement et qui doivent apparaitre dans le listing final .txt.

-pour les blocs points il s'agit d'un bloc composé d'un point et d'un texte attributs numéro,donc ce que je veux récupérer c'est les coordonnées d'insertion du point, contenu de l'attribut et l'orientation du texte de l'attribut.

-pour les lignes il me faut les 2 points sur 2 lignes de fichier séparé.

-le texte c'est un texte simple commande "texte" sous autocad?

Voilà merci pour votre soutien... ;)

bibi1979

"l'important pour la taille c'est que les pieds touche bien par terre..."coluche

BIM G CO · le 28 mai 2007

voila une partie vite fait :

 (defun bibi1979	(/ n XX Separateur guillemet selection Fichier)
;;; **********************************************
;;; [url=http://www.cadxp.com/sujetXForum-15232.htm]Réponse pour la demande de bibi1979[/url]
;;; **********************************************
;;; extraction de différentes parties d'objets (contenu de texte,position, attribut de point, calque etc...)
;;; sur autocad jusqu'à un fichier txt, comment puis je faire ???
;;; récupérer des données et créer un fichier txt:
;;; Bloc point: Calque;XX;matricule du point; abscisse,ordonnée;XX,angle d'orientation du texte
;;; (XX correspond 2 chiffres que je doit rentrer manuellement et qui doivent apparaitre dans le listing final .txt.
;;;   Les blocs points il s'agit d'un bloc composé d'un point et d'un texte attributs numéro,
;;;   donc ce que je veux récupérer c'est les coordonnées d'insertion du point, contenu de l'attribut et l'orientation du texte de l'attribut.
;;; Ligne : Calque;XX;Abscisse;Ordonnée
;;;   les lignes il me faut les 2 points sur 2 lignes de fichier séparé.
;;; Cote  : calque;XX;texte de la cote;abscisse texte;ordonnée texte;angle d'orientation du texte;Abscisse et ordonnée début de cote;abscisse ordonnée fin de cote
;;; Texte : calque;XX;contenu du texte;Abscisse texte;ordonnée texte;angle d'orientation du texte
;;;   le texte c'est un texte simple commande "texte" sous autocad
;;; bloc  : calque;XX;nom du bloc;abscisse;ordonnée;angle d'orientation du bloc
;;; **********************************************
;;; Sous-programmes
 (defun selectionElement (ENTITIE / n sel resultat)
   ;; Crée une sélection d'élement selon le ENTITIE
   (setq resultat nil)
   (if	(ssget "_X" (list (cons 0 ENTITIE)))
     (progn
(setq sel (ssnamex (ssget "_X" (list (cons 0 ENTITIE)))))
(foreach n sel
  (if resultat
    (setq resultat (cons (nth 1 n) resultat))
    (setq resultat (list (nth 1 n)))
  )
)
     )
   )
   resultat
 )
;;; Initialisation
 (setq	Separateur ";"			; séparateur entre champs
Guillemet  "\""			; guillemet entre champ
				; saisie utilisateur
XX	   (getstring "\nVeuillez entrer les deux chiffres :")
 )
				; ---------------
				; Les lignes
 (setq	Selection (SelectionElement "LINE")
Fichier	  (open "C:\\LIGNE.TXT" "w")
 )
 (if selection
   (foreach n Selection
     (progn
(setq PRIVE_RESULTAT
       (strcat
	 Guillemet
	 ;; CALQUE
	 (cdr (assoc 8 (entget n)))
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Valeur de XX
	 XX
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Abcisse point de début
	 (rtos (car (cdr (assoc 10 (entget n)))) 2 3)
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Ordonnée point de début
	 (rtos (cadr (cdr (assoc 10 (entget n)))) 2 3)
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Elevation point de début
	 (rtos (caddr (cdr (assoc 10 (entget n))))
	       2
	       3
	 )
	 Guillemet
       )
)
(write-line PRIVE_RESULTAT Fichier)
(setq PRIVE_RESULTAT
       (strcat
	 Guillemet
	 ;; CALQUE
	 (cdr (assoc 8 (entget n)))
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Valeur de XX
	 XX
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Abcisse point de fin
	 (rtos (car (cdr (assoc 11 (entget n)))) 2 3)
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Ordonnée point de fin
	 (rtos (cadr (cdr (assoc 11 (entget n)))) 2 3)
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Elevation point de fin
	 (rtos (caddr (cdr (assoc 11 (entget n))))
	       2
	       3
	 )
	 Guillemet
       )
)
(write-line PRIVE_RESULTAT Fichier)
     )
   )
 )
 (close Fichier)
 ; ---------------
 ; La suite du programme à faire
 ; ---------------
)

Edit 1 = [Edité le 28/5/2007 par Maximilien] Correction Bug Liste

Edit 2 = [Edité le 29/5/2007 par Maximilien] Correction si Selection nulle

[Edité le 29/5/2007 par Maximilien]

bibi1979 · le 28 mai 2007

:) Merci pour la réponse mais je suis réellement novice dans l'édition et l'utilisation de programme que doit je faire , avec les données que vous m'avez écrite??

BIM G CO · le 28 mai 2007

Pour charger un Lisp c'est un sujet de (gile).

Mais le code que je vins de te donner n'est que partiel.

pour le faire entièrement cela demande du temps. Je ne suis pas là pour donner des réponses mâchées ou toutes prêtes.

Dans l'état actuel ce "LISP" te crée un fichier "LIGNE.TXT" dans le lecteur "C:" Dossier "Racine"

à l'intérieur de ce fichier :

les lignes impaires correspondent aux point de départ des lignes

les lignes paires correspondent aux point de fin des lignes

[Edité le 28/5/2007 par Maximilien]

BIM G CO · le 30 mai 2007

à la place de

 ;; ---------------
 ;; La suite du programme à faire
 ;; ---------------

collé à cette partie pour le support du texte

 ;; ---------------
 ;; Les Textes
 (setq	Selection (SelectionElement "TEXT")
Fichier	  (open "C:\\TEXTE.TXT" "w")
 )
 (if selection
   (foreach n Selection
     (progn
(setq PRIVE_RESULTAT
       (strcat
	 Guillemet
	 ;; CALQUE
	 (cdr (assoc 8 (entget n)))
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Valeur de XX
	 XX
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Contenu du texte
	 (cdr (assoc 1 (entget n)))
	 Guillemet
	 Separateur
	 Guillement
	 ;; Abcisse point de début
	 (rtos (car (cdr (assoc 10 (entget n)))) 2 3)
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Ordonnée point de début
	 (rtos (cadr (cdr (assoc 10 (entget n)))) 2 3)
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Orientation du texte en angle exprimé en radian!
	 (rtos (cdr (assoc 50 (entget n))) 2 8)
	 Guillemet
	 Separateur
	 Guillemet
	 ;; Elevation point de début
	 (rtos (caddr (cdr (assoc 10 (entget n)))) 2 3)
	 Guillemet
       )
)
(write-line PRIVE_RESULTAT Fichier)
     )
   )
 )
 (close Fichier)
 ;; ---------------
 ;; La suite du programme à faire
 ;; ---------------

Connexion

extraction de texte et de données

Messages recommandés

bibi1979

Lien vers le commentaire

Partager sur d’autres sites

Bred

Lien vers le commentaire

Partager sur d’autres sites

bibi1979

Lien vers le commentaire

Partager sur d’autres sites

BIM G CO

Lien vers le commentaire

Partager sur d’autres sites

bibi1979

Lien vers le commentaire

Partager sur d’autres sites

BIM G CO

Lien vers le commentaire

Partager sur d’autres sites

bibi1979

Lien vers le commentaire

Partager sur d’autres sites

BIM G CO

Lien vers le commentaire

Partager sur d’autres sites

BIM G CO

Lien vers le commentaire

Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Forums

Naviguer

Activité

Information importante