| Obtenir la liste: |
(setq Entity (entsel)); sélectionner un objet ; < Entity name: 4003aad0>
(if Entity
(progn
(setq Entlist (entget (car Entity)) ; ((0 . LINE)(8 . Cloison)....)
(setq Contenu (cdr (assoc Code Entlist))) ; (0 . LINE) --> LINE
.........................................
|
| Code |
Contenu |
Exemple |
Type |
| -1 |
Nom de l'objet |
|
|
| 0 |
Type d'entité |
"LINE", "INSERT" |
Chaîne |
| 1 |
Contenu du texte |
"Ceci est mon texte" |
Chaîne |
| 2 |
Nom du bloc, tag attribut |
"Lavabo" |
Chaîne |
| 3 |
Fonte (SWISS.ttf, ROMANS.shx...) |
"romans.shx" |
Chaîne |
| 4 |
Suite du texte (MTEXT) |
"encore du texte" |
Chaîne |
| 5 |
Poignée (Handle) |
"2F022" |
Hexa |
| 6 |
Type de ligne |
"dashed" |
Chaîne |
| 7 |
Style du texte |
"STANDARD" |
Chaîne |
| 8 |
Nom du calque (Layer) |
"Cloison" |
Chaîne |
| 10 |
Début coordonnées, centre d'un cercle, point d'insertion d'un bloc... |
(56.14 10.27 0.00) |
Liste |
| |
(setq P1 (cdr (assoc 10 Entlist))) |
|
|
| |
(setq X1 (car P1)) |
56.14 |
Réel |
| |
(setq Y1 (cadr (P1)) |
10.27 |
Réel |
| |
(setq Z1 (caddr (P1)) |
0.00 |
Réel |
| 11 |
Fin coordonnées |
Voir Code 10 |
Liste |
| |
|
|
|
| 38 |
Elévation |
12.00 |
Réel |
| 39 |
Epaisseur (Thichness) |
2.00 |
Réel |
| 40 |
Hauteur du texte, Rayon d'un cercle, arc |
3.00 |
Réel |
| 41 |
Echelle insertion X de bloc, Largeur texte |
1.00 |
Réel |
| 42 |
Echelle insertion Y de bloc |
1.00 |
Réel |
| 43 |
Echelle insertion Y de bloc |
1.00 |
Réel |
| |
|
|
|
| 48 |
Echelle type de ligne |
1.00 |
Réel |
| |
|
|
|
| 50 |
Angle (radians) de texte ou bloc |
0.00 |
Réel |
| |
|
|
|
| 60 |
Flag visibilité, 0 ou nil=visible 1=invisible |
1 |
Entier |
| 62 |
Couleur ACI: 0=BYBLOCK, 256=BYLAYER |
7 |
Entier |
| |
|
|
|
| 66 |
Flag une entité suit (Attribut) |
1 |
Entier |
| |
|
|
|
| 70 |
Flag |
0 |
Entier |
| 71 |
Flag, Texte 2=Backward, 4=Upside down |
1 |
Entier |
| 72 |
Flag, Justification horizontale (Texte) |
2 (Droite) |
Entier |
| 73 |
Flag, Justification verticale (Texte) |
3 (Haut) |
Entier |
| |
|
|
|
| 90 |
Nombre de sommets d'une Polyligne |
4 |
Entier |
| |
|
|
|
| 100 |
Entité AutoCAD |
"AcDbLine" |
Chaîne |
| |
|
|
|
| 210 |
Direction extrusion |
(0.0 0.0 1.0) |
Liste |
| 330 |
|
|
|
| 410 |
Présentation |
"Model", "Layout1" |
Chaîne |
| 420 |
Couleur RGB |
16777215 |
Entier |
|
