LOT DATI CARTIGLI

[JAMES_BOND]

Bonjour à tous. Je me retrouve avec un besoin étrange, avec un client. Je devrais reconstruire une liste de dessins, au contraire.
J'ai plus de 3000 dwg, sans dessins de liste en excellent et voudrais le reconstruire. quelqu'un peut me dire s'il y a un outil, qui, en sélectionnant un groupe de dwg l'extrait dans un fichier excel, ou csv, ou txt... champs dessin - code - description - date - auteur... ?
Merci d'avance.

 

[rpor66]

; variable publique
(nom de fichier setq "c:/lisp/report_carpenteria.txt")

; nom de fichier vide
(défunc c:resettxt(/ f)
(setq f (nom de fichier ouvert "w"))
(fermer f)
)

(défun c:ttx(/ f set1 net txt)

; ouvre le fichier en mode annexe (ajout à la fin)
(setq f (nom de fichier ouvert "a")

; nom du fichier
(ligne d'écriture (getvar "dwgname") f)

; coordonner le texte, croiser la sélection
(ligne écrite (textbyxy (liste 375 240) (liste 480 250))

(fermer f)
)

; retourne la chaîne de texte sélectionnée par les coordonnées des points pt1 et pt2
(defun textbyxy (pt1 pt2 / sel n txt)
(setq sel (ssget "_c" pt1 pt2 '(0 . "text,mtext"))
(si)
(cdr (assoc 1 (entier (ssname sel 0))))
"
)
)

un nom de fichier assigne le nom où vous voulez que les textes extraits soient stockés
réinitialise le contenu du fichier .txt
chaque ligne (ligne d'écriture (textbyxy...) doit se référer à une position texte de vos cartes, créer autant de textes à extraire, attribuer les bonnes coordonnées, chaque fois que vous appelez ttx, les textes sont ajoutés au fichier nom de fichier.
avec le fichier createscript.xls vous pouvez automatiser l'opération sur plusieurs fichiers, bien sûr, avec des cartes identiques et des facteurs d'échelle.

 

[JAMES_BOND]

Tant mieux.
J'essaie, merci beaucoup.