Supprimer un nom d\'application

[l56]

Bonjour à tous,

 

Je sais créer une application avec regapp mais comment la supprimer ?

 

merci

 

[Edité le 4/12/2006 par l56]

[Patrick_35]

Salut

En purgeant le dessin

 

Exemple

Commande: _-purge

 

Entrez le type des objets non utilisés à purger

[bLocs/COtstyles/CAlques/TYpelignes/styles de Tracé/Formes/Styles de

texte/style des Multilignes/styles de TAbleau/appsenReg/TOut]: r

Entrez le(s) nom(s) à purger <*>:

Vérifier chaque nom à purger ? [Oui/Non] : n

Suppression de application enregistrée "ADCADD_ZZ".

Suppression de application enregistrée "ADE".

Suppression de application enregistrée "AEC_ROUNDTRIP_15".

Suppression de application enregistrée "AECBASE".

Suppression de application enregistrée "ALT".

Suppression de application enregistrée "ARCHICAD".

Suppression de application enregistrée "AutoFLUID3".

Suppression de application enregistrée "AVE_ENTITY_MATERIAL".

Suppression de application enregistrée "AVE_FINISH".

Suppression de application enregistrée "AVE_GLOBAL".

Suppression de application enregistrée "BNS_SPRHATCH".

Suppression de application enregistrée "COD".

Suppression de application enregistrée "CONTENTBLOCKDESCRIPTION".

Suppression de application enregistrée "CONTENTBLOCKICON".

Suppression de application enregistrée "CONTENTCURRENTTAB".

Suppression de application enregistrée "CONTENTTABDATA".

Suppression de application enregistrée "COVADIS_ECHELLE".

Suppression de application enregistrée "COVADIS_SYMBOLE".

Suppression de application enregistrée "DCO15".

Suppression de application enregistrée "DRAWINGVARIABLESXDATA".

Suppression de application enregistrée "explore".

Suppression de application enregistrée "MAT".

Suppression de application enregistrée "notepad".

Suppression de application enregistrée "PCV_DB".

Suppression de application enregistrée "PCV_DB1".

Suppression de application enregistrée "PCV_GRIDSQL".

Suppression de application enregistrée "PCV_HACHURE".

Suppression de application enregistrée "PCV_POINT_PARAM".

Suppression de application enregistrée "PCV_POLYGONES".

Suppression de application enregistrée "PCV_SHADING".

Suppression de application enregistrée "SDSK_PMN".

Suppression de application enregistrée "TXD".

32 applications enregistrées supprimé.

 

Ou en utilisant ce lisp

(defun PurgeAPPID (/ appid)
 (vl-load-com)
 (vlax-for appid (vla-get-registeredapplications
	    (vla-get-activedocument
	      (vlax-get-acad-object)
	    )
	  )
   (vl-catch-all-apply 'vla-delete (list appid))
 )
 (princ)
)

 

@+

[l56]

J'aurai pu penser tout seul à purger ... :-)

mais ton lisp me plait bien

 

Merci beaucoup

a+