Rechercher dans la communauté
Affichage des résultats pour « challenge » dans sujets.
-
Salut, tiens, je l'avais pas vu ce challenge... J'utilise exactement ce que décris zebulon_ au détail près que je n'utilise pas le sinus, mais je test la valeur de l'angle (ce qui n'est pas plus simple ...) (if (and (> (- (angle p1 pt)(angle p1 p2)) 0) (< (- (angle p1 pt)(angle p1 p2)) pi)) (alert "gauche") (alert "droite") )
-
En lançant ce "challenge" je doutais un peu de l'intérêt qu'il pouvait avoir et de celui qu'il pourrait susciter. Je suis doublement comblé, par le nombre des réponses et par le plaisir que j'ai eu à creuser ou à découvir les approches des uns et des autres. Merci à tous, c'est un vrai bonheur, et c'est pas fini... Quelques commentaires. Bred, Je suis toujours bluffé, non, vexé, que tu m'aies montré mon nez au milieu de ma figure. Didier, Je pense que l'expression (equal (apply '+ (pvectoriel (mapcar '- P2 P1) (mapcar '- P3 P4))) 0 1e-9), fort élégante au demeurant, n'est pas fiable pour évaluer si le vecteur est un vecteur nul. La somme des éléments de la liste peut être égale à 0 sans qu'ils soient forcément tous 0 Exemple avec : P1 (0 0 0) P2 (-1 0 -1) P3 (1 1 0) P4 (1 2 0) le produit vectoriel donne (1 0 -1) et l'expression retourne T alors que les droites sont perpendiculaires. Bonuscad, Le lien est très intéressant, on y trouve la méthode donnée par Didier avec le produit vectoriel et aussi une autre qui teste la "coplanéarité" de 4 points en utilsant astucieusement produit vectoriel et produit scalaire. J'y ai découvert qu'on pouvait calculer la surface d'un triangle avec le produit vectoriel. Lovecraft, Je persiste à dire que ton approche est très intéressante en ce sens qu'elle dispense d'étudier les projections des droites sur les 3 plans de référence. Tu n'est pas loin de l'aboutir, si tu as du mal, demande moi, je t'aiderais. Quant à la piste lancée par lecrabe (l'équation de la droite du plan y = Ax + B), elle s'avère encore plus laborieuse que celle qui consistait à comparer les angles des projections sur les plans de référence. Cela nécessite d'évaluer d'abord si les droites ne sont pas ce qu'on appelle en géométrie descriptive des droites particulières (perpendiculaires ou parallèles à un des plans de référence), parceque les coordonnées des points définissant ces droites entraineraient une division par 0 dans le calcul de la "pente" sur chacun des plans de référence.
-
Enfin un challenge pour lequel j'ai la réponse du premier coup, et sans papier ni ordi !
-
Très très intéressant, BRAVO :D Je vois encore 3 petits dysfonctionnements comme pour Didier, 1) ta routine tient compte du sens dans lequel sont donnés les points de chaque droite, il ne faudrait pas. Une droite du plan XY à 30° est parallèle à une autre à 210° Essaye avec les points donnés dans mon dernier message, les deux devraient retourner T. 2) il pourrait être utile de faire un test pour s'assurer que P1 n'est pas confondu avec P2, de même pur P3 et P4 afin d'éviter un message d'erreur du style : "; erreur: division par zéro" 2) comme le dit Didier, comparer des points 3d nécessite souvent une petite tolérance, il faut utiliser equal plutôt que eq avec un fuzz (regarde la routine que j'ai posté). Sinon, pour gagner quelques lignes : (and ...) retourne T si aucune des expressions évaluées n'a retourné nil, autrement nil. Tu n'as donc pas besoin de faire un (if ...) Encore BRAVO, une fois mis au propre, je pense que tu auras écrit la routine la plus concise de ce challenge.
-
Challenge : parallèles ?
lovecraft a répondu à un(e) sujet de (gile) dans Pour aller plus loin en LISP
bonjour le voici corrigé (defun parallel-p (P1 P2 P3 P4) (if(and (eq (angle P1 P2) (angle P3 P4)) (eq (/ (-(caddr P1) (caddr P2)) (distance P1 P2)) (/ (-(caddr P3) (caddr P4)) (distance P3 P4)))) T nil ) ) Normalement il fonctionne bien je viens de le tester sur autocad avec les exemples que tu as donner plus haut il compare l'angle donc le gisement et l'inclinaison soit la pente (ce qui confirme que les droites sont sur le meme plan. ert je pense que j'ai reussi le challenge car je n'utilise que les parametre que tu as defini dans l'ennoncé. @plus -
:mad: Pendant que je corrige, je ne peux pas faire le "challenge 4" C'est bien essayé tous les deux mais... Bred essaye avec (parallel-p '(-1 0 0) '(1 0 0) '(0 -1 1) '(0 1 1)) Patrick avec (parallel-p '(0 0 0) '(1 0 0) '(0 1 0) '(1 1 1)) Vos solutions ne fonctionnent pas si les droites ne sont pas coplanaires. PS : Bred, tu aurais pu faire directement (if (inters p1 p2 p3 p4 nil) nil T ) [Edité le 19/5/2007 par (gile)]
-
Challenge : parallèles ?
lovecraft a répondu à un(e) sujet de (gile) dans Pour aller plus loin en LISP
bonsoir, hem dis moi gile.... juste une p'tite idée si nous comparons juste le gisement des droites, cela suffit pour determiner si elles sont parralleles? donc pas besoin de faire des calculs interminables .... @plus Ps :je suis entain de plancher pour le challenge debutant ;) et merci pour les conseils qui m'aident à progresser. -
Salut, Je vais essayer de commenter/expliquer la routine test3. http://img205.imageshack.us/img205/5536/challengeup8.png Cette routine est un exercice de style qui utilise une forme récursive. À ceux qui ne savent rien de la récursivité, je recommande de lire d'abord ce sujet et cet exemple. (defun test3 (lst / sub) ... Comme toutes les routines de ce "challenge", test3 admet un argument : la liste dont il faut compter les éléments. Elle admet aussi une variable locale, la sous routine sub ; l'utilisation de la récursivité impose de définir un fonction (defun ...) pour pouvoir la rappeler. Déclarer la sous routine comme variable locale permet de remettre la variable sub à nil à la fin de l'exécution de test3 donc de libérer de la mémoire et d'éviter tout conflit avec une autre routine du même nom. La sous routine sub admet 2 arguments : la liste à traiter (lst) et un entier (n) qui servira à compter chaque occurence d'un même terme. Pour comprendre ce qui se passe ensuite dans la sous routine, je propose de prendre un exemple avec une liste plus courte mais significative et de faire un "pas à pas". (setq lst '("a" "c" "b" "c" "a")) Le premier appel à sub se situe dans test3 : (sub (vl-sort lst ' On peut le traduire : (sub '("a" "a" "b" "c" "c") 1) La première évaluation dans sub (if (cadr lst) ... est la condition d'arrêt si elle n'est pas remplie (si la liste ne comporte qu'un élément) Lors de ce premier appel, la condition est remplie, on passe à la deuxième évaluation : (if (equal (car lst) (cadr lst)) ... qui détermine si les deux premiers éléments sont identiques. Cette condition étant remplie, il se produit un nouvel appel à sub avec de nouveaux arguments (sub (cdr lst) (1+ n)) qu'on peut traduire : (sub '("a" "b" "c" "c") 2) Deuxième appel (sub '("a" "b" "c" "c") 2) : la première condition est remplie mais pas la seconde : le premier et le deuxième éléments de la liste sont différents. Il se produit un nouvel appel à sub sous une forme différente (cons (cons (car lst) n) (sub (cdr lst) 1)) qu'on peut traduire : (cons '("a" . 2) (sub '("b" "c" "c") 1)) Troisième appel (sub '("b" "c" "c") 1) : même chose que précédemment, (sub '("b" "c" "c")) retourne (cons '("b" . 1) (sub '("c" "c") 1)) on en est donc à : (cons '("a" . 2) (cons '("b" . 1) (sub '("c" "c") 1))) Le quatrième appel (sub '("c" "c") 1) retourne (sub '("c") 2) (cons '("a" . 2) (cons '("b" . 1) (sub '("c") 2))) Cinquième appel (sub '("c") 2) : la première condition n'est pas remplie, c'est la condition d'arrêt qui au lieu de faire un nouvel appel à sub, évalue (list (cons (car lst) n)), soit (list ("c" . 2)). On a donc au final une expression qui ne contient plus d'appel à sub : (cons '("a" . 2) (cons '("b" . 1) (list ("c" . 2)))) C'est la fin de la phase dite "d'empilement". L'évaluation de cette expression ("dépilement") retourne : (("a" . 2) ("b" . 1) ("c" . 2)) Voilà, j'espère ne pas avoir été trop confus. [Edité le 19/5/2007 par (gile)]
-
Comme on disait avant dans le jeu des chiffres et des lettres : "Pas mieux" bonne idée, ce challenge ; mon problème c'est que je me connecte tard et que les bonnes idées auront déjà été émises.
-
magnifique ! le challenge va être de le placer dans mes dessin maintenant... Chiche ?
-
Salut, vlax-curve-getClosestPointToProjection projette l'objet curve sur un plan défini par son vecteur normal (ici en gros c'est viewdir), calcule le point le de la courbe projetée le plus proche du point spécifié et re projette en sens inverse le point calculé sur la courbe. C'est un peu tordu mais c'est la solution qui semble le mieux marcher pour toutes les entités en 3D quelque soit la vue et le SCU courant. C'est le fruit d'un long challenge entre Bonuscad et moi pour trouver une alternative à (osnap pt "_near") et (vlax-curve-getClosestPointTo ent pt) qui bugguent avec les poly 2d (old style) contenant des arcs dans les SCU non parallèles au SCG. Une recherche avec vlax-curve-getClosestPointToProjection devrait permettre de retrouver le fil de ces dicussions (cette fonction est assez peu utilisée). J'ai retrouvé, ça commence ici et ça continue là. La routine de BonusCAD "near_vertex" (plus élaborée que la mienne) est ici. [Edité le 29/3/2007 par (gile)]
-
Hello à tous Un nouveau challenge pour mes experts préférés ! J'ai trois blocs avec attributs ds mon plan, lies avec latt à d'autres blocs identiques. J 'ai déplace le tableau expres pour l'image, le rectangle en pointillé est ma selection de droite à gauche, j'ai biensur essaye aussi de double-clique dessus et la selection de gauche à droite, avant de vous écrire. IMPOSSIBLE DE LES SELECTIONNER pour les modifier ou les supprimer ! PS: Pas de calques verrouillés et autres joyeusetés Merci d'avance de votre aide çà urge en plus ! PS2: En fait la seule chose qui soit arrivé a ce fichier c"est qu'il a été enregistré en Autocad 2000, http://img259.imageshack.us/img259/7844/sanstitrepi8.png' alt='sanstitrepi8.png'> [Edité le 12/3/2007 par esbe]
-
Bonjour à tous, Steven, Patrick05, Désolé pour le temps de ma réponse mais je n'été pas au bureau... Concernant mon "challenge" on peut effectivement appliquer vos deux méthodes, je dirais même qu'on peut faire glisser un mur dans la palette d'outil pour après dessiner avec le mur ainsi défini. (cette opération étant valable avec tous les types d'objets.). Mon besoin est un peu différent. Je recupère des plans 2D que je dois élever. L'idée est justement de NE PAS mesurer chaque épaisseur de mur mais plustôt de les selectionner à la volée. Ensuite comme le suggere Patrick05 on le replace au bon Z puis on les raccordent. Je pense qu'avec cette méthode le gain de temps serait prodigieux. @++ :)
-
Ok pour les matrices! mais encore un challenge comment faire pour "inverser" une matrice X1 Y1 Z1 X2 Y2 Z2 X3 Y3 Z3 en une matrice dont les valeurs seront X1 X2 X3 Y1 Y2 Y3 Z1 Z2 Z3 ceci utile pour l'utilisation DCL (en vérité c'est plus pour une inversion du même genre sur des tableau 2D à nb1 rangée et nb2 colonne) ce n'est rien que pour te compliquer la vie :D Maximilien taquin! :D [Edité le 30/11/2006 par Maximilien]
-
Bonjour, mon patron m'a donné encore un new challenge : il voudrait que je lui fasse la carte du monde en relief , c'est a dire les océans "creux" et les terres en relief...voilà voilà.. est ce que je peux récupérer la carte à plat, carte que l'on peut trouver de partout, et la "bomber" pour en faire une sphère ?? ou bien est ce que quelqu'un a une autre idée ? merci
-
salut ahotep, le problème est que la carte 2D ne ressemble pas du tout à la réalité ! les continents sont compl-tètement déformés, notamment les zones polaires. en gros, tu ne peux en aucun cas partir du 2D , à moins de faire quelque chose de très approximatif... moralité : demandes à ton patron un autre challenge ou de jouer avec google earth ou l'ign, parceque là ça risque d'être vraiment difficile, à moins d'avoir une base d'information importante (relevés topographique) et beaucoup de temps (sur Catia en plus arf.. :o
-
hi, only im seaching too andustand this version,because all tinks its in english,when i find a book french or a help french no more question,ok my friend i work olso for our challenge and lotof time im on the phon to india province kirla to keep the final solution juste wait my bee we open this compliqued grid see u sorry if i disturb u :)
-
Le Décapode vous salue et vous livre une version longue de la fameuse histoire du Poulet qui traverse la Route !!! La Question : Pourquoi le poulet a-t-il traversé la route ? UN PROFESSEUR : Pour aller de l'autre côté. PLATON : Pour son bien. ARISTOTE : C'est dans la nature du poulet de traverser les routes. KARL MARX : C'était historiquement inévitable. MARC BLONDEL : Parce que c'est le seul trajet que son entreprise lui accordait de prendre. CAPITAINE JAMES T. KIRK : Pour aller là où aucun autre poulet n'était allé auparavant. HIPPOCRATE : A cause d'un excès de sécrétion de son pancréas. ANDERSEN CONSULTING : Deregulation of the chicken's side of the road was threatening its dominant market position. The chicken was faced with significant challenges to create and develop the competencies required for the newly competitive market. Andersen Consulting, in a partnering relationship with the client, helped the chicken by rethinking its physical distribution strategy and implementation processes. Using the Poultry Integration Model (PIM), Andersen helped the chicken use its skills, methodologies, knowledge, capital and experiences to align the chicken's people, processes and technology in support of its overall strategy within a Program Management framework. Andersen Consulting convened a diverse cross-spectrum of road analysts and best chickens along with Andersen consultants with deep skills in the transportation industry to engage in a two-day itinerary of meetings in order to leverage their personal nowledge capital, both tacit and explicit, and to enable them to synergize with each other in order to achieve the implicit goals of delivering and successfully architecting and implementing an enterprise-wide value framework accross the continuum of poultry cross-median processes. The meeting was held in a park-like setting, enabling and creating an impactful environment wich was strategically based, industry-focused, and built upon a consistent, clear, and unified market message and aligned with the chicken's misson, vision, and core value. This was conductive towards the creation of a total business integration solution. Andersen Consulting helped the chicken change to become more successful. MARTIN LUTHER KING JR. J'ai la vision d'un monde où tous les poulets seraient libres de traverser la route sans avoir à justifier leur acte. MOISE : Et Dieu descendit du Paradis et Il dit au poulet : "Tu dois traverser la route". Et le poulet traversa la route et il jubila. RICHARD M. NIXON : Le poulet n'a pas traversé la route. Je répète, le poulet N'A PAS traversé la route MACHIAVEL : L'élément important c'est que le poulet a traversé la route. Qui se fiche de savoir pourquoi ? La fin en soi de traverser la route justifie tout motif qu'il soit. FREUD : Le fait que vous vous préoccupiez du fait que le poulet a traversé la route révèle votre sentiment d'insécurité sexuelle. BILL GATES : Je viens juste de mettre au point le nouveau Poulet Office 2000, qui ne se contentera pas de traverser les routes, mais couvera aussi des oeufs, classera vos dossiers important, et... OLIVER STONE : La question n'est pas "Pourquoi le poulet a-t-il traverse la route ?", mais plutôt "Qui a traverse en même temps que le poulet, qui avons nous oublié dans notre hâte et qui a pu observer le poulet ?" DARWIN : Les poulets, au travers de longues périodes, ont été naturellement sélectionnés de telle sorte qu'ils soient génétiquement enclins à traverser les routes. EINSTEIN : Le fait que ce soit le poulet qui traverse la route ou que ce soit la route qui se meuve sous le poulet dépend uniquement de votre référentiel. BOUDDHA : Poser cette question revient à renier votre propre nature de poulet. ERNEST HEMINGWAY : Pour mourir. Sous la pluie. CLINTON : Je n'ai eu aucune relation sexuelle avec ce poulet ! RAMBO : J'en ai raté un ? JEAN-PIERRE COFFE : Un poulet même pas fermier, mais c'est de la merde !!! CHARLES PASQUA : Il avait pas ses papiers ce poulet. ISAAC ASIMOV: La troisième loi des Poulets stipule qu'un poulet doit protéger sa propre existence sauf si cette protection le force à désobéir à un ordre humain ou à blesser un humain. CONFUCIUS: Le poulet qui d'abord regarde des deux côtés, vivra assez pour voir une autre journée. MURPHY: Le poulet traversera systématiquement la route au plus mauvais moment. WILLIAM SHAKESPEARE: Traverser ou ne pas traverser... La est la question. FILIP, ADEL & FRANCK : Parce qu'il faut partir un jour... LIONEL JOSPIN (1): Le poulet n'a pas encore traversé la route, mais le gouvernement y travaille. LIONEL JOSPIN (2): Ne le répétez pas, mais c'est grâce à nous que le poulet a traversé la route. CHARLES DE GAULLE (1): Le poulet a peut être traversé la route, mais il n'a pas encore traversé l'autoroute! CHARLES DE GAULLE (2): Les français sont des poulets qui traversent les routes. JACUES CHIRAC: Parce que je n'ai pas encore dissout la route. PHILIPPE SEGUIN: Il n'arrivera jamais à traverser la route. FRANCOIS MITTERAND: Les imbéciles ! Ils ont traversé la route et se sont fait écraser comme j'avais prévu. JACQUES CALVET: Pour respirer le parfum du gazole. JEAN TIBERI (1): Parce qu'il a dû rendre sa place en HLM. JEAN TIBERI (2): Même lui, il m'a lâché XAVIERE TIBERI: Pour écrire un rapport sur les routes. L'EGLISE DE SCIENTOLOGIE: La raison est en vous, mais vous ne le saviez pas. Moyennant la modique somme de 100 000 F par séance, plus la location d'un détecteur de mensonges, une analyse psychologique nous permettra de la découvrir. LES TEMOINS DE JEHOVAH: Parce que la fin du monde aura bientôt lieu de son côté. VIM DUISENBERG: Bientôt, ce n'est plus un poulet qui traversera la route, mais 0.7698645 EuroPoulets. UN INGENIEUR DE MERCEDES-BENZ: Nous utilisons des poulets pour nos tests, car ils sont moins chers que les élans. UN PILOTE D'AIR FRANCE: Il voulait prendre l'avion, lui aussi ? ARLETTE LAGUILLER: Poulets, poulettes, ne vous laissez plus spolier par le patronat qui vous oblige à traverser les routes. ALAIN MADELIN: Parce que c'est la loi du marché. JEAN-PIERRE CHEVENEMENT: Parce qu'il n'avait pas de titre de séjour. BORIS ELTSINE: Parce que qu'il y a de la vodka de l'autre côté. FRANCIS BOUYGUES: Il fallait bien justifier la construction de cette route à péage. ALAIN JUPPE: J'ai pas fait Normale Sup et l'ENA pour me soucier de ces abrutis de poulets qui traversent les routes sans raison. RICHARD VIRENQUE C'était pas un lapin ? On m'aurait menti ? JEAN ALESI: Je comprends pas, théoriquement, le poulet il avait le temps de passer. CANTONA: Le poulet, c'est un homme libre, les routes, quand il veut il les traverse. NELSON MONTFORT: J'ai à côté de moi l'extraordinaire poulet qui a réussi le formidable exploit de traverser cette superbe route : Why did you cross the road ? "cot ! cot !" eh bien il dit qu'il est extrêmement fier d'avoir réussi ce challenge, ce défi, cet exploit. C'était une traversée très dure, mais il s'est accroché, et.... FOOTIX et JULES: On a traversé la route parce que personne ne nous aime. AIME JACQUET: Ouaih, je leur ai fait traverser la route ! Qu'est-ce que t'y connais aux poulets, toi FRANCOIS LERAY: Bon, écoute, le poulet, te loupe plus, ou je t'envoie chez Melle Brun ! PATRICK BRUEL: Pour casser la voie. :D :)
-
Totalement d'accord avec toi Tramber :cool: Tout d'abord, ce n'est pas une affaire de politiciens car la demande vient d'en bas et de la prise de conscience qu'on les gens par rapport à tout ce que l'on peut voir et entendre au sujet de l'environnement. Ce seraient plutôt à eux d'insufler de manière plus énergique cette demande et ce futur besoin qu'auront les populations dans les décennies à venir. deuxièmement: encore heureux que les solutions affluent dans ce domaine, cela prouve que c'est un secteur énergique et vivant; nous n'en sommes qu'au début et forcément il y aura des erreurs;" y'a qu'en faisant des erreurs qu'on apprend" me disait toujours mon père ! Troisièmement: il n'y a rien de fixer dans ce domaine et alors, on reste les bras croisés à rien faire et on attend que ça se passe ?? Certainement pas ! il faut des gens et des volontés pour faire bouger les choses. Ce n'est pas anodin si j'ai posté ce sujet, car je me pose la question de me lancer dans cette filière; à voir l'étendue de ce domaine, ce sera un gros challenge pour moi, mais je crois dur comme fer que cette filière est en phase de devenir un secteur majeur et incontournable. Pour revenir au sujet initial Tramber, j'ai fait pas mal de recherches sur la toile et voici 2 adresses de site intéressant: http:// http://www.reseau-tee.net/index.html une foule énorme de liens sur les métiers, formations et pleins pleins d'autres info http://www.cler.org/info/sommaire.php3 le site du Comité de Liaisons Energies Renouvelables: beaucoup d'infos aussi sur les formations et métiers, informations sur les énergies, etc.... Bonne lecture ! Amicalement Gawel
-
Salut, Je ne suis pas sur que CATIA et Pro/E soient plus utilisés que SW... Même si on ajoute le nombres de licences des deux... Pour info, Pro/E n'est plus beaucoup diffusé, je ne sais, car j'étais très, très proche de PTC et du distributeur européen, puisque je travaillais encore pour eux il y a quelques semaines. Maintenant, je vends de l'Autodesk et Inventor plus particulièrement, et bien il s'en vend entre 4 et 5 fois plus que de Pro/E (toutes versions). En plus, même la Wilfdire est très compliquée à utiliser, on est loin de SW et très loin d'Inventor. Pour une conception de base (voir le challenge JUGEZ SUR PIECES) il faut beaucoup plus de temps sur Widfire (CATIA à décliné, c'est dire) que sur les autres... A toi de voir. Je suis sur Bagnolet, on pourrait peut être se rencontrer pour parler de tout ça? @+
-
Bonjour à toutes et tous... Bon, j'ai un problème. Je voudrais créer des liens qui vont de Autocad vers Word et inversement. Possibilité d'affichage de fenêtres ou de tableaux word dans le document autocad. Possibilité de lien entre le texte autocad et texte word. Possibilté de faire clignoter le texte dans autocad. Je crois que c'est un sacré challenge. Déjà, si vous pouvez répondre à ces quelques questions je vous remercierais déjà beaucoup. Merci d'avance... :-)
-
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
-
Gestion des presentations PAPIER
Patrick_35 a répondu à un(e) sujet de ribbit dans AutoCAD 2000 à 2002
Salut CoolMan Ton lisp est intéressant, mais il ne fonctionne pas chez moi (pour une 2000) avec la fonction ins et en regardant comment tu as fait ton prog, j'ai remarqué aussi une fonction ListeBox que je ne connais pas (peut-être des fonctions que tu as développées pour ton espace de travail) Mais ce n'est pas le but principal de mon post, je me suis penché comme toi sur une manière de gérer correctement les présentations. Les faire afficher selon une sélection, aucun soucis, les imprimer depuis la sélection ne devrait normalement pas poser de problème, mais en supprimer, renommer ou encore en créer, voilà un challenge intéressant. Je pense que la solution est en visual lisp, mais je sèche pour l'instant. Si tu as déjà fait quelque chose dans ce sens. @+ -
Bonjour En effet voila un challenge "intéressant", reconstruire une belle polyligne 3D qui sera en fait le contour 3D extérieur d'un ensemble de 3D Faces indépendantes ... Cela me laisse rêveur" car il y a plein de cas particuliers "à traiter" !!! Par exemple, si l'ensemble de 3D Faces "se replie" sur elle même ou se croisent dans l'espace, ce qui n'arrivera jamais "en principe" !!! Sinon ce n'est plus une route mais un anneau de Moebius "peut être" ! Byebye
-
rahhhh! envoie un dwg exemple, qu'on s'y frotte :casstet: si tu veux mon emai >> message privé. en voilà un challenge intéresssant à relever :P j'ai le clavier qui frétille, mais il ne faut pas se faire trop d'illusions amicalement
