SUITE .... 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

 

:)

[Invité renac]

Je desepere, personne n'est interressé par mon sujet SUITE .... récupérer les infos d'1 3d solid

 

 

 

renac.......................

 

 

 

 

:mad:

[lecrabe]

 

Hello

 

Ta demande demande de bonnes competences en developpement Lisp ou VLisp sur AutoCAD (que je n'ai pas du tout) !

 

C quand meme Dimanche et les qq developpeurs "fous" qui animent ce forum dans ce domaine ne sont pas forcement connectes et prets a repondre a ta demande dans la seconde !

 

Donc svp sois patient et indulgent pour ces gens qui prennent sur leur temps perso pour essayer d'aider les autres ...

 

Merci d'avance, Le Decapode (Greviste a la Japonaise)

 

PS: par contre il serait bien que tu effaces ton 2eme sujet INUTILE

Ce n'est pas de ta faute c le site qui deconne un peu ...

 

[Invité renac]

merci le crabe pour ta réponse,

 

même si tu n'as pas la réponse, encore merci.

Il ne me reste qu'à reformuler la demande dans la semaine.

 

 

Bonne soire tout le monde

 

 

 

renac

[(gile)]

Salut,

 

Tu avais déjà posé une question similaire ici à laquelle, malgré les réponses obtenues, tu n'as pas donné suite.

 

Alors, au lieu de multiplier les messages similaires (tous ne sont pas dus au fonctionnement erratique du site) et de faire montre d'autant d'impatience, finis la discussion là où tu l'a commencée en disant ce qui ne te convient pas dans les solutions proposées (si tu les a essayées).

 

Dans tous les cas, les informations concernant des solides 3d ne sont pas directement accessibles par simple programmation (elle sont volontairement cryptées par Autodesk). Les propositions dans le sujet sus-cité comme celle que tu donnes ici ne sont que des moyens détournés pour essayer d'obtenir quelques informations générales et je crains que tu ne trouves guère plus gratuitement offert sur internet.

[bonuscad]

Salut,

 

Un sujet similaire où (gile) et moi avions fais des propositions.

 

Tu verras que cela n'est pas simple, tu peux contacter l'auteur du sujet voir si depuis il a avancé, mais cela m'étonnerait fort... :casstet:

 

Tu peux reformuler ta demande X fois, mais je ne pense pas que cela fera avancer ton souhait.

 

Un p'tit bout de code pour utiliser ACISdecode

 

(defun c:AFFDON ( / LstEnt Elt)  
 (setq LstEnt (entget (car (entsel "\nSélectionnez un corps 3D:"))))
 (textpage)
 (foreach Elt LstEnt
   (if (= (car Elt) 1) (progn (terpri) (princ (ACISdecode (cdr Elt)))))
 )
 (princ)
)

 

Bonne chance ;)

 

[Edité le 27/3/2011 par bonuscad]

[RhymOne]

Bonne réponse de gile je ne sais plus ou repondre...

 

[lecrabe]

 

Hello

 

Autodesk crypte non seulement les donnees sur la 3D (non filiare) mais aussi les fameuses donnees d'objet (Object Data) de MAP ou CIVIL ! :casstet:

 

C un choix technique historique ! :exclam:

 

Le Decapode