mdsv31

40000 membres 93 donnateurs, pas terrible le ratio (0.2325%)

Bon, j'ai télécharger le fichier, et j'ai ouvert Autocad 2008 lancer le rendu sans rien changer dans les options, et j'ai eu une belle image de rendu http://www.mdesousa.info/CadXP/thierry-garre.jpeg Pour plus d'info: L'installation est toute fraiche (moins d'une semaine) et jamais utiliser les rendu. Donc le rendu ci dessus est fait avec les parametres par defaut d'autocad. Sans rien toucher au dessin même pas un simple clic. C'est du direct ouvrir et rendu. @+ mdsv31 ps:moins de 2mn chrono [Edité le 15/11/2007 par mdsv31]

Bon voila de nouveau le chieur. La le code marche, mais (et ou il y a un mais sinon je ne serai pas le chieur de service) lorsque que je lance le code il me créé un nouveau fichier à chaque fois que je lance le programme. La je ne comprend pas d'ou cela vient. @+ MDSV31 J'avais oublié il me mais un message avec "Entrée incorrecte" et comme seul choix OK ou Aide si je clic dans Aide rien ne ce passe et si je clique sur OK, j'ai un nouveau fichier avec un bloc avec la reservation. PS: j'ai changer le nom du bloc avec celui de la section circulaire et il marche maintenant jusqu'au même moment qu'avec le bloc rectangulaire. Sinon beau travail. [Edité le 1/11/2007 par mdsv31]

Bon j'ai bien telechargé le bloc. Je l'ai mis dans un répertoire que totocad connais. Mais j'ai toujours un gentil message qui me dit de te faire un ptit coucou que cela ne marche pas. La je ne sais plus quoi faire car avec la gestion des erreurs que tu as mis dans le code, je ne vois pas d'ou peut provenir le bloquage. @+ MDSV31 Ps: sinon dans l'ensemble j'ai a peu pret compris le principe. beau travail

Bon une ptit question sechanbask, lorsque je lance ton code il ne me dessine rien et il me dit qu'une erreure est survenue et qu'il faut que je te contact. Mais il me dit pas d'ou vient l'erreur. Je fais comment pour savoir ou cela bloque. @+ MDSV31

Non, on n'est pas obligé de retaper tout le code, on peut faire des sous-programmes ou des fonction que l'on appelle selon le resultat. @+ MDSV31

:( Dommage j'y serai le 9 en matinée @+ MDSV31

Bon voici un code avec tirage au sort de la carte gagnant et inscription des donner dans la polyligne en xdata Declaration des variables 'definition des variables pour les 3 cartes (le 0 compte aussi) Dim carte(2) As AcadLWPolyline 'definition des points nécesssaires à la polyligne 4 sommets avec x et y pour chacun soit 8 valeurs en double précision Dim pt(0 To 15) As Double 'definition de la variable pour la largeur Dim largeur As Double ' definition de la variable pour la hauteur Dim hauteur As Double ' definition d' une varariable entier pour une boucle Dim fois As Integer ' definition d' une varariable entier pour l 'écart séparant 2 cartes Dim dep As Double ' definition d'une variable pour le chanfrein de la carte Dim ray As Double ' definition de la carte gagnante Dim tirage As Integer ' definition des reference xdata Dim datatype(0 To 1) As Integer Dim data(0 To 1) As Variant Fonction de tirage au sort Public Function tirage_au_sort(upperbound, lowerbound) Randomize tirage_au_sort = Int((upperbound - lowerbound + 1) * Rnd + lowerbound) End Function Fonction de convertion d'angle degre en radian Public Function DenR(angle) DenR = (angle * 3.14159265358979) / 180 End Function Et enfin le code du programme Public Sub bonneteau_1() 'valoriser les 3 paramètres de dimension et placement largeur = InputBox("Quelle est la largeur de la carte") hauteur = largeur * 2 dep = largeur * 2 ray = largeur * 0.1 tirage = tirage_au_sort(3, 1) 'création des cartes avec une boucle '3 tours For fois = 0 To 2 'point d' origine au tour suivant le placement du point d 'origine est augmenté de la variable de placement pt(0) = 0 + (dep * fois) + ray: pt(1) = 0 pt(2) = pt(0) + largeur - 2 * ray: pt(3) = pt(1) pt(4) = pt(2) + ray: pt(5) = pt(3) + ray pt(6) = pt(4): pt(7) = pt(3) + hauteur - ray pt(8) = pt(2): pt(9) = pt(3) + hauteur pt(10) = pt(0): pt(11) = pt(9) pt(12) = pt(0) - ray: pt(13) = pt(7) pt(14) = pt(12): pt(15) = pt(1) + ray 'creation de la carte proprement dit avec une polyligne 2d Set carte(fois) = ThisDrawing.ModelSpace.AddLightWeightPolyline(pt) 'propriété qui permet de fermer la polyligne sur son premier point carte(fois).Closed = True 'propriété qui permet d'avoir des coins arrondis For fois2 = 1 To 7 Step 2 carte(fois).SetBulge fois2, Tan(DenR(22.5)) Next fois2 Select Case tirage Case fois datatype(0) = 1001: data(0) = "jeu de carte" datatype(1) = 1002: data(1) = "gagner" Case Else datatype(0) = 1001: data(0) = "Jeu de carte" datatype(1) = 1002: data(1) = "Perdu" End Select carte(fois).SetXData datatype, data Next fois ThisDrawing.Application.ZoomExtents End Sub Bon je vous laisse chercher un peu pour trouver une methode pour selectionner la carte. @+ MDSV31 PS: Je n'est toujours pas mis de symbole pour les cartes [Edité le 29/10/2007 par mdsv31]

sechanbask Pour la suite j'ai un p'tit probléme, je ne trouve pas d'info sur la fonction RDN. Si tu as un exemple, je veux bien regarder ça. Sinon je penser utiliser les XDATA pour mettre les informations de la carte comme cela il ne reste plus qu'à selectionner la carte et lire la XDATA pour savoir si c'est la bonne carte. Cela évite que les personne triche en regardant les calques pour savoir si c'est la bonne carte. @+ MDSV31

Bon pour les cartes, le mieux pour commencer c'est d'y mettre une forme un carre pour la bonne carte un cercle pour les nauvaises @+ MDSv31

Fonction qui permet de convertir degre en radia Public Function DenR(angle) Pi = 4 * Atn(1) DenR = (angle * Pi) / 180 End Function Et le code pour dessiner les cartes avec un zoom etendu à la fin (en gras) Public Sub bonneteau_1() 'valoriser les 3 paramètres de dimension et placement largeur = InputBox("Quelle est la largeur de la carte") hauteur = largeur * 2 dep = largeur * 2 ray = largeur * 0.1 'création des cartes avec une boucle '3 tours For fois = 0 To 2 'point d' origine au tour suivant le placement du point d 'origine est augmenté de la variable de placement pt(0) = 0 + (dep * fois) + ray: pt(1) = 0 pt(2) = pt(0) + largeur - 2 * ray: pt(3) = pt(1) pt(4) = pt(2) + ray: pt(5) = pt(3) + ray pt(6) = pt(4): pt(7) = pt(3) + hauteur - ray pt(8) = pt(2): pt(9) = pt(3) + hauteur pt(10) = pt(0): pt(11) = pt(9) pt(12) = pt(0) - ray: pt(13) = pt(7) pt(14) = pt(12): pt(15) = pt(1) + ray 'creation de la carte proprement dit avec une polyligne 2d Set carte(fois) = ThisDrawing.ModelSpace.AddLightWeightPolyline(pt) 'propriété qui permet de fermer la polyligne sur son premier point carte(fois).Closed = True 'propriété qui permet d'avoir des coins arrondis For fois2 = 1 To 7 Step 2 carte(fois).SetBulge fois2, Tan(DenR(22.5)) Next fois2 Next fois [b] ThisDrawing.Application.ZoomExtents [/b] End Sub @+ MDSV31 Ps: Bon pour l'erreur de largeur c'est rectifié Ps2:Merci nazemrap pour les commentaire et pour la boite de dialogue Pi modifier merci sechanbask [Edité le 25/10/2007 par mdsv31]

Bon voici un code pour des cartes avec les coins arrondis 'definition des variables pour les 3 cartes (le 0 compte aussi) Dim carte(2) As AcadLWPolyline 'definition des points nécesssaires à la polyligne 4 sommets avec x et y pour chacun soit 8 valeurs en double précision Dim pt(0 To 15) As Double 'definition de la variable pour la largeur Dim largeur As Double ' definition de la variable pour la hauteur Dim hauteur As Double ' definition d' une varariable entier pour une boucle Dim fois As Integer ' definition d' une varariable entier pour l 'écart séparant 2 cartes Dim dep As Double ' definition d'une variable pour le chanfrein de la carte Dim ray As Double Public Sub bonneteau_1() 'valoriser les 3 paramètres de dimension et placement largeur = 10 hauteur = largeur * 2 dep = largeur * 2 ray = largeur * 0.1 fois = 0 'création des cartes avec une boucle '3 tours For fois = 0 To 2 'point d' origine au tour suivant le placement du point d 'origine est augmenté de la variable de placement pt(0) = 0 + (dep * fois) + ray: pt(1) = 0 pt(2) = pt(0) + largeur - ray: pt(3) = pt(1) pt(4) = pt(2) + ray: pt(5) = pt(3) + ray pt(6) = pt(4): pt(7) = pt(3) + hauteur - ray pt(8) = pt(2): pt(9) = pt(3) + hauteur pt(10) = pt(0): pt(11) = pt(9) pt(12) = pt(0) - ray: pt(13) = pt(7) pt(14) = pt(12): pt(15) = pt(1) + ray 'creation de la carte proprement dit avec une polyligne 2d Set carte(fois) = ThisDrawing.ModelSpace.AddLightWeightPolyline(pt) 'propriété qui permet de fermer la polyligne sur son premier point carte(fois).Closed = True 'propriété qui permet d'avoir des coins arrondis carte(fois).SetBulge 1, Tan(22.5 * 3.14159 / 180) carte(fois).SetBulge 3, Tan(22.5 * 3.14159 / 180) carte(fois).SetBulge 5, Tan(22.5 * 3.14159 / 180) carte(fois).SetBulge 7, Tan(22.5 * 3.14159 / 180) Next End Sub Bon j'ai pas pu mieux faire. @+ MDSV31

En standard non, avec lt Extender oui. Mais attention il ne marche pas tous. @+ MDSV31 PS: pour utiliser le vba sous lt il y a Cadaware LT Extension kit http://www.cadaware.com/

Bon d'accord, j'ai commandé un nouveau cerveau pour noêl. J'espere qu'il sera plus efficasse que celui d'origine. Désolé. @+ MDSV31 PS: GETCORNER permet de faire des rectangles en lisp il n'y a pas d'equivalent en VBA?

'quatrième point en revenant au dessus du premier pt(6) = pt(4) - largeur: pt(7) = pt(5) ne sert à rien car tu demande de clore la polyligne à la fin 'propriété qui permet de fermer la polyligne sur son premier point carte(fois).Closed = True C'est tous ce que j'ai pu remarquer. @+ MDSV31

Bon j'avais pas vue passer le poste mais si tu as d'autre challenge dans le meme genre alors, je veux bien essayer de participer. @+ MDSV31 PS: code bien documenté, jamais vue avant.

Pas besoin de macro sous microstation Menu Utilitaire --> Convertisseur par lot Et dans la case format de sortie du choisi DWG Dans la case du dessous le repertoire ou tu veux les mettres Et ensuite quatrieme icones pour selectionner le repertoire ou les fichiers a convertire Et pour finir sixième icones pour lancer l'operation. Apres si tu as beaucoup de fichier tu peux aller boire un café et faire une sieste. @+ MDSV31 PS: si tu as des problémes et que tu n'y arrive pas voici mon mail i_n_f_o_@_m_d_e_s_o_u_s_a_._i_n_f_o_ Attention enlever tous les _ [Edité le 20/10/2007 par mdsv31]

petite question Lar est une distance (une variable numérique) Si oui alors il ne faut pas les " " dans ta condition. ( Lar <> 740) @+ MDSV31

Une reservation horizontal, c'est un trou dans un plancher ou une dalle Ex: une trémie d'escalier Ah oui, une trémie c'est une réservation horizontal @+ MDSV31 PS: italique = humour

commande CHARMNU et tu retrouve l'ancienne fenetre pour charger les menu @+ MDSV31

Quand elles sont trop petit je la dessine 10 ou 100 fois plus grosse et je les réduit en avec les facteurs geometrie echelle des propriete @+ MDSV31

J'ai le même pour les réservations dans les voiles Si tu veux tu demande et si t'en as même pas finis, je prend qui a te les renvoyer une fois modifié. @+ MDSV31

Voila le bloc que j'utilise pour les plan en cm http://www.mdesousa.info/CadXP/tremie.dwg @+ MDSV31

Attention LT-EXTENDER ne marche pas sur LT2008 si on lui a ajouter le SP1 @+ MDSV31

Regarde si par hazard, le charriot est bien a sa place. Sur un Hp500 on avais une erreur lors du démarage a cause du charriot qui avait bouger pendant le transport. @+ MDSV31