Aller au contenu

Messages recommandés

Posté(e)

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.

 

Posté(e)

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 AcadLWPolyline

set objetpolyligne=polyline_décalée(0)

 

nazemrap

Posté(e)

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.

Posté(e)

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 normal

2 polyligne dénaturée

0 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

 

./__\.
(.°=°.)
Posté(e)

Merci à vous nazemrap, Tramber et Winfield.

 

Paranthèse zéro parenthèse

Parenthèse zéro parenthèse

Parenthèse zéro parenthèse

Parenthèse zéro parenthèse

J'é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 à +

 

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 compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité