Dic_Explorer, l'explorateur de dictionnaire pour Autocad
Complément de Handle_explorer
Dic_explorer est une interface très simple pour accèder rapidement au contenu des dictionnaires d'un dessin.
Une fois que le dictionnaire à été choisit et affiché, il est disponible pour handle_explorer, avec lequel vous pouvez poursuivre l'exploration.
Pré-requis:
Que PowerClic et Handle_explorer soient installés
Exemple d'utilisation :
Commande: Dic_explorer
Afficher l'entget entité ?Oui/Non :o
(-1 . <Nom d'entité: 7ffff605a70>)
(0 . DICTIONARY)
(5 . 21F)
(102 . {ACAD_REACTORS)
(330 . <Nom d'entité: 7ffff6038c0>)
(102 . })
(330 . <Nom d'entité: 7ffff6038c0>)
(100 . AcDbDictionary)
(280 . 0)
(281 . 1)
(3 . AcMapDMStylizedEntities)
(350 . <Nom d'entité: 7ffff605b80>)
(3 . AcMapResourceManager)
(350 . <Nom d'entité: 7ffff613f10>)
(3 . FSD_Dictionary)
(350 . <Nom d'entité: 7ffff605a80>)
(3 . MAP_DISPLAY_CUSTOMOBJ_REG_TABLE)
(350 . <Nom d'entité: 7ffff605ad0>)
(3 . MAP_DISPLAY_MANAGEMENT_DICTIONARY)
(350 . <Nom d'entité: 7ffff605aa0>)
(3 . MAP_DISPLAY_STYLELIBRARY_DICTIONARY)
(350 . <Nom d'entité: 7ffff605ab0>)
(3 . MAP_RESOURCE_VERSION_MANAGEMENT_DICTIONARY)
(350 . <Nom d'entité: 7ffff605b90>)
- - - - - - - - - - - - - -
Afficher l'object-dump de entité ?Oui/Non :o
; IAcadDictionary: Un objet incorporant de stockage et de récupération des
objets
; Valeurs de propriétés:
; Application (RO) = #<VLA-OBJECT IAcadApplication 0000000140f091d8>
; Count (RO) = 7
; Document (RO) = #<VLA-OBJECT IAcadDocument 00000000263a76f0>
; Handle (RO) = "21F"
; HasExtensionDictionary (RO) = 0
; Name = "Autodesk_MAP"
; ObjectID (RO) = 839
; ObjectID32 (RO) = 839
; ObjectName (RO) = "AcDbDictionary"
; OwnerID (RO) = 842
; OwnerID32 (RO) = 842
; Méthodes prises en charge:
; AddObject (2)
; AddXRecord (1)
; Delete ()
; GetExtensionDictionary ()
; GetName (1)
; GetObject (1)
; GetXD
- - - - - - - - - - - - - -
Le dictionnaire est disponible pour handle_explorerata (3)
; Item (1)
; Remove (1)
; Rename (2)
; Replace (2)
; SetXData (2)
Code source :
;**************************************************************************
;;§/dxf/Exploration des dictionnaiores du dessin /none
(defun c:Dic_explorer ( / odics lnoms odict eg2 cont odump l)
(setq odics (vla-get-dictionaries pw-acaddocument))
(setq lnoms (PW_VLAX_LIST_NOM_ITEMS odics))
(pw_bydefault "aff-dic" '(""))
(setq aff-dic
(pw_s_lchaines3
"Choisissez le dictionnaire à afficher :
"
lnoms
nil
aff-dic
)
)
(setq odict (vla-item odics (car
aff-dic)))
(setq HDE-ident (vla-get-handle odict))
(pw_getkwordmem
"\nAfficher l'entget
entité ?/Oui Non"
"cont"
)
(if (= "Oui" cont)
(progn
(setq eg2 (entget (pw_to_ename odict)))
(foreach l eg2
(prompt "\n ")
(princ l)
)
(prompt "\n- - - - - - - - - - - - - -")
)
)
(pw_getkwordmem
"\nAfficher l'object-dump
de l' entité ?/Oui Non"
"odump"
)
(if (= "Oui" odump)
(progn
(vlax-dump-object odict T)
(prompt "\n- - - - - - - - - - - - - -")
)
)
(prompt "\nLe dictionnaire est disponible pour
handle_explorer")
)