oplotcha

ça fonctionne merci pour l'aide

Bonjour Je suis sous AutoCAD map 2008. voici mon problème Je réalise d'abord une selection d'objet dans une userform1. Je souhaite ensuite ouvrir une autre userform pour rajouter des renseignements (Xdatas) à la selection. Mais je perd ma selection en changant de userform J'ai pourtant déclaré ma selection public dans un module module1 Public objselect As AcadSelectionSet userform1 ... If objselect.Item(0).Layer <> "1-Tranchées" Then MsgBox ("Cette ligne n'est pas dans le calque 1-tranchées") End Else objselect.Highlight (False) Load userform2 userform2.Show End If userform2 Private Sub CommandButton1_Click() ' Define the xdata Dim appName As String, xdataStr As String appName = "TRANCHEES" 'xdataStr = "This is some xdata" Dim xdataType3(0 To 2) As Integer Dim xdata3(0 To 2) As Variant ' Define the values for each array '1001 indicates the appName xdataType3(0) = 1001 xdata3(0) = appName '1000 indicates a string value xdataType3(1) = 1000 xdata3(1) = xdata_tranchées.TextBox1.Text xdataType3(2) = 1000 xdata3(2) = xdata_tranchées.TextBox2.Text [surligneur] objselect.item(0).SetXData xdataType3, xdata3[/surligneur] xdata_tranchées.hide End Sub merci

salut j'ai un AutoCAD Map3D . j'ai trouvé un script en lisp sur un forum qui transforme les Xdatas en objects data. mais la procédure est assez lourde à faire. Redéfinir toutes les tables et tous les champs. je voudrais pouvoir les créer automatiquement a la génération de mon plan Mais je n'ai trouvé aucune documentation pour créer des tables et des objects data en vba. une piste pour un tutorial? merci

Bonjour J'ai réaliser un programme en VBA pour insérer mon levé codé sous autocad. A chaque ligne et polyligne j'associe des Xdatas. Je souhaite savoir s'il est facile de récupérer ces renseignement sous un autre logiciel de SIG, quel est la procédure. Ou alors faut - il que je me tourne vers d'autre outils que les Xdatas pour ma programmation. Merci

bonjour J'importe actuellemnt un levé codifié sur le terrain avec un programme en VBA sous autocad. Ce programme créé automatiquement mes lignes et polylignes en fonction du code associé a chaque point pris. Je souhaite pourvoir ajouter des informations à ces lignes ou polylignes sans être obliger de créer un bloc avec attribut pour chaque élément. Le but final est d'insérer le plan dans un sig je recherche donc une fonction qui associe du texte à une ligne ou polyligne. Le texte n'a pas besoin d'être visible. Mais il doit être enregiter et associé a la ligne merci

j'ai répondu un peu trop vite sans faire bien attention. après plusieurs tests, la deuxième méthode fonctionne. merci beaucoup

Merci pour ta réponse rapide. Helas la méthode deux ne fonctionne pas. Mon calque est créé bien en amont dans mon programme. Et il est actif, non verroullié, non gelé. Mes objets à déplacer sont des points dans des calques différents. ils font parti d'une sélection. Mais je veux mettre que quelques points parmi cette selection dans un autre claque BaSelectv 'ma selection BaSelect.item(IIIv-1) 'un objet de ma selection Baselectv.item(IIIv-1).color=acWhite 'fonctionne Baselectv.item(IIIv-1).layer = indéterminé_veget 'ne fonctionne pas namelayer = "indéterminé_veget" With BaSelectv.Item(IIIv - 1) .Layer = namelayer .Update End With' ne fonctionne pas mais je n'ai pas de plantage. le programme termine sa tache en passant la ligne comme si ne rien n'était.

bonjour. je crée actuellement un filtre pour qu'un nuage de points soit filtré en points au sol et points végétation en VBA Autocad Map3D 2008. Mon problème se situe pour le déplacement d'un calque à un autre d'un objet appartenant à une selection créée précédement. J'arrive à modifier la couleur de l'objet, à obtenir le calque dans lequel il se situe mais pas à le déplacer dans un autre calque. mon programme: Dim BaSelectv As AcadSelectionSet Dim pointsolv As Variant ReDim pointsolv(2) Dim Pt1v(0 To 2) As Double Dim Pt2v(0 To 2) As Double Dim IIv As Integer Dim IIIv As Integer Dim pointxv As Variant Dim pointxiv(0 To 2) As Double 'Donnees : coordonnées de la fenetre Pt1v(0) = xmin - 1.5 Pt1v(1) = ymin - 1.5 Pt1v(2) = 0# Pt2v(0) = xmin + 1.5 Pt2v(1) = ymin + 1.5 Pt2v(2) = 0# 'Creation du jeu de selection On Error Resume Next Set BaSelectv = ThisDrawing.SelectionSets.Item("BaVBav") If Err Then Err.Clear Else BaSelectv.Delete End If Set BaSelectv = ThisDrawing.SelectionSets.Add("BaVBav") 'Selection de toutes les entites dans la fenetre BaSelectv.Select acSelectionSetWindow, Pt1v, Pt2v 'MsgBox (CStr(BaSelect.Count)) If BaSelectv.Count <> 0 Then For IIv = 1 To BaSelectv.Count pointsolv = BaSelectv.Item(IIv - 1).Coordinates altiv = pointsolv(2) sommealtiv = altiv + sommealtiv Next IIv moyenne1v = sommealtiv / BaSelectv.Count For IIIv = 1 To BaSelectv.Count pointaclasserv = BaSelectv.Item(IIIv - 1).Coordinates If (pointaclasserv(2) - moyenne1v) < -5 Then Countv = Countv + 1 BaSelectv.Item(IIIv - 1).color = acWhite nomlayer = BaSelectv.Item(IIIv - 1).Layer [surligneur] BaSelectv.Item(IIIv - 1).Layer = indéterminé_veget[/surligneur] BaSelectv.Item(IIIv - 1).Update End If Next IIIv End If