Visualizzare il disegno di un poligono

[d***@hotmail.com]

ciao a tutti,
sono sicuro che qualcuno gia lo sa.
Ho fatto con excel un semplice foglio di lavoro che, impostati i
numeri di lati (n) , le coordinate del centro (Xcentro, Ycentro), e il
raggio del cerchio (R) mi calcola le coordinate di tutti i vertici del
poligono.
fin qui tutto semplice e lineare.
Il problema è che cerco un modo di visualizzare questi poligoni.
chiedo a voi: c'è un modo per visualizzare in una specie di grafico
cartesiano i vertici del poligono(Xv e Yv) e magari addirittura il
poligono intero formanto con spezzate da punto a punto??
grazie a chiunque mi possa aiutare
nicola

[ivano]

<***@hotmail.com> ha scritto nel messaggio news:***@j27g2000cwj.googlegroups.com...
ciao a tutti,
sono sicuro che qualcuno gia lo sa.
Ho fatto con excel un semplice foglio di lavoro che, impostati i
numeri di lati (n) , le coordinate del centro (Xcentro, Ycentro), e il
raggio del cerchio (R) mi calcola le coordinate di tutti i vertici del
poligono.
fin qui tutto semplice e lineare.
Il problema è che cerco un modo di visualizzare questi poligoni.
chiedo a voi: c'è un modo per visualizzare in una specie di grafico
cartesiano i vertici del poligono(Xv e Yv) e magari addirittura il
poligono intero formanto con spezzate da punto a punto??
grazie a chiunque mi possa aiutare
nicola

Ciao,
impossibile parlare di grafici senza interpellare
http://www.prodomosua.eu/ppage02.html
ivano

[fernando cinquegrani]

Post by d***@hotmail.com
Il problema è che cerco un modo di visualizzare questi poligoni.
chiedo a voi: c'è un modo per visualizzare in una specie di grafico
cartesiano i vertici del poligono(Xv e Yv) e magari addirittura il
poligono intero formanto con spezzate da punto a punto??

se hai già tutto ti basta un semplice grafico xy a dispersione.
ad esempio, in
http://www.prodomosua.eu/zips/poligoni.xls
imposta il numero di lati
le coordinate del centro
e il raggio.
,f

[cucchiaino]

fernando cinquegrani
ciao Nicola, ciao .f

Post by fernando cinquegrani

Post by d***@hotmail.com
Il problema è che cerco un modo di visualizzare questi poligoni.
chiedo a voi: c'è un modo per visualizzare in una specie di grafico
cartesiano i vertici del poligono(Xv e Yv) e magari addirittura il
poligono intero formanto con spezzate da punto a punto??

se hai già tutto ti basta un semplice grafico xy a dispersione.
ad esempio, in
http://www.prodomosua.eu/zips/poligoni.xls

oppure utilizzando gli strumenti di disegno:

Sub creapoligono()
Dim p() As Single
Dim xc As Single
Dim yc As Single
Dim r As Single
Dim n As Long
Dim i As Long

xc = 150
yc = 150
r = 60
n = 5

ReDim p(1 To n, 1 To 2)
For i = 1 To n
p(i, 1) = xc + r * Cos(2 * Application.Pi() * i / n)
p(i, 2) = yc + r * Sin(2 * Application.Pi() * i / n)
Next

i = 1
With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, p(1, 1), p(1, 2))
For i = 2 To n
.AddNodes msoSegmentLine, msoEditingAuto, p(i, 1), p(i, 2)
Next
.AddNodes msoSegmentLine, msoEditingAuto, p(1, 1), p(1, 2)
.ConvertToShape
End With

End Sub