Aller au contenu

Calque verrouiller 2008 : atténuation des objets


Messages recommandés

Posté(e)

Salut,

sous 2008

 

Lorque je fait :

(vla-put-Lock (vlax-ename->vla-object (tblobjname "LAYER" "Mon_calque")) :vlax-True)

Le calque se verrouille... mais les objets ne s'attenue pas...

(variable LAYLOCKFADECTL à 50)

(vla-update (tblobjname "LAYER" "Mon_calque))

n'est pas accepté ....

(vla-Regen (vla-get-ActiveDocument (vlax-get-acad-object)) acActiveViewport)

est lourd... mais ne fonctionne pas.

 

par contre, le bon "vieux"

(command "_-layer" "V" "Mon_calque" "" "")

fonctionne parfaitement (mais bon.... hein.... :( )

 

Une piste ?

 

merci.

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Posté(e)

Salut,

 

Je n'ai pas 2008, mais il y a peut-être une nouvelle propriété pour l'atténuation des objets calque.

As tu essayé un :

 

(vlax-dump-object
 (vla-item (vla-get-Layers
      (vla-get-ActiveDocument (vlax-get-acad-object))
    )
    "Mon_Calque"
 )
) 

 

pour voir si cette propriété existe ?

 

 

Ou encore, en regardant du côte des données DXF.

Comparer les listes "entget" d'un calque verouillé et du même calque déverrouillé :

 

;;; EXCLUSIVE Retourne une liste contenant les éléments appartenant exclusivement à lst1
;;; (exclusive '(1 2 3 4) '( 2 3 4 5)) -> (1)
(defun exclusive (l1 l2)
 (if l1
   (if	(member (car l1) l2)
     (exclusive (cdr l1) l2)
     (cons (car l1) (exclusive (cdr l1) l2))
   )
 )
)

(setq lst1 (entget (tblobjname "LAYER" "0")))
(entmod	(subst (cons 70 (Boole 6 4 (cdr (assoc 70 lst1))))
       (assoc 70 lst1)
       lst1
)
)
(setq lst2 (entget (tblobjname "LAYER" "0")))
(exclusive lst1 lst2) 

 

[Edité le 14/7/2007 par (gile)]

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

Posté(e)

Salut (gile), et merci.

mais j'avais déjà testé ces pistes.

En fait, l'atténuation est fait à partir d'un valeur dans la base de registre enregistré dans la variable LAYLOCKFADECTL.

 

J'ai posé cette même question dans "Teh Swawp" ici..

J'ai eu un début deréponse, mais qui ne fonctionne pas complètement....

 

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité