geler calque dans les fenêtres!!!!!

[ludo07]

Bonjour à vous les "VBAÏSTE",

 

Besoin d'aide pour mon programme.

 

Le programme que j'essais de faire:

 

Lister les calques dans un fichier, choisir un calque et le geler dans toutes les fenêtres des différents onglets présentations.

 

Donc j'arrive à lister les calques, ensuite pour chaque onglet presentation, je liste le nombre de fenêtre.

 

J'active chaque fenêtre , je rentre à l'interieur (je passe dans l'espace objet) et la bétement je veux utiliser la fonction FREEZE de vba.

 

Mais ça gel le calque dans l'espace objet et pas dans les fenêtres. :casstet: :casstet: :casstet: .

 

Bref si quelqu'un c'est comment faire, ou si il existe déjà un programme chez quelqu'un qui fonctionne.

 

Je vous en remercie car là je viens de sortir un gilet de sauvetage, je suis entrain de me noyer.

 

VITE UNE BOUEE.

 

a+

 

 

[zebulon_]

J'y connais rien en VBA, mais dans Autocad il y a 2 commandes pour gérer les calques :

_-layer

_vplayer (ou FCALQUE en français)

 

et la seconde commande sert justement à gérer la visualsation des calques dans les fenêtres.

 

Si on lance la commande CALQUE, qui nous renvoie vers une boîte de dialogue, celle-ci gère les 2 aspects des calques.

 

Donc, s'il y a 2 commandes dans autocad, il y a de fortes chances qu'il y ait aussi 2 commandes dans VBA ?

 

Amicalement

 

Zebulon_

 

 

Sinon, j'ai fait quelque chose de similaire en LISP qui gèle un calque dans une fenêtre FMULT par désignation d'un objet, à toutes fins utiles ...

(defun c:gfen ()
 (if (= (getvar "TILEMODE") 0)
   (progn
     (setq e T)
     (While e
       (setq e (entsel "\nSélectionner un objet du calque à geler dans la fenêtre :"))
       (if e
         (progn
           (setq a (entget (car e)))
           (setq PTSEL (car (cdr e)))
           (setq TYPSEL (cdr (assoc 0 a)))
           (if (= TYPSEL "INSERT")  ; si BLOCK ou XREF
             (progn
               (setq INFOTBL (tblsearch "BLOCK" (cdr (assoc 2 a))))
               (if (= (boole 1 (cdr (assoc 70 INFOTBL)) 4) 4)  ; c'est une xref
                 (progn
                   (setq e (nentselp PTSEL))  ; je recherche l'élément dans la XREF
                   (setq a (entget (car e)))  
                 )
               )
             )
           )
           (setq NOMC (cdr (assoc 8 a)))
           (command "_vplayer" "_f" NOMC "_c" "")
         )
       )
     )
   )
   (alert "uniquement en espace papier")
 )
 (princ)
) 

[ludo07]

Bonjour zebulon_,

 

Je te remercis pour la commande FCALQUE je ne la connaissais pas .

 

Mon dieu que je me sens tous petit.

 

je continu quand même de chercher pour VBA.

 

Merci à toi

a+

[Bumet]

Celà m'intéresse aussi, c'est pourquoi je relance le sujet! :)

[bonuscad]

Un petit coup d'oeil sur ce SUJET ;)

[DenisHen]

Bonsoir Ludo..

 

Essai, comme mot clef dans l'aide VBA d'autocad "THAWED"...à la place de FREEZE...

 

Denis...