Protéger un bloc

[RATA]

Bonjour à tous,

 

Une petite question en passant, j'ai réalisé pour un client des objets que j'ai convertis en blocs. J'aimerai savoir s'il était possible de protéger un bloc pour qu'il soit non modifiable par ce client (A l'image des fichiers protégés par un mot de passe). C' est à dire que les blocs conservent leurs propriétés, qu'il puisse les insérer dans des fichiers 2d et 3d mais pas les modifiés.

 

Merci pour vos réponses

[Patrick_35]

Salut

Un lisp vite fait

 

(defun c:pbl(/ bl sel)
 (vl-load-com)
 (if (setq sel (entsel "\nVeuillez selectionner un bloc à protéger : "))
   (if (eq (vla-get-objectname (setq sel (vlax-ename->vla-object (car sel)))) "AcDbBlockReference")
     (progn
(if (vlax-property-available-p sel 'effectivename)
  (setq bl (vla-get-effectivename sel))
  (setq bl (vla-get-name sel))
)
(setq bl (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) bl))
(if (eq (vla-get-explodable bl) :vlax-false)
  (princ (strcat "\nLe bloc " (vla-get-name bl) " est déjà protégé."))
  (progn
    (vla-put-explodable bl :vlax-false)
    (princ (strcat "\nLe bloc " (vla-get-name bl) " est maintenant protégé."))
  )
)
     )
     (princ "\nCe n'est pas un bloc.")
   )
 )
 (princ)
)

 

@+

[RATA]

Salut Patrick,

 

Merci pour ta réponse, en excusant que la mienne soit aussi tardive.

Tout ça m'a l'air bien joli, mais il faut encore que j'améliore ma technique sur les lisps. Une bonne vingtaine de tutos et 10 litres de cafés devraient m'aider à en venir à bout.

 

Merci encore

 

 

[TPS001]

bonsoir, mr patrick j'aimerai bien utiliser ce lisp sur autocad 2013 mais ca ne marche pas,est ce qu'il y a des modife pour le faire et merci