[RESOLU] Déplacer une présentation

[rebcao]

Bonjour à Toutes et à Tous,

 

J'ai cherché dans les différents LISP existant sans trouver...

 

Existe-t-il une fonction qui permette de déplacer une PRESENTATION en indiquant son NOM, puis sa position au début ou à la fin ? Mais sans utiliser une fenêtre simplement en mode commande !

 

Un peu dans le style :

 

( movelayout "Nom présentation" 1 )

 

Sans doute un (VL... quelque chose, mais la syntaxe m'échappe !

 

Je vous remercie.

 

Christian

[zebulon_]

Bonjour,

 

(defun movelayout (NLAY POSLAY / LAY FLAG)
 (setq POSLAY (min POSLAY (length (layoutlist))))  ;; pas plus que le nombre de présentations
 (setq POSLAY (max 1 POSLAY))  ;; pas moins que 1
 (vlax-for LAY
   (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
   (if (= (strcase (vla-get-name LAY)) (strcase NLAY))
     (progn
        (setq FLAG T)  ;; on a trouvé
        (vla-put-taborder LAY POSLAY)
     )
   )
 )
 FLAG
)

(defun c:test ()
 (if (not (movelayout "toto" 3))
   (alert "Présentation non trouvée !")
 )
 (princ)
)

 

Amicalement

Vincent

[rebcao]

Super, ça marche. Exactement ce qu'il faut.

 

Je te remercie.

 

Christian

[zebulon_]

Super, ça marche. Exactement ce qu'il faut.

 

Je te remercie.

 

Christian

 

s'esch garn gschaan

 

Sans doute un (VL... quelque chose

oui, c'était un vl-put-taborder, mais il faut d'abord piocher dans la liste des présentations celle qui a le nom recherché. Il y a sans doute d'autres moyens pour parvenir à la même chose sans les vl

 

Amicalement

Vincent

[rebcao]

Bonjour,

 

C'est tout de même curieux que la commande de base _LAYOUT ne permette pas ce genre de fonction ?

 

C'est comme (LAYOUTLIST) ! Pourquoi, ils n'ont (les développeurs AUTODESK) prévus la liste des présentation dans la fonction LISP (TBLSEARCH ... ) ???

 

En tout cas, je te remercie. Comme d'hab. avec AutoCAD on est souvent obligé de Ruser !

AutoCAD le logiciel pour les renards...

 

Christian

[zebulon_]

Pourquoi, ils n'ont (les développeurs AUTODESK) prévus la liste des présentation dans la fonction LISP (TBLSEARCH ... ) ???

Christian

 

Bonjour Christian,

cela vient du fait que les présentations ne sont pas de même nature que les tables qu'on peut récupérer via TBLSEARCH. Mais cela n'empêcherait pas les développeurs d'Autodesk de faire la commande qui va bien, puisqu'on y arrive avec un lisp.

Amicalement

Vincent

[Patrick_35]

cela vient du fait que les présentations ne sont pas de même nature que les tables qu'on peut récupérer via TBLSEARCH. Mais cela n'empêcherait pas les développeurs d'Autodesk de faire la commande qui va bien, puisqu'on y arrive avec un lisp.

Salut

 

Oui, c'est le genre de pratique qui "force" à acheter une version pleine.

 

Bonne année à tous.

 

@+

[(gile)]

Salut,

 

C'est comme (LAYOUTLIST) ! Pourquoi, ils n'ont (les développeurs AUTODESK) prévus la liste des présentation dans la fonction LISP (TBLSEARCH ... ) ???

 

C'est tout simplement parce que AutoCAD utilise deux moyens différents pour stocker les données des objets non graphiques :

• les "tables" uniquement pour les calques, les types de ligne, les vues, les style de texte, les définitions de bloc, les SCUs, les applications enregistrées, les styles de cote et les fenêtres ;
  
• les dictionnaires nommés pour tout le reste (présentations, groupes matériaux, styles visuels, style de tableaux, styles de multiligne, etc.), plus les dictionnaires personnalisés éventuellement créés par programmation.
  

[zebulon_]

Exactement !

 

et on peut rajouter que les "tables" sont plutôt des données qui existaient déjà dans les versions "archaïques", si j'ose dire, alors que les dictionnaires sont des concepts plus récents, ainsi que les objets non graphiques qu'ils stockent, forcément.

 

Amicalement

Vincent

[rebcao]

Bonsoir,

 

Je vous remercie pour toutes ces précisions...

 

Christian