Ashou

Et ça plante à la derniere ligne

ok, voici mon code : ' Create the line Dim lineObj As AcadLine Dim startPt(0 To 2) As Double, endPt(0 To 2) As Double startPt(0) = 1.0# : startPt(1) = 1.0# : startPt(2) = 0.0# endPt(0) = 5.0# : endPt(1) = 5.0# : endPt(2) = 0.0# lineObj = vAcadDoc.ModelSpace.AddLine(startPt, endPt) ' Initialize all the xdata values. Note that first data in the list should be ' application name and first datatype code should be 1001 Dim DataType(0 To 7) As Integer Dim Data(0 To 7) As Object DataType(0) = 1001 : Data(0) = "application_name" DataType(1) = 1000 : Data(1) = "This is a test for xdata" DataType(2) = 1003 : Data(2) = "0" ' layer DataType(3) = 1040 : Data(3) = 1.23479137438413E+40 ' real DataType(4) = 1041 : Data(4) = 1237324938 ' distance DataType(5) = 1070 : Data(5) = 32767 ' 16 bit Integer DataType(6) = 1071 : Data(6) = 32767 ' 32 bit Integer DataType(7) = 1042 : Data(7) = 10 ' scaleFactor ' Attach the xdata to the line lineObj.SetXData(DataType, Data)

Salut, Non, je suis bien en VB.net, et j'ai bien les fonctions SendXData et GetXData. le tableau de données commence bien par le nom de mon application, mais j'ai toujours cette même erreur !!!! Ou alors, j'utilise un activeX VBA en travaillant sous VB.net ?? Quel est l'ActiveX dédié au VB.net ??

Bonjour, Je recherche un exemple d'utilisation des fonctions SetXData et GetXData pour VB.NET Comme indiqué dans la doc, j'écris : lineobj.SetXData(Datatype, Data) avec Datatype un tableau d'entiers et Data un tableau d'objets à l'execution de ce code, on me sort un message disant qu'il y a un "Argument de type incorrect dans la méthode" !! Avez vous des idées sur la provenance de cette erreur ?

Merci de ta réponse, ça confirme qu'il y a encore du boulot !! alors, oui, l'algorithme est le même, sauf que les listes utilisés en LISP ont été remplacées par des datatables en liaison avec une base de données access, ce qui permet d'archiver les données. La source de mon problème doi se trouver ici ! sinon, je vais essayer de prendre des temps intermédiaires à chaque début et fin de méthode. le temps de calcul du datetime est-il négligeable ?? ^^

Bonjour à tous, voici mon problème, on m'a demandé de traduire une application LISP qui réalise des calculs de tracés sur autocad 2008 en VB.NET. Le calcul est beaucoup plus long dans la nouvelle version (VB.NET) que dans l'ancienne (LISP). Est -il normal, que pour un même algorithme de calcul, les vitesses d'exécution divergent ?? Connaissez vous un utilitaire qui me permettrait de connaitre la méthode, l'emplacement du calcul qui me fait perdre du temps ? Merci d'avance pour vos reponses !

Je sais que le Sendcommand c'est pas propre du tout. D'ailleurs, je confirme que Sendcommand fonctionne en VB.net et pas seulement en VBA Connaissez vous alors une méthode VB.NET qui permet de fusionner des lignes, polylignes, et arc en une seule polyligne sans sélection à la main sur le dessin?

Bonjour, Tout d'abord je voudrais savoir si il existe une commande équivalente au "_Pedit" d'autocad dans VB.net. De plus, j'aimerai savoir s'il existe une documentation qui liste les paramètres de toutes les fonctions autocad du type :"_Pedit" ; "_block";"_circle";etc... Bref toutes les commandes que l'on utilise avec "command" du lisp ou "sendcommand" de vb.net. Connaissez vous les différents paramètres de la méthode Select? Merci d'avance A la prochaine.