Facettisation d'un arc

Version imprimable

19/03/2007, 11h49
loic911

Facettisation d'un arc

Bonjour,
Je dois exporter des formes depuis Autocad vers des bases de données.
Il faudrait que je "facettise" des arcs et des élipses. En fait, il faudrait que je remplace les courbes par des petites droites misent bout a bout.

Sauriez vous ou je pourrais trouver des infos la dessus? Existe-il d'autres termes plus précis pour cette technique...sur internet je trouve vraiment pas grand chose :? Existe il des algos tout fait pour cette technique (c'est beau de rêver...je sais ;) )

Merci

Bonjour,

je rechercherai avec :

Code:

1
2
3
  Ellipse (ou : elliptic) 
+ arc 
+ segmentation ( ou : split segment)

19/03/2007, 19h19
Mat.M

bof faut pas faire Maths sup' pour ça ! :mrgreen:
Si tu as l'équation d'un cercle avec une boucle tous les n points tu tires un trait entre n et n-1!

L'équation d'un cercle c'est

Citation:

Pour angle=0 a 360
X_cercle=centre_cercleX+(cos(rayon*x))
Y_cercle=centre_cercleY+(sin(rayon*x))
Fin Pour

je suis pas sur sur les sin et cos vérifier; les variables doivent être numériques à virgule flottantes.
Donc voir sous Autocad si on peut faire cela ( LISP ? )
19/03/2007, 19h21
loic911

J'utilise le VBA por extraire les datas

Je vais tester ca demain,

Merci pour vos réponses! :yaisse2:

Tiens un exemple cela fonctionne j'ai fait cela avec VC++ et MFC tu devrais pouvoir l'adapter à n'importe quel langage 8-)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#define TWOPI       (2 * 3.14159)		
 
void CTestDlgDlg::OnPaint() 
{
	CPaintDC dc(this); // device context for painting
	double angle;
	double X,Y;
 
	double	X0=	300+(cos (TWOPI * 0)	*200);
	double Y0=	300+(sin (TWOPI * 0)	*200);
	dc.MoveTo(int(X0),int(Y0));
	for(angle=0;angle<360;angle+=20)
	{
		X=	300+(cos (TWOPI * angle / 360)	*200);
		Y=	300+(sin (TWOPI * angle / 360)	*200);
		dc.LineTo (X,Y);
 
	}
}

22/03/2007, 13h45
loic911

Merci j'ai adapté la fonction pour les arcs et les cercles et c'est bon

...maintenant faut les ellpises :aie:

si qqun a des infos :yaisse2:
22/03/2007, 15h32
PRomu@ld

C'est toujours pareil, si tu as l'équation de ton elipse, tu places des points à intervalle régulier et tu traces les droites.
22/03/2007, 15h35
loic911

Mais ici, il n'y a plus de notion d'angle.
Le centre, la longueur et le ration longueur/largeur
23/03/2007, 01h46
souviron34
Citation:

Envoyé par loic911

Mais ici, il n'y a plus de notion d'angle.
Le centre, la longueur et le ration longueur/largeur

bien sûr que si, c'est pareil qu'un cercle... Un cercle est un cas particulier d'une ellipse, où 1/2 gd axe et 1/2 petit axe sont égaux.

Si tu prends une ellipse , l'équation est :
Code:

1 2 3 x2 y2 -- + -- = 1 a2 b2
Dans un cercle, a = b = rayon.

Donc pour tracer une ellipse , tu fais le même algo, mais en mettant par exemple un 300 sur X et un 200 sur Y, enfin en mettant un rayon différent pour la cote Y et pour la cote X.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Function FacettiserEllipse(ByRef obj As AcadEllipse)
Debug.Print "facettiser"
Dim TWOPI As Double
TWOPI = 2 * 3.14159
 
Dim angle As Double
Dim x As Double
Dim y As Double
 
Dim x0 As Double
Dim y0 As Double
 
Dim rx As Double
Dim ry As Double
 
Dim objLine As AcadLine
 
Debug.Print obj.RadiusRatio & " " & obj.MajorAxis(0) & " " & obj.MajorAxis(1)
 
angle = 0
 
If obj.MajorAxis(0) > obj.MinorAxis(0) Then
Debug.Print "x mineur"
rx = obj.MinorRadius
ry = obj.MajorRadius
Else
Debug.Print "x majeur"
rx = obj.MajorRadius
ry = obj.MinorRadius
End If
 
x0 = obj.Center(0) + (Cos(TWOPI * angle / 360) * rx)
y0 = obj.Center(1) + (Sin(TWOPI * angle / 360) * ry)
 
For angle = 0 To 360 Step 5
 
        x = obj.Center(0) + (Cos(TWOPI * angle / 360) * rx)
        y = obj.Center(1) + (Sin(TWOPI * angle / 360) * ry)
 
        Set objLine = ThisDrawing.ModelSpace.AddLine(Pnt(x0, y0, 0), Pnt(x, y, 0))
        objLine.Update
 
        x0 = x
        y0 = y
 
Next angle
 
End Function

Voilà, j'arrive a re-dessiner l'ellipse...mais uniquement une éllipse dont les axes sont parrallèle aux axes de repères.

() <==== ca va

<> <= ca va

Mais si elle est incliné, évidemment, ca ne va pas.

J'ai essayé de jouer avec les propriétés MajorAxis (renvoit un doube[3] avec le x,y,z du point opposé au centre de l'axis majeur) et MinorAxis...

:aie: :aie: :aie:

23/03/2007, 15h56
souviron34

eh faut réfléchir 5 minutes..... :aie:

Tu calcules tes pixels normaux (// à X ou Y), et tu effectues une rotation de l'angle que tu veux.... (en ayant soin de faire la rotation par rapport au centre)...
23/03/2007, 21h06
Mat.M

J'avais oublié: si tu utilises VBA tu peux prendre Arc() du GDI ;)

Citation:

Arc
The Arc function draws an elliptical arc.

BOOL Arc(
HDC hdc, // handle to device context
int nLeftRect, // x-coord of rectangle's upper-left corner
int nTopRect, // y-coord of rectangle's upper-left corner
int nRightRect, // x-coord of rectangle's lower-right corner
int nBottomRect, // y-coord of rectangle's lower-right corner
int nXStartArc, // x-coord of first radial ending point
int nYStartArc, // y-coord of first radial ending point
int nXEndArc, // x-coord of second radial ending point
int nYEndArc // y-coord of second radial ending point
);

Utiliser API viewer et faire un declare lib dans un module