g_barthe

Bonsoir, Je pense que pour essayer de t'eclairer, il faudrait que tu nous donne un peu plus d'infos sur tes codes sources. Sinon la sans savoir comment tu créé tes blocs et lit le contenu je peux pas vraiment tester et tenter un debugguage. @+

Bonsoir, Envisagéz vous de créer un forum spécial lié à Autocad MEP ? Vu qu'il s'agit d'un nouveau produit même s'il est basé un peu sur Autodesk Architectural Desktop, il ne concerne pas les mêmes utilisateurs qui sont plus projeteurs CVC et électriciens. @ bientôt.

Bonsoir, Pour ma part nous venons de passer 2 postes en MEP. (Association effectivement de Autodesk Architectural Desktop et d'Autofluid developpé par texacad et de l'ancien ROCAD). C'est vrai qu'au début c'est un peu déroutant. Niveau tarif autocad 2008 / mep 2008 600€ de plus à peu près. Alors qu'avant solution autocad 5000€ environ et autofluid 3000€ à peu près. Le choix est vite fait. Mep est rempli de fonctionnalité pour le plan CVC à découvrir. D'ailleurs un forum spécial MEP serait le bienvenue.

Bonjour, Je me permet de mettre mon grain de sel. dans un champ d'attribut autocad, est-il possible de créer une liste déroulante ? (j'ai vu qu'on pouvait mettre de la prog diesel mais j'y connais rien et dans les focntion embarquées je vois pas cette possibilité) Merci à tous

Bonsoir, Après une longue cogitation avec moi meme, j'ai eu une idée de développement qui a déjà commencé. Mon projet d'un outils de dao (style autofluid) pour Autocad en VBA. Le problème est que je n'ai pas beaucoup de temps donc ca risque d'aboutir en 2020 jocolor donc je me demandais si des membres avaient de compétences en vba pour Autocad et souhaiterais rejoindre une equipe de développement pour cette application. Le but de cette application est de fournir un outils de dao simple, permettant de gagner du temps et cela de manière libre (licence GPL) c'est à dire que le code du programme est accessible à tous (sachant le lire évidemment). (je suis un peu contre le monopole logiciel rendeer ) De plus point fort de cette application, se mettre à la portée de petits bureau d'études qui ne peuvent pas se payer des logiciels à 1500€ par poste. Donnez moi votre avis, vos inquiétudes, questions... Merci à tous Je vous met le lien de mon forum sur le génie climatique où je parle de ce projet également n'hésitez pas à me demander plus d'infos. http://le-genie-climatique.positifforum.com

Tu dois pouvoir essayer de l'associer à ce genre de truc http://www.vbfrance.com/codes/GESTION-CLAVIER-TOUCHE-COMMENT-CAPTER-TOUCHES-VB-SIMPLIFIE_27326.aspx http:// http://www.developpez.net/forums/showthread.php?t=222348 Je n'ai pas tester les liens que je te donne par contre Par curiosité : tu programmes une application imposante de quel style ? si c pas secret defence bien sur ;)

Bonjour, ce serait peut etre avec un truc de ce genre la (fonction sleep) http://faq.vb.free.fr/index.php?question=106 A bientot

Bonsoir, Je m'imisse dans la conversation mais je recherche un viewer pour pdms qui lirait les fichiers wrl ou vrml qui permettent de visualiser le plan 3d qui a d'abord été exporter à partir de PDMS. Ca doit ressemble à "Babel" mais je trouve pas sur google. Qqn aurait-il une piste ? Merci

Bonjour, Moi ca m'interesse vu que les petites applications que je fais je veux les rendre compatible toutes plate forme 'autocad, excel openoffice...) Les tableur openoffice seront compatible office... Je vais regarder ca de près. Merci

bonsoir, Autocad sur linux avec wine depuis 2000 plus possible et encore qd 2000 voulais s'installer. VMware est bien un montage d'os virtuel si je ne m'abuse. Ce qui reviens à installer un linux normal et greffer un xp et virtuel et installer autocad dessus. Ca fonctionne mais l'interet est mineur vu que tu es tjs obligé d'avoir xp dans un coin. Sur une vmware, on peut faire tourner tout logiciel windows vu qu'il s'agit d'un vrai windows et des dl d'origine pas comme wine qui réécrit les dll. Ce sont les 2 tests que j'ai pu effectuer.

Bonjour, Il n'existe pas à ma connaissance de version de démo qui permet de le tester pour voir s'il vaut le coup. Mais d'un point de vue personnel, il s'agit d'un outils qui te simplifie la vie pour les plans de gaines et tuyauteries.

Bonjour, Je veux dessiner une ligne a la suite d'une autre mais en récupérant par clic au point de départ de la nouvelle ligne le calque utilisé par l'ancienne ligne. J'ai utilisé la propriété getpoint pour commencer la ligne au point voulu ca marche. Pour le calque, j'utilise le layer.value ou un truc dans le style mais cela nécessite 2 saisie successives. La fonction getpoint le retourne pas le calque même si le point est le début ou la fin de la ligne précédente. Je en peux pas me servir de endpoint ou startpoint pck je ne vois pas comment savoir si de la ou la ligne va repartir c'est le end ou le start de l'ancienne. C'est pas très clair je me doute mais c'est pas facile à expliquer. Mon code pour déterminer le diametre Public Sub determination_diametre() Dim pnt_debut As Variant Dim pnt_axe As Variant Dim pnt_fin As Variant pnt_debut = ThisDrawing.Utility.GetPoint(, "Point d'extrémité de la ligne extérieure ? ") pnt_axe = ThisDrawing.Utility.GetPoint(, "Point d'extrémité de l'axe ? ") pnt_fin = ThisDrawing.Utility.GetPoint(, "Point d'extrémité de la ligne inférieure ? ") End Sub celui qui dessine la gaine si on chois "ga" Public Sub continuation(diametre_circ, reseau) Dim saisie As String 'determination_diametre Dim pnt_debut As Variant Dim pnt_axe As Variant Dim pnt_fin As Variant ZoomAll ThisDrawing.Utility.Prompt "Pour continuer : COude, TE, GAine, BOuchon, TRansfo, SOrtir => " saisie = ThisDrawing.Utility.GetString(False, "Choix ?") Select Case saisie Case "so" Case "ga" gaine_circ diametre_circ, reseau Case "bo" pnt_debut = ThisDrawing.Utility.GetPoint(, "Point d'extrémité de la ligne extérieure ? ") pnt_axe = ThisDrawing.Utility.GetPoint(, "Point d'extrémité de l'axe ? ") pnt_fin = ThisDrawing.Utility.GetPoint(, "Point d'extrémité de la ligne inférieure ? ") bouchon_circ pnt_debut, pnt_axe, pnt_fin, reseau Case "tr" pnt_debut = ThisDrawing.Utility.GetPoint(, "Point d'extrémité de la ligne extérieure ? ") pnt_axe = ThisDrawing.Utility.GetPoint(, "Point d'extrémité de l'axe ? ") pnt_fin = ThisDrawing.Utility.GetPoint(, "Point d'extrémité de la ligne inférieure ? ") transfo_circ pnt_debut, pnt_axe, pnt_fin, reseau End Select End Sub ca vous eclairera peut etre un peu plus sinon n'hésitez pas à me demander plus de précision [Edité le 5/1/2007 par g_barthe]

Bonsoir, Je viens de trouver qu'il s'agissait d'un problème de restrictin de droits sur le serveur d'impression. Voilà. L'erreur rendu sur Autocad n'etait pas très clair mais bon pb résolu.

Bonjour, Depuis ce matin je rencontre ce pb sur un des poste du bureau d'études ou j'exerce. Je ne vois pas comment résoudre le pb. Meme un reboot du poste et d'autocad et un changement d'imprimante ne change rien. Je vous meme une copie du message. http://img182.imageshack.us/img182/8240/impressionsg5.th.jpg [Edité le 30/10/2006 par g_barthe]

Euh sauf erreur ce n'est pas pour le faire en vba ???

Bonjour peut on créer un menu mosaique d'images en vba ? Comme en faisant dessin -> surface -> surface 3D et de créer le mem style de boite. Merci de coup de main

/ [Edité le 10/10/2006 par g_barthe]

Euh je vois pas les coordonnées de quel point tu veux spécifier. Pourrais tu m'expliquer un peu stp ? Je suppose que ce n'est pas le point de base de la polyligne.

Bonjour, Je n'ai jamais eu cette erreur meme en relancant plusieurs fois la meme macro. Par contre n'est ce pas un pb de variable encore en memoire qui pourrait perturber l'exécution la seconde fois ? Du style vider le contenu mémoire une fois l'exécution de la macro finie. Je ne sais pas c'est une idée. Mais en ayant le code de la macro peut etre que ce serait plus simple pour voir les opérations que tu fais sur la polyligne. Je manipule également les polylignes.. mais jamais eu ca.

Merci de la reponse. Par contre je n'ai rien trouver sur cette methode dans l'aide vba. Alors j'ai concocté ce truc un peu lourd mais bon 'Dessin cercle de la gaine centerPoint(0) = coord_point(0): centerPoint(1) = coord_point(1): centerPoint(2) = coord_point(2) radius = dist / 2# Set cercle_1(0) = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius) cercle_1(0).Layer = reseau cercle_1(0).Move centerPoint, coord_point_ccf cercle_1(0).Rotate coord_point_bis, angle cercle_1(0).Move coord_point_bis, pnt_axe 'Dessin de la diagonale 1 centerPoint(0) = d1: centerPoint(1) = coord_point(1): centerPoint(2) = coord_point(2) coord_point(0) = 0 coord_point(1) = d1 coord_point(2) = 0 Set diag_1 = ThisDrawing.ModelSpace.AddLine(coord_point, centerPoint) diag_1.Layer = reseau & "-mat" diag_1.Rotate coord_point_bis, angle diag_1.Move coord_point_bis, pnt_axe 'Tracé des 2 demi diagonales 1 intPoints = diag_1.IntersectWith(cercle_1(0), acExtendNone) centerPoint(0) = intPoints(0): centerPoint(1) = intPoints(1): centerPoint(2) = intPoints(2) point_diag = diag_1.StartPoint Set diag_3 = ThisDrawing.ModelSpace.AddLine(point_diag, centerPoint) diag_3.Layer = reseau & "-mat" centerPoint(0) = intPoints(3): centerPoint(1) = intPoints(4): centerPoint(2) = intPoints(5) point_diag = diag_1.EndPoint Set diag_4 = ThisDrawing.ModelSpace.AddLine(point_diag, centerPoint) diag_4.Layer = reseau & "-mat" diag_1.Delete En fait je dessine mon cercle, une diagonale et je récupère les points d'intersection et je redessine 2 droites avec les point de départ de la diag et point d'arrivé le pt d'intersection et pareil pour l'autre avec le point d'arrivé et l'autre point d'intersection et je fini par effacer la diagonale d'origine. C'est un peu barbare mais ca marche. Mais si la méthod ebreak peut etre plus rapide je veux bien essayer avec si possible un exemple.

Bonjour, Malgré mes rechers, je ne trouve pas la commande vba qui permet de faire la meme chose que la fonction coupure sur autocad. Avec l'option des 2 points. J'ai bien les points d'intersection avec les objets mais pas possibilité de couper sans faire une usine à gaz. Confirmer vous l'utilisation de l'usine à gaz obligatoire (reperer les poitns d'intersection, spécifier le endpoint, le nouveau startpoint...) Merci @vous

Bonjour, Je cherche à gérer la touche echap dans mon application. Comme j'ai qq commande qui demande un action clavier pour choisir des options, je voudrais gérer la touche echap si jamais l'utilisateur veut sortir de la commande et ne pas avori le message d'erreur vba, que si echap alors sortie du projet calmement. Merci @vous

Alors petit tour de ma personne. Ingénieur spécilisé en calculs thermiques, aérauliques, simulation thermique, hydraulique enfin le génie climatique en général. Et autocad j'ai commencé sur la lt98 mais laché pdt un moment et reprise dpuis peu sur 2004 et maintenant 2006. Je ne dessine pas bcp, excepté des schéma de principe. Mais étant un gros passionné de prog info (php-mysql, html, vba excel et autocad), je développe dès que je peu des utilitaires qui n'ont aucunement la prétention d'être au top et sans bug. Je cherche à faciliter le quotidien de mon équipe, uniformiser les document fournis et simplifier les choses tout en restant agréable et convivial. Je bosse en bureau d'études éxecution en région parisienne. Pour reprendre didier je crois, j'ai moi meme créé un forum (en relation avec le génie climatique) pour créer un lieu d'échanges de savoir, de coup de pouce. Jusqu'à présent je n'avais rien trouvé de satisfaisant et je souhaitais contribuer de manière active à la transmission des connaissances.

Alors en fait je viens de trouver il fallait voir l'aide plus précise vba et on s'en sort en faisant cela : center(0) = 0#: center(1) = dist / 4#: center(2) = 0# majAxis(0) = 0: majAxis(1) = dist / 4#: majAxis(2) = 0# radRatio = 0.5 Set ellObj_1(0) = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio) ellObj_1(0).StartAngle = 180 * (PI() / 180) ellObj_1(0).EndAngle = 0 * (PI() / 180) ellObj_1(0).Layer = reseau ellObj_1(0).color = calque_coul1(0) ellObj_1(0).Rotate coord_point, angle ellObj_1(0).Move coord_point, pnt_axe Merci de m'avoir orienté. Bonne journée à tous

Bonjour, Alors j'ai une ellipse construite de cette manière : center(0) = 0#: center(1) = dist / 4#: center(2) = 0# majAxis(0) = 0: majAxis(1) = dist / 4#: majAxis(2) = 0# radRatio = 0.26 Set ellObj_1(0) = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio) Elle est fermée et pas de pb. Par contre je veux en créer une ouverte (demi ellipse) Si je fais de cette maniere : centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0# radius = 0.26 startAngleInDegree = -90# endAngleInDegree = 90# Dim startAngleInRadian As Double Dim endAngleInRadian As Double startAngleInRadian = startAngleInDegree * PI() / 180# endAngleInRadian = endAngleInDegree * PI() / 180# Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian) J'obtiens un demi cercle (arrondi) et non pas uen forme d'ellipse. Et la propriété startangle de l'obejt ellipse je ne la vois pas il n'y a que son axe et son rapport qui me font ds tous les cas une ellipse complete. L'arc et l'ellipse auraient-ils des propriétés cachées ? Merci à vous