récupérer les infos d\'1 3d solid

[Invité renac]

Bonjour à tous,

 

Sur le forum d'autodesk, j'ai trouvé une réponse partielle à ma question.

En effet, la commande soldata (voir le code ci-dessous) fonctionne correctement sur un solid 3d "normal", mais par

si le solid 3d a été coupé (commande section d'autocad), la fonction envoi un message d'erreur.

Quelqu'un a t-il une idée pour corriger la fpnction soldata afin que celle-ci fonctionne correctement quelque soit le solid 3d.

 

lien du forum autodesk oû j'ai trouvé cette fonction soldata

http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Determine-cylinder-properties-from-a-3DSolid/m-p/865334

 

code = fonction soldata

 

(defun C:SOLDATA ()

 

(setq idSolid (car (entsel "\nSelect a 3DSolid: ")))

 

(setq Solid (entget idSolid))

 

(setq idHistory

(cdr (assoc 350 (member '(100 . "AcDb3dSolid") Solid)))

)

 

(setq History (entget idHistory))

 

(setq idEvalGraph

(cdr (assoc 360 (member '(100 . "AcDbShHistory") History)))

)

 

(setq EvalGraph (entget idEvalGraph))

 

(setq idEvalExpr

(cdr (assoc 360 (member '(100 . "AcDbEvalGraph") EvalGraph)))

)

 

(setq EvalExpr (entget idEvalExpr))

 

(textscr)

 

(princ "\n\n3DSOLID Primitive data:\n")

 

(foreach pair EvalExpr

(print pair)

)

(princ "\n")

 

(princ)

)

 

 

 

Merci d'avance pour vos réponses.

 

 

renac

 

:)