Dévérouiller un calque

[l56]

Bonjour,

 

Comment dévérouiller un calque quand une boite de dialogue est ouverte ?

L'expression : (Command "_layer ... étant interdite, quelle autre solution ai-je ?

 

Par avance meci.

 

[Edité le 27/3/2007 par l56]

[Bred]

Je ne sais pas si ça fonctionneras :

 

(vla-put-Lock (vlax-ename->vla-object (tblobjname "LAYER" "Nom_du_calque)) :vlax-false)

[(gile)]

Salut,

 

Tu peux aussi intégrer dans ton LISP ces deux expressions, la première, au début, pour déverrouiller tous les calques, la seconde, à la fin, pour restaurer l'état initial.

 

;; Dévérouiller tous les calques et stocker les noms de ceux qui étaient verrouillés
(vlax-for clq (vla-get-Layers
	(vla-get-ActiveDocument (vlax-get-acad-object))
      )
 (if (= :vlax-true
 (vla-get-lock clq)
     )
   (progn
     (vla-put-lock clq :vlax-false)
     (setq clq_lst (cons clq clq_lst))
   )
 )
)

;; Revérouiller les calques précédemment vérouillés
(if clq_lst
 (mapcar '(lambda (x)
     (vla-put-lock x :vlax-true)
   )
  clq_lst
 )
) 

[l56]

Merci à vous, les deux solutions fonctionnent !

 

merci

a+