Mise a jour Autocad via excel ?

**Seifko** · 22/10/2010, 23h11

Bonjour !

Je cherche à faire un programme Lisp me permettant: lorsque j'ouvre le fichier autocad de lire une variable, de la comparé avec une valeur dans un tableau excel et de la mettre à jour au besoin.

Exemple concret :

On me fourni un plan nommé : DG4_6789 qui est sous un indice de révision 2
(DG4_6789 étant un bloc texte défini et la révision de même)
Dans le tableau Excel, on retrouve ça :

DG4_1111 révision 01
DG4_4121 revision 07
DG4_6789 révision 03
DG4_9999 révision 01

Donc, je voudrais que ma lisp prenne la valeur contenu dans le bloc contenant le nom du plan (donc DG4_6789). Ça je sais faire, ok.
Puis que cette valeur soit rechercher dans le tableau excel (que l'on peut éventuellement importer ou n'importe tant que ça fonctionne en automatique)
et que donc, quand il voit que DG4_6789 doit être en révision 03, il importe cette valeur, et remplace la révision initial.

Pour remplacer une valeur par une autre, pas de souci mais faire la passerelle AUTOCAD EXCEL, je ne sais pas du tout

(je me forme tout seul ...) ni même si c'est faisable.

Au mieux, je me disais de faire une commande qui importerai mon tableau excel dans mon plan et le Lisp irait ensuite rechercher dans le tableau importé mais je ne sais pas du tout comment ...

Si quelqu'un à une idée ... je suis preneur ...

Merci d'avance du temps que vous me consacrez !

Seifko

**clovis** · 25/10/2010, 14h31

regarde par ici

**Patrick_35** · 28/10/2010, 16h17

Bonjour

Voici un lisp qui permet de lire/écrire une feuille de type Excel par le biais de trois applications possibles.
Excel, Open Office Ou Sql Server

Par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
(or (setq Mon_Appli (lancer_excel))	; Excel
    (setq Mon_Appli (lancer_oOo))	; Open Office
    (setq Mon_Appli (lancer_ado))	; SQL
)
 
(liste_fichiers_ouverts Mon_Appli) ; Inutile avec SQL
(setq Mon_Xls (ouvrir_fichier Mon_Appli "c:/Test/Test.xls"))
(liste_feuilles Mon_Xls)
(Feuille_active Mon_Xls) ; Inutile avec SQL
(lire_cellule Mon_Xls "Feuil1" "A1")
(ecrire_cellule Mon_Xls "Feuil1" "A1" "TOTO")
(sauver_fichier Mon_Xls) ; Inutile avec SQL
(fermer_fichier Mon_Xls) ; Inutile avec SQL
(fermer_appli (list Mon_Appli Mon_Xls))