som

salut tous lemonde, et merci pour les reponses à didier : { 1- les deux polylignes sont deux tracés radicalement différents, 2- la distance que je cherche est vraiment le plus petit passage entre les deux Polylignes. } j aimerai bien avoir un code en vb, je developpe en vb et je dessine sur autocad via le vb. PS : je cherche quelque chose comme la fonction qui calcule l'intersection entre deux poly : IntersectWith(poly,..), aulieu de intersect je veux distance entre deux poly :) et merci pour votre aide

salut, merci gil pour ta reponse, je vais essayer le code, mais si ca marche je ne sais pas comment recuperer la valeur retournée par lisp pour l'utiliser dans le code vb ? :)

salut à tous et bonne fête, je cherche une fonction ou des lignes de code en VB qui me permet de calculer la distance minimale entre deux polylines. a partir d'un programme en VB je dessine deux polyLines : polyLine1 et polyline2 (poly2 est à l'interieur du poly1) et je veux que mon programme VB me calcule la distance min entre les deux countours. merci pour l'aide et encore une fois bonne fête. :)

salut tous le monde, mon petit prob est le suivant : je developpe sous VB 6, j ai une interface où j'insert des parametres d'un dessin AutoCad, lorsque je valide une sub permet de faire le dessin avec les param que j ai saisi ... mais pour voir le résultat je suis oubligé d'activer la fenetre d'autocad (qui mininized dans la barre des taches). merci pour l aide ..

salut, dans le code que dedier m aproposé, la fonction selectonscreen me prompt pour faire une selection, ce que je voulais c est que la sub fasse elle même la selection, j ai donc remplacer selectonscreen par select. voici le code que j ai opté : Dim acadDoc As AcadDocument acadApp.Application.Documents.Open (nomFichier) Set acadDoc = acadApp.ActiveDocument Dim SelPoly As AcadSelectionSet Dim varData(0) As Variant Dim IntType(0) As Integer Dim TableauPolyObj() As Double Dim Tempo As Variant Dim NumObj As Integer Set SelPoly = acadDoc.PickfirstSelectionSet IntType(0) = 0 varData(0) = "Polyline" ReDim Preserve TableauPolyObj(999) SelPoly.Select acSelectionSetAll, , , IntType, varData NumObj = Int(SelPoly.Count) TableauPolyObj = SelPoly.Item(0).Coordinates NombreSommets = UBound(TableauPolyObj) ReDim Preserve TableauPolyObj(NombreSommets) acadApp.Application.Documents.Close encore une fois merci pour votre aide ... ;)

merci didier pour votre réponse, je vais essayer le code ...

salut, je suis un débutant AuTocad, je developpe une application en Visual Basic 6, j utilise les fonctions autocad a partir du VB, j ai un fichier autocad qui contient un polyline par programmation VB j'arrive à ouvrir le fichier sous autocad, ce que je veux c'est récuperer les points du polyline. merci pour votre aide.