ribbit

Hello, :question: Bizarrement ECHELLETEXTE (voir recherche dans l'aide avec ce mot clé) ne marche pas alors qu'il est censé exister - y'a même un bouton ! Essaye "_scaletext" ca marche. Ribbit.

Hello, En cherchant des infos pour mes présentations papier, je suis tombé là-dessus. Pas eu le temps d'explorer, mais je crois que ca pourrait etre intéressant... http://xarch.tu-graz.ac.at/autocad/ghindex.html Ribbit.

Hello, En fait, c'est pas la nouvelle génération qui pose problème, c'est au contraire, celle qui y connait pas assez - l'intermédiaire, élevée à coup de windows admettant plus de 8 caractères+3.... En fait,le rpoblème vient de la plupart des gens qui ont mal appris par eux même et ne connaissent pas les rudiments de la prog et de ses impératifs de rigueur... Qui me mettent des accents et des CEDILLES dans des fichiers et autres en têtes de colonnes de BDD...GRRR. Pour ne pas parler des blocs définis n'importe comment (calque machin + style de trait 0.00mm etc...). Et n'oublions les traditionnels logiciels archi qui me mettent les entités en blocs dans des layers fantaisistes mélangés... Bonne journée, Ribbit.

Bonjour, Est-ce que ça s'applique à mon code ? Je ne comprend pas, à qui vous adressez vous ? Je ne pense pas avoir utilisé de caractères spéciaux ni d'espaces dans les noms de mes variables ??? C'est une critique ??... Bon, je suis pas susceptible mais si vos remarques s'adressent à quelqu'un en particulier ce serait quand même plus constructif d'être plus explicites !! Ribbit.

Hello, Exact.... mais je fais le difficile.... :red: Mais bon, quand même, ça vaut le coup de savoir, comme ca tu garde tes paramètres d'impression pour la prochaine fois... Ribbit.

En fait, je me suis mal exprimé. Je veux juste dire à autocad : sur toutes ces présentations sélectionnées, configure la mise en page pour une sortie sur l'imprimante "Untel" et que le format de papier soit A4. Hélas, j'avais bien vu pour le Ctrl et le shift, mais autocad refuse de me laisser configurer une présentation qui ne soit pas active.... (essayez le clic droit après avoir fait une sélection multiple, la ligne Configuration de tracé est grisée...). Merci pour vos réponses en tout cas :thumbup: , Ribbit. Ps : ca marche sous exel par contre... ;-)

bonjour, Après le remarquable travail de patrick, coolman,... (voir forum Gestion des présentations papier 1), j'ai une autre question sur les présentations : Quelqu'un sait-il s'il est-il possible de configurer ensemble toutes les présentations d'un dessin pour l'impression, une sorte de mise en page globale ...? Ribbit.

Hello, Je reconnais que là, le LISP c'est rapide, et ca marche très bien. Je pense que j'en resterai à ton fichier LISP ong1.00, Patrick, c'est quand même 'achement mieux... Mais bon, je voulais essayer ! MERCI !!! Un Ribbit très content. :hallucine: . PS : ca me motive pour me mettre au lisp tout ca....

Hello, Moi aussi j'ai occupé mes soirées - challenge personnel... Mon code est encore un peu bancale, mais bon, il marche c'est l'essentiel... Il faut construire une fenetre (une "form" comme ils disent) avec 3 boutons (appellés BtFermer, BtActive, BtRename) et et une listbox (appellée LBNomPres). La liste est actualisée quand on lance la macro avec les présentations du dessin actif. On peut renommer, activer une présentation et fermer la boite (ben oui aussi !). Comme je suis débutant, il y a forcément des trucs qui vont pas, comme quand on annule après avoir cliqué sur renommer, mais bon, ca m'a bien servi et ça m'a appris à gérer un peu tout ca. Pour l'améliorer, il faudrait que je pige comment déplacer une présentation.... Des idées ? bon, maintenant, je vais installer et regarder les appli en lisp que vous avez généreusement faites... Option Explicit Public AutoCAD As AcadApplication Public ACAD_ADOC As AcadDocument Public Presentations As AcadLayouts Public PresAct As AcadLayout 'declaration variables globales Private Sub UserForm_Initialize() Set AutoCAD = AcadApplication 'recuperation de l'objet autocad Set ACAD_ADOC = ACAD.ActiveDocument 'recuperation de l'objet document actif Set Presentations = ACAD_ADOC.Layouts 'recuperation de l'objet presentations (collection) On Error Resume Next If ACAD_ADOC.ActiveSpace = acModelSpace Then _ ACAD_ADOC.ActiveSpace = acPaperSpace Set Presentations = ACAD_ADOC.Layouts For Each PresAct In Presentations If PresAct.Name <> "Objet" Then LBNomPres.AddItem (PresAct.Name) End If Next 'recuperation de la liste des présentations pour les mettre dans la listbox End Sub Private Sub BtFermer_Click() End End Sub Private Sub BtActive_Click() Dim numlayout As Integer Dim resultat As Integer Dim SelectedLayout As AcadLayout Dim test As Variant numlayout = LBNomPres.ListIndex 'récupere le numero d'index de la presentation Set SelectedLayout = Presentations.Item(numlayout) 'récupere la presentation sélectionnée Call ActiverLayout(SelectedLayout) 'Appelle la fonction pour activer la présentation designée End Sub Sub ActiverLayout(SLayout As AcadLayout) ACAD_ADOC.ActiveLayout = SLayout End Sub Private Sub BtRename_Click() Dim numlayout As Integer Dim nomlayout As String Dim resultat As Integer numlayout = LBNomPres.ListIndex 'récupere le numero d'index de la presentation nomlayout = InputBox("Nouveau nom", "Title", Presentations.Item(numlayout).Name) 'récupere le nouveau nom Call RnLayout(numlayout, nomlayout) 'Renomme la présentation designée End Sub Private Function RnLayout(i As Integer, nom As String) As Integer Presentations.Item(i).Name = nom End Function

En fait, j'ai trouvé... Sub ActiverLayout(SLayout As AcadLayout) ACAD_ADOC.ActiveLayout = SLayout End Sub

Bonjour, Je cherche un moyen de gérer les présentations sous autocad. Je pme lance doucement dans la programmation VBA (Si vous avez des idées d'ailleurs, elles sont les bienvenues). J'ai un petit souci, qui me semble simple pourtant : comment activer une présentation ? Doit-on faire quelque chose comme Set AutoCAD.ActiveLayout = lenomdelapresentation ? Je suis sur que j'oublie pleins de trucs ou je n'utilise pas les bon objets/noms mais bon....il faut bien commencer quelque part...

Bonjour, Merci pour ta réponse coolman, mais pourrait tu eclairer ma lanterne? Je sais pas trop quoi faire avec ce que tu nous as proposé (oui, je sais, je suis un peu nul...). Dois-je tout mettre dans le même fichier layout_set.lsp ? Comment lancer le tout après - commande "layout_set" ? Est-ce qu'il faut mettre les fichiers dans un répertoire particulier ? Merci beaucoup d'avance !! Ribbit.

Oui, j'avais lu mais le temps que je les efface, j'ai mis un message...le site est un peu lent ce soir....

Moi non plus ca marche pas (merci quand même!!), mais bon, je suis têtu, je vais tenter de la faire en VBA. Je posterai si j'y arrive... A plus, Ribbit.

Merci Tramber (ca veut dire quoi au passage, Tramber ?). Je vais ruminer tout ca et si j'y arrive pas, eh bien, comme d'hab, on se debrouillera ! ;-)

C'est vrai que c'est pas mal mais dès qu'il y a des espaces c'est fichu !! Ca servira quand meme je suis sur.

Pour continuer sur ma lancée... Pour avoir une liste des calques aussi : lancer la commande : "PRESENTATION" et taper "?" Ma question du moment : Est-ce qu'il y a quelque part une liste de "l'ordre" des presentations, associant le nom et le numero d'ordre - pour la modifier bien sur ? Ma réflexion en cours : En fait, ce que j'aimerais dans mes rêves actuels, c'est avoir une boite de dialogue (réutilisable ailleurs) où je clique sur un bouton "renommer" en ayant sélectionné une présentation dans une liste, et un autre où je clique sur trier pour retrier ma liste de présentation, voire d'autres options sympa comme dans le Layout Manager Lite. Le truc, c'est que pour avoir la source c'est payant. A moi de jouer donc pour le redévelopper et y rajouter des trucs à ma sauce - si j'en ai le courage... J'avais fait ça pour les feuilles excel un jour....Sans boite de dialogue mais qui permettait de les trier par ordre alphabétique. Très utile mais c'était en VBA. C'est pour ça que je m'intéressais à VBA.

Merci, Je vais y travailler... Au passage, en cherchant, j'ai trouvé le manuel de référence du LISP en PDF (426 pages) sur le web là : http://gimel.inf.bi.rub.de/teaching/course/bauing/cad/download/cad/reference/AlispRef.pdf et des bricoles à télécharger là : http://www.dotsoft.com/freestuff.htm dont un truc appelé "Layout Manager Lite"... en VB ;-) Ribbit.

layoutlist ? Ca serait pas mieux de commencer à bricoler en VB ?

En fait, j'ai des espaces... Tu connais pas une autre bricole, genre, un tri auto ou autre chose ? Pour le lisp tu fais comment, c'est compliqué ? Je suppose qu'il faut tenter de récupérer la liste des présentation, passer une boucle de tri et lui demander de les réagencer selon une nouvelle liste...? Mais vu mon niveau 0 en lisp... PS : oui, un jour je m'y mettrai au lisp....

Je l'avais oubliée celle-là. Ca va me servir... En fait, non, mes collègues les ont créées avec leurs petits doigts potelés. Ils en ont du courage (et du temps à perdre). Bon, au boulot maintenant pour depatouiller ca... Merci, ribbit.

Au passage, je précise que ce n'est pas une centaine mais 255 présentations qu'ils ont créées !!!! J'en profite pour dire qu'il semble que c'est le maximum (ouf, heureusement pour moi...) dans autocad. Ribbit

Bonjour amis cadiens, Connaissez vous un moyen pour gérer les onglets de présentation ? :casstet: J'ai récupéré de mes chers collègues des fichiers avec plus d'une centaine d'onglets chacun (!!) et j'aimerai notamment les trier et les renommer. Merci d'avance, : Ribbit.

On peut y faire pour avoir du mieux : va dans le menu Format/epaisseur des lignes et mets les à 0.18mm dans la liste déroulante à droite. Tu verra ça ira mieux. En théorie cette épaisseur devrait etre à 0.25mm par défaut. Ce paramètre règle l'épaisseur "par défaut" que tu vois dans le gestionnaire de calques Cordialement, Ribbit.

Hello, Je propose mieux : Le site sur lequel se base tiboys: http://www.google.fr/language_tools?hl=fr Et l'outil babelfish d'altavista : http://babelfish.altavista.digital.com/ Bonne traduction, Ribbit.