(Degenerate geometry) Leaders, Ellipses et Polylignes

[JFTxJ]

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.

[didier]

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

[JFTxJ]

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]

[didier]

hello!

 

ah ! le vocabulaire ;)

 

amicalement

[JFTxJ]

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....