Aller au contenu

(Degenerate geometry) Leaders, Ellipses et Polylignes


JFTxJ

Messages recommandés

J'ai AutoCAD 2005 anglais.

 

Je doit lire (extraire) les coordonnées d'un de ces objets, les storer pour pouvoir les recréer dans un autre dessin. Ceci fonctionne très bien.

 

Mon problème est que lorsque je recré certains de ces objets avec des coordonnées précises, je reçois l'erreur "Degenerate geometry". Ceci arrive sur certaines combinaisons de coordonnées précises, et pas sur d'autre. Aucune particularité de ces coordonnées furent reconnus par notre administrateur CAD (à sa connaissance). Voici une exemple de ces coordonnées non fonctionnelles pour un Leader

 

Point 1 X: 34489130.4553939 Y: 50270033.9939792 Z: 0

Point 2 X: 42775876.0029437 Y: 33241687.2030968 Z: 0

Point 3 X: 54055057.7196147 Y: 56252966.7532379 Z: 0

Point 4 X: 70513455.307637 Y: 43596762.8997782 Z: 0

Point 5 X: 99286878.0933764 Y: 46128003.7601431 Z: 0

Point 6 X: 107918904.929098 Y: 50730259.6253348 Z: 0

 

Si vous avez la moindre idée, j'en serais très reconnaissant.

Apprentis-expert....

"The human mind, once stretched by a new idea, never regains its original shape."

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

je n'en ai pas la moindre idée,

d'autant que je n'ai pas reçu ce message,

j'ai mis tes coordonnées dans un tableau

j'ai demandé à VBA de m'en faire un leader...

et alors...

et alors...

 

et ben, il l'a fait sans message d'erreur

on parle bien du même Leader ?

 

amicalement

Lien vers le commentaire
Partager sur d’autres sites

Merci Didier...

 

Désolé, j'ai eu la même chose.... C'est qu'ils ne fonctionne pas avec un object "Annotés" (je sais pas c'est quoi le bon mot en Français, mais "Annotation Object"). J'ai été surpris que ca marche hier... mais d'ès que j'y met un objet annoté, j'ai le message "Not applicable", et non "Degenerate geometry". Ce dernier message m'est seulement donné lors de la création d'éllipses et c'est un problème de Radians........ (je commencerai pas sur ce sujet).

 

Pour mon erreur, je sais que c'est probablement une erreur de logique/CAD (je connais absolument rien au dessins CAD, je ne suis que programmeur.... ;-(). Mais toutes idées serais très apprécié. J'ai essayé avec les 3 sortes d'annotation (MText, Tolerance et BlockReference), mais aucun fonctionne.

 

Merci encore...

 

[Edité le 12/10/2005 par JFTxJ]

Apprentis-expert....

"The human mind, once stretched by a new idea, never regains its original shape."

Lien vers le commentaire
Partager sur d’autres sites

Hen??? je n'ai pas compris ton dernier message...

 

Anyway, voici une exemple du code que j'essaie d'exécuter. Les coordonnées commentés sont des coordonnées fonctionnelles, mais pas les autres.....

 

'---------------------------------------------------------------------------------------------------------------------------

Dim LObj As AcadLeader

Dim x As AcadMText

Dim INSERTIONP() As Double

ReDim INSERTIONP(0 To 2)

 

Dim XYZ() As Double

 

ReDim XYZ(0 To 17)

XYZ(0) = 34489130.4553939

XYZ(1) = 50270033.9939792

XYZ(2) = 0

XYZ(3) = 42775876.0029437

XYZ(4) = 33241687.2030968

XYZ(5) = 0

XYZ(6) = 54055057.7196147

XYZ(7) = 56252966.7532379

XYZ(8) = 0

XYZ(9) = 70513455.307637

XYZ(10) = 43596762.8997782

XYZ(11) = 0

XYZ(12) = 99286878.0933764

XYZ(13) = 46128003.7601431

XYZ(14) = 0

XYZ(15) = 107918904.929098

XYZ(16) = 50730259.6253348

XYZ(17) = 0

 

' XYZ(0) = 3989533.7243697

' XYZ(1) = 62120843.0486121

' XYZ(2) = 0#

' XYZ(3) = 54055057.7196147

' XYZ(4) = 79149190.0636769

' XYZ(5) = 0#

' XYZ(6) = 66945551.2196588

' XYZ(7) = 66262873.5066305

' XYZ(8) = 0#

' XYZ(9) = 82943574.0124316

' XYZ(10) = 74892103.3659563

' XYZ(11) = 0#

' XYZ(12) = 99286878.0933764

' XYZ(13) = 64306914.7415058

' XYZ(14) = 0#

' XYZ(15) = 118392430.562348

' XYZ(16) = 76042667.3322542

' XYZ(17) = 0#

 

INSERTIONP(0) = 100

INSERTIONP(1) = 100

INSERTIONP(2) = 0

 

Set x = ThisDrawing.ModelSpace.AddMText(INSERTIONP, 100, "Je suis fou, ou partiellement")

 

ThisDrawing.ModelSpace.AddPolyline XYZ

 

Set LObj = ThisDrawing.ModelSpace.AddLeader(XYZ, x, acLineWithArrow)

'---------------------------------------------------------------------------------------------------------------------------

 

P-être que ça pourrais t'aider à comprendre....

Apprentis-expert....

"The human mind, once stretched by a new idea, never regains its original shape."

Lien vers le commentaire
Partager sur d’autres sites

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é