dezhopper

Bonjour, je traine sur un vulgaire problème depuis quelques heures, et je n'arrive vraiment pas à comprendre d'ou cela peu venir, c'est d'une simplicitée pourtant. If (ObjetTemp.EntityName = "AcDbBlockReference") And (ObjetTemp.Layer = "THD_PM 1000") And (ObjetTemp.EffectiveName = "PM 1000") Then TableauTemp(6) = TableauTemp(6) + 1 Debug.Print ObjetTemp.EntityName End If Ce code se trouve dans une boucle qui pointes les objets d'un jeu de séléction, et même lorsque l'objet est une polyligne ou une ligne ou une hachure, la valeur TableauTemp(6) s'incrémente, et le debug me marque AcdbPolyline etc... Est ce que vous savez d'ou cela peu provenir? En vous remerciant d'avance. Dezhopper.

1 si j'ai bien compris la question tu veux créer du code. Pour créer un nouveau projet tout se passe à partir du gestionnaire VBA de autocad. Dans l'IDE de VBA tu ne peux pas directement creer de DVB. Dans ton projet DVB tu place ton code et chaque fonction sera visible depuis le gestionnaire de macro de AutoCAD. 2 Il faut tout d'abord que tu crées un fichiers DVB appelé AutoCAD.dvb que tu placeras à la racine du repertoire AutoCAD, ensuite dans ce AutoCAD.dvb tu crées une fonction appelée AcadStartup() Dans cette fonction tu charges un autre projet DVB et tu run une macro du projet un peu comme ça. Sub AcadStartup() Dim FileName As String FileName = "c:\VBA\_OK\CALQUEFRISE\CALQUEFRISE.dvb" LoadDVB FileName RunMacro "CALQUES.BarCalqueFriseCreation" End Sub Voila. Bonne soirée DezHopper

Pardon de poster une deuxième fois mais je n'ai pas compris le code plus haut, notament le "MoveToBottom", je ne le voie apparaitre nulle part dans l'aide Autocad et ni dans l'aide VBA. C'est une biblio particulière ou alors je rêve??? Merci a vous DezHopper

Bonjour, excuser moi mais d'ou sort le MoveToBottom. Je ne le trouve pas dans l'aide de autocad. Merci DezHopper

Bonjour, j'utilise ce patch depuis plus d'un mois maintenant et il fonctionne très bien. Dans mon domaine d'activité (déploiement de réseaux sec de grandes envergure), il se prête à merveille à nos besoin lors de communications sur les positionement des infras. Le plus dur a été de trouver le chargement de la barre d'outils googleearth.cui. Dommage à ce propos que il ne soit pas fait mention du chargement e cette barre dans l'install. Le plus fort avec cette appli c'est qu'elle exporte aussi les données Objets de Map et rend alors disponible du contenu data en plus des formes. Pour l'utiliser il faut de toute manière assigner un système de coordonnées au dessin, car l'appli se chargera par la suite de faire les transformation vers WGS84. Les étapes (sous map 2009 3D) suite à l'install sont les suivantes : 1 charger la barre Google earth.cui aller dans outils/Personaliser/Menu dans le menu cliquer sur "charger le fichier de personalisation partiel" (icone de folder avec un plus vert) Une barre d'outils devrait apparaitre avec 4 boutons. 2 assigner un système de coordonnées au dessin Volets taches/explorateur de cartes/(clique droit sur dessin courant/Systèmes de coordonnées 3 exporter vers GE dans la barre d'outils cliquez sur le quatrième bouton à droite et voila les reste des étapes est hyper simple et il crée un .kml ou kmz je ne sais plus. Super appli. Aussi cette appli est capable d'importer dans le système voulu, l'affichage courant de GE dans AutoCAD map. Voila Bonne journée Dezhopper

Bonjour j eviens de perdre mon espaces de travail Map Classic sous map 2009 3D, savez vous comment le retrouver? Je ne peu m^me plus le charger depuis le début. Bonne journée. Dez Hopper

Merci beaucoup. Olivier.

bonsoir, je ne trouve plus la variable système qui permet d'afficher la boite de dialogue d'attribution d'un système de coordonnées. La commande reste en ligne de commande et c'est assez désagréable. Quelqu'un peu m'aider??? Bonne soirée DezHopper.

Bonjour, je viens de trouver réponse à ma question, alors pour ceux qui verrait le Topic, je laisse le liens et l'exemple de code qui permet de créer des table OD et d'attacher des enregistrement OD à des entités. You can create object data table with AcadMap COM API or with Map ObjectARX/ObjectARX .NET API. Using COM API in VBA is a bit easier than ObjectARX API. Do to it in VBA code, 1. Start AutoCAD Map and go to VBA IDE; 2. menu "Tools->References..."; 3. Select "AutoCADMap" in "Availavle references" list (which points to [Acad Map folder]\AmVBAPI.dll file. 4. Open Object Browser to browser "AcadMap" objects in AutoCADMap libaray. You will find ODTable/ODTables. You an also click "?" button for more information. Here is the quote form the Help documnet: The following example creates an object data table and attaches records to drawing objects. 1 Declare variables. Dim amap As AcadMap Dim acadObj As Object Dim ODfdfs As ODFieldDefs Dim ODfdf As ODFieldDef Dim ODtb As ODTable Dim ODrc As ODRecord 2 Set application and project objects. Set amap = ThisDrawing.Application. _ GetInterfaceObject("AutoCADMap.Application") 3 Create the schema for the object data table. Set ODfdfs = amap.Projects(ThisDrawing).MapUtil.NewODFieldDefs 4 Create fields for object data. For example, create fields for the name, color, and layer of a drawing object. Specify default values, for example, empty string, AcRed,.and layer 0, respectively. Add the fields to the table using consecutive index numbers. Set ODfdf = ODfdfs.Add("Entity", "Entity name", "", 0) Set ODfdf = ODfdfs.Add("Color", "Object color", acRed, 1) Set ODfdf = ODfdfs.Add("Layer", "Object layer", "0", 2) 5 Name the table and test the uniqueness of the name. If amap.Projects(ThisDrawing).ODTables. _ Item("SampleOD3") Is Nothing Then 6 Register the OD Table in the drawing and specify the type of object data as Xdata. Set ODtb = amap.Projects(ThisDrawing) _ .ODTables.Add("SampleOD3", "Sample Xdata", ODfdfs, True) 7 Create a record of data with defaults specified in step 4. Set ODrc = ODtb.CreateRecord 8 Loop though each drawing object, get its values for the name, color, and layer of the object, and attach the data to the drawing object. For Each acadObj In ThisDrawing.ModelSpace ODrc.Item(0).Value = acadObj.EntityName ODrc.Item(1).Value = acadObj.Color ODrc.Item(2).Value = acadObj.Layer ODrc.AttachTo (acadObj.ObjectID) Next Testing the example Run the example, and enter ADEEDITDATA at the command prompt to see the output. To run the code again, change the name of the table from SampleOD to another name. Aussi dans l'aide de MAP 2009 3D j'ai trouvé un exemple de code mais je suis incapable vu la profondeur de l'aide de retrouver les chemin (mais ca existe) Avant cela dans l'IDE VBA de MAP il faut référencer les biblio Autocad MAP . Bonne journée et bon WE DezHopper

Oui il est possible d'exporter des dessins vers google earth et Google map depuis MAP 2007,2008 etc... Il faut télécharger l'appli : http://labs.autodesk.com/utilities/google_earth_extension_beta/ Cette aplli génère très facilement des .kmz. (et de plus exporte aussi les données objets tres interressant) ensuite dans google map, je viens de le tester il est possible par les biais de "mes carte" d'importer du contenu .kmz ou kml (je ne connais pas la différence). A ce propos merci d'avoir posé la question car je viens de trouver réponse a un problème que j'avais à l'instant. Bonne journée et bon week end. Dezhopper

Bonsoir lili 2006, je ne suis passé sur le site depuis cette maxime. Oui je parlais de connexions BD. En effet je cherche à lier automatiquement dèspolylignes, dès création de celles ci des enregistrement d'une table. Mais je n'ai toujours pas trouver d'exemple concret. Aussi depuis mes recherches vont plutot vers l'attachement de données objets (présentes sous map) Auparavant j'avais crée un outils me permettant d'attacher des XDATA en créant une poly, mais ces XDATA sont dificilement modifiables par la suite. Aussi si tu as des exemples d'attachement de données objets en VBA sur des entités autocad, cela peu m'interresser. Bonne soirée DezHopper

J'ai dis une connerie???

Bonjour, tout d'abord je tenais a remercier les initiateurs (et utilisateurs) de ce site qui me permet depuis quelque mois maintenant, de me lancer dans les automatisations AutoCAD. Je ne suis pas très actifs mais je dois d'abord apprendre avant d'aider. Aussi ma question porte sur l'automatisation de création de table dans une base de donnée. d'insertion d'enregistrement depuis des attributs de block. de création de gabarit de liens de création de liens (en utilisant un gabarit donné) entre des enregistrements de cette table vers des entités type polyligne. Je cherche dans un premier temps des exemples de codes afin de m'inspirer. Aussi je ne comprend pas du tout le fonctionnement des base de données sous autocad. Ou plutot comment autocad "emule" en quelquesorte une BDD. Pourquoi il crée des table temporaire qui même un fois le fichiers dessin fermé et la base (sous acces) nétoyé réapparaisse à la connexion suivante. Si vous avez des idées ou des questions quand à des précisions je serais heureux de vous lire. Merci d'avance. Bon WE DezHopper......