Bred

Salut, :casstet: De quoi tu parles, là ? Si c'est de l'aperçu rapide, pour toi c'est normal qu'il soit à cet endroit (voir capture d'écran premier message) ?

;) Moi, je suis le plus rapide du monde : pas de barre d'espace ni d'entrée pour valider : clic droit souris ! pffffff.... pour moi, l'affichage d'un menu contextuel me prends trop de temps , et en plus très gênant car je ne vois plus une partie de mon plan au moment de son affichage, et que (comme au échecs) j'ai une dizaine de manip d'avance sur ce que je suis en train de faire, si je ne vois pas une partie ou je vais travailler dans les prochaines manip, c'est un ralentissement certain !!!! Le seul truc ou je pense être super lent, c'est pour écrire des textes, soulignés, mettre en page... Faut que je réfléchisse à des automatisme qui me permettront de mettre en page plus rapidement...

Moi, j'ai la main gauche sur le genou... de ma voisine... ;) Sérieusement : je n'ai jamais connu des utilisateurs d'autocad qui n'ont pas la main sur le clavier... (Le plus grave que j'ai vu c'est un pré-retraité qui, pour cliquer, soulevais la main de la souris... mais il avais appris AutoCAD "pour lui") Je pige pas là... Moi, clic droit = Entrée... c'est quoi le gâchis ?

Re, tu pourrais le mettre en dwg stp (je ne peux récupérer des rar au bureau)

Ben les grands esprits ce rencontre, c'est ce que j'ai essayé de faire en corrigeant le code dessus...

Salut, ça commence à devenir bizarre ce post... BIGC-ROMU : J'ai relu 10 fois ton trucs pour être sur de bien comprendre... N'est-ce pas ce que je propose avec ma dernière fonction ? (CEP - ci-dessous) Pour le reste de discussion concernant les modifications d'échelle... pourriez-vous m'expliquer pourquoi ne bossez-vous pas en EP ? Vous faites votre plan en EO à l'échelle 1, puis vous faites ce que vous voulez en EP pour le cadre, l'échelle, etc.... Bon, après, pour le programme, si vous ne modifiez QUE l'échelle du cadre sélectionné, testez ça : Je rends l'echelle de la fenêtre en EP proportionnel à l'echelle dont le bloc à été soumis (il faut donc que ce soit le même bloc) Exemple : Si l'onglet paramétré est un A3 avec l'échelle de la fenêtre à 1, si le bloc suivant à été réduis de 0.5 la fenêtre sera donc à l'échelle 2.... C'est ça où j'ai rien compris ? :casstet: :casstet: - Voir Message 23 page 4 - Edit : Force sélection par Fenêtre[Edité le 3/7/2008 par Bred] [Edité le 7/7/2008 par Bred]

En effet !!... C'est pour ça que moi, maintenant, je ne (dé)forme que des gonzesses ! En plus d'être beaucoup plus intelligente que les gars, elles sont multi-tâches ! ... bon.... désolé... :P

... et en parlant des trucs qui traine, sur la 2009, si vous avez l'icône SCU activé (mais pas à l'origine), quand vous faites un panoramique, l'icone bouge... puis reviens à sa place à la fin du pano'... :casstet:

Bonjour Sophie, lili2006 t'as correctement expliqué comment faire. Il faut que dans tes unités de dessin tu sois bien sûr en angle Deg/min/sec http://images4.hiboox.com/images/2708/350015357b1aec2ffa37aa4a28a8ca3d.jpg

Salut, Concernant ma remarque sur la demande de lili2006 il fallait comprendre que depuis le nombre d'année maintenant que l'EP existe, il est quand même contraignant de jouer avec des cadres de tailles différentes, sans parler des échelles de cotes, des formats de textes, des épaisseurs de lignes, etc.... Pour ta demande, lili2006, il suffit que tu paramètres l'onglet choisis correctement : Dans cet onglet, tu cadres, tu mets à la bonne échelle d'impression les cadres que tu veux, puis tu ne sélectionne que ceux qui ont ce format pré-paramétré.... Par contre, pour automatiser ça, je vois mal le truc : Quand tu sélectionnes les cadres, il faudrait que le code puisse faire la différence entre un A2 au 1/200 ou un A4 au 1/100 par exemple (si je ne me trompe pas)... et ça je ne vois pas comment.... désolé.

Salut, Le ruban est affiché... mais en fait je ne l'utilise pas... Comme je l'ai dit dans un autre message, l'une des chose fabuleuse (pour moi) de la version 2009, c'est que je me sent obligé d'apprendre certains raccourci clavier que je n'utilisais jamais avant... :P

Salut, Un chose après l'autre.... :P Dabord, le plus rapide et le plus simple : pour grand_sapin Ben en fait les chiffres après la virgule sont dépendant du style de cote, pas du format des unité (et je trouve ça bizarre...) Mais j'ai corrigé le code pour qu'il n'incrémente que des 1, 2, 3.... (voir code précédent édité) lili2006 : faut que je regarde ça... (non mais quel idée de bricoler les échelles en EO !...) Patrick_35 : merci, je regarde ça, et super le tuto .dcl !... dommage qu'il soit en anglais, mais on va se débrouiller... à moins que quelqu'un n'est envies de nous traduire tout ça.... ;)

Salut, ceci m'arrive souvent : Cette fenêtre "affichage rapide d'Espace" s'affiche quelque-fois n'importe où... et reste... http://xs229.xs.to/xs229/08273/2008-07-02_162828549.jpg

Salut, j'avais fait une boulette ! j'ai modifié, ça doit donctionner sur toutes les versions maintenant... Désolé... :calim:

grand_sapin : j'ai corrigé le code au-dessus suite à la proposition de Patrick_35 pour le faire fonctionner sur toutes les versions AutoCAD.

Re, Patrick_35 : Je suis désolé, mais je suis planté... Je n'arrive pas à ne pas activer les présentations afin de créer les fenêtres.. J'ai compris ton exemple, et en effet je ne savais pas qu'une AddLine peut être fait dans un Block (dixit l'aide)... mais pas une AddPViewport... Tu as raison... et je pourrais le faire les doigts dans le nez en utilisant une boite de dialogue VB.. mais en dcl, à part faire une boite qui dit "hello", je ne sais pas faire plus... :P

Salut les gars, En fait, mon post, ben je crois qu'il n'y a pas de solution... ... donc autant profiter de l'espace vide...

Salut, C'est un gag... :P :P :P (ne le prends surtout pas pour toi TonyWesson, ceux qui sont au courant comprendrons !) Ma réponse date de 2 mois ! Et pourtant, même là, on dirait qu'elle n'est pas visible !

Salut, si tu as déjà un arc : (defun c:larc (/ e) (while (not e) (setq e (entsel "\n Choix de l'arc :")) (command) (if e (if (equal (vla-get-objectname (setq e (vlax-ename->vla-object (car e)))) "AcDbArc") (progn (princ (strcat "\n Longueur Arc : " (rtos (vla-get-arclength e))))) (setq e nil)) ) ) (princ) )

Re, As-tu tester le lisp proposé en lien dans la réponse 2 ?

Re, grand_sapin, tu pourrais charger et lancer ça sur 2005 stp ? (defun c:tt () (vlax-dump-object (vlax-ename->vla-object (car (entsel "\n Choix de l'objet :")))) ) Tu lances "tt", et tu sélectionne un bloc cadre. Tu peux me retourner ce qu'il y a écris en ligne de commande stp ? Patrick_35 : grand merci, je vais voir ça !

Salut Grand_sapin, la plus vieille que j'ai sur mon poste est la 2006.... Mais on va tenter un truc : ; Crée un onglet EP par cadre de page sélectionné en EO ; par Bred le 02/07/2008 - Un onglet déjà paramétrer doit exister (defun c:CEP (/ ACDOC B C FEN I LAYS N-P NOM-P ONG-BASE ONG_DEST SEL XMIN YMAX A-P HAUT LARG P1 P2 NOM) (vl-load-com) (while (not sel) (setq sel (car (entsel "\n Choix du cadre (Bloc) :"))) (if sel (if (not (equal (vla-get-ObjectName (setq b (vlax-ename->vla-object sel))) "AcDbBlockReference")) (setq sel nil))) ) (setq sel (ssget '((0 . "INSERT"))) AcDoc (vla-get-activedocument (vlax-get-acad-object)) nom-p (getstring t "\n Nom des Onglets à Créer :") layS (layoutlist)) (if (> (length layS) 1) (progn (princ "\n Copie configuration traceur d'onglet Existant. \n Plusieurs Présentations détectées.") (while (not ong-base) (princ "\n") (repeat (setq i (length layS)) (princ (strcat (nth (- (length layS) i) layS) " * ")) (setq i (1- i))) (setq ong-base (getstring t "\n Présentation d'où la configuration du traceur sera récupérée :")) (if (not (member ong-base layS)) (setq ong-base nil)))) (setq ong-base (car layS))) (setq a-p (vla-item (vla-get-layouts AcDoc) ong-base)) (repeat (setq i (sslength sel)) (if (vlax-property-available-p (vlax-ename->vla-object (ssname sel (setq i (1- i)))) 'effectivename) (setq nom vla-get-effectivename) (setq nom vla-get-name)) (if (equal (nom (setq c (vlax-ename->vla-object (ssname sel i)))) (nom b)) (progn (vla-GetBoundingBox c 'xmin 'ymax) (setq n-p (vla-add (vla-get-Layouts AcDoc) (setq ong_dest (strcat nom-p " - " (rtos (- (sslength sel) i) 2 0))))) (vla-copyfrom n-p a-p) (vla-put-ActiveLayout AcDoc n-p) (setq fen (vla-AddPViewport (vla-get-paperspace AcDoc) (vlax-3d-point '(0 0 0)) (setq Larg (- (car (vlax-safearray->list ymax)) (car (vlax-safearray->list xmin)))) (setq Haut (- (cadr (vlax-safearray->list ymax)) (cadr (vlax-safearray->list xmin)))))) (vla-ZoomExtents (vlax-get-acad-object)) (vla-Display fen :vlax-true) (vla-put-MSpace AcDoc :vlax-true) (vla-put-ActivePViewport AcDoc fen) (vla-ZoomWindow (vlax-get-acad-object) xmin ymax) (vla-put-MSpace AcDoc :vlax-false) (if (> (- (car (vlax-safearray->list ymax)) (car (vlax-safearray->list xmin))) (- (cadr (vlax-safearray->list ymax)) (cadr (vlax-safearray->list xmin)))) (vla-put-PlotRotation (vla-get-activelayout AcDoc) ac90degrees) (vla-put-PlotRotation (vla-get-activelayout AcDoc) ac0degrees)) (setq p1 (vlax-make-safearray vlax-vbdouble (cons 0 1)) p2 (vlax-make-safearray vlax-vbdouble (cons 0 1))) (vlax-make-variant (vlax-safearray-fill p1 (list (- (/ Larg 2)) (- (/ Haut 2))))) (vlax-make-variant (vlax-safearray-fill p2 (list (/ Larg 2) (/ Haut 2)))) (vla-setwindowtoplot (vla-get-activelayout AcDoc) p1 p2) ) ) ) (setvar "TILEMODE" 1) (princ) ) Edit1 : correction suite proposition de Patrick_35 concernant le fonctionnement toutes version. Edit2 : Correction parceque j'avais fais n'importe quoi. Edit3 : Indice d'incrémentation sans virgule [Edité le 2/7/2008 par Bred]

laisse moi le temps d'y réfléchir....

C'est pour améliorer mon lisp ci-dessus : quand je crée la fenêtre dans une présentation, je n'arrive pas à le faire sans l'activer... vla-AddPViewport n'a l'air de prendre en object que "PaperSpace collection"...

Salut, Non, je n'y avais pas pensé. Mais je n'arrive pas à faire grand chose : j'arrives à lire aussi une valeur "REG_MULTI_SZ" (mais cette fois-ci sous forme de liste : ("tata" "toto" "tutu") Par contre, je n'arrive pas à en écrire... [Edité le 1/7/2008 par Bred]