liste en chaine de caractère

[Clément.a]

Est ce qu'il est possible de changer un liste de ce genre

((-1 . <Nom d'entité: 7ef0ece0>) (0 . "DICTIONARY") (5 . "E0E4") (102 . "{ACAD_REACTORS")
(330 . <Nom d'entité: 7ef01c60>) (102 . "}") (330 . <Nom d'entité: 7ef01c60>) 
(100 . "AcDbDictionary") (280 . 0) (281 . 1) 
(3 . "cercle"))

 

pour obtenire ça

 

"((-1 . <Nom d'entité: 7ef0ece0>) (0 . \"DICTIONARY\") (5 . \"E0E4\") 
(102 . \"{ACAD_REACTORS\") (330 . <Nom d'entité: 7ef01c60>) 
(102 . \"}\") (330 . <Nom d'entité: 7ef01c60>) 
(100 . \"AcDbDictionary\") (280 . 0) (281 . 1) 
(3 . \"cercle\")"

 

Merci

[Carboleum]

vl-prin1-to-string est ton amie.

 

Command: (vl-prin1-to-string (entget (car (entsel))))

Select object: "((-1 . <Entity name: 7ffffb51360>) (0 . \"LINE\") (5 . 
\"3793E\") (102 . \"{ACAD_REACTORS\") (330 . <Entity name: 7ffffb514b0>) (102 . 
\"}\") (330 . <Entity name: 7ffffb039f0>) (100 . \"AcDbEntity\") (67 . 0) (410 
. \"Model\") (8 . \"0\") (100 . \"AcDbLine\") (10 16027.6 9718.69 
2168.03) (11 15724.3 8477.66 1548.38) (210 0.0 0.0 1.0))"

[Clément.a]

Merci