Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Macro voor tekenen van lijn (figuur)

89 views
Skip to first unread message

Martijn

unread,
Oct 27, 2006, 4:32:01 AM10/27/06
to
RaceEend, nog bedankt voor je vorige antwoord !!

Nu heb ik een macro nodig om een bepaalde lijn te tekenen.
- Een lijn begint vanaf een startpunt met coordinaten x en y.
- De lijn heeft een bepaalde lengte.
- En de lijn staat onder een bepaalde hoek.
Hoe ziet mijn macro er dan uit ?

Alvast bedankt voor de moeite !! Gr. Martijn

Martijn

unread,
Oct 27, 2006, 5:58:02 AM10/27/06
to
Ik kan wel een lijn tekenen met een beginpunt (x,y) en een eindpunt (x,y).
Maar is het ook mogelijk om hetgene wat ik in m'n vorige bericht heb gezet
uit te voeren?

RaceEend

unread,
Oct 27, 2006, 1:51:38 PM10/27/06
to
Martijn wrote:

Ojee terug naar het voortgezet onderwijs, een beetje geometrie
Vanuit landmeetkundig oogpunt:
Xe=Xs + sin(Hoek) * Lengte
Ye=Ys + cos(Hoek) * lengte

Xs, ys = startpunt
Xe,Ye = eindpunt
Hoek in radialen
X-as is horizontaal en Y-as verticaal

VBA kent geen omrekening van graden naar radialen (ja ja wel via
Worksheetfunction, maar waarom zou je)
Hoek in radialen = hoek ingraden * PI / 180
PI= ATN(1)*4


Nu een klein addertje onder het gras.
De hoek in de wiskunde wordt gerekend van de horiontaal naar boven
(tegen de klok in)
dit betekent dat de sin en cos omgedraaid moeten worden

Xe=Xs + cos(Hoek) * Lengte
Ye=Ys + sin(Hoek) * lengte

Excel heeft de oorsprong linksboven liggen EN de positief Y-as gaat
naar beneden, in de 'normale' wereld ligt de oorsprong linksonder en is
de positief Y-as naar bovengericht.

In het Excel assenstelsel wordt het, positieve hoek tegen de
klokrichting in.
Xe=Xs + cos(Hoek) * Lengte
Ye=Ys - sin(Hoek) * lengte

Wim Hendriksen

unread,
Oct 27, 2006, 2:21:10 PM10/27/06
to
Hallo RaceEend,

Je wiskundige verhaal is bijna geheel juist: oor de spiegeling
veranderen de formules, echter niet zoals jij aangeeft, maar de formules
blijven gelijk op de hoek na, die moet negatief worden genomen.
De formules worden dan:
Xe=Xs + cos(Hoek*-1) * Lengte
Ye=Ys + sin(Hoek*-1) * lengte

Groeten
Wim Hendriksen

RaceEend schreef:

Wim Hendriksen

unread,
Oct 27, 2006, 2:27:58 PM10/27/06
to
Ik was even te snel:
immers sin(-alfa) = -sin(alfa) en cos(-alfa)= cos (alfa)
te hebt daarmee toch gelijk.
Groeten
Wim Hendriksen


Wim Hendriksen schreef:

RaceEend

unread,
Oct 28, 2006, 3:11:16 AM10/28/06
to
Wim Hendriksen wrote:

> Ik was even te snel:
> immers sin(-alfa) = -sin(alfa) en cos(-alfa)= cos (alfa)
> te hebt daarmee toch gelijk.
> Groeten
> Wim Hendriksen
>

Ik schrok al, daar ik 20 jaar hiermee bijna dagelijks mee te maken en
het zou anders zijn....;-)
Maar gelukkig, het blijkt nog steeds zo te zijn.

0 new messages