CwaM

J'avais pensé a ce que tu proposes winfield et justement jvenais voir s'il n'y avait pas qqchose de plus facile :P Merci a vous, jvais tenter de bricoler ca :)

Bonjour a tous, Je viens vous soumettre mon nouveau probleme: je voudrais, qd je clique sur une région trouée (région dont on a enlever une autre région par une opération de soustraction), obtenir directement cette région (donc un des contours) et non pas la région totale (aka région trouée) (je ne veux travailler que sur un seul contour de la région totale) Y a-t-il un moyen d'obtenir ca? Merci a tous/toutes

Dim Pt2(0 To 2) As Double Pt2(0) = Pt1(0) + 1 Pt2(1) = Pt1(1) Pt2(2) = Pt1(2) Dim Ray As AcadRay Set Ray = ThisDrawing.ModelSpace.AddRay(Pt1, Pt2) ' Calcul du nombre de points d'intersection Dim Points As Variant Points = region.IntersectWith(Ray, acExtendNone) Dim NbrePoints As Integer NbrePoints = UBound(Points) / 3 If NbrePoints Mod 2 = 0 Then resultat = 1 Else resultat = 0 End If Ray.Delete ca devrait aller si j'ai bien compris ce que tu voulais. ( pt1() est le point a tester) En fait le principe est de tirer une demie droite horitzontale vers la droite puis de compter le nombre d'intersections avec la polyligne concernée. SI c'est impair, c'est dedans, sinon, c'est dehors. (le code ne marche pas pour les points de la polyligne eux meme).

Le code marche qd on selectionne un block, mais lorsque l'on fait une selection totale (aka plueirus éléments), comment faire? cwam

Mais c'est super tout ca, ca répond a ma question et tout ;) Jte remercie encore une fois

Salut a tous/toutes Je suis encore a la recherche d'une commande: je voudrais picker un block et tester s'il est dans un groupe d'objets afin d'ensuite exploiter des données de ce groupe. Or, je n'arrive pas a mettre la main sur une telle commande. Qqn saurait il m'aider? Merci d'avance a tous les cadxpien(ne)s

Bien vu/Je suis un boulet Chacun choisit sa version ;) merci, sinon je bloque toujours sur mon histoire de "Réseau d'objets incorrects" [Edité le 10/5/2006 par CwaM]

Meme en essayant le code de l'aide j'ai une erreur :( Erreur d'éxécution Existe dansle groupe Sinon j'ai cur comprendre dans l'aide qu'on a pas forcément besoin d'une collection pour ajouter dans le groupe

J'avais bien trouvé ( et donc la méthode appenditems) ce que j'essaie de faire: J'ai mongroupe lors de l'appel de la routine 'création d'un bloc Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, NomBloc, 1#, 1#, 1#, 0) 'Ajout de celui ci dans mon groupe: groupobj.AppendItems blockRefObj -> "Réseau d'objets incorrects"

Salut ENcore un probleme niveau vba que je n'ai pas réussi à solutionner Je crée dans une routine des inseres de bloc. Jusque la, aucun probleme. Ensuite, je voudrais les stocker dans un groupe d'objet Acadgroup. J'ai bien trouvé la méthode AppendItems, j'ai toujours énormément de problemes et je n'arrive a rien :( Une bonne ame parmi les cadxpien(ne)s? ;)

Bonjour J'ai encore un petit soucis: Je voudrais garder en mémoire certaines valeurs dont j'ai besoin pour les réexploiter ultérieurement. Mais ou puis je mettre ces valeurs? Existerait il une zone mémoire liée au dessin ou l'on peut stocker des données telles les xdata des objets du dessin? J'ai beau chercher je ne trouve rien Si vous avez une piste, je suis preneur ;)

Je cherche a la limite surtout le moyen de garder en mémoire tout ce que je viens de créer, et donc de les sélectionner automatiquement lors de l'éxécution de ma routine (pas de sélection par l'utilisateur)!

Salut a tous, Me voici de retour pour un autre probleme :( Je crée et insere des blocs dans une routine, puis je veux par la suite créer un groupe de ces derniers blocs construits. Comment faire? J'ai beau chercher, fouiller le web, et ne trouve rien ;( Quelqu'un aurait il une idée? Merci d'avance :)

Probleme réglé: J'avais déja tenté le On error resume next mais ca suffisait pas j'ai juste ajouté Userform1.hide avant le call de ma fonction Merci :)

Salut a tous :) J'ai un petit probleme : Quand j'utilise cette fonction: tout marche normalement: Public Sub toto() Dim x As Double Dim y As Double Dim z As Double Dim PointOrig As Variant Dim PointExtrem As Variant PointOrig = ThisDrawing.Utility.GetPoint(, "Sélectionnez le point d'origine") PointExtrem = ThisDrawing.Utility.GetPoint(, "Sélectionnez le point d'extremité") MsgBox PointOrig(0) & " " & PointOrig(1) x = (PointOrig(0) + PointExtrem(0)) / 2 y = (PointOrig(1) + PointExtrem(1)) / 2 z = (PointOrig(2) + PointExtrem(2)) / 2 Armatures x, y, z End Sub par contre, quand je passe par une interface, et que je clique sur Annuler ca bug au niveau de Pointorig = thisdrawing.utility.getpoint.... Private Sub CommandButton3_Click() Call toto End Sub ca plante; pourquoi? :( quelqu'un saurait m'aider?