dimensions d\'objet

[Invité samuelM]

Bonjour,

 

je souhaiterai compléter le programme de (gile) qui donne les dimensions d'un objet.

je souhaiterai rajouter des lignes permettant :

-de donner un nom donner un nom à la selection

-de l'exporter dans un feuille exel, ou placer ces données dans un dessin, tableau

 

voici le programme :

(defun c:Sectiondim (/ ent minpt maxpt)

 (vl-load-com)

 (and

   (setq ent (car (entsel "\nSélectionnez un solide: ")))

   (setq ent (vlax-ename->vla-object ent))

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

   (not (vla-GetBoundingBox ent 'minpt 'maxpt))

   (mapcar 'print

    (vl-sort

      (mapcar '-

	      (vlax-safearray->list maxpt)

	      (vlax-safearray->list minpt)

      )

      '>

    )

   )

   (textscr)

 )

 (princ)

)

 

Merci de votre aide

[Invité samuelM]

je vois que vous êtes plusieurs à venir voir le sujet mais peu à laisser un commentaire ou une aide.

 

j'ai modifié certain truc dans le programme notamment la possibilité d'enregistrer en format .xls mais il y a encore quelque erreurs que je n'arrive pas à trouver. Pouvez vous l'essayer et me dire les modif à apporter?

 

merci

 

(defun c:Section+ (/ ent name minpt maxpt)

 (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")

   (not (vla-GetBoundingBox ent 'name 'minpt 'maxpt))

   (mapcar 'print

    (vl-sort

      (mapcar '-

	      (vlax-safearray->list name )
	      
	      (vlax-safearray->list maxpt)

	      (vlax-safearray->list minpt)

      )

      '>

    )

   )

   (textscr)

 )
 
(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)