koment récuperer des données dans Excel?

[kermitos]

Bonjour a tous

j'aimerai pouvoir extraire d'autocad des lignes,

pour en faire un quantitatif sous excel

 

est il possible de le faire avec du Lisp ou du Vba?

 

merci a vous, si vous pouvez m'éclairer

[Bred]

Salut et bienvenue !

extraire d'autocad des lignes,

pour en faire un quantitatif sous excel

Pourrais-tu être plus explicite est énumérer les donner que tu veux récupérer (Coordonnées ?, Calques ?, Couleurs? longueur? ....) afin que l'on puisse te répondre plus précisément.

 

[Edité le 20/6/2008 par Bred]

[kermitos]

bonjour Bred,

alors voilà le schéma

g fais un réseaux horiz et verticale de lignes dans un rectangle

 

si possible je veux quantifié des lignes horizontales

ces lignes sont dans un calque peu importe le coloris?

je veux sotir : le nb de lignes + le ml des lignes Horizontale

 

merci d'avance pour tes explications.

[Bred]

Re,

pour l'instant ce n'est pas transmis dans Excel, car je ne sais pas trop comment te ranger ces deux valeurs (Nombre et longueur, en colonne ? en ligne ?)

 

Donc, avec le résultat dans une boite de dialogue :

Taper "LH" pour lancer la commande.

 

(defun c:lh (/ ACDOC L N SEL)
 (setq AcDoc (vla-get-activedocument (vlax-get-acad-object))
sel (ssget '((0 . "LINE")))
n 0 l 0)  
 (vlax-for e (vla-get-activeselectionset AcDoc)
   (if (equal (cadr (vlax-get e 'StartPoint))
       (cadr (vlax-get e 'EndPoint)))      
     (setq n (1+ n)
    l (+ (vla-get-Length e) l))))
 (alert (strcat "Nombre de Ligne Horizontale : " (rtos n)
	 "\nLongueur Totale : " (rtos l)))
 (princ)
 )

[kermitos]

Merci Bred ,

je vais essayer de comprendre le principe car c ma 1ére utilisation

je te tiens o courant

 

merci

[Bred]

je vais essayer de comprendre le principe car c ma 1ére utilisation

Si c'est pour apprendre le lisp, ne commence pas par mon code, il utilise des commandes qui sont pour un niveau non débutant.

Si c'est juste pour le charger et l'utiliser, tu peux aller voir l'explication de (gile) ici !