| N° | Fonction | Catégorie | Version |
|---|---|---|---|
| BIB 11 | BiB_VerType | Gestion des Objets | 1.0 - Janvier 2007 |
| But | Cette fonction vérifie si une entité désignée par son 'ename' est bien du type souhaité. Si oui, retourne la liste des données de définition. |
| Prototype | (BiB_VerType Nom_Entité Type) |
| Argument | Nom_Entité - Le nom de l'entité - ename - Type - Le type de l'entité - chaîne - |
| Retours | La liste de données ou nil |
| Var. globales | Néant |
| Description | Cette fonction vérifie si une entité est bien du type souhaité. Dans l’affirmative, retourne la liste des données de définition. L'entité doit être désigné par son "ename". |
| Notes | Voir également la fonction BiB_GetType. |
| Exemples | Command: (command "line" "20,30" "70,90" "") Command: (BiB_VerType (entlast) "line") retourne ((-1 . <Entity name: 1801598>) (0 . "LINE") (5 . "213") (100 . "AcDbEntity") (67 . 0) (8 . "ROUGE") (100 . "AcDbLine") (10 20.0 30.0 0.0) (11 70.0 90.0 0.0) (210 0.0 0.0 1.0)) Command: (BiB_VerType (entlast) "text") retourne nil |
1- (defun BiB_VerType (*Ent_Name *type? / EntDat)
2- (cond
3- ( (eq
4- (cdr
5- (assoc 0
6- (setq EntDat (entget *Ent_Name))
7- )
8- )
9- (strcase *type?)
10- )
11- EntDat
12- )
13- (t nil)
14- )
15- )
Ligne 2 : Condition Lignes 4 -5 Si la liste associée à 0, en enlevant le 1er élément, Ligne 6 : dans la liste de définition de *Ent_Name (dont on donne la valeur à EntDat Ligne 9 : est équivalent à *type? (transformé en majuscules) Ligne 11 : alors retourne EntDat Ligne 13 : retourne nil dans tous les autres cas. Si, après avoir assigné à EntDat la liste des définitions de l'entité dont on a donné le nom, le second élément de la liste associée à 0 (celle qui définit le type de l'entité) est équivalent à l'argument *type? transformé en majuscules, alors retourne cette liste de données EntDat, sinon retourne nil.