modifier \"XP\" dans chaque fenetre de presentations

[PHILPHIL]

hello toutes tous

 

j'ai pas mal de presentations à une fenetre ou de presentations avec plusieurs fenetres dans mes fichiers.

 

et de tps en tps ne sachant pas vraiment pourquoi ( nombreuses manip par LISP dans les fenetres ou BUG ) le "XP" ( zoom personnalisé ) de certaines fenetres change

 

0.49353 au lieux de 0.5 par exemple

 

existe t'il un LISP qui fasse la récapitulation de toutes les fenetres de presentations d'un fichier, faisant apparaitre son "XP", et le cas echeant jouer sur le "groupe 45" de la fenetre pour remetre un zoom plus "convenable"

 

ok je suis d'accord un peu, bcp , trop maniaque pour passer de 0.49333 à 0.5

mais ca permetrait aussi de voir ou ca bouge

 

a+

bonne journée

 

phil

 

[didier]

coucou

 

sans vraiment répondre à ta question je me permets ...

 

normalement tu verrouilles tes fenêtres

de cette façon le zoom Xp sera stable.

 

amicalement

 

[Edité le 28/7/2009 par didier]

[bseb67]

Salut philphil,

 

Je ne vois pas en quoi vouloir 0.5 au-lieu de 0.49333 est être maniaque.

 

C'est un faisant du bon travail que l'on peut être fier :D.

 

Un de mes collègues s'en arrache presque les cheveux (d'ailleurs il lui en manque

beaucoup sur l'avant :cool: ) avec les fichiers fait n'importe comment par l'extérieur:

- décalages

- unités mélangées

- ...

 

Pour ta demande, je verrai bien une dcl avec quatre parties:

- à gauche la liste des présentations

- au milieu les fenêtres présentes dans la présentation choisie

- à droite l'XP de la fenêtre choisie dans la liste des fenêtres qui est éditable

 

et deux boutons magiques:

- un qui applique une valeur voulue sur toutes les fenêtres d'une présentation

- un qui applique une valeur voulue sur toutes les fenêtres de toutes les présentations

 

Ca te parait bien?

[Tramber]

De 2004 à 2006 Autodesk nous a laissé une belle m..... !

 

Je m'en suis toujours plaint. Dans la barre d'outils FENETRES, l'échelle se mettait à jour en dynamique quand on était dans l'EO d'une fenêtre.

 

C'était bien. Depuis 2006, fini.

 

Faites l'essai.

 

Sinon, pour le lisp, désolé de ne pas participer, je suis assez nul en EP.

[PHILPHIL]

hello

 

je m'attendais a cette réponse de verrouillage de fenetres

ca regle le probleme en effet

 

sauf que souvent je fais une presentation et la recopie, change l'orientation de vue dans la fenetre et autres manips ....

 

j'arrive souvent a plus de 100 fenetres ou presentations par fichiers

 

manipuler l'interieur des fenetres demanderait a constament verouiller deverouiller les multiples fenetres

 

a+

 

phil

 

 

[lili2006]

Bonjour à toutes et tous,

 

Une alternative, les lisps ("VERR et UNVERR") de Patrick_35, c'est très rapide alors,.. :D

 

Mais l'idée de bseb67 est très séduisante,... ;)

[bseb67]

Bon, une première version avec uniquement l'échelle de la fenêtre

 

le lisp

http://bseb67.free.fr/lisp/fenetres_presentations.lsp

 

une visuel de la dcl

http://bseb67.free.fr/lisp/dcl_ech_presentation.PNG

 

commande: cefp ou (c:cefp)

 

demain j'ajouterai l'application d'une échelle sur toutes les fenêtres

de la présentation choisie

 

PS:

s'il y a des bugs, questions ou autre, n'hésiter pas à poster ou en mp.

[Tramber]

Coucou.

 

Je ne veux pas être mauvaise langue mais je ne vois pas ce que cela apporte par rapport à la barre d'outils FENETRES.

Mieux, sur la barre en question je peux en selectionner plusieurs.

 

Plus mauvaise langue encore, dans cette barre, je peux taper : 0.5, 1:2, 1/2, .5, valeurs qui s'équivalent.

[lili2006]

Re,

 

M'plait bien moi cefp,

 

Semble bien fonctionner,...

 

Merci bseb67, :D

 

par rapport à la barre d'outils FENETRES.

 

Ben quand tu as :

 

j'arrive souvent a plus de 100 fenetres ou presentations par fichiers

 

Avec tout un tas d'échelles différentes, ça peut être pratique, non ? ;)

[PHILPHIL]

HELLO

 

c'est pas trop comme ca que je voyais la fenetre de presentation des presentations et fenetres

mais bon

 

j'aurais plutot vue

la liste des presentations

la listes des fenetres des presentations

l'echelle "XP" qui va avec ( histoire d'avoir une vue d'ensemble de toutes les echelles)

 

selection de plusieurs fenetre

 

une case nouvelle echelle xp

le bouton appliquer nouvelle echelle aux fenetres selectionnées

 

ok pour mettre a jour les echelles fenetres

 

mais comme tu es le maitre d'oeuvre du LISp c'est toi qui vois

 

je viens de tester par contre

 

on clique bcp 100 presentations minimum sur mon fichier

 

il doit y avoir un bug

sur certaine presentation ou je sais que je n'en ai pas le lips me presente 1 fenetre et la suivante ou j'en une seule il m'en presente 2

le probleme vient du fait que certaines presentations non pas de fenetre ( les cartouches )

la toute premiere presentation sans fenetre n'est pas dans la liste ca "ok" et le décalage du nbr de fenetres ce fait a ce moment la

mais les suivantes presentations sans fenetres sont dans la liste par contre

 

 

j'ai réussis dans la boite de dialogue a la rendre plus haute (height=40 ) au lieux de 15

mais je vois pas ou je peux l'élargir pour des nom de presentations bcp plus longs

 

voila j'ai tester

 

a+ merci

 

phil

 

 

[Tramber]

on clique bcp 100 presentations minimum sur mon fichier

 

Là je m'incline, sauf à maitriser avec LAYOUTREGENCTL, les parcourir est vite un enfer.

 

Mais alors :

j'aurais plutot vue

la liste des presentations

la listes des fenetres des presentations

l'echelle "XP" qui va avec ( histoire d'avoir une vue d'ensemble de toutes les echelles)

 

selection de plusieurs fenetre

Il faut demander à bseb67 de pouvoir faire des selection multiples, sinon j'en reviens à mon propos.

 

Hopla, bonne soirée.

[PHILPHIL]

hello

 

 

tramber : par la barre d'outils fenetre tu peux effectivement en choisir plusieurs et changer l'echelle

 

mais faut etre dans la presentations

 

l'idée c'est de rester dans l'espace objet ( onglet objet )

 

et de pouvoir verifier rapidement les echelles de toutes les fenetres en une seule fois

et de les modifier en global le cas echéant en cliquant le moins possible

 

et apres si c'est parfait on verrouille tout

 

a+

phil

[(gile)]

Salut,

 

1 Je ne peut être que d'accord avec didier, il faut systématiquement verrouiller les fenêtres une fois la mise à l'échelle faite.

Pour ça j'utilise 2 commandes VF et DF définie en LISP qui (de)verrouille les fenêtres sélectionnées ou toutes :

;;; VPLOCK (gile)
;;; Verrouille ou déverrouille les fenêtre sélectionnées (ou toutes)
;;;
;;; VF pour verrouiller
;;; DF pour déverrouiller


(defun vplock (opt / ss)
 (vl-load-com)
 (or *acdoc*
     (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object)))
 )
 (princ "\nSélectionnez les fenêtres ou : ")
 (if (or (ssget '((0 . "VIEWPORT")))
  (ssget "X" '((0 . "VIEWPORT") (-4 . "/=") (69 . 1)))
     )
   (progn
     (vla-StartUndoMark *acdoc*)
     (vlax-for	vp (setq ss (vla-get-ActiveSelectionSet *acdoc*))
(vla-put-DisplayLocked vp opt)
     )
     (vla-delete ss)
     (vla-EndUndoMark *acdoc*)
   )
 )
 (princ)
)

(defun c:vf () (vplock :vlax-true) (princ))
(defun c:df () (vplock :vlax-false) (princ)) 

 

2

De 2004 à 2006 Autodesk nous a laissé une belle m..... !

 

Je m'en suis toujours plaint. Dans la barre d'outils FENETRES, l'échelle se mettait à jour en dynamique quand on était dans l'EO d'une fenêtre.

 

C'était bien. Depuis 2006, fini.

Je ne comprends pas ce que tu veux dire Tramber la modification de l'échelle par la liste déroulante de la barre d'outils "Fenêtres" fonctionne que la ou les fenêtres soient sélectionnées ou activées avec 2007 et 2010.

 

3 bseb67,

Bravo, ton LISP a l'air sympa.

J'avais fait un truc ici pour traiter des fenêtres "par lot", si ça peut servir ou inspirer quelqu'un...

 

4 PHILPHIL,

tu voudrais une boite de dialogue avec une liste d'environ 100 présentations et une autre liste des fenêtres. Sachant qu'il peut y avoir plus d'une fenêtre par présentation, tu imagines la taille de cette deuxième liste liste !!!

Comment dans une liste de fenêtres aussi longue (qui ne sont pas nommées) être sûr de l'échelle qu'il faudrait lui donner sans la voir...

Et si l'échelle a bougé (zoom), qu'est-ce qui garanti qu'il n'y a pas eu aussi un "pan" qui a décentré la vue...

 

Si tu es sûr que l'échelle qui "a bougé" a peu changé par rapport à l'échelle initiale, il est peut-être plus simple de faire une correction des échelles par rapport à une liste standard. Autrement dit arrondir le facteur d'échelle au facteur d'échelle le plus proche.

[PHILPHIL]

HELLO toutes tous

 

 

il faut bien une liste de toutes les presentations du fichier et des fenetres qui correspondent aux presentations ainsi que de leurs echelles

 

je ne connais pas le nombre de presentations par fichier et surtout le LISP n'est pas que a ma stricte utilisation bien au contraire tout le monde doit pouvoir l'utiliser

 

actuellement j'ai un fichier 120 presentations pour 500 fenetres

c'est un debut ca devrait si ca plante pas faire 1500 fenetres 360 presentations a la fin

 

j'ose esperer que tres tres tres peu de fenetres auront des petits problemes de zoom intenpestif

 

patrick 35 la bien fait avec "GEF 3.30" je vois toutes les fenetres numérotées

c'est peut etre et surement une piste pour nommer les fenetres

 

ta derniere idée de proposer des echelles standards est bonne je vois pas de probleme

 

je lance , nous lancons des pistes pour ce LISP

apres on verra bien

 

a+

bonne soirée

 

phil

 

 

 

[bseb67]

Salut à tous,

 

C'était un premier jet ;) , si j'ai le temps entre midi et deux, je rajoute l'évolution annoncée plutot.

Et je vais faire une autre version.

 

et un petit bonus en plus, mais schutt, vous verrez. :cool:

[Tramber]

Je ne comprends pas ce que tu veux dire Tramber la modification de l'échelle par la liste déroulante de la barre d'outils "Fenêtres" fonctionne que la ou les fenêtres soient sélectionnées ou activées avec 2007 et 2010.

 

C'est subtil mais je parlais bien de la 2004 ! J'ai pu vérifié hier soir et je crois que j'ai du rêver. Je croyais me souvenir que la valeur du zoom s'affichait dynamiquement quand on était dans une fenêtre et que l'on actionnait la roulette. Mais je retire ce que j'ai dit.

Depuis 2006, je n'avais pas noté de changement de comportement;

 

C'eût été bien quand même, pour notre sujet car, je crois, un affichage dynamique de cette échelle éviterait à certains de "glisser" vers des valeurs de zoom non-standard.

 

Je reviens aussi sur ma critique du lisp, juste la possibilité de multi-saisie et, effectivement, il serait très utile en cas de multi-présentations-multi-fenetrées.

 

hop

[PHILPHIL]

hello

 

je vois plus ce LISP comme un moyen de verification global et rapide des echelles apres moults travail dans les fenetres ou plantage ( autocad ou vista( grrrrr et regrrrrr )) passer de xp = .999953 à xp= 0.1

que comme un moyen de se dire que l'on va modifier toutes les echelles des fenetres en passant du 1/100 ou 1/50, la ca serait ridicule je pense, ca c'est un boulot qui se fait de visu et pas en aveugle

 

comme le dit tramber la possibilité du multi-saisie est bonne a prendre y'a la limite des 256 ou 255 a na pas franchir ( voir GEF 3.01 et le sujet qui va avec pour cette limite ) mais c'est deja une limite tres haute quand meme y'a tres peu de fichier avec autant de fenetre

 

a+

 

bonne journée

 

phil

 

 

[Tramber]

comme le dit tramber la possibilité du multi-saisie est bonne a prendre y'a la limite des 256 ou 255 a na pas franchir ( voir GEF 3.01 et le sujet qui va avec pour cette limite ) mais c'est deja une limite tres haute quand meme y'a tres peu de fichier avec autant de fenetre

 

D'autant que le max de MAXACTVP est 64 !

[bseb67]

Tiens, des trucs bizarres que je ne comprends pas:

 

Si je suis en espace objet, je fais un ssget sur tous les viewport sauf ceux dont

le code 69 vaut 1 (car pour ce cas là c'est la présentation elle-même). Pour certaines présentations

il me donne un code 69 à 0, alors que pour d'autre j'ai bien 2, 3... :casstet:

 

Le plus bizarre, c'est que si je vais sur la présentation où j'ai 0, je refait ma sélection,

le 0 est devenu 2, 3... :P :mad:

 

edit:

mais c'est un vrai m... ce truc. Une présentation est considérée comme un bloc caché.

Et normalement, le premier élément de ce bloc c'est le viewport qui englobe donc la vue

de la présentation.

J'ai essayé en filtrant là-dessus, mais c n'est pas toujours les cas. :casstet:

 

bon, en clair , on ne garde que le filtre 69 à 1 et puis c'est tout :mad:

 

[Edité le 29/7/2009 par bseb67]

[(gile)]

Salut,

 

bseb67,

Un objet LAYOUT est en fait constitué de 2 objets le Layout proprement dit qui contient la configuration de traçage et le block du layout qui contient la "géométrie" de la présentation (vports et entités graphiques de l'EP). D'où le (vlax-for obj (vla-get-Block lay) ...) dans le LISP suivant.

Le premier objet Viewport du block est la fenêtre de l'EP d'où le (cdr (reverse vplst)).

 

Comme je suis un peu têtu, j'ai continué sur mon idée d'arrondir les échelles par rapport à une liste d'échelles.

Voilà le LISP, il faut modifier la liste sclst si elle ne correspond pas aux échelles utilisées dans le dessin.

 

EDIT : ajout d'un tri de la liste des échelle en ordre croissant.

EDIT2 : tant qu'à faire on verrouille les fenêtres (si ce n'était déjà fait)

;; ROUNDSCALE (gile)
;; Arrondit les échelle des fenêtres de présentation à la valeur la plus proche de la liste sclst

(defun c:RoundScale (/ sclst vplst scl pos)
 (vl-load-com)
 (setq sclst (vl-sort [surligneur]'(0.001 0.002 0.005 0.01 0.02 0.05 0.1 0.2 0.5 1.0)[/surligneur] '  (vlax-for lay
           (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
   (if (/= (vla-get-Name lay) "Model")
     (progn
       (setq vplst nil)
       (vlax-for obj (vla-get-Block lay)
         (if (= (vla-get-ObjectName obj) "AcDbViewport")
           (setq vplst (cons obj vplst))
         )
       )
       (foreach vp (cdr (reverse vplst))
         (if (not (member (setq scl (vla-get-CustomScale vp)) sclst))
           (if (setq pos (vl-position
                           T
                           (mapcar '(lambda (x1 x2) (= x1 x2))
                                   (mapcar '(lambda (x) (round scl x)) sclst)
                                   sclst
                           )
                         )
               )
             (vla-put-CustomScale vp (nth pos sclst))
           )
         )
         (vla-put-DisplayLocked vp :vlax-true)
       )
     )
   )
 )
 (princ)
)

;;; ROUND Arrondit à la valeur la plus proche en fonction de prec
;;; (round pi 0.01) -> 3.14
;;; (round pi 1e-5) -> 3.14159
;;; (round 5456.50 1.0) -> 5457.0
;;; (round 5456.50 100.0) -> 5500.0

(defun round (num prec)
 (if (zerop (setq prec (abs prec)))
   num
   (* prec (fix ((if (minusp num) - +) (/ num prec) 0.5)))
 )
)

[PHILPHIL]

hello gille

 

je viens de tester

 

comme d'hab le lisp marche

et c'est tres rapide

 

 

il serait sympa de voir les transformations d'échelle sur la ligne de commande

savoir qu'elle fenetre est passée d'un zoom a l'autre ou était déja correct par rapport a la liste sclst

 

pour une fenetre avec une vue 3d par contre certains ne voudront peut etre pas avoir un zoom avec une echelle stricte

 

je sais aussi que quand je dois faire des plans de vente appartement la fenetre de l'ensemble immobilier a droite n'a pas vraiment d'echelle definit aucun ensemble immobilier n'ayant la meme encombrement

 

le lisp fait tout rapidement mais peut etre trop vite paradox

 

merci gille

 

a+

 

phil

 

[zebulon_]

Bonjour,

 

Une autre piste qui pourrait intéresser l'un ou l'autre : quand je fais une fenêtre en espace papier, j'écris le titre (Vue en Plan, Coupe A-A, Elévation etc...) sur l'espace papier et j'écris l'échelle à côté du titre. Vous allez me dire que si l'échelle écrite est un texte tout bête, il ne va pas réagir si l'échelle de la fenêtre est modifiée accidentellement. Et vous aurez raison.

Mais si on utilise un champ qui affiche le CUSTOMSCALE, on écrit le texte pour indiquer l'échelle de la vue et en même temps on peut vérifier si c'est du 1:50 et pas du 1:49.5668.

 

Là où c'est moins bien c'est que cela ne modifie rien. Cela informe, autant le concepteur que le lecteur du plan, et c'est tout mais c'est déjà pas mal.

 

Pour le lisp qui suit, je pars du principe qu'on travaille en mm en espace papier. En espace objet, j'ai prévu soit le mètre soit le mm, mais il faut que les unités (INSUNITS) soient bien réglées.

 

;;; créer un style de texte
(defun textsty (StyTxName H)
 (if (not (tblsearch "STYLE" StyTxName))
   (command "_style" StyTxName "arial.ttf" H "1.00" "0.00" "_N" "_N")
   (command "_textstyle" StyTxName)
 )     
)


;;; créer un calque
(defun calque (NewLayer ColLayer TlLayer)
 (if (not (tblsearch "LTYPE" TlLayer))
   (command "_LINETYPE" "_L" TlLayer "acadiso" "")
 )
 (if (not (tblsearch "LAYER" NewLayer))
     (command "_layer" "_M" NewLayer "_CO" ColLayer "" "_LT" TlLayer "" "")
     (command "_LAYER" "_T" NewLayer "_ON" NewLayer "_S" NewLayer "")
 )
)



;;Fonction qui nécessite une entité fenêtre et un point
(defun LinkedFmult (ent pt / *paper-space* obj objID ip width str CLAYER txtent strech)
 ;;référence à l'espace papier
 (setq *paper-space*
      (vla-get-PaperSpace
        (vla-get-ActiveDocument (vlax-get-acad-object))
      )
 )
 (cond
   ((= (getvar "INSUNITS") 4)
     (setq strech ">%).CustomScale \\f \"1:%lu2%ct1%qf2816\">%")
   )
   ((= (getvar "INSUNITS") 6)
     (setq strech ">%).CustomScale \\f \"1:%lu2%ct1%qf2816%ct9[1000]\">%")
   )
   (T (alert "Unité non traitée"))
 )
 ;;convertir entité en objet
 (setq obj   (vlax-ename->vla-object ent)
       ;;Récupérer l'ID de l'objet
       objID (vla-get-objectid obj)
       ;;convertir le point
       ip    (vlax-3D-Point pt)
       ;;définir la largeur du texte à 0
       width 0.0
       ;;définir la chaîne du champ
       str   (strcat
               "%<\\AcObjProp.16.2 Object(%<\\_ObjId "
               (rtos objID 2 0)
               strech
             )
 )
 (setq CLAYER (getvar "CLAYER"))
 ;; créer un calque "TXT30-1000" de couleur 7
 (calque "TXT30-1000" "7" "Continuous")
 ;; créer un style de texte de 3mm de haut
 (textsty "TXT30-1000" "3")
  ;;Créer le MTEXT qui contient le champ
 (setq txent
   (vla-addMText *paper-space* ip width str)
 )
 (vla-put-attachmentPoint txent acAttachmentPointBottomLeft)
 (vla-put-insertionPoint txent (vlax-3d-point pt))
 (vla-put-height txent 3.0)
 (vla-put-width txent 0)
 (vla-put-rotation txent 0)

 (setvar "CLAYER" CLAYER)
)


(defun c:txtech (/ ss e a pointins)
 (vl-load-com)
 (if (/= (getvar "TILEMODE") 0)
   (alert "Uniquement en espace papier !!!")
   (progn
     (while (not ss) (setq ss (ssget "_+.:e:s" '((0 . "VIEWPORT")))))
     (setq e (ssname ss 0))
     (setq POINTINS (getpoint "\nPoint d'insertion : "))
     (if POINTINS
       (linkedfmult e POINTINS)
     )
   )
 )
 (princ)
)

 

Amicalement

Vincent

 

[bseb67]

a part le problème des fenêtres qui sont les présentations,

 

http://bseb67.free.fr/lisp/fenetres_presentationsV2.lsp

 

voici le visuel de la nouvelle version:

 

http://bseb67.free.fr/lisp/dcl_ech_presentationV2.PNG

 

- Maintenant il n'y a qu'une seule liste.

 

-1ère ligne :

21CD4B => id de la fenêtre

00 => nom de la présentation

6.00000 => échelle

D => déverrouiller (si V = verrouiller)

 

- la sélection multiple fonctionne ;)

 

- les modif sont appliquées dès le clic sur "appliquer" et la liste change en fonction.

 

Bon, le lisp est encore brouillon et je vais tenter un mix avec les bouts de (Gile)

[Patrick_35]

Bonjour

 

Vous pouvez vous inspirer de GEF V3.03 avec des filtres possibles quand on a une trop grande liste de fenêtres.

Et à la place de la liste de calques, on peut avoir la liste d'échelle, etc...

 

ps : verrouillage

 

@+

[lili2006]

Re,

 

Salut bseb67 ,

 

Je viens de tester, et le facteur d'échelle semble ne pas fonctionner,...

 

Malgré un affichage correct dans la BD, exemple =>

 

http://free0.hiboox.com/images/3109/78feac5eabedf3fe21f5c2dfa6879198.jpg