nazemrap

Bonjour, S'agit-il de solutionner la proposition affichée, ou bien de proposer des lignes perso ?

Bonjour, Tu as oublié un "e" à ta variable objMtexte dernière ligne !!

Bonjour, je n 'ai peut-être pas bien compris le besoin, mais est-ce qu 'il ne serait pas plus valable de tracer une polyligne sur EP et la convertir en fenêtre flottante avec la commande FU > Objet ? Il est ensuite facile de la modifier.

Bonjour, Pour le 1 et le 3 je ne sais pas, mais je ne suis pas un pro. pour le 2, je pense qu' il s'agit des boites de dialogue ? Alors dans ce cas, il est facile d' intégrer des graphismes. Voici un exemple de schéma illustrant la saisie des paramètres pour un assemblage. http://www.premiumwanadoo.com/technaulogis/cadxp/userform.jpg

Bonjour, La commande (variable) "cadreimage" te permet de permet de ré-afficher le cadre.

Bonsoir, La question est dans le titre. Est-ce que quelqu' un pourrait m 'éclairer quant à la possibilité de faire tourner ces 2 la ensemble!? J 'ai réussi à voir Objectarx dans VB C++ express mais impossible de créer un projet (erreur). Merci

Re, voici le code. Il n utilise que des "inputbox" pour les paramètres, mais cela peut_être mis dans un formulaire. Il positionne le panneau horizontalement en mm depuis le point 0,0 Je suis peut-être passé à côté de ton besoin. Il est perfectible suivant nécessité. Retours et remarques souhaitées ici. 'NAZEMRAP '8 Avril 2004 'perçage de panneaux Dim longueur As Double Dim largeur As Double Dim poshb As Double Dim pospar As Double Dim ecart As Double Dim rec As AcadLWPolyline Dim pt_rec(0 To 7) As Double Dim trou As AcadCircle Dim rayon As Double Dim centre(0 To 2) As Double Dim posdep As Double Dim nbcol As Integer Dim reseau As Variant Public Sub perçage_panneau() longueur = InputBox("Longueur du panneau") largeur = InputBox("largeur du panneau") poshb = InputBox("Distance minimum à respecter en haut et en bas du panneau") pospar = InputBox("Distance du perçage par rapport au bord de référence") rayon = InputBox("Rayon du perçage ") ecart = 256 pt_rec(0) = 0: pt_rec(1) = 0 pt_rec(2) = longueur: pt_rec(3) = 0 pt_rec(4) = longueur: pt_rec(5) = largeur pt_rec(6) = 0: pt_rec(7) = largeur Set rec = ThisDrawing.ModelSpace.AddLightWeightPolyline(pt_rec) rec.Closed = True 'calcule la position de départ posdep = (longueur - (2 * poshb)) nbcol = Int(posdep / 32) posdep = ((longueur) - (nbcol * 32)) / 2 centre(0) = posdep: centre(1) = pospar: centre(2) = 0 Set trou = ThisDrawing.ModelSpace.AddCircle(centre, rayon) reseau = trou.ArrayRectangular(2, nbcol + 1, 1, ecart, 32, 1) End Sub

Bonjour, je viens de tester un petit vba à la place d' un bloc dyn, est-ce que cela t 'intéresse ?

Bonjour, Je voulais dire que je ne pouvais pas faire des cours, mes compétences en vba sont de toutes façon trop limitées. En dehors des réponses ponctuelles, je vois plutôt ce forum (ça n'engage que moi) comme un grand panier dans lequel chacun apporte ce qu' il peut et ce qu' il souhaite pour faire en sorte que chacun en retire ce dont il a besoin.( la signature DE >> A) J 'espère que cela durera. Chacun construit ainsi son propre parcours. Le summum est d 'arriver à déclencher des envies, des besoins, des questions, des projets.... Ce que je regrette parfois de ne pas connaître ce que deviennent les infos ? A quoi conduisent-elles ? C' est une simple auto-interrogation !

Bonjour, Si il s'agit d'un AcadMtext il faut passer par la propriété "Attachmentpoint" pour un AcadText c' est la propriété"Alignment" Les exemples sont visibles dans l 'aide En voici un pour Mtext Sub Example_AddMtext() Dim MTextObj As AcadMText Dim corner(0 To 2) As Double Dim width As Double Dim text As String corner(0) = 0#: corner(1) = 10#: corner(2) = 0# width = 10 text = "Texte traduit" ' Créer un objet Mtexte Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text) 'Demande à le mettre au milieu au centre (du paragraphe) MTextObj.AttachmentPoint = acAttachmentPointMiddleCenter ZoomAll End Sub [Edité le 25/3/2008 par nazemrap]

Bonjour à toutes et à tous, (je verserai des droits à Lili2006 pour le salut) Didier: Belle initiative cette rubrique. Normalement le lien aboutit ici, avec la possibilité de télécharger. http://www.premiumwanadoo.com/technaulogis/cadxp/mes_puzzle_01.jpg En ce qui concerne mes capacités en vba, la signature de (gile) me convient tout à fait. (Je verserai également des droits à (gile))

Bonjour à toutes et à tous, Cette formule me plait bien. Salut Lili2006. Heureusement que tu es là ! J 'avais anticipé une utilisation pour tes enfants. Pour le golf, je sèche sur le green, mais je ne désespère pas.Je rêve de le faire en 3 d alors....

Bonsoir, Il s 'agit donc d' un puzzle paramétrable en nombre de pièces horizontales et verticales, ce qui donne des niveaux de jeux. N 'allez toutefois pas au delà de 10 x 10 sinon ça va ramer, quoique... C 'est un fichier compressé qui contient le module puzzle.dvb et l 'image puzzle_01.jpg, qu 'il faudra mettre à la racine C: Sinon, vous devrez adapter le code. Vous pourrez bien sûr changer l 'image qui devra être de 234 sur 234 en pixels. Quel est le challenge ? Cela ne génère que des pièces rectangulaires, j 'aimerais avoir des vraies pièces de puzzle. Dans le code, il y a les prémisses de cette construction.... Avis aux amateurs. Je n 'ai pas testé très profondément, retour souhaité ici. télécharger ici [Edité le 21/3/2008 par nazemrap]

Bonjour, Sans doute n 'as-tu pas créé le classeur demandé à l 'endroit souhaité. En effet, dans le cas présent, le classeur doit exister.

Hello, je ne veux pas interpréter le code fourni par Speedy, mais cette avant dernière ligne: 'ThisDrawing.SelectionSets.Item("ac").Delete est marquée comme un commentaire donc pas exécutée. Or elle est censé "détruire" la sélection créée en haut. Ceci n 'ayant pas été fait, à la nouvelle exécution du code, le jeu de sélection existant déjà, un message d 'erreur est généré.

Hello, ça c 'est le debogage, est-ce un message comme ça ? http://www.premiumwanadoo.com/technaulogis/cadxp/msg_err_01.jpg

Bonjour à tous, Je me suis pris pour Eole. Voici les lignes de code à rajouter 1 dans la partie déclaration des variables en haut du Module1 '------------- Public sens_du_vent As Double Public symb_vent As AcadLine Public symb_fleche_vent As AcadLine Public texte_vent As AcadText Public ctrl_vent As Boolean Public beaufort As Integer 2 après l 'appel au formulaire 'appel le formulaire REGLAGE.Show [surligneur] 'demande la force du vent beaufort = InputBox("Quelle est la force du vent ( 0 à 20)")[/surligneur] 3 la proc pour le vent à mettre en fin de Module1 Public Sub vent() Dim pt1(0 To 2) As Double Dim vent_vu As Double Dim texte_chaine As String Dim texte_hauteur As Double texte_chaine = "sens du vent" texte_hauteur = 10 Set texte_vent = ThisDrawing.ModelSpace.AddText(texte_chaine, pt0, texte_hauteur) 'sens du vent aleatoire sens_du_vent = (Int(360 * Rnd + 1)) * (3.141589 / 180) 'en radians vent_vu = sens_du_vent + (180 * (3.141589 / 180)) pt1(0) = pt0(0) + 100: pt1(1) = pt0(1): pt1(2) = pt0(2) Set symb_vent = ThisDrawing.ModelSpace.AddLine(pt0, pt1) pt1(0) = pt0(0) + 30: pt1(1) = pt0(1) + 10: pt1(2) = pt0(2) Set symb_fleche_vent = ThisDrawing.ModelSpace.AddLine(pt0, pt1) symb_vent.Rotate pt0, vent_vu symb_fleche_vent.Rotate pt0, vent_vu symb_vent.color = acRed symb_fleche_vent.color = acRed texte_vent.Rotate pt0, vent_vu texte_vent.color = acRed End Sub Il ya une inputbox qui demande la force du vent. C'est pas terrible m' enfin, ça complique un peu. La force du vent peut être augmentée au dela des valeurs. Le nouveau formulaire ici [Edité le 14/2/2008 par nazemrap]

Bonjour, Super !!! Lili2006 là tu exagères je vais passer pour un ostentateur (si si ça existe). Merci bien. J' ai envie d' une prochaine étape, pour corser l 'affaire: avoir un vent paramétrable. Si il y a des amateurs ?

Bonsoir, ça y est 2 joueurs ! Réglage du nombre de manches est possible. On peut maintenant régler la tension et l 'angle comme on veut. Pour jouer seul utiliser le premier bouton. Je me suis fait un peu de pub.... Si ça marche pas, protester ici !!!!! J 'aurais de toutes façons des questions à poser. J 'espère que je n 'ai rien oublié. Normalement le code du Module1 reste le même Le nouveau formulaire à télécharger compressé pour remplacer le précédent : ici

Bonjour, Merci bien. Je ne les avais pas tous.

Bonsoir, Ravi que ça plaise aux enfants. C 'est promis je m 'y colle; 2 joueurs en 5 points. C 'est vrai que j 'ai un peu de mal à y arriver aussi !!! [Edité le 28/1/2008 par nazemrap]

Bonjour, si tu sais en vba tracer ta droite qui va du point et qui arrive perpendiculaire à la polyligne souhaitée (qu 'elle la coupe ou non), la méthode "intersectwith" doit te donner la coordonnée du point d 'intersection de ta droite et de ta polyligne. Et donc ces coordonnées (intersection et point) appliquées comme "startpoint" et "endpoint" de la droite permettent ensuite de renvoyer la longueur de cette droite et donc la distance. je ne sais pas si je suis bien clair ou si j 'ai bien compris?. Le problème est peut-être de tracer cette droite ?

Bonjour, C 'est un peu pauvre comme terrain de jeu.:mad2: Merci lovecraft, au moins cela à l 'air de fonctionner. Donc si quelqu' un a des suggestions et des améliorations...

Hello, Ce sont les 2 fichiers necessaires au formulaire du projet. Tu sembles les avoir décompresser. Dans l 'interface vba sous autocad, tu cliques droit dans la fenêtre projet sur la gauche. Puis "importer fichier". http://www.premiumwanadoo.com/technaulogis/cadxp/reglage_01.jpg Dans la boîte de sélection tu localises l 'endroit où tu as décompressé. Tu sélectionnes reglage.frm C 'est pour cela que tu as cette erreur. enfin pour l 'instant si c'est la seule.[Edité le 27/1/2008 par nazemrap] [Edité le 27/1/2008 par nazemrap]

Bonsoir, j 'ai voulu faire un autre jeu; à savoir atteindre une cible avec une flèche. Il y a une boite de réglage. ça marche à peu près. Toujours faire la tension de la corde (1) avant de varier l 'angle (2). Justement, j 'aimerais pouvoir tendre ou détendre après avoir changer l 'angle. Si il y a des amateurs.... le code à mettre dans Module1 Public arc As AcadArc Public fleche As AcadLine Public long_fleche As Double Public corde As AcadLWPolyline Public pt0(0 To 2) As Double Public pt1(0 To 2) As Double Public rayon As Double Public angdep As Double Public angdar As Double Public alpha As Double Public lcorde As Double Public ptpoly(0 To 5) As Double Public pttmp As Variant Public ptdepfleche(0 To 2) As Double Public ptdarfleche(0 To 2) As Double Public ptrepos(1) As Double Public pivot(0 To 2) As Double Public ligne_pivot As AcadLine Public cercle As AcadCircle Public ligne As AcadLine Public ptdar_ligne_pivot(0 To 2) As Double Public pos_alea(0 To 2) As Double Public cercle1 As AcadCircle Public Sub talarc() pt0(0) = 0: pt0(1) = 0: pt0(2) = 0 'pt1(0) = 20: pt1(1) = 0: pt1(2) = 0 rayon = 130 angdep = 337 * (3.141589 / 180) 'en radians angdar = 23 * (3.141589 / 180) 'en radians alpha = (2 * 3.141589) - (angdep - angdar) 'angle de l 'arc en radians long_fleche = 100 'trace l 'arc Set arc = ThisDrawing.ModelSpace.AddArc(pt0, rayon, angdep, angdar) 'longueur de la corde lcorde = (2 * rayon) * Sin(alpha / 2) 'trace la corde en LW polyligne pttmp = arc.StartPoint ptpoly(0) = pttmp(0): ptpoly(1) = pttmp(1) ptpoly(2) = pttmp(0): ptpoly(3) = pttmp(1) + lcorde / 2 pttmp = arc.EndPoint ptpoly(4) = pttmp(0): ptpoly(5) = pttmp(1) Set corde = ThisDrawing.ModelSpace.AddLightWeightPolyline(ptpoly) pivot(0) = ptpoly(2) + 10.3347: pivot(1) = ptpoly(3): pivot(2) = 0 'trace fleche 'son point de départ correspondant au sommet 1 de la poyligne corde ptdepfleche(0) = ptpoly(2): ptdepfleche(1) = ptpoly(3): ptdepfleche(2) = 0 'son point final tenant mpte de la longueur ptdarfleche(0) = ptpoly(2) + long_fleche: ptdarfleche(1) = ptpoly(3): ptdarfleche(2) = 0 Set fleche = ThisDrawing.ModelSpace.AddLine(ptdepfleche, ptdarfleche) 'trace ligne de pivot et le cercle qui vont servir à la balistique de la fleche 'Ces 2 éléments sont rendus invisibles ptdar_ligne_pivot(0) = pivot(0): ptdar_ligne_pivot(1) = pivot(1) - 1000: ptdar_ligne_pivot(2) = 0 Set ligne_pivot = ThisDrawing.ModelSpace.AddLine(pivot, ptdar_ligne_pivot) ligne_pivot.Visible = False Set cercle = ThisDrawing.ModelSpace.AddCircle(pivot, fleche.Length) cercle.Visible = False 'appel la création la cible aléatoire cible 'zoom étendu Application.ZoomExtents REGLAGE.Show End Sub Public Sub cible() 'trace cible 'position aléatoire Randomize pos_alea(0) = Int(800 - 500 + 1) * Rnd + 500 pos_alea(1) = 0 pos_alea(2) = 0 Set cercle1 = ThisDrawing.ModelSpace.AddCircle(pos_alea, 20) End Sub le formulaire à télécharger compressé: ici Macro à exécuter : talarc