laurent_a8

Bonsoir, je programe aussi sur VBA, sur excel en variable objet et tableau, et donc je me suis attaquer a autocad et je programe aussi en BVA. il y a se livre : http://www.amazon.com/VB-NET-AutoCAD-2010-Level-1/dp/1892131110 mais en anglais. Si vous avez des pistes aussi. Pour l'instant il y a encore le VBA dans autocad 2012 laurent

Bonsoir Speedy, j'ai regarder le code VBA excel qui exporte vers Autocad des informations l'idées est bonnes mais le code est complexe merci speedy vous avez aussi des connaissance en VBA ou vous avez récuperé les codes comme cela sur internet. Au plaisir de partager avec vous du VBA Excel ou VBA Autocad Laurent

Bonsoir, Je pense que l’idéal serais de pouvoir récupérais sur un fichier Excel, les renseignements des surfaces et longueurs en fonction de la provenance des fichiers sources d’où proviennent ces informations et bien avec détail et traçabilité pour chacune des quantités qui doivent provenir d’un calque bien définit (indiqué sur le fichier Excel). Les référence externe posent aussi parfois des problèmes (lorsqu’elles sont attachés au dessin mais (décharger ou introuvable) les lister est renvoyer les infos via Excel pour ne traiter que ces fichiers sur une grande liste. Une fois identifié charger les Xref décharger (si besoin) et aussi récupérer les fichiers introuvables (et corriger leur chemins) pour les rendirent visibles sur le fichier source. Possibilité aussi de couper la référence externe en les ajoutant au fichier source. Pour les métrés je pense que des logiciels font cela mais je ne sais pas sous qu’elle mesure et souplesse. Pour les Xref je ne sais pas s’il y a un programme qui fait cela. J’ai fais ces deux programme en VBA qui tournent bien mais c’est très complexe. S’il y a des métreurs faisant les mêmes choses ou connaissant des logiciels faisant cela. Au plaisir de partager avec vous des idées Laurent

Bonsoir Saltz, Je pense pas que la question n'est triviale, car très peux savent ou connaissent le VBA Autocad, j'avoue que je patine aussi mais j'arrive a faire des choses super avec du temps mais en faite c'est rien a côté de se que je gagne, je vais répondre à votre question : 5/Ensuite j'aie vue ^C^C pour le script de mon bouton .Je ne connais pas le langage de script sous Autocad 2005 Explication : 1 ) il y a un fichier ou est enregistrer votre Macro ==== >>>> Ont va appeler ce fichier ici === >>>> test.dvb 2 ) dans ce fichier il y a des modules ==== >>>> ont va appeler se module ici ==== >>>> Message 3 ) dans ce modules il peux y avoir plusieurs macros et fuction, ont va appeler cette macro ici ==== >>> bonjour C’est a dire a l'endroit ou vous avez vu cela " j'aie vue === >>> ^C^C === >>>> pour le script de mon bouton " vous le remplacer ^C^C par cela : -execvba test.dvb!Message.bonjour Voila le bouton est associer a la macro mais ce n’est pas finis. le fichier qui a l'extension .dvb est qui ici porte le Nom de === >>> test.dvb === >>> il faut savoir ou il se trouve sur votre disque dur, une fois qu'il est repérer il faut le copier et le coller dans le répertoire suivant C:\Program Files\Autodesk\Autocad2005 (pour cela en fonction de votre système d'exploitation il faut trouver cette endroit) et coller le fichier test.dvb Maintenant vous ouvrer Autocad 2005 (vous cliquer sur le bouton est hop vous avez le message === >>>> bonjour Ps : remplacer le nom fichier test.dvb (par votre fichier d'origine ou vous avez enregistré votre macro) puis le Module Message par le vrais nom du module (en générale si vous l'avez pas renommé il porte les noms de module1 etc.) puis mettre le nom de la macro ici vous l'avez noté (Public Sub bonjour()) car vous l'avez mis en exemple, donc pas a le changer pour l'exemple. Voila c'est fait votre bouton est associer avec votre Macro est ce lance à partir d'autocad 2005 Au plaisir de vous lire est répondre à vos questions si vous avez un doute ou un souci Laurent

Bonsoir suicidetree et x_all Vous avez Raison x_all en faite il y a encore VBA sur autocad 2012 mais sa fonctionne pas trés bien je dois voir cela pour les réglage entre les plate forme 32 bit ou 64 bit Pour ma part je cherche aussi un remplacement au VBA, il y a VB..net ou le c# mais avrais dire il n'y a pas grand choses a se sujet a part un livre en VB.net le lien mais il est en anglais alors pas évident : http://www.developerfusion.com/book/88495/vbnet-for-autocad-2010-level-1/ ou http://books.google.com/books/about/VB_NET_Programming_for_AutoCAD_Customiza.html?id=UEWHIAAACAAJ si vous avez des idées je suis pas contre de chercher avec vous d'autre piste (pour revite c'est le c# ou le vb.net) les option pour la programation.

Bonjour bazoul, Je vous remerci et j'attend votre bout de code en VB.net pour essayer de l'adapter en vba, je mettrais a contribution mon code pour vous et les autres internautes. Dans cette attente je vous remerci. Laurent

Bonjour, Aprés vérification, cela semble du au différence de version ,lorsque les hachures sont réaliser sous Autocad 2010 et que le fichier est enregistrer sour Autocad 2005 cela produit des lignes aux (Format polyligne) mais autant de polyligne qu'il y a de face exemple si c'est un triangle (3 faces donc 3 polylignes). Il faudrait tester si le comportement et le même si (ont utilise se lisps directement avec Autocad 2010) si cela produit la même choses c'est a dire ( pour le triangle les 3 lignes (format polyligne non jointe entre elle) Pour ma part je ne sais pas faire la progression avec le lips pour exectute le programe pas a pas (en VBA c'est avec la touche F8 au clavier) Pour le test j'ai réaliser des Hachures de différentes facon pour comprendre comment j'ai des lignes (format polyligne non jointe) au nombre de faces de ma hachures (exmple le triangle) et parfois une plolyligne fermer). J'ai donc fait le triangle : 1 ) une suite de polyligne (3 que j'ai joint sans clor) = pour une hachure 2 ) une suite de polyligne (3 que j'ai joint que j'ai clos) = pour une autre hachure 3) tester avec le rectangle (porposer par autocad) J'ai réaliser cela avec autocad 2010 (sans tester directement le lisps (H2B) sur cette version car c'est pas ma machine. Par contre j'ai enregister le fichier sous Autocad 2004 ( C'es ce que me propose Autocad 2010) pour la version qui se rapproche le plus de la mienne (Autocad 2005) Et c'est a se mment la que j'ai constater cette anomalie (qui je pense est du au différente version) je connais cela en VBA aussi avec Excel Notament. Peut être vous avez une solution a cela, mais dans tous les cas je vous remerci vraiment car votre programe est formidable (j'avais pu voir un programe semblabe sur un site je vous en fait part mais le votre est 100 fois mieux : http://www.jtbworld.com/lisp/hatchb.htm) j'avais récuper la version 2.2 c'était il y a mainenant 5 ans je pense. Merci Laurent

Bonsoir Didier et Gile, ainsi que le forum. Excuser moi Didier je suis désolé d’être passé à côté de votre question, j’utilise en faite une ancienne version d’Autocad = version 2005. En faite ce n’est pas vraiment pour le fun car je dois me servir de cette fonctionnalité qui ne marche pas non plus sous Autocad 2012. Explication du travail que je dois réaliser : 1 ) je récupère les plans des architectes sous différente version d’Autocad (2005 ou 2010) moi j’ai la version 2005. sur ces plans je dois uniquement récupérer les Hachures et leur polylignes associatives. 2 ) ce qui m’interresse c’est uniquement les hachures sans les polylignes associatives (car doublon et des fois plus de plolygne que de hachures) = ingérable !! 3 ) je fait un filtre de sélection avec la commande autocad et je sélectionne toute les hachures du dessins, puis je les copie (Ctrl + V) 4 ) J’ouvre un autre plans et je colle avec les coordonnée d’origine toute les hachures (Copier) sur se nouveau dessin autocad vierge. 5 ) après un petit nettoyage pour m’assurer de travailler que sur les calque qui m’intéresse (1 calque pour un type de hachure) 6 ) je dois reconstituer toute les polyligne autour des hachures restantes (comme chaque polyligne reprend la propriété du calque d’origine de la hachure) j’ai exactement le même nombre de polylignes que de hachures et pour chaques claques j’ai exactement le même nombre de hachures que de plolyligne. 7 ) Par la suite je peux travailler sur un calques en le rendent actif et en désactivant les autres, ce qui me pemet d’appeler en Xref le plans par exemple de départ et de vérifier la cohérence de la zone définit (si cela correspond pas je peux modifier la polyligne par exemple : la découper en 2 (car deux zone diffrérentes) et recréer des hachurages différent. Je ne sais pas si j’ai était très claire mais le final c’est de faire des surfaces de différentes zones et de les identifier rapidement pour en faire des quantités. Juste un très grand Merci a Gile dont votre lips est Unique est formidable (H2B) ce qui fait exactement se que j’ai décris dans mes besoins. Formidable. Pour Didier : la possibilité de recréer un contour de hachures existe en natif En faite je peux traiter les hachures une par une avec autocad 2010 (j’ai testé aujourd’hui chez un collégue) Pour Gile : avec une achure en forme de carré = 4 côtés (les deux types de hachures cité = les deux même carrés avec couleur différentes se sont des solides pour le remplissage). J’ai récupéré aujourd’hui des hachures des architectes et le lips se comporte de deux manières différentes Pour un type de hachures (Carré 1) = il fait bien les contours avec une polyligne fermer (1 polyligne fermer qui forme le périmètre du carré) Pour l’autre type de hachures (Carré 2) = il fait bien le coutour aussi avec des ploilyligne mais elles ne sont pas fermer. (4 polylignes ouvertes qui forme les périmètres du carré) PS : j’ai fais un fichier .dwg ou il y a les deux type de hachures (pour que vous puissiez tester cela je ne peux pas trouver la raison car je n’y connais rien en lips, c’est pour cela que j’ai essayé de faire en vba mais je n’y arrive pas pour l’instant. Comment je peux faire pour vous laisser mon fichier .dwg pour que vous testiez se comportement différent (sur deux type de hachures toute a fait semblables ?) Je peux vous laisser mon courriel sur se poste ? Comment faire ? Merci Didier pour votre réponse au sujet du livre VBA pour autocad je pense l’acheter prochainement. Laurent

Bonjour, J'ai commencer a constituer le code sour VBA avec autocad 2005 : Le principe, c'est de récuper les fichiers tracer, et de rediriger les appel d XREF vers un autres réperoir définit (dans la macro = chemin) le test se fait sur 3 conditions... j'ai plus tous en têtes car je suis sur tous les front en se moment si cela vous interresse cela peux êtres sympa de plus que tous se fait automatiquement. Peut ton joindre desl fichier DVB sur se site cela serais plus simple, si non j'écrirais toute la procédure ici. Au plaisir de vous et de contribuer au Forum Laurent. Ps : y a t'il des personne d'entre vous qui ont acheter se livre sur se site http://acadplus.free.fr/mb030603.htm le livre Autocad VBA (J'hésite mais il a l'aire trés bien) enfin c'est mon sentiment, j'auraos aimer en avoir des retours mrci d'avance

Bonjour bazoul et aussi le forum. Oui cela m'interresse J'ai fait se bout de code en VBA si cela te parle, j'aimerais vraiment finalisé se projet et reconstruire les contours des hachurages via des polyligne lorsque (les hachurages non pas de polyligne associative) Pour l'instant j'ai se bout de code qui me donne le non et l'air de ces hachures : je serais le déveloper mais j'ai des connaissance réduite dans les bibliothéque d'autocad. pour info le code via restitution des informtation via message (MsgBox) Public Sub InformationHachure() 'définition des variables nécessaires à la hachure du symbole Dim objHatch As AcadHatch ' Variable de l'objet Hachure ' Variable du calque Dim objObjet As AcadEntity ' Variable de l'objet sur le Calque Dim objCalque As AcadLayer ' Variable de l'objet du Calque ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' ----> Programme Autocad capture des objets du dessin via une fenêtre de capture ' Suppression du jeu de selection ("PremièreSélection") ThisDrawing.SelectionSets("PremièreSélection").Delete ' Définition d'un jeu de sélection Set ssetObj = ThisDrawing.SelectionSets.Add("PremièreSélection") ' Capture fenêtre active de sélection "Nota : tous les objets sont mémorisé dans la création d'une séléction = "PremièreSélection" ssetObj.SelectOnScreen ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' Programme Autocad "Traitement des données récupéré" ' Objectif = Faire un contour de l'hachurage avec la reprise de la propriété du calque de dépendence de la hachure ' Avec Autocad 2010 et plus il y a l'option recrée un contour de la hachure via une polyligne (Pour l'instant je sais ' pas comment la réalisé) ' Pour le moment je sort les information de mon hachurage via une msgbox ' Air ' Nom Du Calque For Each entite In ssetObj ' Boucle de selection des objects capturé a l'écrans ( = tous "ssetObj") et "Entite" = Premier selectioné etc... Select Case entite.EntityName ' boucle Select === >>> Non de l'object selectionné (Ligne, Polyligne, Hachurage, etc...) Case "AcDbHatch" ' Selection de l'object a annalysé dans cette ensemble de selection (Ici Hachurage) MsgBox entite.Layer ' Nom du claque MsgBox entite.Area ' Aire de la hachure End Select ' Fin de la boucle de selection (Select Case) Next entite ' Instruction suivante de la boucle For Each qui scanne tous les objects capturé End Sub Merci a vous bazoul et aussi au forum laurent

Bonjour Didier et aussi le forum, Sous autocad 2012 j'ai fait se bout de code qui récupére les informations des hachures sans qu'elle soit liées a une polyligne, j'aurais souhaité faire le contour de cette hachure pour en avoir despolyligne, il y a un lisp qui fait cela et que j'ai récuperé, le eul soucie c'est qu'il recrée toute les lignes sur le calques 0 (j'aurais voulut avec la propriété du claque de cette hachure pour la polyligne généré) Je suis novice sur se forum et si je ne suis pas au bonne endroit mille excuses. je joint le bout de code valable pour Autocad 2012 a modifier avec les version antéireur. Code = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = == = = Public Sub InformationHachure() 'définition des variables nécessaires à la hachure du symbole Dim objHatch As AcadHatch ' Variable de l'objet Hachure ' Variable du calque Dim objObjet As AcadEntity ' Variable de l'objet sur le Calque Dim objCalque As AcadLayer ' Variable de l'objet du Calque ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' ----> Programme Autocad capture des objets du dessin via une fenêtre de capture ' Suppression du jeu de selection ("PremièreSélection") ThisDrawing.SelectionSets("PremièreSélection").Delete ' Définition d'un jeu de sélection Set ssetObj = ThisDrawing.SelectionSets.Add("PremièreSélection") ' Capture fenêtre active de sélection "Nota : tous les objets sont mémorisé dans la création d'une séléction = "PremièreSélection" ssetObj.SelectOnScreen ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' Programme Autocad "Traitement des données récupéré" ' Objectif = Faire un contour de l'hachurage avec la reprise de la propriété du calque de dépendence de la hachure ' Avec Autocad 2010 et plus il y a l'option recrée un contour de la hachure via une polyligne (Pour l'instant je sais ' pas comment la réalisé) ' Pour le moment je sort les information de mon hachurage via une msgbox ' Air ' Nom Du Calque For Each entite In ssetObj ' Boucle de selection des objects capturé a l'écrans ( = tous "ssetObj") et "Entite" = Premier selectioné etc... Select Case entite.EntityName ' boucle Select === >>> Non de l'object selectionné (Ligne, Polyligne, Hachurage, etc...) Case "AcDbHatch" ' Selection de l'object a annalysé dans cette ensemble de selection (Ici Hachurage) MsgBox entite.Layer ' Nom du claque MsgBox entite.Area ' Aire de la hachure End Select ' Fin de la boucle de selection (Select Case) Next entite ' Instruction suivante de la boucle For Each qui scanne tous les objects capturé End Sub ' Fin de la boucle = = = = = = = = = = = = = = = = = = = = == = = = = = = = = = = = = = = = = = = == = = == = = == 1 ) ouvrir un fichier autocad Crées des hachures sur différent calques (Vous pouvez retirer les polyligne associative) une fois qu'il n'y a que des hachures sur le fichier autocad. 2 ) Crée un projet dvb (Copier le code et enregister) Outils > Macros VBA > Macros... Choisir ( InformationHachure ) > Executer il y aura des Message pour le nom du claques et aussi l'air de l'hachurage (Pour tous ceux selectioné) Merci si vous avez des complément d'information pour cette idées que j'ai je peux aussi vous aider avec excel (VBA) au plaisir de vous lire Ps : Merci didier, cela fait trés longtemps que je suis inscrit sur le forum mais j'ai réelement apris le vba avec excel et je commence avec Autocad, je suis pas fort dans le sens que je ne suis pas prétentieux, mais j'ai lu enormément. il y a un livre qu s'achete en pdf sur le coin des autocadien et je pense l'acheter prochainement je sais pas si cela est vraiment sérieux? Peux être que vous avez des notion plus avancer que moi avec autocad, et je serais enchanter de pouvoir contribuer vous aider ou d'autre sur se forum. Merci vraiment au plaisir de vous lire et vous répondre Laurent

Bonjour Winfield et aussi le forum, Sous autocad 2012 j'ai fait se bout de code qui récupére les informations des hachures sans qu'elle soit liées a une polyligne, j'aurais souhaité faire le contour de cette hachure pour en avoir despolyligne, il y a un lisp qui fait cela et que j'ai récuperé, le eul soucie c'est qu'il recrée toute les lignes sur le calques 0 (j'aurais voulut avec la propriété du claque de cette hachure pour la polyligne généré) Je suis novice sur se forum et si je ne suis pas au bonne endroit mille excuses. je joint le bout de code valable pour Autocad 2012 a modifier avec les version antéireur. Code = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = == = = Public Sub InformationHachure() 'définition des variables nécessaires à la hachure du symbole Dim objHatch As AcadHatch ' Variable de l'objet Hachure ' Variable du calque Dim objObjet As AcadEntity ' Variable de l'objet sur le Calque Dim objCalque As AcadLayer ' Variable de l'objet du Calque ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' ----> Programme Autocad capture des objets du dessin via une fenêtre de capture ' Suppression du jeu de selection ("PremièreSélection") ThisDrawing.SelectionSets("PremièreSélection").Delete ' Définition d'un jeu de sélection Set ssetObj = ThisDrawing.SelectionSets.Add("PremièreSélection") ' Capture fenêtre active de sélection "Nota : tous les objets sont mémorisé dans la création d'une séléction = "PremièreSélection" ssetObj.SelectOnScreen ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' Programme Autocad "Traitement des données récupéré" ' Objectif = Faire un contour de l'hachurage avec la reprise de la propriété du calque de dépendence de la hachure ' Avec Autocad 2010 et plus il y a l'option recrée un contour de la hachure via une polyligne (Pour l'instant je sais ' pas comment la réalisé) ' Pour le moment je sort les information de mon hachurage via une msgbox ' Air ' Nom Du Calque For Each entite In ssetObj ' Boucle de selection des objects capturé a l'écrans ( = tous "ssetObj") et "Entite" = Premier selectioné etc... Select Case entite.EntityName ' boucle Select === >>> Non de l'object selectionné (Ligne, Polyligne, Hachurage, etc...) Case "AcDbHatch" ' Selection de l'object a annalysé dans cette ensemble de selection (Ici Hachurage) MsgBox entite.Layer ' Nom du claque MsgBox entite.Area ' Aire de la hachure End Select ' Fin de la boucle de selection (Select Case) Next entite ' Instruction suivante de la boucle For Each qui scanne tous les objects capturé End Sub ' Fin de la boucle = = = = = = = = = = = = = = = = = = = = == = = = = = = = = = = = = = = = = = = == = = == = = == Merci si vous avez des complément d'information pour cette idées que j'ai je peux aussi vous aider avec excel (VBA) au plaisir de vous lire Laurent

Bonjour le forum, Lien : http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=7116#pid J’ai trouvé sur le forum le code en lisps pour recrée une polilygne autour d’une achur, J’aurais souhaité savoir si une personne a la connaissance de se même code (écrit en VBA) Le but est de crée une polyligne associative a une achur (alors que celle-ci n’est aucune polyligne associative à la base) Merci par avance Laurent

Bonjour le forum, Lien : http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=7116#pid J’ai trouvé sur le forum le code en lisps pour recrée une polilygne autour d’une achur, J’aurais souhaité savoir si une personne a la connaissance de se même code (écrit en VBA) Le but est de crée une polyligne associative a une achur (alors que celle-ci n’est aucune polyligne associative à la base) Merci par avance Laurent

Bonjour le forum, Lien : http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=7116#pid J’ai trouvé sur le forum le code en lisps pour recrée une polilygne autour d’une achur, J’aurais souhaité savoir si une personne a la connaissance de se même code (écrit en VBA) Le but est de crée une polyligne associative a une achur (alors que celle-ci n’est aucune polyligne associative à la base) Merci par avance Laurent