*Avertissement*: objet en propriété multiple, maintien "41FEE"

[Anonymous]

Salut,
j'avais ces messages sur pas mal de de dessins, et impossible de s'en
dépetrer :
La fonction de controle n'arrivait pas à corriger l'erreur
Après une recherche infructueuse avec le message il y a qq mois, j'ai
décidé d'en finir, et je suis allé voir quels objets était en propriété
multiple,
et c'était des dictionnaires de ADSK_XREC_LAYER_RECONCILED
Avec ce mot clef, je suis tombé direct ce petit lisp, qui a tout remis
d'aplomb.

Bon en plus de créer ce type d'erreur, je trouve que cette fonction (qui
au départ est une bonne idée) est un peu aléatoire, car les
notifications ne sont pas toujours présente,
et lorsqu'elle le son, et qu'on ouvre le gestionnaire de calques pour
"Reconcilier", le message réapparait le tracé suivant,
donc ça finit par agacer.



;;; PurgeReconciledLayers.LSP
;;;
;;; By Jimmy Bergmark
;;; Copyright (C) 2007 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: [email protected]
;;; 2007-04-05 - First release
;;; Written for AutoCAD 2008

;;; Purge all information about reconciled layers in the drawing

(defun PurgeReconciledLayers ()
(vl-load-com)
(vlax-for layer (vla-get-Layers
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
(vl-Catch-All-Apply
'(lambda ()
(vla-Remove
(vla-GetExtensionDictionary
layer
)
"ADSK_XREC_LAYER_RECONCILED"
)
)
)
(vl-Catch-All-Apply
'(lambda ()
(vla-delete
(vla-GetExtensionDictionary
layer
)
)
)
)
)
(setvar "LAYEREVAL" 0)
(setvar "LAYERNOTIFY" 0)
(princ)
)

[quepwik]

Bonjour

Quelle est la commande de lancement de ce Lisp svp ?

[_gile · Accepted solution]

Salut,

Il s'agit d'une fonction LISP, pas d'une commande définie en LISP.

Il faut donc appeler la fonction comme du LISP : avec les parenthèses :

(PurgeReconciledLayers)

[quepwik]

Merci beaucoup