RATA Posté(e) le 19 juillet 2007 Signaler Partager Posté(e) le 19 juillet 2007 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 Citer Lien vers le commentaire Partager sur d’autres sites More sharing options...
Patrick_35 Posté(e) le 19 juillet 2007 Signaler Partager Posté(e) le 19 juillet 2007 SalutUn 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) ) @+ Citer Les Lisps de PatrickLe but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.Joseph Joubert, 1754-1824 Lien vers le commentaire Partager sur d’autres sites More sharing options...
RATA Posté(e) le 24 juillet 2007 Auteur Signaler Partager Posté(e) le 24 juillet 2007 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 Citer Lien vers le commentaire Partager sur d’autres sites More sharing options...
TPS001 Posté(e) le 22 septembre 2014 Signaler Partager Posté(e) le 22 septembre 2014 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 Citer Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés
Rejoindre la conversation
Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.