Encoretoutpetit Posté(e) le 3 février 2006 Posté(e) le 3 février 2006 Bonjour aux cadxpienpiennes. Je sélectionne à l’écran une polyligne (fermée ou pas), je décale cet objet d’une valeur « x » à l’aide de la méthode « offset » et j’aimerai récupérer les coordonnées de ce nouvel objet (est-ce vraiment un objet ?), « coordinates » ne me renvoie rien. Et ça m’énerve. Merci d’avance.
nazemrap Posté(e) le 3 février 2006 Posté(e) le 3 février 2006 Bonjour.Il me semble qu'à ce stade le résultat est une variable "variant".Il faut encore l'affecter à une variable polyligne, après l'avoir déclarée. dim objetpolyligne as AcadLWPolylineset objetpolyligne=polyline_décalée(0) nazemrap
Encoretoutpetit Posté(e) le 3 février 2006 Auteur Posté(e) le 3 février 2006 Merci nazemrap Mais moi bien porter mon nom car moi pas réussi à faire.Grrrr, pourtant l'espion m'affiche bien les nouvelles coordonnées mais je n'arrive pas à les récupérer. Promis, je prends le temps de chercher un peu plus ce week-end. Bon week.
Tramber Posté(e) le 3 février 2006 Posté(e) le 3 février 2006 En tous les cas, je te rassure, la méthode OFFSET crée bien une poly, quand c'est possible. Certains décalages dénaturent la poly dans sa forme ou sont impossibles, ce qui est compréhensible. En vlisp je n'ai pas de problème avec cette méthode. J'utilise COUNT dans le Modelespace pour voir si j'obtiens :1 normal2 polyligne dénaturée0 décalage impossible Mais j'ai tjs des COODINATES en retour dans les cas 1 ou 2. Note, parfois, la polyligne renvoyée n'est pas dans le même sens (on ne m'a pas cru pourtant c'est vrai voir ici) Bureau d'études dessin. Spécialiste Escaliers Développement - Formation ./__\. (.°=°.)
winfield Posté(e) le 3 février 2006 Posté(e) le 3 février 2006 Bonsoir,va voir ici http:// http://www.cadxp.com/sujetXForum-6942.htm Nous n’ héritons pas de la terre de nos ancêtres.Nous l’empruntons à nos enfants.
Encoretoutpetit Posté(e) le 6 février 2006 Auteur Posté(e) le 6 février 2006 Merci à vous nazemrap, Tramber et Winfield. Paranthèse zéro parenthèseParenthèse zéro parenthèseParenthèse zéro parenthèseParenthèse zéro parenthèseJ'étais fatigué vendredi, je n'ai pas su recopier la 2ème ligne fournie par nazemrap dans sa totalité, et mon tableau retour coordonnées restait désespérément vide. Pour Tramber, maintenant que ça marche, j'ai fait plusieurs essais (plein en fait), et la polyligne renvoyée est pour l'instant toujours dans le même sens que l'originale.Je n'ai pas déclaré la polyligne en tant que AcadLWPolyline mais comme AcadObject, peut-être que ? Voici le code : Public Sub toto() Dim returnObj As AcadObject Dim returnObjOffset44 As Variant Dim returnObjDécalé As AcadObject On Error Resume Next ThisDrawing.Utility.GetEntity returnObj, "Sélectionner une polyligne." If returnObj.EntityName <> "AcDbPolyline" Then MsgBox "Il faut sélectionner une polyligne." Exit Sub Else returnObjOffset44 = returnObj.Offset(-44) Set returnObjDécalé = returnObjOffset44(0) retCoord = returnObjDécalé.Coordinates End If End Sub Encore merci et à +
Messages recommandés
Créer un compte ou se connecter pour commenter
Vous devez être membre afin de pouvoir déposer un commentaire
Créer un compte
Créez un compte sur notre communauté. C’est facile !
Créer un nouveau compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant