info objet vers exel

[Invité samuelM]

Bonjour,

 

Voici un programme que je n'arrive pas à rendre opérationnel. durant son exécution le serveur ActiveX intervient et me retourne une erreur. est ce que quelqu'un peu m'aider?

 

Merci d'avance.

 

(defun c:a1 (/ ent clq lo la ep name descr file )

 (vl-load-com)

 (and

   (setq ent (car (entsel "\nSélectionnez un solide: ")))
(setq name (getstring "\nNommer l'objet :"))
   (setq ent (vlax-ename->vla-object ent))

   (= (vla-get-ObjectName ent) "AcDb3dSolid")

(setq lo (+ lo (vla-get-Length ent))
      la (+ la (vla-get-Length ent))
      ep (+ ep (vla-get-Length ent))
)
     	      
	
(setq descr (strcat
      "\nNom de l'objet.......\t"name
      "\nLongeur..............\t"(rtos lo)
      "\nLargeur..............\t"(rtos la)
      "\nEpaisseur............\t"(rtos ep)
      "\nSurface..............\t"(rtos (* lo la))
    )
     )
   (textscr)

)

 (princ)
     (initget "Oui Non")
     (if (= (getkword
       "\nEnregistrer dans un fichier ? [Oui/Non] < Non >: "
     )
     "Oui"
  )
(progn
  (setq
    file
     (open
       (getfiled "Créez ou sélectionnez un fichier" "" "xls" 33)
       "a"
     )
  )
  (princ descr file)
  (close file)
)
     )
     (graphscr)
   
 (princ)
)